 Autor
|
Tema: [AYUDA] Crear 3 Cookies + TextBox (Leído 3,288 veces)
|
W4NT3D
 Desconectado
Mensajes: 17
|
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.
|
|
|
|
|
En línea
|
|
|
|
|
|
W4NT3D
Desconectado
Mensajes: 17
|
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
|
|
|
|
« Última modificación: 7 Marzo 2009, 10:30 am por W4NT3D »
|
En línea
|
|
|
|
|
xkiz ™
|
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: Private Sub Command1_Click() call TheCookie("http://www.microsoft.com/index.htm") End Sub
|
|
|
|
|
En línea
|
|
|
|
W4NT3D
Desconectado
Mensajes: 17
|
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:  |
|
|
|
« Última modificación: 7 Marzo 2009, 10:37 am por W4NT3D »
|
En línea
|
|
|
|
|
xkiz ™
|
corrijo lo que puse antes es mejor asi: 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 |
|
|
|
|
En línea
|
|
|
|
W4NT3D
Desconectado
Mensajes: 17
|
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
|
|
|
|
|
En línea
|
|
|
|
|
xkiz ™
|
llama a la funcion 3 veces y en cada llamada cambiale los parametros como pusiste arriba.
|
|
|
|
|
En línea
|
|
|
|
W4NT3D
Desconectado
Mensajes: 17
|
me dice que hay un error en esta linea: Private Function SetTheCookie(Web As String, sName As String, sData As String) As Boolean |
|
|
|
|
En línea
|
|
|
|
|
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.
|
|
|
|
« Última modificación: 7 Marzo 2009, 11:33 am por xkiz »
|
En línea
|
|
|
|
|
 |
