A few people asked for it so here it is.
Yea, theres a few things wrong with the code but it works for the most part. I used an HTTP wrapper and the module found here for loading/saving the lists. (
http://www.developerfusion.co.uk/show/1724/)
Code:
Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
On Error GoTo Error
lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
Error:
GB = ""
End Function
Private Sub Command1_Click()
End Sub
Private Sub cmdLoad_Click()
Call LoadListFromFile(App.Path & "\Mules.txt", lstList)
End Sub
Private Sub cmdLoademail_Click()
Call LoadListFromFile(App.Path & "\Emails.txt", lstemail)
End Sub
Private Sub cmdMake_Click()
Dim strHTML As String
Dim nvalue As String
Dim activelink As String
Dim emailz As String
x = lblx.Caption
txtMules = 10
While txtMules = 10
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/register/avatar/", "gender=f&hair=732&eyes=51&mouth=10014&base=29&outfit=11091&url=&id=&u=&x=125&y=121", "http://www.Gaiaonline.com/")
nvalue = wrapper.iB(strHTML, "n" & Chr(34) & " value=" & Chr(34), Chr(34) & " />")
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/register/user/", "username=" & txtUsers.Text & x & "&email=" & txtEmail.Text & x & "%40dodgit.com&password=" & txtPass.Text & "&password_confirm=" & txtPass.Text & "&dob_month=" & txtMonth.Text & "&dob_day=" & txtDay.Text & "&dob_year=" & txtYear.Text & "&tos_agree=1&base=29&mouth=10014&eyes=51&hair=732&gender=f&outfit=11091&n=""&id=&u=&x=&y=")
strHTML = wrapper.GetWrapper("http://www.gaiaonline.com/account/resend")
If InStr(1, strHTML, "activation email will") Then
lstLog.AddItem ("Registered Successfully; Verify Link sent;" & x)
Else
lstLog.AddItem ("Resistered Successfully; Verify Link possible error;" & x)
End If
emailz = txtEmail.Text & x
wrapper.ClearCookies
lstList.AddItem ("Created account " & txtUsers.Text & x & " : " & txtPass.Text & " : " & txtEmail.Text & x & "@dodgit.com")
lblx.Caption = lblx.Caption + 1
x = lblx.Caption
lblmules.Caption = lblmules.Caption + 1
lstemail.AddItem (emailz)
Wend
End Sub
Private Sub cmdsave_Click()
Call SaveListToFile(App.Path & "\Mules.txt", lstList)
End Sub
Private Sub cmdSaveemail_Click()
Call SaveListToFile(App.Path & "\Emails.txt", lstemail)
End Sub
Private Sub cmdStop_Click()
txtMules.Text = 9
End Sub
Private Sub cmdVerify_Click()
Dim strHTML As String
x = lstemail.ListCount - 1
y = 0
While y <= x
emailz = lstemail.List(y)
strHTML = wrapper.GetWrapper("http://dodgit.com/run/checkmail?mailbox=" & emailz)
mailcheck = wrapper.iB(strHTML, "<td bgcolor=#DCDCDC align=center><font face='Arial' size='-1'><a href='", "'>Welcome to")
If mailcheck = "" Then
lstLog.AddItem ("error")
Else
strHTML = wrapper.GetWrapper("" & mailcheck)
activelink = wrapper.iB(strHTML, "http://www.gaiaonline.com/account/activate/", Chr(34) & ">http:")
If activelink = "" Then
lstLog.AddItem ("No verification link found...")
End If
strHTML = wrapper.GetWrapper("http://www.gaiaonline.com/account/activate/" & activelink)
lstLog.AddItem ("Successfully verified")
End If
y = y + 1
wrapper.ClearCookies
Wend
End Sub
Private Sub Form_Load()
lstList.Clear
lstemail.Clear
lstLog.Clear
End Sub
Private Sub Form_Unload(Cancel As Integer)
wrapper.ClearCookies
End
End Sub 
Linear Mode
