给初学者:VB如何操作WEB页的浏览提交———七:题外话,关于小甜饼和不打开新IE窗口问题
2007-01-19 21:43
621 查看
介绍怎么获取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
就这些..........
它们保存在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
就这些..........
相关文章推荐
- 给初学者:VB如何操作WEB页的浏览提交———四:如果是已经打开的IE页怎么办?
- 给初学者:VB如何操作WEB页的浏览提交———一:在百度中自动搜索
- 给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
- 给初学者:VB如何操作WEB页的浏览提交———三:学会拨号和断开,内容想发就发,别拿IP限制我!
- 给初学者:VB如何操作WEB页的浏览提交———五:如何对网页内容进行解析?
- 给初学者:VB如何操作WEB页的浏览提交———九:给感觉看HTML代码去找对应对象费劲的朋友的工具
- 给初学者:VB如何操作WEB页的浏览提交———八:获取网页上的链接、图片指向地址
- 给初学者:VB如何操作WEB页的浏览提交———二:自动填写更多内容
- 关于“网页对话框”中链接和表单提交会在新窗口中打开的问题
- 关于“网页对话框”中链接和表单提交会在新窗口中打开的问题
- [轉]关于“网页对话框”中链接和表单提交会在新窗口中打开的问题
- 关于“网页对话框”中链接和表单提交会在新窗口中打开的问题
- 关于IE不能在新窗口中打开连接的问题
- 关于IE不能在新窗口中打开连接的问题
- 关于“网页对话框”中链接和表单提交会在新窗口中打开的问题
- 关于IE无法打开站点XX已终止操作问题
- linux 如何在terminal 中打开文件浏览窗口
- VB中关于statusbar状态条随FORM变化的问题,以及如何设置toolbar
- ASP.Net下如何解决关于Access数据库“操作必须使用一个可更新的查询”问题
- 如何解决windows2008IE打开后总是提示添加可信站点的问题