AccessTr.neTVisual Basic .NETVisual Basic .NET Soruları ve Cevapları

Web Sayfasına Veri Aktarımı

1 2 3 4
26/11/2015, 14:23

drummers

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 Try
Browser ile açtığım " http://service4.turmob.org.tr/?ReturnUrl...untManager "sitesine ilgili yerlere veriler bir türlü aktarılmıyor.

Böylede olmadı

Kod:
Browser.Document.GetElementById("userName").SetAttribute("value", "12345678911")
Browser.Document.GetElementById("password").SetAttribute("value", "12345678911")
26/11/2015, 17:06

alpeki99

Örnek bir proje ekleseydiniz denemek için daha kolay olurdu.
27/11/2015, 17:56

drummers

Örnek proje eklendi.

Site bakımda olduğundan şu anlık açılmıyor
29/11/2015, 01:50

alpeki99

Site bakımdaymış Yalnız örnekte gördüğüm kadarıyla siz harici açılan pencereye müdahele etmeye çalışıyorsunuz. Form içine webbrowser eklesiniz işinizi görmüyor mu?
30/11/2015, 13:48

drummers

(29/11/2015, 01:50)alpeki99 yazdı: Site bakımdaymış Form içinde kullanamıyorum siteyi. Yapı değişik sanırım. O yüzden dışardan açtırıyorum.
30/11/2015, 14:57

alpeki99

Form içinde kullanamama sebebiniz düzgün görüntülenememesi mi? Bunun çözümü farklı bir şekilde yapılıyor. Sizin eklediğiniz örnekteki gibi zaten olmaz çünkü tarayıcı programdan bağımsız bir pencere. Bu şekilde kullanmak istiyorsanız Spy++ ile çözmeyi denemelisiniz.
1 2 3 4