QQ向陌生人聊天的autoit腳本

#include GUIConstants.au3>
#include Process.au3>
Global $GUIWidth
Global $GUIHeight
$GUIWidth = 160
$GUIHeight = 100
$maingui = GUICreate("與陌生QQ聯(lián)絡(luò)",$GUIWidth, $GUIHeight)
$Status = GUICtrlCreateLabel("Nothing to Undo", 0, 67, 160, 14, BitOR($SS_SUNKEN, $SS_CENTER))
GUICtrlSetData($Status, "腳本之家-QQ聯(lián)絡(luò)陌生人","1111")
$helpmenu = GuiCtrlCreateMenu ("菜單[F]")
$aboutitem = GuiCtrlCreateMenuitem ("關(guān)于[A]",$helpmenu)
$separator1 = GuiCtrlCreateMenuitem ("",$helpmenu)
$exititem = GuiCtrlCreateMenuitem ("退出[X]",$helpmenu)

$okbutton = GuiCtrlCreateButton ("對(duì)話",20,35,50,20)
$cancelbutton = GuiCtrlCreateButton ("退出",90,35,50,20)

GuiSetState()

GUICtrlCreateLabel ("對(duì)方QQ：",   20, 10)
$QQ = GUICtrlCreateInput ("461478385",70,7,70,20)
GUICtrlSetTip(-1,"輸入對(duì)方的QQ號(hào)碼")
GUICtrlSetLimit($QQ, 10, 5)

While 1
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
                        ExitLoop

                Case $msg = $exititem
                        ExitLoop

                Case $msg = $okbutton
                        $rc = _RunDos("explorer.exe " chr("34") "tencent://Message/?menu=yesexe=uin="  GUICtrlRead($QQ)  "websiteName=未知區(qū)域" chr("34") "")
                        Case $msg = $aboutitem
                        MsgBox(32, "腳本之家","腳本之家 www.jb51.net 歡迎你")
        EndSelect
WEnd
GUIDelete()
Exit