如何用VB取得网页对话框里的内容

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何用VB取得网页对话框里的内容相关的知识,希望对你有一定的参考价值。

我想要用VB获取"车牌号码校验错误,请重新录入"这几个字但我用getWindowText只能获取到"信息提示 -- 网页对话框"i = FindWindow(vbNullString, "信息提示 -- 网页对话框")Debug.Print iDim sBuffer As StringsBuffer = Space(255)GetWindowText i, sBuffer, 255Text1.Text = sBuffer

求大神帮个忙 谢谢
对话框的类的是
Internet Explorer_TridentDlgFrame
子类是
Internet Explorer_Server
帮帮忙 谢谢大神们

可以通过WebBrowser方法获取网页内容
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);


实例
获得网页中被选中部分的HTML:
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange

Set objSelection = WebBrowser1.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Debug.Print objTxtRange.htmlText

Set objTxtRange = Nothing
End If
Set objSelection = Nothing
End If
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
参考技术A 感叹号、确定按钮、label“车牌号码检验错误,重新输入”都是有句柄的,用findWindowEx找出label的句柄,再getwindowtext就好了,手机输入,不贴代码.追问

可我用SPY++就能检到"信息提示 -- 网页对话框"有句柄和他里面的框有句柄再就没了,里面的提示是Internet Explorer_Server类,可我用findWindow 又找不到

追答

findWindowEx(hwnd,0,"Internet Explorer_Server",vbNullString),百度一下findWindowEx这个函数

追问

a= FindWindow(vbNullString, "信息提示")
b= FindWindowEx(a, 0, "Internet Explorer_Server", vbNullString)
GetWindowText b, sBuffer, 255
结果为空,但把GetWindowText中b换成a就能显示出来"信息提示",为啥啊大神

追答

不知弄好没?用spy看b是否取得正确的句柄?

参考技术B 晚上回去给你段程序。 或者你可以先自己找找IE的Ole接口追问

谢谢谢谢

追答

不好意思昨天回去断网了,下面开始



工程-》引用  选择 Microsoft HTML Object Library (没有的话浏览ieframe.dll)

草居然还有最大字数限制

 







doc其实就是ie页面的document对象了,如何取得文字参考HTML教程

本回答被提问者和网友采纳

如何用JS点击超链接弹出对话框

1、在body里面布局,把对话框的大致结构写出来。

2、写css样式,让对话框在网页上体现出来。

3、得到如下图样式,结构完成。

4、最后就是写js样式,让我们的对话框达到一定的效果。

5、点击超链接弹出对话框。

参考技术A

为超链接添加onclick()动作,动作内容为弹出对话框。javascript提供了3种类型的对话框:

    alert() : 提醒

    confirm():确认,返回 true 或者 false

    prompt():带输入的对话框

下面进行实例演示:

1、HTML结构

<a href="#" onclick="fun1()">你有一个礼物</a>
<a href="#" onclick="fun2()">我要接收礼物</a>
<a href="#" onclick="fun3()">必须先对暗号</a>

2、javascript代码

function fun1()
alert("你得到一个礼物!!")

function fun2()
if(confirm("确定接收礼物?"))
alert("对一下暗号先...");

function fun3()
var code = prompt("请对暗号:");
if(code)
alert("给你礼物!!");
else
alert("蒙人呢!");

3、效果演示

参考技术B <a onclick="alert('提示内容')">xx</a>

<script>
function a()

alert("内容")

</script>
<a onclick="a()">xx</a>
参考技术C <a href="http://www.baidu.com" onclick="return confirm('继续吗?');">测试</a> 参考技术D a 里加 onclick=“alert('xx')”

以上是关于如何用VB取得网页对话框里的内容的主要内容,如果未能解决你的问题,请参考以下文章

如何用JS点击超链接弹出对话框

如何用javascript保存网页中的一个img到本地?

如何用vb引用网页元素

如何用Java抓取网页的具体内容

如何用快捷键打开注册表里的所有子项?

如何为基于聚合物的网页创建点击事件