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.
hola fijate si esto te sirve: Cómo establecer y obtener las cookies de una dirección URL mediante las API de WinInet (http://support.microsoft.com/kb/196062/es)
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
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
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:
(http://img15.imageshack.us/img15/7263/sadasda.png)
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
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
llama a la funcion 3 veces y en cada llamada cambiale los parametros como pusiste arriba.
me dice que hay un error en esta linea:
Private Function SetTheCookie(Web As String, sName As String, sData As String) As Boolean
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.
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
Cita de: W4NT3D en 7 Marzo 2009, 11:47 AM
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
mira, xkiz te hizo una funcion para simplificarte la vida.... ademas NO es dificil esto
arreglatelas con esto:
Private Sub Command1_Click()
Dim Variable As Boolean
Variable = InternetSetCookie("http://" & Text1.Text & "/administrator.php", _
"administrator", "1;expires=Sat, 07 Mar 2014 07:25:52 GMT")
End Sub
es muy simple, a ponerle ganas que sale!
saludos
Cita de: el_c0c0 en 8 Marzo 2009, 00:07 AM
Cita de: W4NT3D en 7 Marzo 2009, 11:47 AM
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
mira, xkiz te hizo una funcion para simplificarte la vida.... ademas NO es dificil esto
arreglatelas con esto:
Private Sub Command1_Click()
Dim Variable As Boolean
Variable = InternetSetCookie("http://" & Text1.Text & "/administrator.php", _
"administrator", "1;expires=Sat, 07 Mar 2014 07:25:52 GMT")
End Sub
es muy simple, a ponerle ganas que sale!
saludos
Muchisimas Gracias capo , esto me sirvio.
Perdona mi ignorancia pero es que soy novato en visual basic y de apoco voy aprendiendo viendo sources y cosas asi.
Gracias por la Ayuda.
Perdonen el Doble post.
El Programa Funciona de Maravilla. Solamente que Solo funciona con Internet Explorer.
Como podria hacer para que las cookies en ves de agregarlas a internet explorer las agregue en Mozilla firefox ?