Programación VB. Latinchat . Conección alternativa
Posted by
ax3L
CATEGORIAS:
Códigos fuente,
LatinChat,
Personal Releases,
Programación
Y bueno para variar, voy a publicar más reciente y alternativa validación para Latinchat. Para fuentes de MyChat código tendrá siguiente aspecto :
Private Sub validar_Connect(Index As Integer)
cadstr(Index) = "UserName=" & Nick(Index) & "&InstanceID=" & Rid
validar(Index).SendData ("POST " & "/reglogin" & " HTTP/1.1" & vbCrLf & _
"Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
& vbCrLf & _
"Referer: http://www.latinchat.com/LG/T2/entretenimiento.php?log=LGR&id=6" &
vbCrLf & _
"Accept-Language: en-us,en;q=0.5" & vbCrLf & _
"Accept-Encoding: gzip,deflate" & vbCrLf & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & 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
cadstr(Index) = "UserName=" & Nick(Index) & "&InstanceID=" & Rid
validar(Index).SendData ("POST " & "/reglogin" & " HTTP/1.1" & vbCrLf & _
"Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
& vbCrLf & _
"Referer: http://www.latinchat.com/LG/T2/entretenimiento.php?log=LGR&id=6" &
vbCrLf & _
"Accept-Language: en-us,en;q=0.5" & vbCrLf & _
"Accept-Encoding: gzip,deflate" & vbCrLf & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & 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 copiar código y pegarlo en la cadena correspondiente.
Buscas un programa y no lo encuentras? Pidelo , posteando en blog o en tag y te lo conseguimos!
Subscribe to:
Post Comments (Atom)
Tuesday, April 02, 2013
Howdy! This is kind of off topic but I need some advice from an established blog.
Is it hard to set up your own blog? I'm not very techincal but I can figure things out pretty fast. I'm thinking about making my own but I'm not sure where to begin. Do you have any ideas or suggestions? Thank you
My webpage: kitchen remodeling
Post a Comment