Try Me.TopMost = False Dim Browser As Object Const Link As String = "http://service2.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("val ue", "12345678911") Browser.Document.All("password").SetAttribute("val ue", "121212") Browser.Document.All("securecode").Focus() Next Linkx Browser = Nothing Catch ex As Exception End Try

Browser ile actığım " http://service2.turmob.org.tr /?ReturnUrl=http://ebirlik.turmob.org.tr/AccountManager "


sitesine ilgili yerlere veriler bir turlu aktarılmıyor. Aktarılacak yerklerin id leri de var ama bir turlu beceremedim. Boylede olmadı


Browser.Document.GetElementById("userName").SetAtt ribute("value", "12345678911")
Browser.Document.GetElementById("password").SetAtt ribute("value", "12345678911")
__________________