|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『楼 主』:
桌面显示Windows版本信息→VBS
桌面显示windows版本信息 http://zhenlove.com.cn/cndos/fileup/files/winver.GIF
| Quote: | ''show winver by baomaboy
''show_winver.vbs
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
intAnswer = MsgBox("【是】在桌面显示Windows版本信息。"&Chr(10)&Chr(10)&"【否】在桌面隐藏Windows版本信息。", vbQuestion + vbYesNoCancel, "QQ:25926183")
If intAnswer = vbYes Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 1, "REG_DWORD"
end if
If intAnswer = vbNo Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 0, "REG_DWORD"
end if
If intAnswer = vbCancel Then
WScript.Quit(0)
end if
yn = MsgBox("【是】现在注销察看效果。"&Chr(10)&Chr(10)&"【否】不注销以后再看吧。", vbQuestion + vbYesNoCancel, "QQ:25926183")
If yn = vbYes Then
WshSHell.Run ("ShutDown -L"), vbHide
end if
Set WshSHell = Nothing
WScript.Quit(0) |
|
[ Last edited by baomaboy on 2008-3-25 at 01:00 AM ]
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
 2007-4-15 02:13 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
2 楼』:
汗，注销也要等用户确认了再啊~也不提示。。。
|
|
|
2007-4-15 02:55 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
3 楼』:
我想问一下,WScript.Quit(0) 和WScript.Quit 有什么区别!!
那个0的返回值应该怎么用呢!!
|
|
|
2007-4-15 04:04 |
|
|
langxingtianxia
新手上路
积分 6
发帖 3
注册 2007-4-15
状态 离线
|
|
|
2007-4-15 04:24 |
|
|
windows2000
新手上路
积分 12
发帖 5
注册 2007-4-12
状态 离线
|
『第
5 楼』:
我也不太明白，等学完批处理再学vbs吧
|
|
|
2007-4-15 05:44 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
http://msdn2.microsoft.com/en-us/library/fw0fx1aw.aspx
Quit Method
Description
The Quit method is used to terminate the execution of the current script with a specified error code.
object.Quit [ErrorCode]
The optional ErrorCode parameter is used to specify a process exit code. If omitted, 0 (zero) is returned as the process exit code.
Example
'terminate the current scriptWScript.Quit'terminate the current script with exit code 2WScript.Quit 2
|
|
|
2007-4-15 06:07 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
7 楼』:
实在强悍，佩服， 还得学学注册表呢
|
|
|
2007-4-15 06:22 |
|
|
mygoldnet
初级用户
积分 90
发帖 32
注册 2007-1-14
状态 离线
|
『第
8 楼』:
很明显，你的系统没有打系统补丁，我的是070227-2254，呵呵！
|
|
|
2007-4-15 07:41 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
9 楼』:
| Quote: | Originally posted by vkill at 2007-4-15 02:55:
汗，注销也要等用户确认了再啊~也不提示。。。 |
|
vkill兄真 好意见 我自己都做了自己讨厌的事
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-4-16 06:17 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
10 楼』:
| Quote: | Originally posted by mygoldnet at 2007-4-15 07:41:
很明显，你的系统没有打系统补丁，我的是070227-2254，呵呵！
|
|
我用的是电脑公司ghost的系统 而且关了自动更新 ,不习惯开开了也没用,因为经常还原系统,为了保存更新而总G也不值得,因为我在用的这个系统自己本身升级就很快.我刚刚用习惯了6.0就出7.0了,我还没装7.0,7.3就出来了.
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-4-16 06:24 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
11 楼』:
Wscript.quit(n) 以n的错误码结束vbs脚本。
|
|
|
2007-4-16 10:28 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
12 楼』:
注销前提示，我帮你该了，^^
''show winver
''show_winver.vbs
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
intAnswer = MsgBox("【是】在桌面显示Windows版本信息。"&Chr(10)&Chr(10)&"【否】在桌面隐藏Windows版本信息。", vbQuestion + vbYesNoCancel, "QQ:25926183")
If intAnswer = vbYes Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 1, "REG_DWORD"
end if
If intAnswer = vbNo Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 0, "REG_DWORD"
end if
If intAnswer = vbCancel Then
WScript.Quit(0)
end if
a=msgbox ("注销后才能生效，是否现在开始注销？",vbyesno+vbquestion,"sjay today is "&date())
if a=vbyes then
WshSHell.Run ("ShutDown -L"), vbHide
Set WshSHell = Nothing
WScript.Quit(0)
end if
[ Last edited by zhoushijay on 2007-4-16 at 07:32 PM ]
|
|
|
2007-4-17 08:29 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
13 楼』:
| Quote: | Originally posted by zhoushijay at 2007-4-17 08:29:
''show winver
''show_winver.vbs
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
intAnswer = MsgBox("【是】在桌面显示Windows版本信息。"&Chr ... |
|
谢谢 已经改过了
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-4-17 09:50 |
|
