En VB estoy haciendo un programa que crea users desde el program sin tener que acceder a la web.
Resulta que en las variables, al definirlas usando texts a la vez que otras palabras me da error... ;
Código:
Private Sub Winsock1_Connect(Index As Integer)
Dim xd As String
'string para enviar
xd = "nick=Text5.Text & Text4.Text&email="pepe" & Text4.Text &ip=127.0.01&contraseña=holas&contrasena2=holas&nombre=wea&sexo=0&pais=uknown&n_dia=1&n_mes=1&n_ano=2005&boletin=si®istro=Registrar"
Winsock1(Index).SendData ("POST /usuarios.php?id=registro HTTP/1.0" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*" & vbCrLf & _
"Referer: http://www.-----.com/usuarios.php?id=registro" & 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; FunWebProducts)" & vbCrLf & _
"Host: www.---.com" & vbCrLf & _
"Content-Length: " & Len(xd) & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & _
"Cache-Control: no-cache" & vbCrLf & vbCrLf & _
xd & vbCrLf)
End Sub
El error me da en:
Código:
xd = "nick=Text5.Text & Text4.Text&email="pepe" & Text4.Text &ip=127.0.01&contraseña=holas&contrasena2=holas&nombre=wea&sexo=0&pais=uknown&n_dia=1&n_mes=1&n_ano=2005&boletin=si®istro=Registrar"
Si alguien es tan amable de ayudarme para que eso quede de forma correcta y no me diga syntax error...
M3rc1