ais.osym.gov.tr bağlanma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

ais.osym.gov.tr bağlanma

İleti#1)  karakutum » 21 Tem 2018 19:37

Merhaba arkadaşlar hepimizin ara ara kullandığı ais.osym.gov.tr sitesine bağlanmaya çalıştım fakat yapamadım. siteye bağlanıp örnek olarak kimlik bilgilerimi excele aktarmayı nasıl yapabiliriz.

Private Sub CommandButton1_Click()
Set evn = CreateObject("internetexplorer.application")
With evn
evn.Visible = True
.Navigate "https://ais.osym.gov.tr" ' HEDEF SİTE
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With .Document.all
.TcKimlikNo.Value = Range("b1").Value
.Password.Value = Range("b2").Value
End With
End With
End Sub
Kullanıcı avatarı
karakutum
Yeni Başlamış
 
Kayıt: 09 Nis 2017 01:43
Meslek: Memur
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

ais.osym.gov.tr bağlanma

İleti#2)  arcilingir » 23 Tem 2018 12:59

Sub ais_Ac()

Dim IE As Object
Dim satir

On Error Resume Next
READYSTATE_COMPLETE = 4

kimlikno = "kimlik numarası girilecek"
sifre = "Şifre girilecek"

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.navigate "https://ais.osym.gov.tr"
Do
Loop While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE

IE.Document.getElementById("girisButon").Click
Do
Loop While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE

IE.Document.all("TcKimlikNo").Value = kimlikno
IE.Document.all("Sifre").Value = sifre
Application.Wait Now + TimeValue("00:00:01")

IE.Document.getElementById("btnSubmitLogin").Click
Do
Loop While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE

Application.Wait Now + TimeValue("00:00:01")
IE.navigate "https://ais.osym.gov.tr/Profil/KimlikBilgilerim"
Do
Loop While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE


r = 1
For x = 0 To 10 'IE.Document.getelementsbytagname("label").Length
Range("A" & r).Value = IE.Document.getelementsbytagname("label")(x).innertext
r = r + 1
Next x

r = 0
For x = 6 To 17 'IE.Document.getelementsbytagname("span").Length
Range("B" & r).Value = IE.Document.getelementsbytagname("span")(x).innertext
r = r + 1
Next x

End Sub
Kullanıcı avatarı
arcilingir
Yeni Başlamış
 
Adı Soyadı:ali rıza cilingir
Kayıt: 18 Şub 2009 13:19
Yaş: 48
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TRABZON-VAKFIKEBİR

Cevap: ais.osym.gov.tr bağlanma

İleti#3)  karakutum » 23 Tem 2018 14:38

öncelikle kod için teşekkür ederim.

READYSTATE_COMPLETE=4 burada

Compile eror:
Assignment to constant not ermitted

bu satırı kaldırdıktan sonra tekrar bastığımda
http://ais.osym.gov.tr/Content/Images/i ... ediyor.pnd resmi yokleniyor

beklemede kalıyor
ayrıca vba internet kullanımı olarak kodlama hiç bilmiyorum vba nın sadece internet ile ilgili işlemleri temelden nasıl öğrenebileceğim bir kaynak varmıdır internetten aradım bulamadım.
Kullanıcı avatarı
karakutum
Yeni Başlamış
 
Kayıt: 09 Nis 2017 01:43
Meslek: Memur
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

ais.osym.gov.tr bağlanma

İleti#4)  arcilingir » 24 Tem 2018 10:16

Do
Loop While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE

yukarıdaki satırları aşağıdakiler ile değişerek denermisiniz

Do
DoEvents
Application.Wait Now + TimeValue("00:00:01")
Loop Until IE.document.readyState = "complete"
Kullanıcı avatarı
arcilingir
Yeni Başlamış
 
Adı Soyadı:ali rıza cilingir
Kayıt: 18 Şub 2009 13:19
Yaş: 48
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TRABZON-VAKFIKEBİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 3 misafir

cron
Bumerang - Yazarkafe