为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

可以同时登录多个QQ号可以保存设置

2017-09-30 7页 doc 20KB 36阅读

用户头像

is_321575

暂无简介

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

历史搜索

    清空历史搜索