盘符隐藏工具 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 盘符隐藏工具

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2127 人关注过本帖

标题：盘符隐藏工具

只看楼主加入收藏

sd287054

等　级：新手上路
帖　子：34
专家分：0
注　册：2007-7-27

楼主

问题点数：0 回复次数：9

盘符隐藏工具

刚学VB第一个作品,希望大家别笑哦~!

yqzLR0GB.rar (71.7 KB) 盘符隐藏工具

搜索更多相关主题的帖子: 工具　隐藏　

2007-09-10 04:42

那边有朵蘑菇云

来　自：很……那啥的一个地方
等　级：新手上路
威　望：1
帖　子：390
专家分：0
注　册：2007-9-3

第 2 楼

得分:0

不错啊哈哈哈哈哈哈
对公司管理很有用哈哈哈哈
帅哥开源吧

[此贴子已经被作者于2007-9-10 8:21:21编辑过]

身不残志更不坚

2007-09-10 08:18

sd287054

等　级：新手上路
帖　子：34
专家分：0
注　册：2007-7-27

第 3 楼

得分:0

回复：（sd287054）盘符隐藏工具

其实缘码很简单的~!

v5mahjYF.rar (80.06 KB) 盘符隐藏工具

2007-09-11 02:47

sd287054

等　级：新手上路
帖　子：34
专家分：0
注　册：2007-7-27

第 4 楼

得分:0

就因为太简单了所以都不好意思开出来了，怕被笑的~!

2007-09-11 02:47

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 5 楼

得分:0

[CODE]Private Sub Command13_Click()
Dim a
Shell "REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_BINARY /d 00000000 /f"
a = MsgBox("显示成功，请注销即可显示效果。" & Chr(13) & Chr(10) & Chr(13) & "是否要注销？", vbOKCancel, "是否注销")
If a = vbOK Then
Shell shutdown - l
Else
End If
End Sub[/CODE]

我刚开始在Winrar里面看文本的，加粗这行半天没明白是要干啥，用VB开了之后也搜不到这个变量、对象……

提示：字符串用引号括起来

2007-09-11 13:20

缘吇弹

来　自：地球
等　级：版主
威　望：43
帖　子：3038
专家分：27
注　册：2007-7-2

第 6 楼

得分:0

以下是引用multiple1902在2007-9-11 13:20:53的发言：
[CODE]Private Sub Command13_Click()
Dim a
Shell "REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_BINARY /d 00000000 /f"
a = MsgBox("显示成功，请注销即可显示效果。" & Chr(13) & Chr(10) & Chr(13) & "是否要注销？", vbOKCancel, "是否注销")
If a = vbOK Then
Shell shutdown - l
Else
End If
End Sub[/CODE]

我刚开始在Winrar里面看文本的，加粗这行半天没明白是要干啥，用VB开了之后也搜不到这个变量、对象……

提示：字符串用引号括起来

LZ想用那句代码表示注销当前用户的意思.
LZ我没说错吧

Repeat Life=Study;Until (death);

2007-09-11 19:19

sd287054

等　级：新手上路
帖　子：34
专家分：0
注　册：2007-7-27

第 7 楼

得分:0

恩~！是哦~!

2007-09-13 12:25

快速回复：盘符隐藏工具