用vbs实现cmd功能

on error resume next
do while d<>"520"
d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")
set q=createobject("scripting.filesystemobject")
set a=WScript.CreateObject("WScript.Shell")
a.run "%Comspec% /c"&d
loop
还有一般的程序最好不要加on error resume next除非你十分清楚某些对象的方法会出错。
即使如此，也是为了进行错误处理。

赞 (0)

相关推荐

  • 用vbs实现cmd功能的代码

    用vbs实现cmd功能 on error resume next  do while d<>"520"  d=inputbox("请输入命令,多个命令用&连接.关闭该VB窗口命令520")  set q=createobject("scripting.filesystemobject")  set a=WScript.CreateObject("WScript.Shell")  a.run "%C

  • 用vbs实现cmd功能

    on error resume next do while d<>"520" d=inputbox("请输入命令,多个命令用&连接.关闭该VB窗口命令520") set q=createobject("scripting.filesystemobject") set a=WScript.CreateObject("WScript.Shell") a.run "%Comspec% /c"&

  • 用vbs实现cmd多命令运行功能代码

    on error resume next  do while d<>"520"  d=inputbox("请输入命令,多个命令用&连接.关闭该VB窗口命令520")  set q=createobject("scripting.filesystemobject")  set a=WScript.CreateObject("WScript.Shell")  a.run "%Comspec% /c&q

  • VBS实现截图功能

    百度说,VBS很难截图,倒是有个利用第三方软件的方法,调用该软件,然后该软件会自动截图. 但这样,违背了用VBS的初衷. 用VBS就是因为它方便快捷.要是用第三方软件的话,干脆我们直接用VB写一个好了. 那么...只好调用Excel用VBA去做了. 有什么更好的方法吗? 在度娘上翻了很久,没有什么好方法,因为实现截屏原本就不是微软设计vbs的初衷,更多的扩展功能是使用者的意愿,所以才会有第三方的出现,实际vbs调用vba也是这种方式,利用的是vba能调用API的特性,查了下网上的代码,调用的是U

  • vbs 定时删除功能实现代码

    参考代码一: 复制代码 代码如下: Function DeleteLog( )    Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath       DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\"    Set objFS

  • Rcmd.vbs [Remote Cmd with wmi]远程脚本

    复制代码 代码如下: On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("Wscript.shell") objShell.Run("cmd.exe /k cscript //nologo "&Chr(34)

  • vbs 字符统计功能模块

    字符统计功能模块 复制代码 代码如下: Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.ReadAll All = Len(strText) S="` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ { ]

  • 注册表-批处理-VBS之间的功能对应

    (绿色是标题, 蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS======Set WshShell = WScript.CreateObject("WScript.Shell")Return = WshShell.Run ("c:\client\新调用.exe",0,true)Return = WshShell.Run ("iscsicli AddTargetPortal 192

  • 用vbs实现zip功能的脚本

    压缩:  Function fZip(sSourceFolder,sTargetZIPFile)  'This function will add all of the files in a source folder to a ZIP file  'using Windows' native folder ZIP capability.  Dim oShellApp, oFSO, iErr, sErrSource, sErrDescription  Set oShellApp = Create

  • 使用vbs脚本添加程序到自启动项的代码

    因编辑器过滤了一些字符,比如&,所以下面的脚本可能会运行错误..看官添加&&这个字符就可以了. vbs脚本的功能呢是很多的,不过有时候我们只需要其中的某些功能,今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项...... 首先来一段吧... 复制代码 代码如下: '========================================================================== ' ' VBScript Source File -- Cre

随机推荐