回复 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], '<[^>]+>| ', '')
_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
|