AccessTr.neT

Sayfalar: 1 2 3 4

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")

Örnek bir proje ekleseydiniz denemek için daha kolay olurdu.

Örnek proje eklendi.

Site bakımda olduğundan şu anlık açılmıyor Img-grin

Site bakımdaymış Img-grin

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?

(29/11/2015, 01:50)alpeki99 yazdı: [ -> ]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?

Form içinde kullanamıyorum siteyi. Yapı değişik sanırım. O yüzden dışardan açtırıyorum.

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.

Sayfalar: 1 2 3 4

drummers

alpeki99

drummers

alpeki99

drummers

alpeki99