VB den anlamaktan ziyade soruda ne yapmak istediğiniz çok açık değil.
Karşıdan veri almak dediğiniz webbrowserin navigate metodu ile başlar.
wb.Navigate ("
www.google.com") gibi.
Sonrasında sayfa içerisindeki text, combo gibi alanlara bilgi girmek olabilir.
wb.Document.All("isim").Value = "aliveli" gibi.
yada tersi değer okumak için
sTmp = wb.Document.All("isim").Value
Burada önemli olan sayfa içindeki her türlü alanın ID, name gibi property lerinin tam olarak tanımlanması.
Combo alanlara bilgi girmek için combonun görünen text'i değil value olarak tanımlanan değeri atamak gerekir.
Bunun için kaynak koddan combonun ilgili değerlerini capture etmek gerekir, yada sayfayı kendiniz yapıyorsanız zaten biliyorsunuz.
Kaynak kodu almak için wb.Document.body.innerHTML property si kullanılabilir.
Eğer sayfa üzerinde resim vs. gibi alanlara yada ID si olmayan bir şeye tıklamak gereği olursa,
Kod:
Private Sub ClickToSorgula(sSource As String)
Dim a
Dim b
On Local Error Resume Next
For Each a In wb.Document.All
b = ""
b = a.src
If Not IsNull(b) Then
If b <> "" Then
If b = sSource Then
wb.Document.activeElement = a
Exit For
Stop
End If
End If
End If
Next
On Local Error GoTo 0
a.Click
end sub
Call ClickToSorgula("www.google.com/images/sorgula.jpg") şeklinde çağrılabilir.
Öte yandan chat-messenger gibi masaüstü- win form uygulamalar için Winsock üzerinden direk socket programlayarak karşı site ile direkt konuşabilirsiniz. Webbrowser ile uğraşmaktan daha kolaydır.
