• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

【源码】按键精灵发起QQ临时会话(欢迎讨论) [复制链接]

1#
本帖最后由 we似曾相识 于 2012-12-23 16:03 编辑


注:或许你需要用户方便联系你的QQ~比如点一下按钮或者执行一个特定脚本等。下面代码满足QQ临时会话需求~喜欢的回复拿走;)

加到命令库方面调用~

说明:不需要加好友,不占用当前网页,不残留临时文件。



调用举例:
  1. Call 发起QQ会话(10000)
复制代码
  1. Sub 发起QQ会话(对象QQ)
  2. Dim 会话,批处理不要黑框
  3. 会话 = "start tencent://message/^?Menu^=yes^&uin^="& 对象QQ &"^&Site^=planeart.cn^&Service^=300^&sigT^=45a1e5847943b64c6ff3990f8a9e644d2b31356cb0b4ac6b24663a3c8dd0f8aa12a595b1714f9d45" & vbcrlf & "del %0"
  4. Plugin.File.WriteFileEx ".\HiQQ.bat", 会话
  5. Delay 1000
  6. Set 批处理不要黑框 = createobject("wscript.shell") '以下三行可以用RunApp 路径代替,但有黑框出现
  7. 批处理不要黑框.run ".\HiQQ.bat", vbhide, True
  8. Set 批处理不要黑框 = Nothing
  9. End Sub
复制代码



效果图】(点击看大图)

您所在的用户组无法下载或查看附件

    已有6评分我要评分查看所有评分

    We're brothers that is why we are called vrbrothers

    [新手密卷]“诱惑”高手帮忙有高招!
    2#

    学习看看!

    3#

    顶个!!!!!!!!!

    4#

    当遇到没有开启临时会话功能的呢?

    5#

    ihtiuotyiotiuo

    6#

    对方付费的

    7#

    学习下

    8#

    额int 顶个

    9#

    好东西。正需要呢

    10#

    看看看看

    看看看看看看看看看看看看看看看看看看看看看看看看

    11#

    看看先

    12#


    13#

    There looking like exist something intersting.

    14#

    好多帖子恢复后就无法访问了

    15#

    击看大图)

    正在撰写博客,按键代码之手到擒来篇
    16#


    17#

    学习学习

    18#

    我打算

    19#


    20#

    学习一下

    发新话题 回复该主题