- Katılım
- 17 Kasım 2009
- Mesajlar
- 295
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 24-12-2023
Merhaba arkadaşlar hepimizin ara ara kullandığı https://ais.osym.gov.tr sitesine bağlanmaya çalıştım fakat yapamadım. T.C. kimlik ve şifre ile ekranına giriş yapamıyorum. örnek kullandığım kod aşağıdaki gibidir.
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
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
Son düzenleme: