关于vbs WebBrowser导航问题

实际上属于转贴。。呵呵:-)
原始文章来自微软,微软么,是大家的微软嘛!所以稍微修改了一下,帖到这里。
原文的中文地址是:
http://support.microsoft.com/kb/185538/zh-cn
实际上,这个实现就是获取一个接口,还是叫事件吧。。。。更明显,反正我是分不清这些东西的。
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

163的链接一般都是弹出窗口,就用163吧

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub

如果你想知道弹出窗口的URL呢,那就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = False
MsgBox URL

End Sub

如果你想让弹出窗口在原来的窗体里显示呢,就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = True
WebBrowser1.Navigate URL
End Sub

(0)

相关推荐

  • 关于vbs WebBrowser导航问题

    实际上属于转贴..呵呵:-) 原始文章来自微软,微软么,是大家的微软嘛!所以稍微修改了一下,帖到这里. 原文的中文地址是: http://support.microsoft.com/kb/185538/zh-cn 实际上,这个实现就是获取一个接口,还是叫事件吧....更明显,反正我是分不清这些东西的.Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 163的链接一般都是弹出窗口,就用163吧 Private Sub Form_Load() Set

  • 使用vbs获得外网ip并发送到邮箱里

    获得本地外网地址并发送到指定邮箱,还可以参考这个文章http://www.jb51.net/article/40064.htm 复制代码 代码如下: '* **************************************** *  '* 程序名称:GetIP.vbs  '* 程序说明:获得本地外网地址并发送到指定邮箱  '* 编码:lyserver    '* **************************************** * Option Explicit Cal

  • 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码

    复制代码 代码如下: '/*========================================================================= ' * Intro 主要是解决在使用WebBrowser打印时,得先设置IE安全性的问题 ' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs ' * Author yongfa365 ' * Version v1.0 ' * Email yongfa365[at]qq.c

  • VBS技术内幕:CreateObject函数详解

    曾经我也不明白为什么在CreateObject函数中传递不同的字符串就可以创建各种各样功能强大的对象.后来无意中看到UMU的<[UMU WSH 教程](9)CreateObject 过程>,才知道CreateObject函数创建的是COM对象,第一个参数是COM对象的ProgID.再后来拜读了Jeff Glatt的<COM in plain C>,知道了如何用纯C语言编写COM组件. COM(组件对象模型)是一个很复杂的概念,需要用砖头那么厚的书才能讲得清楚,而且没有C++和面向对

  • 杀死指定进程名称的小VBS

    以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助. Function KillProc(strProcName) On Error Resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set arrProcesses = objWMIService.ExecQuery( "select * from win32_pro

  • 通过vbs修改以点结尾的文件的属性为隐藏

    核心代码: rem 修改以点结尾的文件的属性为"隐藏" @echo off set DstFile=C:\test\batcher. >"%temp%\FileProperty.vbs" echo Set objFSO = CreateObject("Scripting.FileSystemObject").GetFile("\\?\%DstFile%.\") >>"%temp%\FilePrope

  • 查询电脑开关机时间的vbs代码

    核心代码: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select

  • vbs枚举进程 vbs列出进程的详细列表

    今天要说的是用VBS(VBScript脚本)来枚举Windows操作系统的进程,这样做的用处在什么地方呢?举个例子吧,比如你有时候想监控某个进程是否在运行,这就非常有用了. 示例: 用VBS脚本枚举进程 'enum.vbs Dim WMI,Objs,Process Set WMI=GetObject("WinMgmts:") Set Objs=WMI.InstancesOf("Win32_Process") Process="" For Each

  • window通过vbs+bat实现自动在后台运行nodejs application

    环境:window8.1 原理就是通过vbs无窗口后台运行bat文件 1.新建一个.bat文件.内容如: @ECHO ON f: cd \repositories\yyper start /b nodemon index.js -f 2.新建一个.vbs文件.内容如: Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c run-yyper-blog.bat",vbhide 双击.vbs文件即可.本人通过该方法启

  • 无法执行vbs脚本中遇到的问题及解决方案

    今天有网友反映无法执行vbs文件,一般情况下,很多坏孩子用vbs写病毒,所以有时候杀毒会误杀或取消执行vbs文件 1. 没有文件扩展".vbs"的脚本引擎. 原因:有些软件会将".vbs"的文件的默认打开方式改成其他的方式. 手动解决: ① 先到%SYSTEMROOT%/system32/确认下自己的wscript.exe在不在,不在的话,从其它电脑上copy过来就OK ② 注册表 regedit 在HKEY_CLASSES_ROOT下面找到.VBS,看看默认值,改

随机推荐