QQ向陌生人聊天的autoit脚本

页面导航:首页 > 脚本专栏 > autoit > QQ向陌生人聊天的autoit脚本

QQ向陌生人聊天的autoit脚本

来源:互联网 作者:脚本宝典 时间:2015-07-20 18:10 【

代码如下: #includeGUIConstants.au3 #includeProcess.au3 Global$GUIWidth Global$GUIHeight $GUIWidth=160 $GUIHeight=100 $maingui=GUICreate(与陌生QQ联络,$GUIWidth,$GUIHeight) $Status=GUICtrlCreateLabel(NothingtoUndo,0,67,160,14,BitOR($

代码如下:


#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, "脚本之家-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, "脚本之家","脚本之家 www.jb51.net 欢迎你") 
        EndSelect 
WEnd 
GUIDelete() 
Exit


保存为qq.au3,运行前你必须保证你的电脑有autoit3的程序,


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<