Mensajes

Muchisimas Gracias por la Ayuda , Pero me doy por vencido. Jajaja

No pude hacerlo. Me tiraba Errores al Momento de Precionar los Botones.

Si Tu podrias hacer un ejemplo en un Source te lo agradeceria , si no tienes tiempo pues muchisimas gracias igual me has sido de gran ayuda.

Saludos

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

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

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:

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

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.