admin管理员组

文章数量:1646324

自动发送微信消息或QQ消息的自用代码

  • 等待时间函数
    • 发送QQ消息
    • 发送微信消息
    • '强制结束vbs运行
  • 关键的精彩在这里应用呢
    • '检测指定进程是否运行
    • QQ消息发送，*号表示QQ号
    • 定时运行的代码
    • 欢迎指正，初出江湖露洞百出

等待时间函数

#If VBA7 And Win64 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
#End If

发送QQ消息

Sub QQsendtxt(ByVal msg As Variant)
    Dim WshShell, lngCnt, strMsg
    strMsg = Join(msg, vbCrLf & "    ")
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run """C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"" /uin:******** /quicklunch:291EB8ACA6BE6147814429F6A1A99E8AD98D131B0CA6087D19703442F93E275E6E5AB2BBE06F44A0"
    WshShell.Run "mshta vbscript:clipboardData.SetData(" + """" + "text" + """" + "," + """" & strMsg & """" + ")(close)", 0, True
    WshShell.SendKeys "^v"
    WshShell.SendKeys "{ENTER}"

    WshShell.Run """C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"" /uin:********* /quicklunch:405659A24780696FD85C992D9512A550A08B07A5D21FEFEB24B47580AFD195E162DECFDA3926EB45"
    WshShell.Run "mshta vbscript:clipboardData.SetData(" + """" + "text" + """" + "," + ""

本文标签： 消息自用自动发送代码qq

版权声明：本文标题：自动发送微信消息或QQ消息的自用代码 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1729445450a1201364.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。