Kod:
Try
Me.TopMost = False
Dim Browser As Object
Const Link As String = "http://service4.turmob.org.tr/?ReturnUrl=http://ebirlik.turmob.org.tr/AccountManager"
Browser = CreateObject("internetexplorer.application")
Browser.Navigate(Link)
Browser.Visible = True
Do Until Browser.ReadyState = 4
Loop
For Each Linkx In Browser.Document.all
Browser.Document.All("userName").SetAttribute("value", "12345678911")
Browser.Document.All("password").SetAttribute("value", "121212")
Browser.Document.All("securecode").Focus()
Next Linkx
Browser = Nothing
Catch ex As Exception
End TryBöylede olmadı
Kod:
Browser.Document.GetElementById("userName").SetAttribute("value", "12345678911")
Browser.Document.GetElementById("password").SetAttribute("value", "12345678911")
