thanks for the help this is the code to use but only I can read in the same form (Application)
Code:
---------------------------------------------------------------------------------
Private Declare Function InternetSetCookie Lib "wininet.dll" _
Alias "InternetSetCookieA" _
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String) As Boolean
Private Declare Function InternetGetCookie Lib "wininet.dll" _
Alias "InternetGetCookieA" _
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String, _
lpdwSize As Long) As Boolean
'''To create
Dim Variable As Boolean
Variable = InternetSetCookie("http://equipo/valor.html", "DATO", Trim(Text1))
'''To read
Dim sCookieVal As String * 256
Dim bRet As Boolean
bRet = InternetGetCookie("http://equipo/valor.html", "DATO", sCookieVal, 255)
MsgBox sCookieVal
------------------------------------------------------------------------------------------------------
but the cookie is not created.
Last edited by morgut; October 21st, 2011 at 02:38 PM.
Bookmarks