Public Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _ (ByVal lpszUrlName As String, _ ByVal lpszCookieName As String, _ ByVal lpszCookieData As String) As BooleanPublic Declare Function InternetGetCookie Lib "wininet.dll" _ Alias "InternetGetCookieA" _ (ByVal lpszUrlName As String, _ ByVal lpszCookieName As String, _ ByVal lpszCookieData As String, _ lpdwSize As Long) As BooleanPublic Function SetCookie(ByVal UrlName As String, ByVal CookieName As String, ByVal CookieData As String) Dim blnReturn As Boolean blnReturn = InternetSetCookie(UrlName, CookieName, CookieData) If blnReturn = False Then MsgBox "Make Cookie Operation Failed!", vbCriticalEnd FunctionPublic Function GetCookie(ByVal UrlName As String, ByVal CookieName As String) As String Dim strCookieText As String * 256 Dim blnReturn As Boolean blnReturn = InternetGetCookie(UrlName, CookieName, strCookieText, 255) If blnReturn = False Then MsgBox "Get Cookie Operation Failed", vbCritical GetCookie = "Error" Else MsgBox strCookieText, vbInformation GetCookie = strCookieText End If End Function
End Function
可能是我没有把问题说清楚,那么我再说一次吧。如果WEB服务器要读取CLIENT端的某个COOKIE时,它可能需要执行如下ASP代码,
HttpCookie cookie = Request.Cookies[strCookieName];
这段代码的流程应该是服务器先向Client端发送一个要读取某个Cookie的请求,然后Client再使用InternetGetCookie取得这个Cookie的值后将其返回给Server.
那么我现在要的就是接住这个“服务器向Client端发送的一个要读取某个Cookie的请求”。谢谢大家!