[AYUDA] Crear 3 Cookies + TextBox

Iniciado por W4NT3D, 7 Marzo 2009, 09:26 AM

0 Miembros y 1 Visitante están viendo este tema.

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.

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.


W4NT3D

#2
Citar
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]
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]
Private Sub Command1_Click()
call TheCookie("http://www.microsoft.com/index.htm")
End Sub

W4NT3D

#4
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]
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:

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

xkiz ™

#9
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.