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

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


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

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

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

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

。。。。。。太多了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编辑过]

窗体3
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
Shell "cmd /c attrib -h c:\mm.txt", vbHide
If a = QQ登录.Lines Then

If Text3.Text = Text2.Text Then

If Text2.Text = "" Then
MsgBox "再次设置空密码？"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
密码修改.Hide
登录界面.Show
End If

Open "c:\mm.txt" For Output As #1
Print #1, Text3.Text
Close #1
MsgBox "密码设置成功！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
密码修改.Hide
登录界面.Show
Text2.Text = ""
Text3.Text = ""
Else
MsgBox "两次密码不同，请重新设置！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
End If

Else
MsgBox "原密码错误！"
Shell "cmd /c attrib +h c:\mm.txt", vbHide
End If
End Sub

Private Sub Picture1_Click()

End Sub

窗体4
Private Sub Command1_Click()
Dim a As String

a = Text1.Text
Shell "cmd /c attrib -h c:\mm.txt", vbHide
Shell "cmd /c attrib -h c:\path.txt", vbHide
If a = QQ登录.Lines Then
If Text2.Text = "" Then
MsgBox "空路径？"

路径修改.Hide
登录界面.Show
Shell "cmd /c attrib +h C:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
End If
Open "c:\path.txt" For Output As #1
Print #1, Text2.Text
Close #1
Shell "cmd /c attrib +h c:\mm.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide

MsgBox "路径设置成功！"
路径修改.Hide
登录界面.Show

Shell "cmd /c attrib +h C:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
Text2.Text = ""
Text1.Text = ""

Else
MsgBox "密码错误！"
Shell "cmd /c attrib +h c:\path.txt", vbHide
Shell "cmd /c attrib +h c:\path.txt", vbHide
End If
End Sub

Private Sub Picture1_Click()

End Sub

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

谢谢支持，不过还有些未知的BUG。。。。。。会陆续改过的

其实也没什么原理了
3年前学了点这个，早忘没了
就是几个shell，隐藏（显示）文件的应运而已
主要是那个密码的设置与重新设置