打印

VB编写网吧实用工具（原创）

本主题由王懿于 2008-5-23 22:43 加入精华

load_me

Moderator

Rank: 12

UID: 999
帖子: 26
精华: 2
积分: 658
所在学校
所属专业
阅读权限: 100
在线时间: 47 小时
注册时间: 2008-3-9

1^# 大中小发表于 2008-3-13 13:52 只看该作者

VB编写网吧实用工具（原创）

备注：注册表加密，可以修改程序密码，一些实用功能代码实列。

附件: 您所在的用户组无法下载或查看附件

本帖最近评分记录

Teenits 学分 +30 原创作品，推荐! 2008-3-13 18:23

TOP

Stone

水族杰纶

Moderator

Rank: 12

兰色忧郁

UID: 666
帖子: 512
精华: 1
积分: 5457
所在学校: 西安翻譯學院
所属专业: 計算機信息管理
阅读权限: 100
性别: 男
在线时间: 208 小时
注册时间: 2008-3-11

版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

2^# 大中小发表于 2008-3-13 13:54 只看该作者

看看來~~~

TOP

Stone

水族杰纶

Moderator

Rank: 12

兰色忧郁

UID: 666
帖子: 512
精华: 1
积分: 5457
所在学校: 西安翻譯學院
所属专业: 計算機信息管理
阅读权限: 100
性别: 男
在线时间: 208 小时
注册时间: 2008-3-11

版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

3^# 大中小发表于 2008-3-13 14:58 只看该作者

刚才看了下
看了一段代码不太明白（就是远程关闭电脑的）
If Text2.Text = "" Then
MsgBox "请输入你要执行的计算机名！", , "提示"
Else
If Check1.Value = 1 Then a$ = "reboot_pc"
If Check2.Value = 1 Then a$ = "shutdown_pc"
If Check3.Value = 1 Then b$ = "now"
If Check4.Value = 1 Then b$ = Text1.Text
Path$ = Trim(Text2.Text)
file$ = "\\" + Path$ + "\c\reboot.yn"
MsgBox file$
Open file$ For Output As #1
Write #1, a$, b$
Close #1
End If
其中的reboot.yn是什么文件，C盘下面好象没有，所以执行的时候总是错误~~
我也是VB爱好者~~