Foro de elhacker.net

Dim uName, uPass As String

Private Sub Form_Load()
WebBrowser1.Resizable = True
WebBrowser1.Navigate ("http://www.argentinawarez.com/login.php?do=login")


End Sub



Private Sub Command1_Click()

On Error Resume Next
uName = Text1.Text
uPass = Text2.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.Name = "vb_login_username" Then

        HTMLI.Value = uName

        End If


        If HTMLI.Name = "vb_login_password" Then
        HTMLI.Value = uPass
        End If
        
        If HTMLI.Type = "submit" Then
        HTMLI.Click
        End If

    Next

End Sub