窗体中加入web浏览器控件及163邮箱登录

时　间:2017-11-02 12:56:00
作　者:凝听   ID：44716  城市：奉贤
摘　要:为了方便在access窗体中一键登录并查看163邮件，及进行简单的网页浏览，可以用这些内容。但是该web控件也有个弱点，有时响应慢且不能返回浏览，只能一直往前浏览
正　文:

WebBrowser0为web浏览器控件
Private Sub 转到_Click()
    WebBrowser0.Silent = True  ‘取消打开网页时脚本错误提示
    WebBrowser0.Navigate "www.baidu.com"    ’打开百度网站
 End Sub
…………………………………………………..，这中间的代码是禁止web控件在新浏览器打开，只能在web控件里面打开
public strURL as string   '在模块里面定义一个字符串变量
Private Sub WebBrowser0_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
    WebBrowser0.Silent = True
    WebBrowser0.Navigate strURL
End Sub
Private Sub WebBrowser0_StatusTextChange(ByVal Text As String)
    strURL = Text
End Sub
……………………………………………….
以下是用代码登录163邮箱，并用web控件显示
Private Sub Ctl163邮箱_Click()
Dim zhmz As String
Dim mmmz As String
Dim dzmz As String
zhmz = Me.账号
mmmz = Me.密码
dzmz = "https://reg.163.com/logins.jsp?username=" & zhmz & "&password=" & mmmz & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2"
 WebBrowser0.Silent = True
    WebBrowser0.Navigate dzmz
End Sub


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店