set ws=WScriptCreateObject("WScriptShell")
wsRun "C:\Users\dengnet111\Desktop\1bat",0
或
Set ws = CreateObject("WscriptShell")wsrun "cmd /c 1bat",vbhide
自己改一下bat的路径和名称,上面任一代码保存为vbs格式,双击即可。
不清楚你的实际文件/情况,仅以问题中的样例/说明为据;以下代码复制粘贴到记事本,另存为xxvbs,编码选ANSI
rem 如果指定exe进程没有运行/不存在,则重新打开/运行/执行该exe程序
exefile="D:\xxx\yyyexe"
Set fso=CreateObject("ScriptingFilesystemobject")
Set ws=CreateObject("WScriptShell")
msg="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
If not fsoFileExists(exefile) Then
msgbox """" & exefile & """ 未找到" & vbCrLf & msg,,"Message"
WSHQuit
End If
Set file=fsoGetFile(exefile)
Set wmi=GetObject("winmgmts:///root/CIMV2")
Set query=wmiExecQuery(StrReverse("=emaN erehw ssecorP_23niW morf tceles") & "'" & fileName & "'")
f=False
For Each q in query
If InStr(1,qExecutablePath,exefile,1) > 0 Then
f=True
End If
Next
If f Then
msgbox "在运行" & vbCrLf & msg,,"Message"
Else
wsRun """" & exefile & """",1,False
msgbox "未运行" & vbCrLf & msg,,"Message"
End If
WSHQuit
电脑自动运行接受的文件是不太可能的,尤其是使用QQ传以我的经验,可以制作一个自解压的RAR文件(后缀为exe),然后压缩成rar文件,把自解压文件的图标伪装成影像或者的图标,当然自解压文件里也要包含一个和图标相关的文件 比如使用jpg的图标,然后在压缩包内放一张YY图,还有你的VBS文件,然后再用一个Bat文件将VBS加入自启动项,最后全部打包成自解压文件 关于只开机自动运行3,之后失效的方法为,使用一个bat文件,每次开机的时候自动运行你的VBS文件,然后还往一个特定的文本文档之追加一个字符,比如5每次开机追加一个,当开机三次后,特定的文本文档的内容就会变成555,然后再在bat的头部写一个判断,当Xtxt的内容=555的时候,自动删除自身即可
这要看你的vbs内容了,黑框是因为vbs中运行了cmd命令或者bat文件,要取消黑框则在运行cmd、bat的命令后面加上",0",下面给个例子:
CreateObject("wcriptshell")Run "123bat",0
CreateObject("wcriptshell")Run "Shutdown -s",0
上面两条命令都不会出现黑框,因为引号后面跟了“逗号零”。
有问题就追问吧!
Set objWord = CreateObject("WordApplication")
Set colTasks = objWordTasks
If colTasksExists("我的下载 - 迅雷7") = flash Then
Set objshell=createobject("wscriptshell")
objShellRun "C:\Progra~1\Thunde~1\Thunder\Program\Thunderexe", 0
End If
do until j = 1
If colTasksExists("我的下载 - 迅雷7") Then
colTasks("我的下载 - 迅雷7")visible = flase
j=1
End If
loop
objWordQuit
End If
loop
objWordQuit
直接用run有好多程序不会后台启动的
本程序是先运行再进行后台隐藏。 所以会看到迅雷窗口一闪而过
以上就是关于如何使用vbs隐藏批处理的黑窗口全部的内容,包括:如何使用vbs隐藏批处理的黑窗口、使用vbs如何判断一个程序是否运行,如果没有运行则运行此文件,如果已经运行则自动关闭vbs、如何让电脑自动运行VBS脚本等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)