[AYUDA] Crear 3 Cookies + TextBox

[W4NT3D]

Hola a Todos , Es mi primer mensaje aunque hace mucho que vengo leyendo en este gran foro y me ah sido de muchisima ayuda.

Ahora andaba haciendo un programa que necesito aver si me pueden ayudar con el codigo.

Lo que Necesito es algo como...

1 TextBox , Donde coloques la pagina web y 3 Botones donde al Precionar por  Ejemplo el primero Boton cree 1 cookie , al precionar el segundo boton cree otra cookie y asi....

Bueno les Dejo el Codigo que pude programar hasta el momento pero la verdad es que no se crean las cookies.

Código [Seleccionar] Expandir

Private Declare Function InternetSetCookie Lib "wininet.dll" _
_
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String) As Boolean


Private Sub Command1_Click()
Dim Variable As Boolean
Variable = InternetSetCookie("http://$Text1/administrator.php", _
"administrator", "1;expires=Sat, 07 Mar 2014 07:25:52 GMT")

End Sub

Private Sub Command2_Click()
Dim Variable As Boolean
Variable = InternetSetCookie("http://$Text1/administrator.php", _
"administratorpass", "1;expires=Sat, 07 Mar 2014 07:25:52 GMT")

End Sub

Private Sub Command3_Click()
Dim Variable As Boolean
Variable = InternetSetCookie("http://$Text1/administrator.php", _
"securitycode", "1;expires=Sat, 07 Mar 2014 07:25:52 GMT")

End Sub


Por Favor , me seria de gran ayuda si alguien me ayudaria en esto.

Gracias.

[xkiz ™]

hola fijate si esto te sirve: Cómo establecer y obtener las cookies de una dirección URL mediante las API de WinInet

[W4NT3D]

Private Sub Command1_Click()
       Dim bRet As Boolean
       bRet = InternetSetCookie("http://xxxx/xxxx.htm", _
        "Test", "Sent as Test via VB")
       If bRet = False Then
           MsgBox "Failed"
       End If
      End Sub

Como podria hacer para que la web que yo coloque en el textbox reemplazara eso que te marque en rojo.

Muchisimas Gracias por la Ayuda

[xkiz ™]

Código (vb) [Seleccionar] Expandir

Private Sub TheCookie(Web as string)
       Dim bRet As Boolean
       bRet = InternetSetCookie(Web, "Test", "Sent as Test via VB")
       If bRet = False Then
           MsgBox "Failed"
       End If
End Sub

y lo llamarias asi desde el command1:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
call TheCookie("http://www.microsoft.com/index.htm")
End Sub

[W4NT3D]

Gracias , por explicarme como llamarlo.

ahora el codigo que me pasaste no es justamente lo que necesito , lo que yo necesitaria seria un programa que creara 3 cookies al precionar 1 boton. Te dejo una imagen de mas o menos como seria la idea:

[xkiz ™]

corrijo lo que puse antes es mejor asi:

Código (vb) [Seleccionar] Expandir

Private Function SetTheCookie(Web As String, sName As String, sData As String) As Boolean
       SetTheCookie = InternetSetCookie(Web, sName, sData)
End Function

Private Sub Command1_Click()

If SetTheCookie("http://www.microsoft.com/index.htm", "Test", "Sent as Test via VB") = True Then
' lo hizo bien
Else
'Fallo
End If
End Sub

ahi ya tenes cubierto los 3 parametros de la API

[W4NT3D]

Gracias por la Ayuda xkiz  , pero creo que ese code es para obtener cookies de una direccion , lo que yo necesito es crear cookies desde una direccion que coloque en textbox.

y al precionar un boton cree las 3 cookies destinadas a esa direccion , hay arriba te deje una imagen mas o menos del programa que quiero simular , simplemente q no se vea todo eso de name , path y eso solo un textbox donde las personas coloquen la direccion de la web y ya se crea solo la cookie con los valores q yo le coloque

[xkiz ™]

llama a la funcion 3 veces y en cada llamada cambiale los parametros como pusiste arriba.

[W4NT3D]

me dice que hay un error en esta linea:

Código [Seleccionar] Expandir

Private Function SetTheCookie(Web As String, sName As String, sData As String) As Boolean

[xkiz ™]

he...  borra esa funcion SetTheCookie esta de mas y llama directamente a la funcion InternetSetCookie directamente, si te devuelve False es que hay un error y si te devuelve True esta todo bien.