给初学者:VB如何操作WEB页的浏览提交———七：题外话,关于小甜饼和不打开新IE窗口问题

介绍怎么获取COOKIE,,,,什么是COOKIE就不说了,估计我是全世界最后知道的...

它们保存在C:/Documents and Settings/当前登陆操作系统的用户名/Cookies里面,命名规则是:当前登陆操作系统的用户名@域名.TXT,,,

包括不少字段,呵呵....大概就是些什么名字啦,密码啦,有效期啦,域名啦什么的东东

这次代码拿我们的论坛来做示例,首先你需要把你下在的登陆注销,才能看见更多的效果

多了不说,以下是代码,(我们只是看看小甜饼哦~么什么操作,想操作的同志双击本页的窗体上蓝条条最左面的图标即可~~)

'本程序由ZCSOR编写于2007年1月13日
'QQ:47493585
'E-MAIL:shaoyan5@163.com
'Blog:http://blog.csdn.net/zcsor
'转发请保留作者以上信息

'********************************************************************
'DEMO3:获取COOKIE
'********************************************************************

'在工程中添加 Microsoft Internet Controls 部件(即WebBrowser控件),命名为mDemoWB
'添加LISTBOX,名为CookiesList,2个按钮分别为cmdNavigate1,cmdNavigate2
'依次点第一个,第2个按钮,而后,在页面中用你的用户名和密码登陆CSDN,可获取对应COOKIE

'WebBrowser控件Document对象
Dim WBDocument As Variant

Private Sub cmdNavigate1_Click()
mDemoWB.Navigate "http://community.csdn.net/"
End Sub

Private Sub cmdNavigate2_Click()
mDemoWB.Navigate "http://passport.csdn.net/member/UserLogin.aspx?from=http://community.csdn.net/"
End Sub

Private Sub Form_Load()
'使用空白页初始化浏览
mDemoWB.Navigate "about:blank"
End Sub

Private Sub mDemoWB_DocumentComplete(ByVal pDisp As Object, URL As Variant)

'打开空白页时跳过
If URL = "about:blank" Then Exit Sub
'等待数据下载完毕
Do
    If Not mDemoWB.Busy Then Exit Do
    DoEvents
Loop

'获取Document对象
Set WBDocument = mDemoWB.Document

Dim mCookiesArr() As String, mIndex As Long
mCookiesArr = Split(WBDocument.cookie, "; ")

For mIndex = 0 To UBound(mCookiesArr)
    CookiesList.AddItem mCookiesArr(mIndex)
Next
CookiesList.AddItem "==================================================="
End Sub

 

 作者
E-MAIL:shaoyan5@163.com
OICQ   :47493585

 

 

 

今天半夜,一道士问,163打开以后,一点连接就出新窗口怎么办......上网一找,得代码一段....贴到这里,分享之.

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object

WebBrowser1.Navigate "http://www.163.com"
End Sub

Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
         Processed = True
         WebBrowser1.Navigate URL
End Sub

就这些..........