QQ向陌生人聊天的autoit脚本

 更新时间:2008年06月17日 15:30:22   作者:  
直接输入对方的qq号即可和对方交谈的autoit脚本,没什么技术含量,就是需要掌握下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脚本

    QQ向陌生人聊天的autoit脚本

    直接输入对方的qq号即可和对方交谈的autoit脚本,没什么技术含量,就是需要掌握下autoit的相关知识
    2008-06-06
  • AutoIt脚本的反编译和代码格式化问题分析

    AutoIt脚本的反编译和代码格式化问题分析

    这篇文章主要介绍了AutoIt脚本的反编译和代码格式化问题分析,需要的朋友可以参考下
    2015-10-10
  • autoit 更改个人文件夹的小工具

    autoit 更改个人文件夹的小工具

    功 能:更改个人文件夹的位置 原 理:找到注册表中的相应位置,显示出来,并通过修改对应的键值来指定路径。 注意事项:本程序不移动文件夹,只是指定路径;修改完成后,请马上重新启动。
    2008-07-07
  • 用autoit编写第一个脚本(Hello World)

    用autoit编写第一个脚本(Hello World)

    此页将介绍创建并运行AutoIt脚本的一些基本方法。我们假定您已经使用我们提供的安装程序安装好了AutoIt v3。
    2008-06-06
  • Au3截取腾讯天气的脚本

    Au3截取腾讯天气的脚本

    腾讯的天气是相当的准呀.而且还有实时天气, 今天把它给应用上了,附上源代码抛砖引玉.
    2008-09-09
  • autoit自定义函数

    autoit自定义函数

    所谓函数是指可在脚本中调用并实现特定“功能”的代码片段。在 AutoIt 中有两种函数,包括 内建函数 和 自定义函数。
    2008-06-06
  • AutoIt3和按键精灵的功能对比

    AutoIt3和按键精灵的功能对比

    AutoIt3和按键精灵的比较 无其他的意思,刚看到,顺手转了过来,给想学AUtoIT的同志看看,以下是国内(AutoIT )二位高手的评价(本论坛高手也多,只是一直默默无闻,象几位版主
    2008-06-06
  • AutoIT写的禁止QQ运行的程序代码

    AutoIT写的禁止QQ运行的程序代码

    autoit的东西,确实不错,推荐大家学习之,最近没时间,稍后我们一起学习
    2008-06-06
  • autoit3最新汉化版下载

    autoit3最新汉化版下载

    想运行.au3的朋友必备,因这个东西,确实不错,我们提出程序的最低版本都基本是autoit3
    2008-06-06
  • Aut2Exe编译au3脚本为可执行文件

    Aut2Exe编译au3脚本为可执行文件

    把AutoIt的.au3脚本文件编译成可独立运行的程序当然是可实现的,这样就可以使得编译后的程序得以在没有安装AutoIt(或者说没有AutoIt3.exe这个解释程序)的机器上运行。
    2008-06-06

最新评论