Bir web Sayfasına Veri Göndermek !

Merhaba Arkadaşlar


Şimdi kodlarla bir siteye verir göndermeyii göstercem(örn:forum sitesi)

size Textboxlarla foruma giriş yapmayı gösterem:


On Error Resume Next
Dim X As Integer
Dim doctagname$
Set doc = webbrowser1.********
For X = 1 To doc.All.length - 1
doctagname$ = doc.All.Item(X).tagName
If doc.All.Item(X).Name = "1.TextboxNAME" Then doc.All.Item(X).Value = "kullancı adınız"
If doc.All.Item(X).Name = "2.TextboxNAME" Then doc.All.Item(X).Value = "şifreniz"
Next
webbrowser1.********.Forms(2).submit 'bu kod "Gir" kodudur
time1.enable=false

'yukarıdaki kodu bi timer ekleyin(timer1)

bir Command butonu oluşturun içne şunu yazın =
timer1.enable = true



bu kodun çalışması için htmldeki veri göndereceğiniz textlerin Name(isimlerini) öğrenmelisiniz ve koda yazan *.TextboxNAME yazan yerlere yazmalısını

ve Gir butonun değeri 1-2-3 gibi değerleri lazımdır deneyerek bulursunuz zati







Emeğe Saygı !