关于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,看看默认值,改
随机推荐
- js移动端事件基础及常用事件库详解
- jquery+CSS3实现3D拖拽相册效果
- zeroclipboard复制到剪切板的flash
- IIS设置404页面图文教程(选择URL还是文件 )
- 浅析2种JavaScript继承方式
- 犀利的js 函数集合
- js keycode快捷键大全 并附有简单使用说明
- PHP中的闭包(匿名函数)浅析
- javascript设计模式 接口介绍
- nodejs中转换URL字符串与查询字符串详解
- javascript实现上传图片并预览的效果实现代码
- TinyMCE 新增本地图片上传功能
- 学习JavaScript设计模式之模板方法模式
- jQuery Ajax 实现分页 kkpager插件实例代码
- 机房速度和带宽测试的简单方法
- WINXP下apache+php4+mysql
- Android实现便于批量操作可多选的图片ListView实例
- 思科路由器全局、接口、协议调试
- 最新Javascript程序员面试试题和解题方法
- Java自带的加密类MessageDigest类代码示例