如何用webbrowser控件保存cookies呢？

同上 问题点数：80、回复次数：1Top

1 楼ch21st（www.blanksoft.com）回复于 2002-11-11 12:51:28 得分 80

Public   Declare   Function   InternetSetCookie   Lib   "wininet.dll"   Alias   "InternetSetCookieA"   _  
                  (ByVal   lpszUrlName   As   String,   _  
                  ByVal   lpszCookieName   As   String,   _  
                  ByVal   lpszCookieData   As   String)   As   Boolean  
   
  Public   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  
   
   
   
  Public   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!",   vbCritical  
  End   Function  
   
  Public   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  
   
  Top

相关问题

• dll
• blnreturn
• urlname
• cookienam
• byval
• internetsetcookie
• booleanpublic
• cookiedata
• internetgetcookie
• lpszcookiedata

• 帖主：gundam_king
• ch21st

• Visual Basic类图书
• Visual Basic类源码下载