社区
网络通信/分布式开发
帖子详情
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
hlgchina
2007-12-20 09:17:14
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
...全文
221
7
打赏
收藏
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
CYDong0423
2007-12-20
打赏
举报
回复
WebBrowser的一个事件 StatusTextChange
WebBrowser事件的倒数第六个
hlgchina
2007-12-20
打赏
举报
回复
这个WebBrowserStatusTextChange在那里找到啊
CYDong0423
2007-12-20
打赏
举报
回复
补充一句 //点击 self.FStatusText是个Label1
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ShowMessage(self.FStatusText.Caption);
end;
CYDong0423
2007-12-20
打赏
举报
回复
procedure TForm1.WebBrowserStatusTextChange(Sender: TObject;
const Text: WideString);
begin
self.FStatusText.Caption := Text; //你将鼠标移到链接地址返回URL地址
end;
WebBrowser.LocationURL //当前页面的URL地址
brightyang
2007-12-20
打赏
举报
回复
up
hangzhou_hammer
2007-12-20
打赏
举报
回复
这个方法 有漏洞,如果 网页设置了;不显示 连接的话 那怎么办?
无条件为你
2007-12-20
打赏
举报
回复
WebBrowser事件页面中的第一个事件是:WebBrowser1BeforeNavigate2
你直接双击进入该事件,得到:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
showmessage(URL);//这个就是访问的当前地址。
end;
强制新窗口只在
web
Browser
打开
本资源是针对C#winform开发的
web
Browser
控件进行的操作,
web
Browser
网页
控件在实际应用中默认
点击
里面的
链接
是跳转到浏览器
打开
,该资源正是解决此问题,只在winform里
打开
。
Web
Browser
打开
https安全
链接
,弹出"安全警报"(Security Alert)处理
使用
Web
Browser
控件时,在
打开
https安全
链接
时,可能会弹出"安全警报"(Security Alert)窗口让用户确认.用户只有
点击
"是(&Y)"才能正常
打开
网页
.这是多余操作.解决方法:定时监视是否有窗口弹出,如果有,获取窗口句柄,再获取窗口中的按钮"是(&Y)"或"否(&N)",模拟
点击
动作,自动
点击
"是(&Y)",
打开
页面.以中国铁路购票网站为例:https://www.12306.cn/mormh
web
/
C# 用
Web
Browser
实现的多页面浏览器
当要
打开
新窗口时,不是弹出IE或其他浏览器,在本身的新tab页中是实现。 可以在此基础上进行多次开发,如进行DOM操作,当然做个什么自动化提交之类的也不在话下了。 --包含源码
一个
使用
Web
Browser
控件获取
Web
数据的例子
有
网页
: http://www.portinfo.net.cn/spinfo/premanifest.php
vb6_
Web
browser
控件使用技巧
vb6_
Web
browser
控件使用技巧 1、
获得
浏览器信息: Private Sub Command1_Click()
Web
Browser
1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow =
Web
Browser
1.Document.parentWindow Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = Nothing End Sub
点击
Command1浏览
网页
,
点击
Command2在立即窗口中输出浏览器信息。 2、弹出
Web
browser
消息窗口 Dim oWindow Set oWindow =
Web
Browser
1.Document.parentWindow oWindow.confirm "abcd" VB调用
web
browser
技巧集2 向
Web
browser
中写入HTML内容的几种方法
网络通信/分布式开发
1,594
社区成员
32,958
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章