Hello again
this time my question is this
thanks for the help this is the code to use but only I can read in the same form (Application)
but the cookie is not created.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 ------------------------------------------------------------------------------------------------------




Reply With Quote