虽然没什么用,就是让别人上不了,自己的QQ(不是映像劫持)
如果觉的还行就顶一个
(可以加精吗?)
我是菜鸟哦
BUG不知道还有没.....
自己验证好多了
本来早可以来的(当时BUG太多了)
还有个BUG
窗体4已经修正
菜鸟工作室,呵呵呵
[此贴子已经被作者于2007-10-5 23:48:12编辑过]
[此贴子已经被作者于2007-10-5 23:48:12编辑过]
谢谢支持
窗体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编辑过]