VB6 WebBrowser kullanımı

mehmetaliu

Üye
Katılım
16 Kas 2013
Mesajlar
711
Puanları
6
Merhaba arkadaşlar;
PHP ile bir messanger uygulaması yazdım. Bunu vb6 ile Windows uygulaması haline getireceğim.(Server - MYSQL server vs. hazır... )
Derdim şu:
WebBrowser kullanarak bir siteye veri göndermek ve siteden veri çekmek.
Elinde bir kodu olan var mı?
Çok teşekkürler...
 
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.
 
Tamam, aradığım bilgiler var burada. Teşekkür ederim.
 

Forum istatistikleri

Konular
127,950
Mesajlar
913,847
Kullanıcılar
449,596
Son üye
anilhikmet

Yeni konular

Geri
Üst