可以同时登录多个QQ号,可以保存设置可以同时登录多个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,$frmWin...
可以同时登录多个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,$frmWin,$wi
nHg
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
本文档为【可以同时登录多个QQ号,可以保存设置】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。