VB 自动登录网页,不要用webbrowser控件,登录的是系统默认浏览器。。。
5个回答
展开全部
前一阵在做淘宝网的东东,贴一个用IE登录淘宝网的
Option Explicit
Sub GotoTaoBao(uid As String, pwd As String)
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://auction1.taobao.com/auction/view_personal_sale_item.jhtml?view_type=viewsold"
Do Until .ReadyState = 4
DoEvents
Loop
.Document.Forms(0).All("TPL_username").Value = uid
.Document.Forms(0).All("TPL_password").Value = pwd
.Document.Forms(0).All("Submit").Click
End With
End Sub
Private Sub Command1_Click()
GotoTaoBao "youID", "youPwd"
End Sub
不用CreateObject的话,要引用Microsoft Internet Controls (shdocvw.dll)
然后声明一个InternetExplorer对象...
Option Explicit
Sub GotoTaoBao(uid As String, pwd As String)
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://auction1.taobao.com/auction/view_personal_sale_item.jhtml?view_type=viewsold"
Do Until .ReadyState = 4
DoEvents
Loop
.Document.Forms(0).All("TPL_username").Value = uid
.Document.Forms(0).All("TPL_password").Value = pwd
.Document.Forms(0).All("Submit").Click
End With
End Sub
Private Sub Command1_Click()
GotoTaoBao "youID", "youPwd"
End Sub
不用CreateObject的话,要引用Microsoft Internet Controls (shdocvw.dll)
然后声明一个InternetExplorer对象...
展开全部
既然是这样子的话 自己用vbs写个脚本(能自动登录网页) 然后再用vb,shell他就okle
搜狗的一个解决的帖子
参照做就行了
http://it.wenda.sogou.com/question/34709312.html
搜狗的一个解决的帖子
参照做就行了
http://it.wenda.sogou.com/question/34709312.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
shell"explorer.exe ""http://网址"""
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询