va cosi o in un altro modo ???
hai mica skype ?????
guru totem
Private Sub Web_Navigated(ByVal sender As Object, _
ByVal e As WebBrowserNavigatedEventArgs) Handles WB.Navigated
'Enumera tutti i moduli esistenti
For Each Form As HtmlElement In WB.Document.Forms
If Form.Name = "nome modulo" Then <<<<quale modulo devo metere
For Each Input As HtmlElement In Form.GetElementsByTagName("input")
If Input.Id = "username" Then
Input.Focus()
SendKeys.SendWait("Totem")
Input.RemoveFocus()
End If
If Input.Id = "password" Then
Input.Focus()
SendKeys.SendWait("password")
Input.RemoveFocus()
End If
Next
End If
Next
If Input.GetAttribute("type") = "submit" And _
Input.GetAttribute("value") = "Entra" Then
Input.Focus()
SendKeys.SendWait(Chr(13))
Input.RemoveFocus()
End If
End Sub
Ultima modifica effettuata da xlos il 01/07/2009 alle 3:58 |