自己编的好东西哦，累死偶了
虽然没什么用，就是让别人上不了，自己的QQ（不是映像劫持）

如果觉的还行就顶一个
（可以加精吗？）


我是菜鸟哦
BUG不知道还有没.....
自己验证好多了
本来早可以来的（当时BUG太多了）
还有个BUG
窗体4已经修正
菜鸟工作室，呵呵呵

[此贴子已经被作者于2007-10-5 23:48:12编辑过]

不会用……

就是把路径放进去，把快捷方式删除了。。。。别人不容易进入就是了。。。。。。
（这个确实有点菜。。。。。。）

汗 这是什么……发个src吧

多设置个所谓的。。。。。。密码而已

我尊重人类一切劳动成果.

同6楼

。。。。。。太多了4个窗体。我再写个文本上来吧

谢谢支持
窗体1
public Lines As String
Public lines1 As String

Private Sub Command1_Click()
Open "C:\mm.txt" For Append As #1
Shell "cmd /c attrib +h C:\mm.txt", vbHide
Close #1

Open "C:\path.txt" For Append As #1
Shell "cmd /c attrib +h C:\path.txt", vbHide
Close #1
Shell "cmd /c attrib -h c:\mm.txt", vbHide
Open "c:\mm.txt" For Input As #1

Do Until EOF(1)

Line Input #1, Lines

Loop

Close #1
Shell "cmd /c attrib -h c:\path.txt", vbHide
Open "c:\path.txt" For Input As #1

Do Until EOF(1)

Line Input #1, lines1

Loop

Close #1

If Lines = "" Then
MsgBox "您的密码为空"
End If

If lines1 = "" Then
MsgBox "您的路径为空"
End If

QQ登录.Hide
登录界面.Show
End Sub

Private Sub Timer1_Timer()
Text1.Text = " " & Time
end
End Sub

[此贴子已经被作者于2007-10-6 12:13:58编辑过]

窗体2
谢谢支持
(贴错了。。。。。。原代码被黑了）
blic Lines As String
Public lines1 As String

Private Sub Command1_Click()
Open "C:\mm.txt" For Append As #1
Shell "cmd /c attrib +h C:\mm.txt", vbHide
Close #1

Open "C:\path.txt" For Append As #1
Shell "cmd /c attrib +h C:\path.txt", vbHide
Close #1
Shell "cmd /c attrib -h c:\mm.txt", vbHide
Open "c:\mm.txt" For Input As #1

Do Until EOF(1)

Line Input #1, Lines

Loop

Close #1
Shell "cmd /c attrib -h c:\path.txt", vbHide
Open "c:\path.txt" For Input As #1

Do Until EOF(1)

Line Input #1, lines1

Loop

Close #1

If Lines = "" Then
MsgBox "您的密码为空"
End If

If lines1 = "" Then
MsgBox "您的路径为空"
End If

QQ登录.Hide
登录界面.Show
End Sub

Private Sub Timer1_Timer()
Text1.Text = " " & Time
End Sub

[此贴子已经被作者于2007-10-6 12:15:52编辑过]