【已解决】QQ自动登录问题~!

hsyihao

在坛子里找了两个源码，用过之后发现都有点问题，特来请教下大家。

Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

$qq1 = "12345678" ;帐号
$pw1 = "zhao!@)#!@1203" ;密码
Run("C:\Program Files\Tencent\QQ\Bin\QQ.exe")
 
While 1
If WinWaitActive("[CLASS:TXGuiFoundation]","") Then
        WinActivate("[CLASS:TXGuiFoundation]","")
        Sleep(10)
        ControlCommand("QQ2010","","Edit1","Check")
        Sleep(1000)
        ControlClick("QQ2010", "", "[CLASS:ATL:30A561F0]", "left", 1);选中帐号
        Send("{DEL}");清除帐号
        Send($qq1);输入帐号
        ControlClick("QQ2010", "", "Edit1", "left", 1);选中密码
        Send($pw1, 1);输入密码
        MouseClick("left",85,191,1);打开状态菜单
                MouseClick("left",88,344,1);选择隐身                    
                MouseClick("left",295,228,1);按登陆按钮
                ExitLoop
        EndIf
WEnd

这个用户名和密码都输一起去了。

Run ("C:\Program Files\Tencent\QQ\Bin\QQ.exe")
Sleep(100)
If WinWaitActive("[CLASS:TXGuiFoundation]","") Then
        WinActivate("[CLASS:TXGuiFoundation]","")
        Sleep(10)
        ControlCommand("QQ2010","","Edit1","Check")
        Sleep(1000)
Send("{TaB 8}")
Sleep(100)
Send("{del 9}")
Sleep(100)
Send("12345678")
Sleep(10)
Send("{tab}")
    ControlCommand("QQ2010","","Edit1","Check")
        Sleep(500)
        Send ("zhao!@)#!@120312")
        Sleep(100)
        Send ("{TaB}")
        Sleep(100)
        Send ("{ENTER}")
        Sleep(100)
        Send ("{DOWN 1}")
        Sleep(300)
        Send ("{ENTER}")
        Sleep(100)
        Send ("{TaB}")
        Sleep(500)
        Send ("{ENTER}")

        
EndIf

这个!@)#!@这种字符无法输入！~
因为老妈在家用，不会输QQ号和密码，只有做个脚本。这也是在网上找的第一个脚本。

hsyihao

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("菜单", 583, 227, 192, 124)
$Button1 = GUICtrlCreateButton("QQ聊天", 32, 24, 155, 73)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("QQ音乐", 216, 24, 155, 73)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("JJ比赛", 400, 24, 155, 73)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("QQ在线电影", 32, 128, 155, 73)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("QQ游戏", 216, 128, 155, 73)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("网络电视", 400, 128, 155, 73)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                        
                            Case $Button1
                        RunWait("C:\Program Files\Tencent\QQ\Bin\QQ.exe"); 打开QQ程序
                                Case $Button2
                        RunWait("D:\游戏\QQ音乐\QQMusic.exe"); 打开QQ音乐
                                Case $Button3
                        RunWait("D:\游戏\JJ比赛\TKLobby.exe"); 打开JJ比赛
                                Case $Button4
                        RunWait("D:\游戏\QQLive\QQLive.exe"); 打开QQ在线电影
                                Case $Button5
                        RunWait("D:\游戏\QQGAME\QQGame.exe"); 打开QQ游戏
                                Case $Button6
                        RunWait("D:\游戏\uusee\UUSeePlayer.exe"); 打开网络电视

        EndSwitch
WEnd

顺便问下这个脚本，比如点开QQ后，如果QQ不关这个菜单也无法关闭。这个要加什么呢？

yhxhappy

回复 2# hsyihao


   因为使用了 RunWait，改成Run看看

35598253

同求，同顶~~~~

hsyihao

回复 3# yhxhappy
感谢，已经解决了```
那第二个QQ登录脚本不能输入!@#$%^&*()这种字符要怎么解决呢？

lixiaolong

可能是系统反应问题，
输入帐号或者选中密码后加个Sleep试试.

仔细看你的第一个代码.

Send ( "按键" [, 标志] )
参 数

按键 发送的按键序列.
标志 [可选参数] "按键"的处理方式:
   0 (默认), 按键序列中含特殊字符, 比如 + 和 ! 将被视为 SHIFT 和 ALT 键.
   1, 按键将按原样发送.

Send ("zhao!@)#!@120312", 1)

hbwazxf

同问。长点经验。。那位老大会啊？

easied

QQ设置:保存密码和自动登录

hsyihao

回复 6# lixiaolong
感谢，已经能用了。又学了不少东西`！

wsfda

关于不能输入这种字符的问题，我也遇到过，一直没有解决，郁闷呢

wsfda

多谢龙哥 啊，哈哈

nanana7

不错呦！！！！！！！！！！！！

学习一下

不错的解决问题的方法

谢谢6楼的经验！