快捷導(dǎo)航

QQ向陌生人聊天的autoit腳本

更新時間：2008年06月17日 15:30:22 作者：

直接輸入對方的qq號即可和對方交談的autoit腳本，沒什么技術(shù)含量，就是需要掌握下autoit的相關(guān)知識

#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 ("對話",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=未知區(qū)域" &chr("34")& "") 
                        Case $msg = $aboutitem 
                        MsgBox(32, "腳本之家","腳本之家 m.fzitv.net 歡迎你") 
        EndSelect 
WEnd 
GUIDelete() 
Exit

保存為qq.au3,運行前你必須保證你的電腦有autoit3的程序，具體下載地址
上一篇文章
autoit在線手冊

相關(guān)文章

autoit3最新漢化版下載
想運行.au3的朋友必備，因這個東西，確實不錯，我們提出程序的最低版本都基本是autoit3
2008-06-06
獲取外網(wǎng)IP并發(fā)送到指定的郵箱的腳本
來自小A的源碼，其實用到的全部是AU3自帶的UDF，非常有學(xué)習(xí)的意義！功能：獲取外網(wǎng)IP并將IP發(fā)送到配置文件中定義的郵箱
2012-05-05
autoit自定義函數(shù)
所謂函數(shù)是指可在腳本中調(diào)用并實現(xiàn)特定“功能”的代碼片段。在 AutoIt 中有兩種函數(shù)，包括內(nèi)建函數(shù) 和自定義函數(shù)。
2008-06-06
飛信的CMD命令行接口批量發(fā)送信息
最近在用AU3開發(fā)一款用來調(diào)用飛信發(fā)送短信的小東東飛信是個很好的東西,可惜用的人少,很多不厚道的同學(xué)注冊之后就不再登錄了.
2008-09-09
QQ向陌生人聊天的autoit腳本
直接輸入對方的qq號即可和對方交談的autoit腳本，沒什么技術(shù)含量，就是需要掌握下autoit的相關(guān)知識
2008-06-06
AutoIt3和按鍵精靈的功能對比
AutoIt3和按鍵精靈的比較無其他的意思，剛看到，順手轉(zhuǎn)了過來，給想學(xué)AUtoIT的同志看看，以下是國內(nèi)(AutoIT )二位高手的評價（本論壇高手也多，只是一直默默無聞，象幾位版主
2008-06-06
AutoIt腳本的反編譯和代碼格式化問題分析
這篇文章主要介紹了AutoIt腳本的反編譯和代碼格式化問題分析,需要的朋友可以參考下
2015-10-10
autoit GUI相關(guān)知識
AutoIt 腳本可創(chuàng)建（由窗口及其控件組成的）簡單的圖形用戶界面（GUI）。
2008-06-06
autoit 更改個人文件夾的小工具
功能：更改個人文件夾的位置原理：找到注冊表中的相應(yīng)位置，顯示出來，并通過修改對應(yīng)的鍵值來指定路徑。注意事項：本程序不移動文件夾，只是指定路徑；修改完成后，請馬上重新啟動。
2008-07-07
使用AutoIT實現(xiàn)自動登錄/退出客戶端軟件，刪除日志
最近在測試新版客戶端時發(fā)現(xiàn)，會不定時的出現(xiàn)登錄失敗，提示信息是“連接登錄服務(wù)器失敗...”。經(jīng)過一番嘗試，發(fā)現(xiàn)在安裝客戶端后登錄，錯誤出現(xiàn)的幾率較高。
2009-03-03