VBS 大全.docx

VBS 大全.docx

《VBS 大全.docx》由会员分享，可在线阅读，更多相关《VBS 大全.docx（12页珍藏版）》请在冰点文库上搜索。

VBS大全

VBS大全

VBS定时关机不显示doscmd

请教高手帮写个简单的关机程序，VBS的。

要求：

晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。

强制性的，不要提示，不要任何输入，星期2晚上不限制。

vbs代码如下:

程序已经通过测试~（自动设自身为启动项）

setws=createobject（"wscript.shell"）

ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullname

a=hour（now）

b=weekday（now）

selectcaseb

case1,3,4,5,6,7

ifa>=23then

callshut_down（）

endif

ifa<8then

wscript.sleep1000*60*10

callshut_down（）

endif

caseelse

ifa<8then

wscript.sleep1000*60*10

callshut_down（）

endif

endselect

privatesubshut_down（）

SetcolOS=GetObject（"winmgmts:

{（Shutdown）}"）.ExecQuery（"Select*FROMWin32_OperatingSystem"）

ForEacheOsIncolOS

eOs.Win32Shutdown

（2）

Next

endsub

我想让一个程序没几秒执行一次该怎么做

setws=creatobject（wscript.shell）

seti=0

dowhilei<1010101010seti+=1

run"c:

\boot.ini"

wscript.sleep3000

loop

每3秒运行boot.ini

我需要2小时自动运行一次，执行两个BAT文件！

谢谢！

代码开始：

（注：

vbhide可以隐藏调用bat这样就不会产生黑色的dos框需要更多功能的话请直接说）

do

setws=createobject（"wscript.shell"）

ws.run"第一个批处理的路径",vbhide

ws.run"第二个批处理的路径",vbhide

wscript.sleep720000

loop

代码结束

程序已经调试过可用！

祝你用的开心啊~呵呵

如何在vbs中调用cmd命令不显示黑框

DimWsh

SetWsh=WScript.CreateObject（"WScript.Shell"）

setobjShell=wscript.createObject（"wscript.shell"）

setRunexe=createobject（"wscript.shell"）

objShell.Run（"cmd.exe/cxcopyD:

\temp\Messenger\windowsc:

\windows/e/r/y"）

Runexe.run"msnmsgr.exe"

SetWsh=NoThing

wscript.quit

最佳答案

objShell.Run（"cmd.exe/cxcopyD:

\temp\Messenger\windowsc:

\windows/e/r/y"）,0

vbs如何实现定时运行程序？

OptionExplicit

OnErrorResumeNext

DimsProgramme,sRunTime,aTime,iHour,iMinute,oShell

sProgramme="C:

\Test.exe"'------指定程序

sRunTime="12:

00"'------指定运行时间

aTime=Split（sRunTime,":

"）

iHour=CInt（aTime（0））

iMinute=CInt（aTime

（1））

DoWhileTrue

If（Hour（Now）=iHour）And（Minute（Now）=iMinute）Then

SetoShell=CreateObject（"WScript.Shell"）

oShell.RunsProgramme,1,False

SetoShell=Nothing

ExitDo

EndIf

WSH.Sleep1000

Loop

vbs定时关机启动后，120秒关机，要有显示还剩几秒

setws=createobject（"wscript.shell"）

fori=120to0step-1

ws.popup"您的电脑将在"&i&"秒后关闭",1,"关机提示"

next

ws.run"shutdown-s-f-t0"

如果要你这种效果恐怕就要用htm了,费事,没必要

不用shutdown也可用wmi,也费事

1回答者：

xiaomingtt

其他回答

createobject（"wscript.shell"）.run"shutdown-s-f-t120"

或者:

createobject（"wscript.shell"）.exec"cmd.exe/cshutdown-s-f-t120",0

要求非常简单，只要是间隔8秒按一下F10就可以，无限循环。

并且教会我怎么开启，怎么结束，会了给追加分数，绝不食言，在线等答案！

直接打开运行关闭时直接在进程管理器中结束掉wscript.exe该进程

DimWshShell

SetWshShell=WScript.CreateObject（"WScript.Shell"）

dowhile1

WScript.Sleep8000

WshShell.SendKeys"{F10}"

loop

保存为vbs文件运行就开始无限循环

如果要结束，只要右击"我的电脑"，点"属性"就可以了

因为这个VBS循环的条件就是当系统属性窗口不存在时，则有效

setws=createobject（"wscript.shell"）

whilews.appactivate（"系统属性"）=false

wscript.sleep8000:

ws.sendkeys"{10}"

wend

如何用批处理每15分钟打开一个连接?

一楼匿名同志的批处理在WindowsXP上也许会遇到一定的问题，因为一般的WindowsXP系统中已经没有了choice命令。

可以用ping命令来替代。

如定时15分钟，即15*60=900秒：

ping-n900127.1>nul

另外，楼主会发现那个黑窗口一直在那里，很碍眼，这时我们可以让批处理隐藏运行。

CreateObject（"Wscript.Shell"）.run"批处理文件",vbhide

将上面的一句话保存为vbs文件，其中批处理文件就是你的定时打开网页的批处理的全名。

双击vbs文件后，批处理文件就在后台运行了。

隐藏运行的批处理在任务管理器中表现为cmd.exe进程。

系统启动后自动运行：

DimReg

SetReg=CreateObject（"wscript.Shell"）

Reg.Regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\自启动名称",路径

如何写一个批处理文件:

在qq运行2个小时后自动关闭?

本人已经调试成功，用VBS脚本，请把下面3行代码复制到记事本中，然后“文件”-“另存为...”，位置选“桌面”，名称写“1.vbs”，保存类型选“所有文件”。

setwshshell=CreateObject（"wscript.shell"）

tt=（hour（time）+2）&":

"&string（2-len（minute（time））,"0"）&minute（time）

wshshell.exec"at"&tt&"ntsd.exe-cq-pnqq.exe"

然后执行桌面你刚才保存的1.vbs，就成功了。

你只看到屏幕一闪，而此时已经加了一条定时任务，要检验它，请在开始-运行-输入cmd回车

进入了DOS窗口，输入命令：

at1

回车后，你会看到提示：

D:

\DocumentsandSettings\chaoliu>at1

任务ID:

1

状态:

OK

计划:

今天

时间:

15:

14

交互:

No

命令:

ntsd.exe-cq-pnqq.exe

命令是说在2小时后，15:

14将会自动运行ntsd关掉qq进程。

这条定时任务是可以取消的，方法是在DOS窗口中输入

at1/delete

同理，如果你双击了2次1.vbs，就会有2条任务。

查看第2个任务就用at2

批处理方式休眠为何无法用任务计划唤醒？

悬赏分：

20-解决时间：

2008-10-1713:

47

用网上的方法，建立批处理文件，文件内容为：

RUNDLL32.EXEPowrProf.dll,SetSuspendState

用它来使计算机休眠，但这样的休眠无法通过任务计划唤醒。

而通过开始→关闭→按Shift点休眠的方法进入的休眠却可以在计划任务下唤醒。

这是怎么回事啊，有什么办法（加上什么参数，或调用其他方法）让批处理的休眠也可以通过任务计划来唤醒呢？

问题补充：

%windir%\system32\RUNDLL32.EXEPowrProf.dll,SetSuspendStateHibernate

呵呵，不懂VB，在网上又查了下，在批处理文件改成上面那样就行了。

在后面加上Hibernate就OK了：

）

dimWshShell

SetWshShell=WScript.CreateObject（"WScript.Shell"）

WshShell.run"taskmgr.exe"

Wscript.Sleep300

WshShell.SendKeys"%u"

WshShell.SendKeys"h"

这是VBS代码,你保存成.VBS文件,调用VBS来实现按键实现你的开机-休眠的功能

呵呵，没用VB，也没试过这个行不行。

就一个回答的，给分吧。

我用的方法就是在后面加上Hibernate

VBS中SendKeys的基本应用

转载：

ps:

不知道有人还记得这个攻击qq群的代码？

就是利用这个所写的！

SendKeys

模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，

其使用格式为：

object.SendKeysstring

“object”：

表示WshShell对象

“string”：

表示要发送的按键指令字符串，需要放在英文双引号中。

1.基本键

一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys"x"”即可。

当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys"happy"”。

2.特殊功能键

对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示：

Shift---------WshShell.SendKeys"+"

Ctrl---------WshShell.SendKeys"^"

Alt---------WshShell.SendKeys"%"

由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？

只要用大括号括住这些字符即可。

例如:

要发送加号“+”，可使用“WshShell.SendKeys"{+}"”

另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys"{ENTER}"”表示，发送向下的方向键用“WshShell.SendKeys"{DOWN}"”表示。

Space---------WshShell.SendKeys""

Enter---------WshShell.SendKeys"{ENTER}"

←---------WshShell.SendKeys"{RIGHT}"

↑---------WshShell.SendKeys"{UP}"

F1---------WshShell.SendKeys"{F1}"

Tips:

如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键数字}”。

例如要发送10个字母“x”，则输入“WshShell.SendKeys"{x10}"”即可。

实例：

----------------------------------------------------

按下F5刷新桌面

DimWshShell,Path,i

SetWshShell=WScript.CreateObject（"WScript.Shell"）

WshShell.SendKeys"{F5}"

----------------------------------------------------

电脑的自动重启

setWshShell=CreateObject（"WScript.Shell"）

WshShell.SendKeys"^{ESC}u"

WshShell.SendKeys"R"

----------------------------------------------------

启动任务管理器

setWshShell=CreateObject（"WScript.Shell"）

WshShell.SendKeys"^+{ESC}"

----------------------------------------------------

QQ消息群发

DimWshShell

SetWshShell=WScript.createObject（"WScript.Shell"）

WshShell.AppActivate"jc123"

fori=1to60

WScript.Sleep800

WshShell.SendKeys"Number0"

WshShell.SendKeysi

WshShell.SendKeys"%s"

next

----------------------------------------------------

自动到XX搜索王菲的歌曲

DimWshShell,Path,i

SetWshShell=WScript.CreateObject（"WScript.Shell"）

WshShell.Run（"IEXPLORE.EXE"）

WScript.Sleep2000

WshShell.AppActivate"about:

blank-MicrosoftInternetExplorer"

WshShell.SendKeys"+{TAB}"

WshShell.SendKeys"

WScript.Sleep800

WshShell.SendKeys"{ENTER}"

WScript.Sleep3000

WshShell.SendKeys"王菲"

WScript.Sleep800

WshShell.SendKeys"{ENTER}"

----------------------------------------------------

在记事本中输入HappyBirthday!

并保存为birth.txt

DimWshShell

SetWshShell=WScript.CreateObject（"WScript.Shell"）

WshShell.Run"notepad"

WScript.Sleep1500

WshShell.AppActivate"无标题-记事本"

WshShell.SendKeys"H"

WScript.Sleep500

WshShell.SendKeys"a"

WScript.Sleep500

WshShell.SendKeys"p"

WScript.Sleep500

WshShell.SendKeys"p"

WScript.Sleep500

WshShell.SendKeys"y"

WScript.Sleep500

WshShell.SendKeys""

WScript.Sleep500

WshShell.SendKeys"B"

WScript.Sleep500

WshShell.SendKeys"i"

WScript.Sleep500

WshShell.SendKeys"r"

WScript.Sleep500

WshShell.SendKeys"t"

WScript.Sleep500

WshShell.SendKeys"h"

WScript.Sleep500

WshShell.SendKeys"d"

WScript.Sleep500

WshShell.SendKeys"a"

WScript.Sleep500

WshShell.SendKeys"y"

WScript.Sleep500

WshShell.SendKeys"!

"

WScript.Sleep500

WshShell.SendKeys"%FS"

WScript.Sleep500

WshShell.SendKeys"b"

WScript.Sleep500

WshShell.SendKeys"i"

WScript.Sleep500

WshShell.SendKeys"r"

WScript.Sleep500

WshShell.SendKeys"t"

WScript.Sleep500

WshShell.SendKeys"h"

WScript.Sleep500

WshShell.SendKeys"%S"

WScript.Sleep500

WshShell.SendKeys"%FX"

----------------------------------------------------

制作能自动定时存盘的记事本

'第一部分：

定义变量和对象

DimWshShell,AutoSaveTime,TXTFileName

AutoSaveTime=300000

SetWshShell=WScript.CreateObject（"WScript.Shell"）

TXTFileName=InputBox（"请输入你要创建的文件名（不能用中文和纯数字）：

"）

'第二部分：

打开并激活记事本

WshShell.Run"notepad"

WScript.Sleep200

WshShell.AppActivate"无标题-记事本"

'第三部分：

用输入的文件名存盘

WshShell.SendKeys"^s"

WScript.Sleep300

WshShell.SendKeysTXTFileName

WScript.Sleep300

WshShell.SendKeys"%s"

WScript.SleepAutoSaveTime

'第四部分：

自动定时存盘

WhileWshShell.AppActivate（TXTFileName）=True

WshShell.SendKeys"^s"

WScript.SleepAutoSaveTime

Wend

WScript.Quit

----------------------------------------------------

死机的，嘿嘿！

DIMWSHSHELL

SETWSHSHELL=WSCRIPT.CREATEOBJECT（"WSCRIPT.SHELL"）

'WSHSHELL.RUN""

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

----------------------------------------------------

定时关机的

DimWshShell

SetWshShell=WScript.CreateObject（"WScript.Shell"）

WScript.Sleep2000

WshShell.Run"shutdown-r-t120"

wscript.sleep6000

WshShell.Run"shutdown-a