vbs如何运行程序

‘壹’ vbs脚本如何启动程序

Setshell=Wscript.createobject("wscript.shell")
a=shell.run("这里写你文件所在的路径，例如C:windows
otepad.exe",0)

‘贰’ 怎么利用vbs来后台运行某个程序

除非它有像QQ呼出聊天窗口一样的全局快捷键

_________________
p = "C:\1.exe"
CreateObject("WScript.Shell").Run """" & p & """", 0

‘叁’ VB如何运行VBS程序

我的方法运行vbs文件是没有问题的,只是不懂bat所以没法回答你的问题,不过你为什么不直接shell bat文件 ?
shell "cmd /c C:\run.bat"

你的bat文件中是不应该加上文件保存的路径?
dir d: > c:\1.txt

vbs依靠windows\system32目录下的wscript.exe才能运行:
shell "wscript.exe C:\run.vbs"

‘肆’ VBE，VBS如何运行某个程序

1. set obj=createobject("wscript.shell")
obj.run"notepad",1'打开notepad.exe--记事本程序2.>msgbox "内容",vbokcancel,"标题" '显示确定、取消按钮 >msgbox "内容",vbyesno,"标题" '显示是、否按钮3.shell("taskkill /f /im qq.exe",vbhide) '关闭qq

‘伍’ .vbs文件怎么运行

有两种运行方法：
1在windows界面下运行，也就是双击
2在命令提示符下运行，方法为：
开始，输入cmd回车，然后会弹出一个黑框，输入cd “你的vbs所在的地方”回车，然后输入脚本的名字回车就运行了

‘陆’ vbs运行程序

n=inputbox("请输入口令")

if n="123" then

Set ws = CreateObject("WScript.Shell")

ws.run "游戏程序exe路径"

end if

‘柒’ vbs如何后台运行程序

Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
If colTasks.Exists("我的下载 - 迅雷7") = flash Then
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0
End If
do until j = 1
If colTasks.Exists("我的下载 - 迅雷7") Then
colTasks("我的下载 - 迅雷7").visible = flase
j=1
End If
loop
objWord.Quit
End If
loop
objWord.Quit

直接用run有好多程序不会后台启动的
本程序是先运行再进行后台隐藏。 所以会看到迅雷窗口一闪而过

‘捌’ 如何利用Vbs 运行外部程序

dim wshshell

set wshshell = createobject("wscript.shell")

wshshell.exec "程序路径"

‘玖’ vbs怎么运行啊，

你是说从cmd中运行这个vbs文件么？发的时候要给成vbs的，如果发给好友的话好友未必会运行啊，
建议你从网上下载一个exe文件转换器，把一个图片.jpg的转换成一个exe的然后再把这个.vbs的转换成.exe的，再用exe合并器把这两个exe文件合并成一个，然后发给好友说这是一个图片………………

当然打开的时候确实是一个图片，关闭这个图片的时候会运行你那个vbs的恶搞程序…………

‘拾’ vbs运行一个程序的代码

加入说你要用那个来进行QQ登陆 我可以给你vbs Dim Program1 Program1= "路径" Set WshShell=createobject("wscript.shell") Set oExec=WshShell.Exec(Program1) WScript.Sleep 3000 WshShell.AppActivate "cncn" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "QQ号码" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "密码" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"