Mega Downloads: Programación VB. Latinchat y cambios remotos

Programación VB. Latinchat y cambios remotos

Posted by ax3L CATEGORIAS: Códigos fuente, LatinChat, Personal Releases, Programación

Hola a todos, sobre todo a los programadores de Latinchat. Ya saben que esos días la gran mayoría de los clientes han dejado de funcionar, debo a la cadena que ellos llevaban en socket de validación [incluso yo! :)]. Luego cambiando TEMPLATE empezó a conectar. A ver, estuve investigando acerca de eso, y puedo ofrecerles 2 métodos para arreglar este problema. El primero se trata de subir cierta parte de cadena a nuestro servidor, por donde podremos manejar los cambios más revelantes ( por ejemplo template, etc,) remotamente y el segundo me parece más liviano. Por el momento he lanzado dos ejecutables con los 2 métodos, y observando se verá cuál de ellos es más efectivo.

Véamos más detalladamente. En código fuente de MyChat que hoy día es más usado y popular, la cadena de validación se ve de la siguiente forma:

Private Sub
validar_Connect(Index As Integer)
cadstr(Index) = "UserName=" & Nick(Index) & "&InstanceID=" & Rid &
Text5.Text & "&CLIENT=JAVA&TEMPLATE=4"
validar(Index).SendData ("POST " & "http://" & chatuser.LoginName & "/reglogin"
& " HTTP/1.1" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword,
*/*" & vbCrLf & _
"http://wwwlatinchat.com/LG/T2/entretenimiento.php" & vbCrLf & _
"Accept-Language: es-mx" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Accept-Encoding: gzip, deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)" &
vbCrLf & _
"Host: " & chatuser.LoginName & ":80" & vbCrLf & _
"Content-Length: " & Len(cadstr(Index)) & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf & _
cadstr(Index) & vbCrLf)
End Sub

y me pregunto, para que es necesario cargar cadena de esta forma si simplemente se conecta con esta que se ve más liviano :

Private Sub
validar_Connect(Index As Integer)
cadstr(Index) = "UserName=" & Nick(Index) & "&InstanceID=" & Rid
validar(Index).SendData ("POST " & "/reglogin"
& " HTTP/1.1" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword,
*/*" & vbCrLf & _
"http://wwwlatinchat.com/LG/T2/entretenimiento.php" & vbCrLf & _
"Accept-Language: es-mx" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Accept-Encoding: gzip, deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)" &
vbCrLf & _
"Host: " & chatuser.LoginName & ":80" & vbCrLf & _
"Content-Length: " & Len(cadstr(Index)) & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf & _
cadstr(Index) & vbCrLf)
End Sub

Simplemente copiarlo y pegarlo en donde se debe y verán que si se conecta sin problemas. Bueno, una parte de pequeños experimentos.