查看完整版本: VB编写网吧实用工具(原创)

load_me 2008-3-13 13:52

VB编写网吧实用工具(原创)

备注:注册表加密,可以修改程序密码,一些实用功能代码实列。[attach]5[/attach]
[attach]6[/attach]

Stone 2008-3-13 13:54

看看來~~~

Stone 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爱好者~~

Beverly 2008-3-13 23:54

楼主太强悍了:handshake
以后请多指教呀:loveliness:

momormb 2008-3-28 16:00

__a3  很好,很强大!

sunnycomcn 2008-3-31 20:15

__a1 __a1

haoyingd14 2008-4-2 08:28

很好 顶了。。版版的代码能发下不?

rx601 2008-4-2 11:12

厉害一看就中

leaf_like 2008-4-3 08:22

强!

一路走过 2008-4-3 23:57

厉害厉害!!!!!

zhenmin 2008-4-4 10:24

厉害厉害!!!!!__a1 顶中

张金宝1986 2008-6-10 12:53

回复 1# 的帖子

既然是好东西就没有不鼓掌的理由了

雪夏 2008-6-20 23:29

偶看不懂呀。刚入门。

替身 2008-6-20 23:34

好东西~

xebjz 2008-6-26 10:50

楼主可以把代码打包吗,我是自己一个人学的,只能靠代码学习,代码很重要的。

hackteddy 2008-7-9 23:14

感觉看上去就不错

看样子很实用,学学

ytlyz2004 2008-7-13 18:10

很强大!

zhumeng99 2008-7-26 10:35

看看來~~~

zhumeng99 2008-7-26 10:36

下不了啊

zhumeng99 2008-7-26 10:37

很好 顶了。。版版的代码能发下不?
页: [1] 2
查看完整版本: VB编写网吧实用工具(原创)