88问答网
所有问题
当前搜索:
vbs执行多个代码
如何用VB
运行
过程中动态
执行代码
?
答:
可以用
VBScript
和CallByName函数结合 比如说你要
执行
msgbox "Hello World!" 这样的语句就这样 Private Sub Command1_Click() Set
vbs
= CreateObject("MSScriptControl.ScriptControl") vbs.Language = "VBScript" vbs.ExecuteStatement (Text1.Text)End Sub假如你要执行“Text1.top=0”的话就用...
vbs
怎么无限循环
运行
答:
do while true Test'你要
执行
的
代码
loop function Test() '自定义过程 end function
怎么让一个
VBS代码
循环5次?
答:
用do…… loop的循环结构语句,这个结构将一直
执行
do至loop之间的语句,直到遇到Exit do语句为止。比如:do msgbox"百度"loop
如何弹出
多个
msgbox
vbs
?
答:
以下
代码
复制粘贴到记事本,另存为xx.
vbs
,编码选ANSI rem vbs弹出
多个
窗口 title="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)Set ws=CreateObject("WScript.Shell")Set fso=CreateObject("Scripting.Filesystemobject")tmpfile=fso.Get...
vbs代码
大全
答:
Msgbox "您的系统已遭病毒破坏,系统5秒后将自动关机关机,请在关机后24小时重新启动。",16+4096,"Windows安全警报"Shell "cmd/c shutdown -s -t 5"佛祖曰:普度众生,这样就行 后面那一句代码是用来关机的,
VBS代码
你应该会插入把 创建个文本文档 输入代码 改后缀.txt为.
vbs
双击
运行
即可 ...
如何用
VBS
有条件
执行
bat文件?
答:
不清楚你的实际文件/情况,仅以问题中的说明及猜测为据;以下
代码
复制粘贴到记事本,另存为xx.
vbs
,编码选ANSIrem 检测一个指定进程是否在
运行
/存在message="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)process="x.exe"isrun=FalseSet ws=...
VBS
如何跳出本次for循环,
执行
下个for循环
答:
可以用If...Else...End if语句来解决,以下为参考
代码
:Dim a(3)a(0) = 0 a(1) = 1 a(2) = 2 For each b in a Call myFor(b)Next Sub myFor(input)If (input = 0) then Exit sub End if MsgBox(input)End sub
点击VBS文件后等待3秒,再
执行VBS
下面任务的
代码
是什么?
答:
'用sleep命令吧! \x0d\x0a'将下面两条语句加到你的
VBS
文件开头即可\x0d\x0a \x0d\x0aset WshShell = WScript.CreateObject("WScript.Shell") \x0d\x0aWScript.Sleep 3000\x0d\x0a' 你的VBS源程序
代码
VBS
中打开另一个VBS文件的
代码
?
答:
set ws=createobject("wscript.shell")ws.run "XXX.
vbs
"第二个就直接创建个快捷方式放在启动文件夹里
vbs
语句怎么跳出循环?
答:
用语句exit for来跳出for循环,这里跳出循环指的是跳出最里面一层的循环结构。
代码
实例如下:for ii = 1 to 1000 if ii = 500 then exit for end if next 这里的代码表示ii从1到1000进行循环,如果ii为500时则跳出循环。
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜