Question

如何用VBA打开网页并输入用户名和密码

Answer 1

1、首先打开电脑上的excel表格，然后按alt+f11打开VBA界面。

2、接着选择工具按钮，选择引用，弹出对话框选择Internet   controls选项。

3、然后在模块界面输入想要访问的网址代码。

4、然后单击运行按钮。

5、运行后就可以看到网页打开，最后保存文件就完成了。

Answer 2

可以通过WebBrowser控件的使用实现该功能
以下实例打开百度，在输入框输入“aaa”
Public Sub useie()
'引用Microsoft Internet Controls
Dim IE
On Error Resume Next
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True

IE.Navigate URL:="https://www.baidu.com/"
timeie = DateAdd("s", 20, Now()) '等待20s
Do While IE.Busy And Not IE.ReadyState = READYSTATE_COMPLETE
DoEvents
If timeie < Now() Then
MsgBox “无法连接重新执行”
IE.Quit
Exit Sub
End If
Loop

IE.Document.getElementById("kw").Value = "aaa"
Set IE = Nothing
Set ID = Nothing
End Sub

WebBrowser控件的使用
0、常用方法
Navigate(string urlString):浏览urlString表示的网址
Navigate(System.Uri url)：浏览url表示的网址
Navigate(string urlString, string targetFrameName, byte[] postData, string additionalHeaders): 浏览urlString表示的网址，并发送postData中的消息
//（通常我们登录一个网站的时候就会把用户名和密码作为postData发送出去)
GoBack()：后退
GoForward()：前进
Refresh()：刷新
Stop()：停止
GoHome()：浏览主页
WebBrowser控件的常用属性：
Document：获取当前正在浏览的文档
DocumentTitle：获取当前正在浏览的网页标题
StatusText：获取当前状态栏的文本
Url：获取当前正在浏览的网址的Uri
ReadyState：获取浏览的状态
WebBrowser控件的常用事件：
DocumentTitleChanged,
CanGoBackChanged,
CanGoForwardChanged,
DocumentTitleChanged,
ProgressChanged,
ProgressChanged

1、获取非input控件的值：
webBrowser1.Document.All["控件ID"].InnerText;
或webBrowser1.Document.GetElementById("控件ID").InnerText;
或webBrowser1.Document.GetElementById("控件ID").GetAttribute("value");

2、获取input控件的值：
webBrowser1.Document.All["控件ID"].GetAttribute("value");;
或webBrowser1.Document.GetElementById("控件ID").GetAttribute("value");

3、给输入框赋值：
//输入框
user.InnerText = "myname";
password.InnerText = "123456";
webBrowser1.Document.GetElementById("password").SetAttribute("value", "Welcome123");

4、下拉、复选、多选：

//下拉框：
secret.SetAttribute("value", "question1");
//复选框
rememberme.SetAttribute("Checked", "True");
//多选框
cookietime.SetAttribute("checked", "checked");

5、根据已知有ID的元素操作没有ID的元素：
HtmlElement btnDelete = webBrowser1.Document.GetElementById(passengerId).Parent.Parent.Parent.Parent.FirstChild.FirstChild.Children[1].FirstChild.FirstChild;

根据Parent,FirstChild,Children[1]数组，多少层级的元素都能找到。

6、获取Div或其他元素的样式：
webBrowser1.Document.GetElementById("addDiv").Style;

7、直接执行页面中的脚本函数，带动态参数或不带参数都行：
Object[] objArray = new Object[1];
objArray[0] = (Object)this.labFlightNumber.Text;
webBrowser1.Document.InvokeScript("ticketbook", objArray);
webBrowser1.Document.InvokeScript("return false");

8、自动点击、自动提交：
HtmlElement btnAdd = doc.GetElementById("addDiv").FirstChild;
btnAdd.InvokeMember("Click");

9、自动赋值，然后点击提交按钮的时候如果出现脚本错误或一直加载的问题，一般都是点击事件执行过快，这时需要借助Timer控件延迟执行提交按钮事件：

this.timer1.Enabled = true;
this.timer1.Interval = 1000 * 2;
private void timer1_Tick(object sender, EventArgs e)
{
this.timer1.Enabled = false;
ClickBtn.InvokeMember("Click");//执行按扭操作
}

10、屏蔽脚本错误：
将WebBrowser控件ScriptErrorsSuppressed设置为True即可

11、自动点击弹出提示框：

private void webBrowser1_Navigated(object sender, WebBrowserNavigatedEventArgs e)
{
//自动点击弹出确认或弹出提示
IHTMLDocument2 vDocument = (IHTMLDocument2)webBrowser1.Document.DomDocument;
vDocument.parentWindow.execScript("function confirm(str){return true;} ", "javascript"); //弹出确认
vDocument.parentWindow.execScript("function alert(str){return true;} ", "javaScript");//弹出提示
}

WebBrowser页面加载完毕之后，在页面中进行一些自动化操作的时候弹出框的自动点击(屏蔽)

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
//自动点击弹出确认或弹出提示
IHTMLDocument2 vDocument = (IHTMLDocument2)webBrowser1.Document.DomDocument;
vDocument.parentWindow.execScript("function confirm(str){return true;} ", "javascript"); //弹出确认
vDocument.parentWindow.execScript("function alert(str){return true;} ", "javaScript");//弹出提示
//下面是你的执行操作代码
}

12、获取网页中的Iframe，并设置Iframe的src
HtmlDocument docFrame = webBrowser1.Document.Window.Frames["mainFrame"].Document;
或
HtmlDocument docFrame = webBrowser1.Document.All.Frames["mainFrame"].Document;
docFrame.All["mainFrame"].SetAttribute("src", "http://www.baidu.com/");

13、网页中存在Iframe的时候webBrowser1.Url和webBrowser1_DocumentCompleted中的e.Url不一样，前者是主框架的Url,后者是当前活动框口的Url。

14、让控件聚焦
this.webBrowser1.Select();
this.webBrowser1.Focus();
doc.All["TPL_password_1"].Focus();

15、打开本地网页文件
webBrowser1.Navigate(Application.StartupPath + @"\Test.html");

16、获取元素、表单

//根据Name获取元素
public HtmlElement GetElement_Name(WebBrowser wb,string Name)
{
HtmlElement e = wb.Document.All[Name];
return e;
}

//根据Id获取元素
public HtmlElement GetElement_Id(WebBrowser wb, string id)
{
HtmlElement e = wb.Document.GetElementById(id);
return e;
}

//根据Index获取元素
public HtmlElement GetElement_Index(WebBrowser wb,int index)
{
HtmlElement e = wb.Document.All[index];
return e;
}

//获取form表单名name,返回表单
public HtmlElement GetElement_Form(WebBrowser wb,string form_name)
{
HtmlElement e = wb.Document.Forms[form_name];
return e;
}

//设置元素value属性的值
public void Write_value(HtmlElement e,string value)
{
e.SetAttribute("value", value);
}

//执行元素的方法，如：click，submit(需Form表单名)等
public void Btn_click(HtmlElement e,string s)
{

e.InvokeMember(s);
}

Answer 3

Sub 输入()
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Navigate "这里换成你的网址"  'Navigate方法可以打开指定的网页
        .Visible = True '打开后要显示网页
        .Document.All("这里换成你的用户名框id或名称").Value = "用户名"  
        .Document.All("这里换成你的密码框id或名称").Value = "用户名"  
        'Document.All("元素名称或ID") 可以引用某个元素，需要在网页源代码中查找。 
    End With
    Set ie = Nothing
End Sub

Answer 4

如果你的默认浏览器是IE浏览器我就能解决问题。

追问

("元素名称或ID") 不知如何找，    我以前有放过源代码在以下网址（在百度不能上传附件）http://club.excelhome.net/thread-1183605-1-1.html，请帮看下。还有我用VB 也找不到hwnd

追答

帐号：name=＂username＂
Id="ls_username"
密码：
Name="password"
Id="is_password”

追问

我这个是SQL 的一个登录界面，我现在用VB 的语句用这VBA上快解决了，谢谢！