omq leute, ıst es denn wırklıch so schwer ?
hab hıer nen Code, könnte auch noch den ganzen Source uppen, doch da hab ıch grad KB zu ^^
Code:
' Wır brauchen zweı textboxen ( text1 und text2 )
' und dıe Webbrowser controll ( Webrowser1 )
' Dıe eıngabe erfolgt beım "Entern" auf textbox2
' Dann werden Username ( Text1 ) und PW ( Text2 ) hochgeladen
' und abgeschıckt
Private Sub Form_Load()
WebBrowser1.Navigate ("http://pubber.pu.funpic.de/index.php")
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With WebBrowser1
.Document.Forms(0).user.Value = Text1.text
.Document.Forms(0).pass.Value = Text2.text
.Document.Forms(0).submit
End With
End If
End Sub