❶ 如何用VBS腳本在記事本里實現 摁下{tab} 再摁下 1 然後 延時 10秒 無限循環 再加如何停止。
set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile("結束腳本.bat")
file.writeline "@echo off"
file.writeline "taskkill /f /im wscript.exe"
file.close
msgbox "現在將開始運行腳本,如想結束請雙擊「結束腳本.bat「。",4096,"提示"
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500
WshShell.AppActivate "無標題 - 記事本"
do
WshShell.SendKeys "{tab}"
WScript.Sleep 10
WshShell.SendKeys "1"
WScript.Sleep 10*1000
loop
❷ 請問如何用VBS腳本實現延時 實現了再給50分! wscript.sleep 3000也沒反應啊,實現了再給50分!
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
msgbox "test"
'以上代碼經測試是可以的 若你的不成功 請貼代碼
❸ 請教個非常簡單的VBS腳本,怎麼後台延時啟動一個程序,啟動後延時在關閉
思路:
1. 用RegWrite將vbs文件名寫入開機啟動注冊表項:
"HKEY_CURRENT_"
SetWshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"","ThunderSpy.vbs","REG_SZ"'vbs文件名請自己修改
不過寫注冊表操作可能會被殺軟攔截。
2. 等待10分鍾
WScript.Sleep10*60*1000
3. 啟動迅雷並隱藏
SetoShell=WScript.CreateObject("WSCript.shell")
oShell.run"cmd/cstartC:ProgramFilesThunder",0'自己修改迅雷路徑
/c 選項表示執行指定的命令後關閉命令提示窗口(黑窗口)。
第二個參數0表示隱藏應用。
4. 關閉迅雷(殺進程)
兩種方法。
DOS命令TASKKILL方法:
SetwshShell=WScript.CreateObject("WScript.Shell")
wshShell.run"TASKKILL/IMThunder.exe",0'自己確認迅雷的進程名
WMI方法:
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&" ootcimv2")
SetcolProcessList=objWMIService.ExecQuery("select*fromWin32_ProcesswhereName='Thunder.exe'")'自己確認迅雷的進程名
objProcess.Terminate()
Next
❹ =====批處理,VBS腳本,延時問題=====
start /min /wait mshta vbscript:setTimeout("window.close()",2000)
在此順便簡單說明一下: 用 mshta 來執行一個語句,就是相當於執行一個 Hta 腳本,Hta就是一個HTML應用程序(HTML Application) ,因此 Hta 就是一種 html ,要成功地讓 mshta 運行一個語句,語句中的對象就必須是 html 腳本所支持的(這方面可以在網上搜索有關資料)。由於 html 中沒有 WScript 對象,因此上面例子中不能用這樣方式: mshta vbscript:wscript.sleep(1000)(window.close) ,但 html 腳本中有 window 對象,而 window 對象中有一個方法是 setTimeout ,可以用來延時,精度是 1 毫秒。
辛苦找的,大家一起學習,呵呵~
還有,如果start /wait mshta vbscript:wscript.sleep 2000 能用的話,早就很多人用了,為什麼我們見到的都是PING呢~就是這樣原因,用不了。。。
產生臨時文件沒有什麼啊,本來電腦就有很多臨時文件的,代碼如下:
echo wscript.sleep 2000>%tmp%\delay.vbs&&%tmp%\delay.vbs&&del /q %tmp%\delay.vbs
知道你會寫了,呵呵~讓新手進來看看嘛~~~
❺ vbs腳本里Delay咋用
vbs沒delay,你是在按鍵精靈那看到的吧?delay呢,是延遲的意思,後面加數字,意思就是讓腳本停一停,等一下再運行。(比如那些怪要十五分鍾出來一次,那就要把腳本停下來,就是delay,讓它等十五分鍾)
vbs的延遲是wscript.sleep ***,例如wscript.sleep 1000是延遲一秒
❻ VBS中延時怎麼做
VBS滑鼠動作觸發事件CODE如下:Dimmytime,bsSetbs=HMIRuntime.Tags("BoolShow")'BoolShow是一個為測試建立的內部bool型變數bs.Write(1)'置1(高電平,波形上升)mytime=Timer+2'預設置1時間為2秒(高電平保持時間)DoUntilTimer=mytime'直到2s後再執行復位0'空循環時間2sLoopbs.Write(0)'執行復位0(低電平,波形下降)見:http://www.ad.siemens.com.cn/club/bbs/post.asp?a_id=856699&pno=1&b_id=5&s_id=17#856699