社区
VB基础类
帖子详情
webbrowser弹出网页的问题
long12
2005-12-20 12:44:22
如何用webbrowser1.navigate url以弹出网页的方式打开,同时截获该网页(url已改变)的新地址并显示在文本框中? 谢谢!!
...全文
161
3
打赏
收藏
webbrowser弹出网页的问题
如何用webbrowser1.navigate url以弹出网页的方式打开,同时截获该网页(url已改变)的新地址并显示在文本框中? 谢谢!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
蒋晟
2005-12-26
打赏
举报
回复
处理DocumentComplete事件,其中的SQL参数就是
新地址
void CIEAutomationView::OnDocumentComplete(LPDISPATCH pDisp, LPCTSTR lpszUrl)
{
// make sure the main frame has the new URL. This call also stops the animation
CString strURL(lpszUrl);
IUnknown* pUnkBrowser = NULL;
IUnknown* pUnkDisp = NULL;
TRACE(_T("Document %s Done\r\n"),lpszUrl);
//is it top level document?
HRESULT hr = m_pBrowserApp->QueryInterface( IID_IUnknown, (void**)&pUnkBrowser);
if ( SUCCEEDED(hr) ){
hr = pDisp->QueryInterface( IID_IUnknown, (void**)&pUnkDisp );
if ( SUCCEEDED(hr) ){
if ( pUnkBrowser == pUnkDisp ){
((CChildFrame*)GetParentFrame())->SetAddress(lpszUrl);
//top level
m_spHtmlDoc=NULL;
hr=m_pBrowserApp->get_Document(&m_spHtmlDoc);
TRACE(_T("Downloading Complete\r\n"),lpszUrl);
if(m_spHtmlDoc){
CComPtr<ITypeInfo> pTypeInfo;
HRESULT hr = S_OK;
hr= m_spHtmlDoc->GetTypeInfo(0, GetUserDefaultLCID(), &pTypeInfo);
DumpTypeInfo(pTypeInfo);
}
}
pUnkDisp->Release();
}
pUnkBrowser->Release();
}
m_domExternal.FireDocumentComplete(pDisp,COleVariant(lpszUrl));
}
long12
2005-12-21
打赏
举报
回复
这个问题是不是用vb无法实现?
long12
2005-12-20
打赏
举报
回复
哪位朋友能帮忙解答一下? 谢谢!!
Web
Browser
打开https安全链接,
弹出
"安全警报"(Security Alert)处理
使用
Web
Browser
控件时,在打开https安全链接时,可能会
弹出
"安全警报"(Security Alert)窗口让用户确认.用户只有点击"是(&Y)"才能正常打开
网页
.这是多余操作.解决方法:定时监视是否有窗口
弹出
,如果有,获取窗口句柄,再获取窗口中的按钮"是(&Y)"或"否(&N)",模拟点击动作,自动点击"是(&Y)",打开页面.以中国铁路购票网站为例:https://www.12306.cn/mormh
web
/
通过
web
browser
下载文件(看评论酌情下载)
解决了
web
browser
下载文件的三个
问题
: 1、屏蔽了另存为的
弹出
2、获得
web
browser
所有的cookie值 3、让
web
client支持cookie
彻底解决
web
Browser
脚本错误
问题
真实解决
web
Browser
控件访问网址
弹出
脚本错误,互联网很多答案是关闭提示(同时
网页
也显示不正常),或者继承控件,代码写了大片,这些不是根本的解决办法,里面有几行解决代码和说明文档,其他开发语言同理;
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内容的几种方法
winform使用
web
Browser
實現全屏
private void
web
Browser
1_DocumentCompleted(object sender,
Web
Browser
DocumentCompletedEventArgs e) { this.
web
Browser
1.Navigate(Application.StartupPath + "/default.htm"); } Winform全屏: this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None; this.WindowState = System.Windows.Forms.FormWindowState.Maximized;
VB基础类
7,763
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章