可以同时登录多个QQ号可以保存设置
#NoTrayIcon ;不显示托盘图标
opt("GUIOnEventMode",1);设置OnEvent激活
;防止程序重复运行
$Version = "bbs.1uww.com QQ"
If WinExists($Version) Then Exit
AutoItWinSetTitle($Version)
Global
$inPath,$Path,$inQQn,$QQn,$BnQQSet,$BnQQrm,$BnQQGetUP,$BnQQsev,$x,$y,$fr
mWin,$winHg
Global $LbQQnum[20],$LbQQPass[20],$inQQnum[20],$inQQPass[20]
;第一个QQ号的位置
$x=10
$y=32
$QQn=0
$winHg=600
#include
$frmWin=GUICreate("bbs.1uww.com QQ",230,$winHg,-1,-1) GUISetCoord(100,100,1000,1000,$frmWin)
GUICtrlCreateLabel("挂QQ个数:",10,10)
$inQQn=GUICtrlCreateInput("0",70,8,30)
$BnQQSet=GUICtrlCreateButton("增加",105,6,30,20) $BnQQrm=GUICtrlCreateButton("删除",135,6,30,20) $BnQQGetUP=GUICtrlCreateButton("登录",170,6,40,20)
GUICtrlCreateLabel("QQ路径",10,540)
$BnQQsev=GUICtrlCreateButton("保存设置",130,536,80,20) $inPath=guictrlcreateinput("QQ.exe",10,560,200)
GUISetState(@SW_SHOW)
;设置OnEvent
GUISetOnEvent($GUI_EVENT_CLOSE,"ENDTHESOFT") GUICtrlSetOnEvent($BnQQSet,"AddQQ")
GUICtrlSetOnEvent($BnQQrm,"RmQQ")
GUICtrlSetOnEvent($BnQQGetUp,"GetUP")
GUICtrlSetOnEvent($BnQQsev,"SaveConfig") ;
;读取设置
LoadConfig()
while 1
Sleep(1000)
WEnd
;读取设置
Func LoadConfig()
$Path=IniRead("set.ini","main","Path","QQ.exe");读取路径
GUICtrlSetData($inPath,$Path)
$j=IniRead("set.ini","main","QQn",1) ;读取QQ个数,如果读取 for $i=0 to $j-1
;增加一个QQ
AddQQ()
;读取和设置QQ号的内容
GUICtrlSetData($inQQnum[$i],IniRead("set.ini","QQ","QQnum" & $i,""))
GUICtrlSetData($inQQpass[$i],IniRead("set.ini","QQ","QQpas" & $i,""))
Next
EndFunc
;保存设置
Func SaveConfig()
Dim $text
IniWrite("set.ini","main","Path",GuictrlRead($inPath)) ;保存路径
$text="QQ路径为:" & GuictrlRead($inPath) & @CR
IniWrite("set.ini","main","QQn",$QQn) ;保
存挂Q的个数
$text=$text & "QQ个数为:" & $QQn & @CR
for $i= 0 to $QQn-1
IniWrite("set.ini","QQ","QQnum" &
$i,GUICtrlRead($inQQnum[$i])) ;保存帐号
IniWrite("set.ini","QQ","QQpas" & $i,GUICtrlRead($inQQPass[$i])) ;密
码
$text=$text & "帐号:" & GUICtrlRead($inQQnum[$i]) & ",密码:" &
GUICtrlRead($inQQPass[$i]) & @CR
Next
MsgBox(0,"保存成功",$text,2)
EndFunc
;增加QQ
func AddQQ()
if $QQn<20 Then
$LbQQnum[$QQn]=GUICtrlCreateLabel("帐号:",$x,$y) ;增加标题
$inQQnum[$QQn]=GUICtrlCreateInput("",$x+30,$y-2,60) ;增加InputBox
$LbQQPass[$QQn]=GUICtrlCreateLabel("密码:",$x+110,$y) ;同上
$inQQPass[$QQn]=GUICtrlCreateInput("",$x+140,$y-2,60)
$y=$y+25 ;将设置一下窗口的位置
$winHg=$y+30 ;设置界面的大小(暂时没用)
$QQn=$QQn+1 ;下一QQ的个数
GUICtrlSetData($inQQn,$QQn)
Else
MsgBox(0,"出错","现在已有20个QQ号.如果需要挂更多QQ号请与merting联系" & @CR & " merting@126.com",5) EndIf
EndFunc
;删除QQ
Func RmQQ()
if $QQn>1 Then
;删除控件
GUICtrlDelete($LbQQnum[$QQn-1])
GUICtrlDelete($LbQQpass[$QQn-1])
GUICtrlDelete($inQQnum[$QQn-1])
GUICtrlDelete($inQQpass[$QQn-1])
;改变控件个数的值
$QQn=$QQn-1
$y=$y-25
$winHg=$y-30
GUICtrlSetData($inQQn,$QQn)
MsgBox(0,"删除成功","第" & $QQn+1 & "个QQ被删除",1)
Else
MsgBox(0,"错误","QQ的个数已经少于1个",1)
EndIf
EndFunc
;登录QQ
func GetUP()
Dim $a,$b
$Path=GUICtrlRead($inPath)
for $i=0 to $QQn-1
Run($Path)
$a=GUICtrlRead($inQQnum[$i])
$b=GUICtrlRead($inQQPass[$i])
GetUpQQ($a,$b)
Next
MsgBox(0,"登录完成","成功登录" & $QQn & "个QQ",2)
EndFunc
;输入帐号
Func GetUpQQ($qq,$passwork)
WinWait("QQ用户登录","QQ号码") ;等待窗口出现
WinActivate("QQ用户登录","QQ号码") ;激活窗口
ControlSetText("QQ用户登录","QQ号码",1001,$qq) ;输入帐号
ControlSetText("QQ用户登录","QQ密码","Edit12",$passwork) ;输入密码
ControlClick("QQ用户登录","QQ号码",16032) ;按确定登录QQ
EndFunc
;结束程序
Func ENDTHESOFT()
MsgBox(0,"程序退出中...","欢迎使用本QQ登录软件",2)
Exit
EndFunc