迈思工作室 - 电脑技术专业论坛!

 找回密码
 马上加入

扫一扫,访问微社区

查看: 18940|回复: 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号 )

GMT+8, 2018-2-25 15:16

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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