[vb6] myspace login

[Violent_J]

Not sure if this works anymore since the update.

Private Sub Form_Load()
chksave.Value = GetSetting("Violent_J's guess the card", "Login", "Save Login Information", Checked)
If chksave.Value = Checked Then
    txtuser.Text = GetSetting("Violent_J's myspace login", "Login", "Username")
    txtpass.Text = GetSetting("Violent_J's myspace login", "Login", "Password")
End If
End Sub


Private Sub cmdlogin_Click()
Dim strHTML As String, strView As String
lblstatus.Caption = "Logging in..."
strHTML = wrapper.GetWrapper("http://www.myspace.com/")
strView = GetStringBetween(strHTML, "id=" & Chr(34) & "__VIEWSTATE" & Chr(34) & " value=" & Chr(34), Chr(34))
strHTML = wrapper.PostWrapper("http://secure.myspace.com/index.cfm?fuseaction=login.process", "__VIEWSTATE=" & strView & "&NextPage=&ctl00%24ctl00%24Main%24cpMain%24Splash Display%24ctl00%24Email_Textbox=" & txtuser.Text & "&ctl00%24ctl00%24Main%24cpMain%24SplashDisplay%24 ctl00%24Password_Textbox=" & txtpass.Text & "&ctl00%24ctl00%24Main%24cpMain%24SplashDisplay%24 ctl00%24Login_ImageButton.x=25&ctl00%24ctl00%24Mai n%24cpMain%24SplashDisplay%24ctl00%24Login_ImageBu tton.y=11&ctl00%24ctl00%24Main%24cpMain%24SplashDi splay%24ctl00%24nexturl=&ctl00%24ctl00%24Main%24cp Main%24SplashDisplay%24ctl00%24apikey=&ctl00%24ctl 00%24Main%24cpMain%24SplashDisplay%24ctl00%24Conta inerPage=", wrapper.LastPage)
strHTML = wrapper.GetWrapper("http://home.myspace.com/index.cfm?fuseaction=user", wrapper.LastPage)

    If InStr(1, strHTML, "useaction=signout") <> 0 Then
        MsgBox "Success: Logged In", vbextreme, "Myspace Login"
    Me.Hide
    Form2.Show
    Call SaveSetting("Violent_J's myspace login", "Login", "Username", txtuser.Text)
Call SaveSetting("Violent_J's myspace login", "Login", "Password", txtpass.Text)
Call SaveSetting("Violent_J's myspace login", "Login", "Save Login Information", chksave.Value)
    Else
        MsgBox "Error: Failed To Login", vbextreme, "Myspace Login"
    End If

End Sub




Private Sub Form_Unload(Cancel As Integer)

Dim frmTemp As Form
For Each frmTemp In Forms
    Unload frmTemp
    Set frmTemp = Nothing
Next
End
End Sub

[Check]

Remember to save some for another day. We need revival anyway.

[Violent_J]

Originally Posted by Checkers

Remember to save some for another day. We need revival anyway.

lol...what?

I posted all these sources on other forums
so why not here?
I am not even half way done yet :o

[Check]

Originally Posted by Violent_J

lol...what?

I posted all these sources on other forums
so why not here?
I am not even half way done yet :o

Nevermind go on, if you think it's necessary.
Lulz.

[Violent_J]

All right, I will do one a day until all done?

I release all my sources

[Check]

Originally Posted by Violent_J

All right, I will do one a day until all done?

I release all my sources

Sure, however you like.

[Jeffgordon24365]

And I got a warning for a one word post... "spamming"... Anyway thanks again!