吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 6811|回复: 6
收起左侧

[会员申请] 申请ID:qq395596348

 关闭 [复制链接]
吾爱游客  发表于 2011-7-27 09:33
ID:qq395596348
邮箱:395596348@qq.com作品:http://bbs.duote.com/viewthread.php?tid=347393&extra=page%3D1
QQ申请工具是用au3写的
110718173128dc6b7583cbed49.gif

特长:破解方面不懂,au3做过一些小的工具,但是也不咋厉害,对破解方面还是挺感兴趣的,希望能够加入吾爱破解中学习,谢谢。。。

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

吾爱游客  发表于 2011-8-2 15:47
看来很难申请通过啊。。不过也没关系。。。
Skyfly 发表于 2011-8-2 16:01
吾爱游客  发表于 2011-8-3 10:56
a04512 发表于 2011-8-2 16:01
加油吧 论坛欢迎你

谢谢!还真想学习一下破解方面的东西!
Hmily 发表于 2011-8-25 18:23
首选我下载不了,其次如何证明是你的作品,申请的ID都不同.
吾爱游客  发表于 2011-8-29 11:02
回复 Hmily 的帖子

ID不同并不代表不是我的,不过那个QQ申请现在已经无法使用了,我这边有au3写的源码的,我可以发出来,主要部分内容如下:现在不知道TX哪些方面做了修改,暂时无法申请,但是主要功能流程上我想是没问题的
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=s.ico
#AutoIt3Wrapper_outfile=QQ申请工具.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=QQ申请工具
#AutoIt3Wrapper_Res_Description=QQ申请工具
#AutoIt3Wrapper_Res_LegalCopyright=duote
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****


#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>  
#include <file.au3>
#Include <GuiListView.au3>  
#include <GuiListBox.au3>
#include <TabConstants.au3>  
#Include <Misc.au3>
#include <WinINet.au3>  

#EndRegion ### END Koda GUI section ###  
Opt("TrayAutoPause",0)
opt("TrayMenuMode",1)

;DelCache(1)        
FileInstall("set.jpg",@TempDir&"\set.jpg")  

Local $na,$pa        
Global $g_dataArray1,$g_dataArray2,$dll     
Global $ptcz,$AREACODE,$PCCOOKIE,$PCCOOKIE2,$verifysession
Global $oHTTP = ObjCreate("microsoft.xmlhttp")
Global Const $NETWORK_ALIVE_LAN = 0x1
Global Const $NETWORK_ALIVE_WAN = 0x2

skin()
if FileExists("config.ini") Then
        $na=IniRead("config.ini","config","name","")  
        $pa=IniRead("config.ini","config","pass","")
EndIf
#Region ### START Koda GUI section ### Form=c:\documents and settings\huw\桌面\qq\复件 (3) form1.kxf
$WinMain = GUICreate("QQ申请工具", 663, 485, -1, -1)
$PageControl1 = GUICtrlCreateTab(2, 96, 660, 386)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("申请QQ")
$Group1 = GUICtrlCreateGroup("宽带连接", 396, 121, 257, 129)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("登陆名称:", 412, 177, 64, 18)  
$Label4 = GUICtrlCreateLabel("宽带密码:", 412, 209, 64, 18)
$Input1 = GUICtrlCreateInput("", 492, 177, 81, 22)
$Input2 = GUICtrlCreateInput("", 492, 209, 81, 22,$ES_PASSWORD)
$Button2 = GUICtrlCreateButton("断开重连", 581, 209, 63, 25, 0)
$Label5 = GUICtrlCreateLabel("宽带名称:", 412, 145, 64, 18)
$connet = GUICtrlCreateInput("", 492, 145, 81, 22)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("用户信息", 12, 121, 377, 129)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("昵称:", 28, 145, 40, 18)   
$Label2 = GUICtrlCreateLabel("密码:", 28, 169, 40, 18)
$name=GUICtrlCreateInput($na, 76, 137, 177, 22)
$pass=GUICtrlCreateInput($pa, 76, 169, 177, 22)
GUICtrlSetLimit($pass, 16)
$Edit2 = GUICtrlCreateInput("", 156, 201, 97, 41)
GUICtrlSetLimit($Edit2, 6)
GUICtrlSetFont(-1, 21, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("重启软件", 268, 202, 105, 31, 0)
$Button1 = GUICtrlCreateButton("保存信息", 268, 140, 105, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1 = GUICtrlCreateList("", 12, 257, 642, 230)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSendMsg(-1, 0x101E, 0,630)
$Pic1 = GUICtrlCreatePic("", 20, 201, 116, 44)
GUICtrlSetCursor (-1, 0)     
GUICtrlSetTip(-1,"看不清,换一张")

$TabSheet2 = GUICtrlCreateTabItem("QQ管理")
$Group3 = GUICtrlCreateGroup("管理QQ号码", 16, 128, 633, 345)  
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label6 = GUICtrlCreateLabel("QQ申请成功文件:", 40, 152, 104, 18)  
$Input4 = GUICtrlCreateInput("", 168, 152, 185, 22,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$es_readonly))
$ListView2 = GUICtrlCreateListView(" 选择 | QQ号码 | QQ密码 | 申请时间", 24, 192, 618, 230,-1,BitOR($WS_EX_CLIENTEDGE, $LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT, $LVS_REPORT))
GUICtrlSendMsg(-1, 0x101E, 0,40)
GUICtrlSendMsg(-1, 0x101E, 1,130)
GUICtrlSendMsg(-1, 0x101E, 2,130)
GUICtrlSendMsg(-1, 0x101E, 3,130)
$gQQ = GUICtrlCreateButton("获取QQ", 416, 152, 65, 25, 0)
$Button5 = GUICtrlCreateButton("....", 356, 152, 27, 22, 0)
GUICtrlSetTip(-1,"选择文件")   
$Button6 = GUICtrlCreateButton("删除QQ", 388, 440, 75, 25, 0)
;$Button7 = GUICtrlCreateButton("添加QQ", 272, 440, 75, 25, 0)
$Button8 = GUICtrlCreateButton("登陆QQ", 176, 440, 75, 25, 0)
;$Label7 = GUICtrlCreateLabel("QQ号码:", 40, 416, 56, 18)
;$QQhm = GUICtrlCreateInput("", 112, 416, 137, 22)
;$Label8 = GUICtrlCreateLabel("QQ密码:", 40, 440, 56, 18)  
;$QQmm = GUICtrlCreateInput("", 112, 440, 137, 22)  
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Pic2 = GUICtrlCreatePic(@TempDir&"\set.jpg", 0, 1, 663, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))  
getcookie();初始化cookie和数组key
getyzm()   
GUISetState(@SW_SHOW)
loadfile()  
#EndRegion ### END Koda GUI section ###
   
While 1
        if StringLen(GUICtrlRead($Edit2))=6 Then
                $x =DLLCall("sensapi.dll","int","IsNetworkAlive","str",$NETWORK_ALIVE_LAN)  
                If $x[0]=1 Then  
                        Zc()
                Else
                        _GUICtrlListBox_InsertString($ListView1,"网络不通,请查看网络是否通畅.....",-1)
                EndIf
        EndIf
        if StringRegExp(GUICtrlRead($pass), '[^\x00-\xff]') Then
                GUICtrlSetData($pass,$pa)
        Else
                $pa=GUICtrlRead($pass)     
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE           
                        quint()  
                Case $Pic1;看不清重新加载验证码
                        getyzm()
                case $Button3;注册   
                        ;DelCache(0)      
                        ;Sleep(800)
                        ;getcookie()
                        ;_GUICtrlListBox_InsertString($ListView1,"清空缓存完成....",-1)   
                        ;_GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
                        run(@ScriptName)
                        Sleep(300)  
                        Exit
                case $Button2;宽带连接  
                        $ADSLname=GUICtrlRead($input1)
                        $ADSLpassword=GUICtrlRead($input2)
                        $connectname=GUICtrlRead($connet)
                        If $ADSLname=="" or $ADSLpassword=="" or $connectname=="" Then
                                MsgBox(0,"提示信息","宽带信息不能为空!")
                        Else
                                GUICtrlSetState($Button2,$gui_disable)
                                _GUICtrlListBox_InsertString($ListView1,"正在操作....",-1)
                                _GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
                                RunWait(@ComSpec & " /c rasdial "&$connectname&" /disconnect","", 0) ;自动断网
                                RunWait(@ComSpec & " /c rasdial "&$connectname&" "&$ADSLname&" "&$ADSLpassword,"", 0);自动联网
                                _GUICtrlListBox_InsertString($ListView1,"操作完成....",-1)
                                _GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
                                GUICtrlSetState($Button2,$gui_enable)
                        EndIf
                case $Button5;选择QQ文件
                        $fils=FileOpenDialog("选择QQ文件",@ScriptDir&"\","txt(注册成功的QQ.txt)",1)
                        if $fils <> "" Then
                                GUICtrlSetData($Input4,$fils)
                        EndIf  
                Case $gQQ;获取列表中的QQ号码和密码
                        getQQTolist()
                Case $Button8;登陆QQ
                        _ComeQQ()
                Case $Button1;保存资料
                        _saveX()
                case $Button6;删除QQ
                        _deleteQQ()
                case $TabSheet2
                        loadfile()
        EndSwitch
WEnd


#cs===================================
        参数
       
        $iCacheEntryType
        要枚举的缓存项的类型. 可为下列值:
        0 -  删除所有缓存项  
        1 - 删除cookies
        2 - 删除URL历史项
       
#ce===================================

Func DelCache($iCacheEntryType)
        _WinINet_Startup()
        While 1
                $avCacheEntry = _WinINet_FindFirstUrlCacheEntry($iCacheEntryType)
                If @error Then Return SetError(@error,@extended,0)
                $avHarray = $avCacheEntry[1]
                _WinINet_DeleteUrlCacheEntry($avHarray[1])
        WEnd
       
        _WinINet_FindCloseUrlCache($avCacheEntry[0])
        _WinINet_Shutdown()
EndFunc   ;==>DelCookies


;;注册QQ号码   
;;昵称
;;年月日:都设置为2003-8-8
;;密码
;;验证码
;;最后提交读取申请的QQ  
Func Zc()         
        $nc=GUICtrlRead($name)     
        $mms=GUICtrlRead($pass)        
        $yzm=GUICtrlRead($Edit2)   
        if $nc=="" Then   
                MsgBox(0,"提示信息","昵称不能为空!")
                GUICtrlSetData($Edit2,"")
        ElseIf $mms=="" or StringLen($mms)<6 Then
                MsgBox(0,"提示信息","密码不能小于6位!")
                GUICtrlSetData($Edit2,"")
        ElseIf $yzm=="" Then
                MsgBox(0,"提示信息","请填写验证码!")
                GUICtrlSetData($Edit2,"")               
        ElseIf StringLen($mms)>=6 And StringLen($mms)<9 And StringIsInt($mms) Then
                MsgBox(0,"提示信息","密码不能为9位以下纯数字!")
                GUICtrlSetData($Edit2,"")
        Else
                postUrl($na,$mms,$yzm)                        
        EndIf  
EndFunc   
      
;请求获取验证码,并保存      
Func getyzm()  
        $x =DLLCall("sensapi.dll","int","IsNetworkAlive","str",$NETWORK_ALIVE_LAN)
        If $x[0]=1 Then  
                $oHTTP.Open("GET", "http://captcha.qq.com/getimage?aid=1007901&"&Random(),True)
                $oHTTP.setRequestHeader("Accept","*/*");
                $oHTTP.setRequestHeader("User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows 2000)");
                ;$oHTTP.setRequestHeader("Cookie",$ptcz&$AREACODE&$PCCOOKIE&$PCCOOKIE2);
                $oHTTP.send("")   
                ;$verifysession=_getString($oHTTP.getResponseHeader("Set-Cookie"),"verifysession=")  
                $file=FileOpen(@TempDir&"\yzm.jpg",2)
               
                FileWrite($file,$oHTTP.responsebody)
                FileClose($file)   
                GUICtrlSetImage($Pic1,@TempDir&"\yzm.jpg")
                if StringLen(GUICtrlRead($name))=0 then     
                        GUICtrlSetState($name,$gui_focus)
                Else
                        GUICtrlSetData($Edit2,"")   
                        GUICtrlSetState($Edit2,$gui_focus)
                EndIf
                getDataarr()  
        Else
                _GUICtrlListBox_InsertString($ListView1,"网络不通,获取验证码失败.....",-1)
        endif
EndFunc  

;以下是使用JavScript代码调用
Func RegCreatePng($s)
        Local $code
        $code &= 'function regcreatepng()' & @CRLF
        $code &= '{' & @CRLF
        $code &= 'var bm='&'"'&$s&'"' & @CRLF
        $code &= 'return encodeURIComponent(bm)' & @CRLF
        $code &= '}' & @CRLF
        $nJS = ObjCreate("ScriptControl")
        $nJS.language = "JavaScript"
        $nJS.addcode($code)  
        $nRegCreatePng = $nJS.Run("regcreatepng")  
        Return $nRegCreatePng
EndFunc   ;==>RegCreatePng encodeURIComponent

;请求reg.qq.com并获取cookie
Func getcookie()
        $x =DLLCall("sensapi.dll","int","IsNetworkAlive","str",$NETWORK_ALIVE_LAN)
        If $x[0]=1 Then
                $oHTTP.Open("GET", "http://reg.qq.com",True)  
                $oHTTP.send("")  
                ;$ptcz=_getString($oHTTP.GetAllResponseHeaders(),"ptcz=")
                ;$AREACODE=_getString($oHTTP.GetAllResponseHeaders(),"AREACODE=")
                $PCCOOKIE=_getString($oHTTP.GetAllResponseHeaders(),"PCCOOKIE=")
                ;$PCCOOKIE2=_getString($oHTTP.GetAllResponseHeaders(),"PCCOOKIE2=")
                ;getDataarr();初始化数组  
        Else
                _GUICtrlListBox_InsertString($ListView1,"网络不通,获取缓存失败.....",-1)
        EndIf
EndFunc
  
;初始化数据,1,cookie 2,加密的key
Func getDataarr()
        $oHTTP.Open("GET", "http://reg.qq.com/cgi-bin/checkconn?seed"&Random(),True)
        $oHTTP.setRequestHeader("Accept","image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*");
        $oHTTP.setRequestHeader("Accept-Language","zh-cn");
        $oHTTP.setRequestHeader("User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows 2000)");
        $oHTTP.setRequestHeader("Cache-Control","no-cache");
        ;$oHTTP.setRequestHeader("Cookie",$ptcz&$AREACODE&$PCCOOKIE&$PCCOOKIE2&$verifysession);  
        $oHTTP.send("")
        if StringInStr($oHTTP.responseText,"g_dataArray") <> "" Then   
                $arr=StringReplace($oHTTP.responseText,'"',"")  
                $arr=StringReplace($arr,"g_dataArray=new Array(new Array(","")
                $arr=StringReplace($arr," Array(","")
                $arr=StringReplace($arr,"),/cgi-bin/getnum);","")
                $arr=StringReplace($arr,"),","")   
                $dataarr=StringSplit($arr,"new",1)
                $g_dataArray1=StringSplit($dataarr[1],",")
                $g_dataArray2=StringSplit($dataarr[2],",")   
        EndIf
EndFunc

;根据cookie名称获取值
Func _getString($sting,$bz)
        $prcs=StringSplit($sting,$bz,1)
        $prc=StringSplit($prcs[2],";")
        Return $prc[1]
EndFunc

;post请求服务器,饭送加密数据,并获得结果显示于界面
Func postUrl($nc,$mm,$yzm)
        $nc=GUICtrlRead($name)
        $mm=GUICtrlRead($pass)   
        Local $g_elementsArr[16]=["qq", "email", $nc, "0", "2011", "6", "25", "1", "2", $mm, $mm, "1", "11", "1", $yzm]
    Local $g_NameRandSeed[4]=[6818,8315,5123,2252]   
        Local $g_RealPostData=""      
    Local $l_indexa,$l_indexb,$l_base   
        $sz=StringRight($PCCOOKIE,2)
        ;MsgBox(0,"",$PCCOOKIE)
        $l_base=Dec($sz);十六进制转换为十进制
       
        for $ld_i=0 To 12   
                $l_indexa=BitXOR($g_dataArray2[$ld_i+1],$l_base)
                ;MsgBox(0,"",$l_indexa)
                $l_indexb=13-$ld_i-1;  
                for $ld_j=0 To 3  
                        $l_indexa=BitXOR($l_indexa,$g_NameRandSeed[$ld_j]);
                Next      
                $l_indexa=mod($l_indexa,16);
                ;MsgBox(0,"",$l_indexa)               
                $g_RealPostData  &= $g_dataArray1[$l_indexb+1] & "=" &RegCreatePng($g_elementsArr[$l_indexa])&'&';  
                ;$g_RealPostData  &= $g_dataArray1[$l_indexb] & "="&$g_elementsArr[$l_indexa]&'&';
        Next  
        $g_RealPostData&="qzone_flag=1"   
        $g_RealPostData&="&alskdjf=fjdksla"            
        $oHTTP.Open("post", "http://reg.qq.com/cgi-bin/getnum",True)  
        $oHTTP.setRequestHeader("Accept","*/*");
        $oHTTP.setRequestHeader("Accept-Encoding","gzip, deflate")   
        $oHTTP.setRequestHeader("Cache-Control","no-cache");
        $oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
        $oHTTP.setRequestHeader("Host","reg.qq.com");
        $oHTTP.setRequestHeader("Referer","http://reg.qq.com/#");      
       
        ;$oHTTP.setRequestHeader("Cookie",$ptcz&$AREACODE&$PCCOOKIE&$PCCOOKIE2&$verifysession);          
        MsgBox(0,"",$g_RealPostData)
        ;Sleep(1000)      
        $oHTTP.Send($g_RealPostData)   
        Sleep(500)       
        $xx=StringRegExp($oHTTP.responseText,'<div class="account">(.*)<(?i)/div>',3)
        $xx2=StringRegExp($oHTTP.responseText,'<li class="title">(.*)</li>',3)   
        $cwwz2=StringInStr($oHTTP.responseText,'f_showInfoInLayer')
        if UBound($xx)>0 then  
                ;$wz2=StringInStr($oHTTP.responseText,";",0,1,$wz)
                ;$qqhaom=StringMid($oHTTP.responseText,$wz+5,$wz2-$wz-6)
                $qqhaom=StringRegExpReplace($xx[0], '<[^>]+>|&nbsp;', '')               
                _GUICtrlListBox_InsertString($ListView1,$qqhaom,-1)
                _GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
                $hm=StringRegExp($xx[0],'<span id="aq-uin" class="number">(.*)</span><span',3)
                writeQQ($hm[0],$mm)
        EndIf   
        if UBound($xx2)>0 Then         
                ;$wz2=StringInStr($oHTTP.responseText,"</li>",0,1,$cwwz)  
                ;$cwxx=StringMid($oHTTP.responseText,$cwwz+18,$wz2-$cwwz-18)
                if StringInStr($xx2[0],"由于您的操作过于频繁") Then  
                        _GUICtrlListBox_InsertString($ListView1,StringReplace($xx2[0],"请稍后再试!我们建议您:","")&"需重启软件后才能再次申请!",-1)  
                Else
                        _GUICtrlListBox_InsertString($ListView1,StringReplace($xx2[0],",我们建议您:",""),-1)
                EndIf
                _GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
        endif
        if $cwwz2>0 Then  
                $wz2=StringSplit(BinaryToString($oHTTP.responsebody),"'")  
                _GUICtrlListBox_InsertString($ListView1,$wz2[4],-1)   
                _GUICtrlListBox_SetCurSel($ListView1, _GUICtrlListBox_GetCount($ListView1) - 1)
        endif
        getyzm() ;刷新验证码  
        ;getcookie()
EndFunc
  
;寻找生成的QQ文件  
Func loadfile()
        if FileExists("注册成功的QQ.txt") then ;如果存在文件
                GUICtrlSetData($Input4,"注册成功的QQ.txt")
        Else
                GUICtrlSetData($Input4,"未找到文件,请选择。。。")
        EndIf
EndFunc         
  
;写入成功的QQ到文本
Func writeQQ($haoma,$mima)     
        $file = FileOpen("注册成功的QQ.txt", 1)   
        FileWriteLine($file,$haoma&"----"&$mima&"----"&@YEAR&"-"&@MON&"-"&@MDAY)     
        FileClose($file)   
EndFunc

;获取文本中的QQ信息并显示到listview中
Func getQQTolist()
        _GUICtrlListView_DeleteAllItems($ListView2)     
        $url=GUICtrlRead($input4)
        $file=FileOpen($url,0)   
        While 1  
                $line = FileReadLine($file)  
                If @error = 1 or @error = -1 Then ExitLoop
                $qqs=StringSplit($line,"----",1)     
                if $qqs[0]>0 Then
                        GUICtrlCreateListViewItem("|"&$qqs[1]&"|"&$qqs[2]&"|"&$qqs[3],$ListView2)        
                EndIf
        Wend
EndFunc  

;根据选择的QQ登陆到QQ
Func _ComeQQ()  
        $a = _GUICtrlListView_GetItemCount($ListView2)  
        For $i = 0 To $a
                $Text = _GUICtrlListView_GetItemTextString($ListView2, $i)
                If _GUICtrlListView_GetItemChecked($ListView2, $i) = True Then
                        $listvalue=StringSplit($Text,"|")           
                        goQQ($listvalue[2],$listvalue[3])               
                EndIf
        Next  
EndFunc

;调用QQ程序登陆QQ
Func goQQ($qq,$qqm)
        $qqurl=RegRead("HKCR\CLSID\{4F7C9975-ECA1-4190-B0EB-E37BC5E40893}\LocalServer32","")
        $qqu=StringReplace($qqurl,"TXPlatform.exe","QQ.exe")       
        ShellExecute($qqu)        
        Opt("MouseCoordMode", 0)   
        $title = "QQ20" ;窗口标题
        $text = ""  ;窗口文本
       
        WinWaitActive($title, $text, 2) ;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
        If WinExists($title, $text) Then ;判断
                ;存在
                WinWait($title, $text, 1) ;暂停脚本的执行直至指定窗口存在(出现)为止.
                If Not WinActive($title, $text) Then WinActivate($title, $text);激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
                WinWaitActive($title, $text, 1) ;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
                $ClassList = WinGetClassList($title, $text) ;获取指定窗口的所有控件类的列表.
               
                ;激活账号
                If Not WinActive($title, $text) Then WinActivate($title, $text);激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
                $array = StringRegExp($ClassList, ".*", 1) ;检查字串是否符合给定的正则表达式.
                For $i = 0 To UBound($array) - 1
                        If Not WinActive($title, $text) Then WinActivate($title, $text);激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
                        WinWaitActive($title, $text, 1) ;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
                        ControlClick($title,$text, "[CLASS:" & $array[$i] & "; INSTANCE:1]","left",2)
                        ControlSetText($title, $text, "[CLASS:" & $array[$i] & "; INSTANCE:1]", $qq, 1);账号
                Next
  
                ;激活密码  
                If Not WinActive($title, $text) Then WinActivate($title, $text)
                $array = StringRegExp($ClassList, "\n.*", 1);检查字串是否符合给定的正则表达式.
                For $i = 0 To UBound($array) - 1
                        $aa = StringTrimLeft($array[$i], 1);删除字符串中从左开始指定数量的字符                                                               
                        If Not WinActive($title, $text) Then WinActivate($title, $text);激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
                        WinWaitActive($title, $text, 1) ;暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
                        Send("{TAB}")
                        Send($qqm,1)
                        Send("{enter}")
                        Sleep(2000)
                Next
        EndIf                             
EndFunc

;删除QQ列表
func _deleteQQ()
        $j=1
        $a = _GUICtrlListView_GetItemCount($ListView2)  
        For $i = 0 To $a
                $Text = _GUICtrlListView_GetItemTextString($ListView2, $i)
                If _GUICtrlListView_GetItemChecked($ListView2, $i) = True Then  
                        $listvalue=StringSplit($Text,"|")           
                        $file=FileOpen("注册成功的QQ.txt",0)
                        While 1  
                                $line = FileReadLine($file)   
                                If @error = 1 or @error = -1 Then ExitLoop
                                $qqs=StringInStr($line,$listvalue[2])      
                                if $qqs Then
                                        _FileWriteToLine("注册成功的QQ.txt",$j,"",1)   
                                EndIf  
                                $j+=1
                        Wend  
                EndIf
        Next
        getQQTolist()       
EndFunc

;保存资料(宽带,注册信息)
Func _saveX()
        $n=GUICtrlRead($name)  
        $p=GUICtrlRead($pass)
        if FileExists("config.ini") Then
                $na=IniWrite("config.ini","config","name",$n)
                $pa=IniWrite("config.ini","config","pass",$p)
        Else
                $file=FileOpen("config.ini",1)
                FileWriteLine($file,"[config]")
                FileWriteLine($file,"name="&$n)
                FileWriteLine($file,"pass="&$p)
                FileClose($file)
        EndIf
EndFunc

;皮肤调用
Func skin()
        FileInstall("skin\Skin.dll", @TempDir &"\Skin.dll",1)
        FileInstall("skin\aero.she", @TempDir &"\aero.she",1)

        $sDll= DllOpen(@TempDir &"\Skin.dll")
        DllCall($sDll, "int", "SkinH_AttachEx","str",@TempDir & "\aero.she","str","mhgd")
        DllCall($sDll, "int", "SkinH_SetAero","int",1)
EndFunc

Func quint();关闭
        DllCall($dll, "int", "DisableSkinEngine")
        Exit
EndFunc

吾爱游客  发表于 2011-9-8 15:31
回复 Hmily 的帖子

最新的QQ申请已经可以了,如果需要我可以发出来。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-15 01:59

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表