关于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
相关推荐
-
关于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,看看默认值,改
随机推荐
- discuzX2全站自动备份批处理
- 使用Python下载Bing图片(代码)
- 原生js实现弹出层登录拖拽功能
- 在网页里看flash的trace数据的js类
- Bootstrap入门书籍之(四)菜单、按钮及导航
- 三种方法让Response.Redirect在新窗口打开
- php教程之魔术方法的使用示例(php魔术函数)
- javascript 回车键触发表单提交的问题
- C#实现的sqlserver操作类实例
- android开发教程之startActivityForResult使用方法
- nodejs 图解express+supervisor+ejs的用法(推荐)
- 五个PHP程序员工具
- ubuntu 配置 tftp 服务器教程
- 原生js封装运动框架的示例讲解
- Jquery Easyui搜索框组件SearchBox使用详解(19)
- 妙用Jquery的val()方法
- Linux系统中防火墙的框架分析
- Centos查看端口占用情况和开启端口命令详解
- 浅析Spring的JdbcTemplate方法
- C#使用itextsharp生成PDF文件的实现代码