具体步骤如下:

第一,在具有语法着色功能的文本编辑器界面中点击语言下拉菜单,然后从中选择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)