QQ向陌生人聊天的autoit脚本

    复制代码 代码如下:

    #include <GUIConstants.au3>
    #include <Process.au3>
    Global $GUIWidth
    Global $GUIHeight
    $GUIWidth = 160
    $GUIHeight = 100
    $maingui = GUICreate(“与陌生QQ联络”,$GUIWidth, $GUIHeight)
    $Status = GUICtrlCreateLabel(“Nothing to Undo”, 0, 67, 160, 14, BitOR($SS_SUNKEN, $SS_CENTER))
    GUICtrlSetData($Status, “lingkb-QQ联络陌生人”,”1111″)
    $helpmenu = GuiCtrlCreateMenu (“菜单[&F]”)
    $aboutitem = GuiCtrlCreateMenuitem (“关于[&A]”,$helpmenu)
    $separator1 = GuiCtrlCreateMenuitem (“”,$helpmenu)
    $exititem = GuiCtrlCreateMenuitem (“退出[&X]”,$helpmenu)

    $okbutton = GuiCtrlCreateButton (“对话”,20,35,50,20)
    $cancelbutton = GuiCtrlCreateButton (“退出”,90,35,50,20)

    GuiSetState()

    GUICtrlCreateLabel (“对方QQ:”,   20, 10)
    $QQ = GUICtrlCreateInput (“461478385”,70,7,70,20)
    GUICtrlSetTip(-1,”输入对方的QQ号码”)
    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=yes&exe=&uin=” & GUICtrlRead($QQ) & “&websiteName=未知区域” &chr(“34”)& “”)
                            Case $msg = $aboutitem
                            MsgBox(32, “lingkb”,”lingkb www.lingkb.com 欢迎你”)
            EndSelect
    WEnd
    GUIDelete()
    Exit


    保存为qq.au3,运行前你必须保证你的电脑有autoit3的程序,具体下载地址
    上一篇文章
    autoit在线手册

Leave a Reply

Leave a Reply