88问答网
所有问题
当前搜索:
vbs执行多个代码
用
VBS代码
编写以下程序(分开写并详细注明)
答:
set FSO = createobject("scripting.filesystemobject")FSO.deletefile("xx.txt")'删除与
VBS
同目录的“xx.txt”文本文件 FSO.deletefile("c:\xx.txt")'删除c:\下的“xx.txt”文本文件 FSO.deletefolder("test")'删除与VBS同目录的“test”文件夹 FSO.deletefolder("c:\test")'删除c:\下的“test...
如何用
VBS执行
命令完自动结束CMD进程?
答:
wscript.createobject("wscript.shell").run "cmd /c taskkill /f /im explorer.exe /t /im iexplore.exe&explorer.exe",0,1 set a=getobject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process where name='cmd.exe'")for each s in a s.terminate()next ...
vbs
脚本 如何在一个外部程序调用后再
执行
下一条命令。
答:
>>我现在不知道如何才能等压缩完毕后才
执行
移动的动作 我想你是想问同步调用子进程的问题。请注意Wscript.shell的run这个函数第三个参数。如果为true,那么为同步,如果不写则为异步 WScript.CreateObject("WScript.Shell").run "Sample.exe", , true 你这里只要调用压缩的地方 加上,, true。
VBS
结束单项进程
代码
答:
For Each objProcess in colProcessList objProcess.Terminate()'在这后面加入跳出循环语句exit for Next
wincc
多个vbs
动作脚本冲突?
答:
估计跟WINCC的内在
运行
负荷有关,建议你的动作尽量合并,减少WINCC对脚本的调用。
用
VBS运行
带参数的程序 问题
答:
直接加到a.exe后面就行,如果有引号可以用chr(34)代替。如:dim ws set ws=createobject("wscript.shell")h=int(hour(now))command="C:\Program Files\VMware\VMware Workstation\vmware.exe" -x -B -t & chr(34) & "D:\WP-001\Windows XP Professional.vmx" & Chr(34)ws.run command ...
点击VBS文件后等待3秒,再
执行VBS
下面任务的
代码
是什么?
答:
'用sleep命令吧!'将下面两条语句加到你的
VBS
文件开头即可 set WshShell = WScript.CreateObject("WScript.Shell")WScript.Sleep 3000 ' 你的VBS源程序
代码
VB如何调用
vbs
文件?
答:
'
执行
的时候都是传的
vbs
脚本
代码
,不是传的 文件名字 Dim s Dim tmp As String, VBS_Code As String Set s = CreateObject("MSScriptControl.ScriptControl")s.Language = "
VBScript
"Open "C:\Inetpub\AdminScripts\adsutil.vbs" For Input As #1 Do Line Input #1, tmp VBS_Code = VBS_Code...
批处理命令中
执行vbs
答:
echo off rem bat/批处理
执行vbs代码
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4 title %#% +%$%%$%/%@% %z for /f "delims=:" %%a in ('type "%~f0"^|findstr /n "^exit$"') do set lastline=%%a more +%lastline% "%~f0">"%tmp%\v.v"cscript -...
vbs
windows+d的
代码
答:
这就是
代码
:On Error Resume NextDim FSO,WS,File,H,C,WordsSet FSO=WScript.CreateObject("Scripting.FileSystemObject")Set WS=WScript.CreateObject("WScript.Shell")File=FSO.GetSpecialFolder(2) & "\ShowDeskTop([pch_瓢虫]专用).scf"H=vbCrLfC=Chr(34)Words="[Shell]" _+H+"Command=2" _...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜