具体步骤如下:
第一,在具有语法着色功能的文本编辑器界面中点击语言下拉菜单,然后从中选择VB或VBS代码;
第二,创建一个文本文件,或者利用文本编辑器编写VBS代码;
第三,点击文件中另存为菜单项,从弹出的另存为窗口中将保存类型选择为Alltypes,然后输入文件名点击保存按钮;
第四,保存后将会自动在对应目录中生成相应文件,双击该文件,然后从弹出的窗口中输入内容,点击确定按钮即可显示对应的弹出窗口。
怎样在VBS运行后自动打开另一个程序
set
wshshell
=
createobject("wscript.shell")
wshshell.run
"notepad.exe",
,
true
'这条语句等到被打开序关闭时才执行下一句。
也可以循环监视
oexec.status
=wshfinished
确定程序是否已退出
vbs代码问题 如何用vbs打开一个指定程序,然后在程序上输入密码?
Option Explicit
Dim objShell, strProgram, strKeys
Set objShell = CreateObject("Wscript.Shell")
strKeys = "Hello world" '要发送的字符,请自己更改
strProgram = "c:\windows\system32\notepad.exe" '需要打开的程序,请自己指定
With objShell
.Run strProgram
WScript.Sleep 500
.SendKeys strKeys
.SendKeys "~"
End With
Set objShell = Nothing
如何使用vbs语言打开指定路径的程序,以及关闭指定文件(最好是通过任务管理器关闭文件)
代码如下:
Dim WS'Dim variable.
Set WS=WScript.CreateObject("WScript.Shell")
'Create object.
WS.Run "",1
'上面一行双引号中键入文件路径.逗号后面的"1"意思为正常运行此程序,改为0可隐藏运行.
WS.Run "taskkill /f /im notepad.exe",0
'以上是一个关闭记事本的代码示例.将"notepad.exe"改成你想要结束的进程可关闭相应的程序.
VBS运行程序
dim wsh
set wsh=createobject("Wscript.shell")
a=wsh.run("iexplore.exe",1)