vb.net显示网页的简单介绍

vb 做个窗口,显示网页内容

首先要添加一个Microsoft

Web浏览器

控件

sub

page_load()

try

AxWebBrowser1.Anchor=AnchorStyles.Top

or

AnchorStyles.Botton

or

_

AnchorStyles.Left

or

AnchorStyles.Right

AxWebBrowser1.Navigate(ComboBox1.Text)'地址栏

catch

ex

as

exception

Msgbox(ex.Message)

end

try

end

sub

sub

ComboBox1_SelectedIndexChanged()

AxWebBrowser1.Navigate(combobox1.text)

end

sub

sub

combobox1_keypress()

if

asc(e.keychar)=system.windows.forms.keys.enter

then

AxWebBrowser1.Navigate(combobox1.text)'响应回车,开始连接

end

if

end

sub

以上是在vb.net环境的代码,在vb中控件的命名肯能有点不同,比如combobox在vb中是combox.

vb.net使用 webbrowser显示网页，如何读取特定节点的数据

首先：鼠标API函数

[DllImport("User32")]

public extern static void mouse_event(int dwFlags, int dx, int dy, int dwData, IntPtr dwExtraInfo);

[DllImport("User32")]

public extern static void SetCursorPos(int x, int y);

[DllImport("User32")]

public extern static bool GetCursorPos(out POINT p);

public struct POINT

{

public int X;

public int Y;

}

public enum MouseEventFlags

{

Move = 0x0001,

LeftDown = 0x0002,

LeftUp = 0x0004,

RightDown = 0x0008,

RightUp = 0x0010,

MiddleDown = 0x0020,

MiddleUp = 0x0040,

Wheel = 0x0800,

Absolute = 0x8000

}

其次：载入webBrowser

private void FormBrower_Load(object sender, EventArgs e)

{

webBrowser.Navigate("");

}

接着：根据鼠标API获取到X,Y坐标区域。。

如何通过鼠标点击，获取的区域，导出网页元素的XPATH？

解析步骤：

创建一个HtmlElment2的getBoundingClientRect方法得到元素矩形（Rect)，即元素Webbrowser位置。再通过offsetTop, .offsetLeft, .offsetWidth, .offsetHeight四个属性，获取绝对位置。

我知道，WebBrowser.document.activeElement.ID能够获取到某元素的ID。

但是，，如何获取到网页元素的XPATH，始终搞不出来。。。

VB.net使用WebBrowser控件显示网页

当然不行，那个是整个网页的

要这样

web1=

webbrowser

1

For

i

=

To

Web1.Document.All.Count

-

1

'要具体判断是哪个控件还要看这两个

'Web1.Document.All(i).TagName

'Web1.Document.All(i).Name

Text1.Text=Web1.Document.All(i).InnerText

Next

i

VB程序中显示网页

想只显示一部分的话可以用“Scriplet”控件（工具箱右键－“部件...”－“Windows HTML Object Libary”），然后在属性窗口填URL地址，很简单。

想显示全部可以用webbrowser控件来实现。