时间:2021-05-22
复制代码 代码如下:
#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,"","www.jb51.net欢迎你")
EndSelect
WEnd
GUIDelete()
Exit
保存为qq.au3,运行前你必须保证你的电脑有autoit3的程序,具体下载地址
上一篇文章
autoit在线手册
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
以QQ为例,临时会话即是不加为好友或不通过验证就能聊天,若不想会话则在QQ设置里的陌生人设置里取消接收陌生人会话消息即可。 QQ是腾讯QQ的简称,是于Inte
QQ验证消息能一直聊天。QQ验证消息是陌生人向自己发送好友申请的时候进行的自我介绍,方便快速通过验证。 QQ是腾讯QQ的简称,是一款基于Internet即时通
恢复QQ好友的方法: QQ好友,通过腾讯公司的聊天工具QQ进行聊天,陌生人只能发起临时会话,无法使用QQ完整聊天功能,只能加为好友,才能使用完整的聊天、发送文
如何QQ好友的方法如下: QQ好友,通过腾讯公司的聊天工具QQ进行聊天,陌生人只能发起临时会话,无法使用QQ完整聊天功能,只能加为好友,才能使用完整的聊天、发
qq陌生人是指所有不是好友的人(不在好友列表里的)。比如:原来是好友的人,后来把他删了,他就成你的陌生人了,他给你发信息时,就在你的陌生人分组里了。还有,在一个