當前位置:首頁 » 網頁前端 » vbs延時運行腳本
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

vbs延時運行腳本

發布時間: 2022-12-27 00:00:07

❶ 如何用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