铁雪资源网 Design By www.gsvan.com
复制代码 代码如下:
#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的程序,具体下载地址
上一篇文章
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, "-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的程序,具体下载地址
上一篇文章
autoit在线手册
标签:
QQ,陌生人,autoit
铁雪资源网 Design By www.gsvan.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
铁雪资源网 Design By www.gsvan.com
暂无QQ向陌生人聊天的autoit脚本的评论...