QQ向陌生人聊天的autoit脚本_autoit教程-查字典教程网
QQ向陌生人聊天的autoit脚本
QQ向陌生人聊天的autoit脚本
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:#include#includeGlobal$GUIWidthGlobal$GUIHeight$GUIWidth=160$...

复制代码 代码如下:

#include<GUIConstants.au3>

#include<Process.au3>

Global$GUIWidth

Global$GUIHeight

$GUIWidth=160

$GUIHeight=100

$maingui=GUICreate("与陌生QQ联络",$GUIWidth,$GUIHeight)

$Status=GUICtrlCreateLabel("NothingtoUndo",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)

While1

$msg=GUIGetMsg()

Select

Case$msg=$GUI_EVENT_CLOSEOr$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,"查字典教程网","查字典教程网jiaocheng.chazidian.com欢迎你")

EndSelect

WEnd

GUIDelete()

Exit

保存为qq.au3,运行前你必须保证你的电脑有autoit3的程序,具体下载地址

上一篇文章

autoit在线手册

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新autoit学习
    热门autoit学习
    脚本专栏子分类