gpt4 book ai didi

QQ向陌生人聊天的autoit脚本

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 38 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章QQ向陌生人聊天的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.zzvips.com 欢迎你")
        EndSelect
WEnd
GUIDelete()
Exit

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

最后此篇关于QQ向陌生人聊天的autoit脚本的文章就讲到这里了,如果你想了解更多关于QQ向陌生人聊天的autoit脚本的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

38 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com