Thread: VB.NET HttpWrapper

Originally Posted by Zeth

I do use Visual Basic 2008. :\

Code for Solia login from the front page:

PHP Code:

http://soliaonline.com/community/ucp.php?mode=login

POST /community/ucp.php?mode=login HTTP/1.1
Host: soliaonline.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://soliaonline.com/
Cookie: PHPSESSID=bba8875e388c9424ab1f2a5e613eef4e; __utma=112719238.19583228.1262286683.1262286683.1262286683.1; __utmb=112719238; __utmc=112719238; __utmz=112719238.1262286683.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); style_cookie=null; solia_orq1k_u=1; solia_orq1k_k=; solia_orq1k_sid=6c3056f03d2973d8415e9e8107ce6fa1
Content-Type: application/x-www-form-urlencoded
Content-Length: 74
redirect=..%2Findex.php&username='USERNAME'&password='PASSWORD'&login=Login 


Code for Solia login via Solia Online • My Solia Panel • Login

PHP Code:

http://soliaonline.com/community/ucp.php?mode=login

POST /community/ucp.php?mode=login HTTP/1.1
Host: soliaonline.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://soliaonline.com/community/ucp.php?mode=login
Cookie: PHPSESSID=bba8875e388c9424ab1f2a5e613eef4e; __utma=112719238.19583228.1262286683.1262286683.1262286683.1; __utmb=112719238; __utmc=112719238; __utmz=112719238.1262286683.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); style_cookie=printonly; solia_orq1k_u=1; solia_orq1k_k=; solia_orq1k_sid=9fba62d8aa13ae0207c5b5da4bffbb66
Content-Type: application/x-www-form-urlencoded
Content-Length: 119
username='USERNAME'&password='PASSWORD'&redirect=ucp.php%3Fmode%3Dlogin&sid=9fba62d8aa13ae0207c5b5da4bffbb66&login=Login 


Also, as said in the first and third post, I don't want a Gaia one, because it's not helping me learn. I want to learn from other sites, not Gaia.

Try this :

Code:

Public Class Form1
    Dim StrHTML As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripStatusLabel1.Text = "Waiting to recieve infromation..."
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = (vbNullString) Or TextBox2.Text = (vbNullString) Then
            ToolStripStatusLabel1.Text = "Please input a username/password..."
        End If

        StrHTML = Wrapper.GetWrapper("http://soliaonline.com/community/ucp.php?mode=login")
        StrHTML = Wrapper.PostWrapper("http://soliaonline.com/community/ucp.php?mode=login","username=" & TextBox1.Text & "&password=" & Textbox2.Text & "&redirect=ucp.php%3Fmode%3Dlogin&sid=9fba62d8aa13ae0207c5b5da4bffbb66&login=Login")
        If (InStr(1, StrHTML, "index.php")) Then
            ToolStripStatusLabel1.Text = "You are now logged in..."
        Else
            ToolStripStatusLabel1.Text = "Failed to log on..."
            Wrapper.ClearCookies()
        End If
    End Sub
End Class