主頁 > 知識庫 > vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼

vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼

熱門標(biāo)簽:企業(yè)400電話辦理價錢低 龍巖400電話申請 機器人打電銷適用于美業(yè)嗎 上海辦理400電話選號 天津智能外呼系統(tǒng)排名 智云億呼電話機器人 外呼系統(tǒng)群 外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標(biāo)注app
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")
Count = 0
Do Until Count -1
    chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size
    If chksize = 0 Then
        WScript.Sleep 120000
        'ws.run "shutdown -p", 0 '這句還是不太好使
        ws.run "tsshutdn 60 /delay:0 /powerdown",0 '這個是在一個批處理關(guān)機程序里看到的,非常強,試了很多次,各種情況下都能關(guān)機(2003系統(tǒng),其它系統(tǒng)未測)
    End If
    WScript.Sleep 120000
Loop

將以上代碼保存為文本文件,將"C:\Program Files\eMule\Temp"改成你自己的emule臨時文件目錄,并將后綴改成vbs運行即可。
此腳本的作用是每2分鐘檢測一次temp文件夾,若emule下載完成,則temp為空,腳本等待2分鐘后強行關(guān)閉本地計算機,沒有超時或警告。

不過本人非常配服作者的見解,作者太有才了,能想出這種辦法來。

非常感謝對我的評價,作者的生氣是可以理解的,我也不多做解釋了,因為我不在您的網(wǎng)站上看到這內(nèi)容,且,我看了您的代碼,是可以正常工作的

現(xiàn)在說下我的觀點:
1。我在網(wǎng)上看到的內(nèi)容是提示是在do里邊的,所以這個方法是不行的。
2。shutdown 的參數(shù),我是不怎么了解,我用的系統(tǒng)是2003+sp2這個上的shutdown  是有-p屬性的,不過看了您的文章知道了,還有個-f屬性,我這個版本也有,所以您的代碼通用性比較強。
3。至于 ,腳本等待2秒后強行關(guān)閉本地計算機,沒有超時或警告。這個是本人粗心所致(應(yīng)該是2分鐘120000=120*1000),此文會改正。

作者對他寫的文章如此關(guān)注,實在令人敬佩,
另:您的網(wǎng)站沒法進(jìn)行留言,我試了很多都不行,您還是處理一下吧,或網(wǎng)站上加上一個聯(lián)系方式,這個以便和您聯(lián)系。

貼上作者原代碼:
通用信很強的

dir=”E:\Temp”
Set fso=CreateObject(”Scripting.FileSystemObject”)
cmd=”shutdown -s -f -t 60″
Set ws=WScript.CreateObject(”WScript.Shell”)
Wscript.Echo “emule自動關(guān)機腳本已運行……”
count=0
do until count-1
chksize = fso.GetFolder(dir).Size
If chksize=0 Then
ws.run cmd,0
End If
WScript.Sleep 120000
loop因為好多人都不設(shè)置存放文件的路徑所以,給個比較直接的

Dir = "C:\Program Files\eMule\Temp"
Set fso = CreateObject("Scripting.FileSystemObject")
cmd = "shutdown -s -f -t 60"
Set ws = WScript.CreateObject("WScript.Shell")
Wscript.Echo "emule自動關(guān)機腳本已運行……"
Count = 0
Do Until Count -1
    chksize = fso.GetFolder(Dir).Size
    If chksize = 0 Then
        ws.run cmd, 0
    End If
    WScript.Sleep 120000
Loop本人修改的:

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")
Count = 0
Do Until Count -1
    chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size
    If chksize = 0 Then
        WScript.Sleep 120000
         ws.run "tsshutdn 60 /delay:0 /powerdown", 0 '這個是在一個批處理關(guān)機程序里看到的,非常強,試了很多次,各種情況下都能關(guān)機(2003系統(tǒng),其它系統(tǒng)未測)
    End If
    WScript.Sleep 120000
Loop
您可能感興趣的文章:
  • 可以定時自動關(guān)機的vbs腳本
  • 自己寫的一個定時關(guān)機或重啟的vbs腳本
  • vbs實現(xiàn)的定時關(guān)機、重啟的腳本和程序
  • VBS 斷網(wǎng)后自動關(guān)機30秒后
  • Crack8 VBS整人腳本 你不說你愛我 就關(guān)機
  • VBS中獲取系統(tǒng)本次及上次開關(guān)機時間的代碼(WinXP/win2003/Win7兼容版)
  • vb下的惡搞關(guān)機程序
  • VB關(guān)機惡搞小程序

標(biāo)簽:黃山 錫林郭勒盟 鄂爾多斯 承德 阜新 麗水 齊齊哈爾 青島

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼》,本文關(guān)鍵詞  vbs,實現(xiàn),的,eMule,電驢,自動,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章