VBS 大全.docx
- 文档编号:11547077
- 上传时间:2023-03-19
- 格式:DOCX
- 页数:12
- 大小:19.83KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBS 大全