VB.NET HttpWrapper

[Chad]

You all failed me. :'c

     If (txtUsername.Text = (vbNullString)) Then
        MsgBox ("Please enter a username!"), vbInformation, ("Error")
        Exit Sub
    ElseIf (txtPassword.Text = (vbNullString)) Then
        MsgBox ("Please etner a password!"), vbInformation, ("Error")
        Exit Sub
    End If
    
    txtUsername.Enabled = False
    txtPassword.Enabled = False
    cmdAdd.Enabled = False
    chkHide.Enabled = False
    
    StrHTML = Wrapper.PostWrapper("http://soliaonline.com/community/ucp.php?mode=login", "&username=" & txtUsername.Text & "&password=" & txtPassword.Text & "&login=Login", "http://www.soliaonline.com/", 0)
    StrHTML = Wrapper.GetWrapper("http://www.soliaonline.com/", "http://www.soliaonline.com/", 0)
    Wrapper.Wait (1)
    
    
     If (InStr(1, StrHTML, "Inbox") <> 0) Then
    Call MsgBox ("Logged in",vbinformaiton,"Success")
    Else
        txtUsername.Enabled = True
        txtPassword.Enabled = True
        chkHide.Enabled = True
        cmdAdd.Enabled = True
        Call MsgBox(txtUsername.Text & " : Failed to login", vbInformation, "Error")
    End If 
  

Made it a long time ago. Not sure if it still works.