用vbs写的发短信给必强QQ 用lisp写，就不这么简洁了

1291500406

On Error Resume Next
str = InputBox("发短信给必强","必强交流对话框")
If IsEmpty(str) Then
MsgBox "已取消发送"
Else
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run "tencent://message/?Menu=yes&uin=1291500406&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
str = "已经成功发送消息:"&str
MsgBox str
CreateObject ("SAPI.SpVoice").Speak str
End If


以下文字为注释不要复制

功能介绍———双击.vbs文件   弹窗输入对话框  输入文字立即发送为某个朋友QQ信息   并对内容进行提示和朗读  如果未输入 提示 "已取消发送"

该代码使用, 必须是好友才能发送成功

使用说明书 ，复制代码到 txt文档 ，将格式改为 .vbs   最后双击文件

功能扩展:将代码中我的QQ号1291500406，改为其他人的就是发给其他朋友

  InputBox("发短信给必强","必强交流对话框")为输入对话框
1291500406为我的QQ号

dcl1214

这个做的好，如果能很注册检验连起来，那就美了