VB.NET HttpWrapper

**Zeth** · 29 Dec. 2009 05:38am

All I need is the download for it.
I'd love to learn how to do things with it, and that I will teach myself.

I just need the files, and the info on how to import them.

Also, maybe a copy of VB 6 HttpWrapper files, as well?

Thank you!

**Chad** · 30 Dec. 2009 04:15am

I'm not home but when I get home tomorrow I'll send you a download link by editing this post. Please wait. Around 5:00pm my time.

**Zeth** · 30 Dec. 2009 05:43am

Alright, I got a download, and it works.

Now, I just need some help.

There are tons of tutorials of Gaia logins, but I'm not exactly sure what each part means.

I'd love to learn in a different way, and I need to see a difference in codes, and what changes.

If someone could make a login for this site : Stickman Legacy

Here's the HTTP Header When I go to log in:

Code:

http://s7.zetaboards.com/Stickman_Legacy/login/log_in/

POST /Stickman_Legacy/login/log_in/ HTTP/1.1
Host: s7.zetaboards.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://s7.zetaboards.com/Stickman_Legacy/login/
Cookie: __qca=P0-1803311039-1262151435509; __utma=8177072.841207652.1262151435.1262151435.1262151435.1; __utmb=8177072.0.10.1262151435; __utmc=8177072; __utmz=8177072.1262151436.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)
Content-Type: application/x-www-form-urlencoded
Content-Length: 58
uname=USERNAME+HERE&pw=PASSWORD+HERE&cookie_on=1&anon_on=0
HTTP/1.x 200 OK
Date: Wed, 30 Dec 2009 05:40:31 GMT
Server: Apache
Cache-Control: no-cache, must-revalidate, max-age=0, post-check=0, pre-check=0
Pragma: no-cache
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 6280
Connection: close
Content-Type: text/html; charset=ISO-8859-1

I just don't know where to put each code, and like I said, it would be a great learning experience.

30 Dec. 2009 04:00pm

Originally Posted by Zeth

Alright, I got a download, and it works.

Now, I just need some help.

There are tons of tutorials of Gaia logins, but I'm not exactly sure what each part means.

I'd love to learn in a different way, and I need to see a difference in codes, and what changes.

If someone could make a login for this site : Stickman Legacy

Here's the HTTP Header When I go to log in:

Code:

http://s7.zetaboards.com/Stickman_Legacy/login/log_in/

POST /Stickman_Legacy/login/log_in/ HTTP/1.1
Host: s7.zetaboards.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://s7.zetaboards.com/Stickman_Legacy/login/
Cookie: __qca=P0-1803311039-1262151435509; __utma=8177072.841207652.1262151435.1262151435.1262151435.1; __utmb=8177072.0.10.1262151435; __utmc=8177072; __utmz=8177072.1262151436.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)
Content-Type: application/x-www-form-urlencoded
Content-Length: 58
uname=USERNAME+HERE&pw=PASSWORD+HERE&cookie_on=1&anon_on=0
HTTP/1.x 200 OK
Date: Wed, 30 Dec 2009 05:40:31 GMT
Server: Apache
Cache-Control: no-cache, must-revalidate, max-age=0, post-check=0, pre-check=0
Pragma: no-cache
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 6280
Connection: close
Content-Type: text/html; charset=ISO-8859-1

I just don't know where to put each code, and like I said, it would be a great learning experience.

Wrapper = HttpWrapper / HttpWrapper1 depending on the wrapper you have (Change the name)...

Textbox1.Text = Username
Textbox2.Text = Password
button1 = The button which logs you in...

You will need to add this to the top of your code:

Code:

Dim StrHTML As String

So it would be in the button code:

Code:

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
Msgbox("You have successfully logged in...")
End If
Next

StrHTML = Wrapper.GetWrapper("http://s7.zetaboards.com/stickman_legacy")
StrHTML = Wrapper.PostWrapper("http://s7.zetaboards.com/Stickman_Legacy/login/", "uname=" & textbox1.text & "&pw=" & Textbox2.Text & "&cookie_on=1&anon_on=0")

If (InStr(1, StrHTML, "index")) Then
                Msgbox("You are now logged in...")
            Else
                Msgbox("Failed to log on...")
            End If
        Next
    End Sub

**iPoison** · 30 Dec. 2009 06:40pm

MEGAUPLOAD - The leading online storage and file delivery service
http://virusscan.jotti.org/en/scanre...4f16e95f9b2feb
It's clean if you're gonna ask.

-Edited-
Oh shit just actually read the whole thing. LOL
I'm just gonna keep the link up.

**Zeth** · 30 Dec. 2009 07:35pm

@Eternal: I knew the basics of that, and I pretty much wrote that code... but no, that doesn't work. D:

30 Dec. 2009 11:55pm

Originally Posted by Zeth

@Eternal: I knew the basics of that, and I pretty much wrote that code... but no, that doesn't work. D:

If it doesn't work then its your wrappers:

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://s7.zetaboards.com/stickman_legacy")
        StrHTML = Wrapper.PostWrapper("http://s7.zetaboards.com/Stickman_Legacy/login/", "uname=" & TextBox1.Text & "&pw=" & TextBox2.Text & "&cookie_on=1&anon_on=0")

        If (InStr(1, StrHTML, "index")) Then
            ToolStripStatusLabel1.Text = "You are now logged in..."
        Else
            ToolStripStatusLabel1.Text = "Failed to log on..."
            Wrapper.ClearCookies()
        End If
    End Sub
End Class

I can send you the finished (Working) bot...

EDIT: http://www.megaupload.com/?d=XFJD7NOV There

**Zeth** · 31 Dec. 2009 04:38am

Still doesn't work. Even when I log in with fake credentials, it says it's logged in.
EDIT: Yes, I downloaded your program and tried it, too.
EDIT 2: If you want an account to test if it's working or not, here's some login info:

Username - testaccount
Password - test1

**iPoison** · 31 Dec. 2009 05:07am

@Eternal; Change "index" to

Code:

"'>" & TextBox1.Text & "</a>"

That might change it?
Also, change the PostWrapper.

Code:

StrHTML = wrapper.PostWrapper("http://s7.zetaboards.com/Stickman_Legacy/login/log_in/", "uname=" & TextBox1.Text & "&pw=" & TextBox2.Text & "&cookie_on=1&anon_on=0")

**Zeth** · 31 Dec. 2009 05:46am

@Eternal: Can you give me the download for the HTTP Wrapper you used?

EDIT: Alright, I found another HTTP Wrapper download. Tried it, and still can't get anything t

rk.

I now tried a Solia login, but I couldn't even do that. Maybe I'm missing something? This is what I have for the Solia one.

PHP Code:

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strHTML As String

        If TextBox1.Text = vbNullString Or TextBox2.Text = vbNullString Then
            MessageBox.Show("You left the username or/and password field blank." & vbNewLine & "Try again..")
            Exit Sub
        End If

        TextBox1.Enabled = False
        TextBox2.Enabled = False
        Button1.Enabled = False
        strHTML = Wrapper.PostWrapper("http://soliaonline.com/community/ucp.php?mode=login", "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&redirect=index.php")

        If (InStr(1, strHTML, "You have been successfully")) Then
            MessageBox.Show("Logged in!!")
        Else
            MessageBox.Show("Login Failed")
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            Button1.Enabled = True
        End If
    End Sub

31 Dec. 2009 03:38pm

Originally Posted by iPoison

@Eternal; Change "index" to

Code:

"'>" & TextBox1.Text & "</a>"

That might change it?

Hmmm... the bot I made works for me.

Don't know whats up with you guys...

Originally Posted by iPoison

Also, change the PostWrapper.

Code:

StrHTML = wrapper.PostWrapper("http://s7.zetaboards.com/Stickman_Legacy/login/log_in/", "uname=" & TextBox1.Text & "&pw=" & TextBox2.Text & "&cookie_on=1&anon_on=0")

XD Yeah a little mess up in the first few posts....

There is some other error in the code right now...

Originally Posted by Zeth

Still doesn't work. Even when I log in with fake credentials, it says it's logged in.
EDIT: Yes, I downloaded your program and tried it, too.
EDIT 2: If you want an account to test if it's working or not, here's some login info:

Username - testaccount
Password - test1

I have an account, signed up earier so that I could use Live headers on there site and test it... (Works for me. I will take another look at it though...)

Originally Posted by Zeth

@Eternal: Can you give me the download for the HTTP Wrapper you used?

Don't know if I am supposed to give em out...

Ps: You would have to upgrade to vb8 to use those wrappers (Which I highly suggest you do...)

Originally Posted by Zeth

EDIT: Alright, I found another HTTP Wrapper download. Tried it, and still can't get anything t

rk.

I now tried a Solia login, but I couldn't even do that. Maybe I'm missing something? This is what I have for the Solia one.

PHP Code:

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strHTML As String

        If TextBox1.Text = vbNullString Or TextBox2.Text = vbNullString Then
            MessageBox.Show("You left the username or/and password field blank." & vbNewLine & "Try again..")
            Exit Sub
        End If

        TextBox1.Enabled = False
        TextBox2.Enabled = False
        Button1.Enabled = False
        strHTML = Wrapper.PostWrapper("http://soliaonline.com/community/ucp.php?mode=login", "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&redirect=index.php")

        If (InStr(1, strHTML, "You have been successfully")) Then
            MessageBox.Show("Logged in!!")
        Else
            MessageBox.Show("Login Failed")
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            Button1.Enabled = True
        End If
    End Sub

Can you save the live headers of the login to solia? I just don't want to have to sign up...

How about making a gaia one first... They are very simple and there are plenty of guides for it...

I am here to help if you need it...

EDIT:

Code didn't work because they updated last night....

**Zeth** · 31 Dec. 2009 07:17pm

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.

01 Jan. 2010 06:17am

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

**Chad** · 02 Jan. 2010 12:14am

You all failed me. :'c

PHP Code:

     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.

02 Jan. 2010 03:25am

Originally Posted by Chad

You all failed me. :'c

PHP Code:

     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/", IntLogin)

    StrHTML = Wrapper.GetWrapper("http://www.soliaonline.com/", "http://www.soliaonline.com/", IntLogin)

    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.

XD Created it without an account, in like 5 mins. I was expecting failure...

Probably works, since it came from the coding master, Chad.

**Chad** · 02 Jan. 2010 03:30am

Apparently I left the "IntIndex" on it which was for my Multi Account Auto Poster for Solia so just change it to 0 or remove it. Was created with my modified wrappers so it might not work.

02 Jan. 2010 03:38am

Originally Posted by Chad

Apparently I left the "IntIndex" on it which was for my Multi Account Auto Poster for Solia so just change it to 0 or remove it. Was created with my modified wrappers so it might not work.

Yeah, I think the main thing is his wrappers. Idk for sure though...

He keeps downloading new ones too... D:

**Zeth** · 02 Jan. 2010 05:30am

Ugh... I need a tutorial.
Like, it won't even attempt to login. I've allowed it past my firewall and everything. I enter info, correct or incorrect, and it just sits there. No MsgBox or anything.

02 Jan. 2010 03:29pm

Originally Posted by Zeth

Ugh... I need a tutorial.
Like, it won't even attempt to login. I've allowed it past my firewall and everything. I enter info, correct or incorrect, and it just sits there. No MsgBox or anything.

Thats why I don't like message boxes.

You should do a label or tool strip label...

**Zeth** · 02 Jan. 2010 06:51pm

I mean, the program doesn't continue on. Not only with Message Boxes, but with anything.

02 Jan. 2010 09:31pm

Originally Posted by Zeth

I mean, the program doesn't continue on. Not only with Message Boxes, but with anything.

Get msn and team viewer...

We have been spamming. XD

I am trying to help you but I would rather not be banned because of it.

Send the msn email address to me and chad in a pm...

Thread: VB.NET HttpWrapper

LinkBack

Thread Tools

Search Thread

Rate This Thread

Display

VB.NET HttpWrapper

Posting Permissions