vb code
'Web-Formlarini otomatik doldurma
'Gerekli araclar
'Control CommandButton: cmdFill
'Control CommandButton: cmdSend
'Control TextBox: txtTime
'Control TextBox: txtDate
'Control TextBox: txtName
'Control WebBrowser: wbrWebBrowser
'
'Yazar: Ulas Isci
Option Explicit
Private Sub cmdFill_Click()
'sayfada daha cok formlar varsa bunlar document.forms(1) ve (2) diye devam belirtilir.
With wbrWebBrowser
.Document.Forms(0).field1.Value = txtName.Text
.Document.Forms(0).field2.Value = txtTime.Text
.Document.Forms(0).field3.Value = txtDate.Text
.Document.Forms(0).textfeld.Value = lblText.Caption
End With
End Sub
Private Sub cmdSend_Click()
'formdaki klick funksiyonu
wbrWebBrowser.Document.Forms(0).submit.Click
End Sub
Private Sub Form_Load()
wbrWebBrowser.Navigate App.Path & "\form.htm"
txtName.Text = "Anonymus"
txtTime.Text = Time
txtDate.Text = Date
lblText.Caption = "test test test"
End Sub
vb code code come!!

Admin- Admin

- Mesaj Sayısı: 53
Yaş: 17
Nerden: Sivas
Kayıt tarihi: 14/10/08
- Post n°1

