微信定时发消息给好友

起因 ：加入一个新的公司 每周都要发感悟，这种死板重复的工作，作为一个程序员怎么能忍呀！ 肯定程序定时发呀
上次写了一个java的微信定时发消息给好友 感觉太冗余了 今天用vbs写一个自动发送微信信息给好友
废话不多说 直接上代码  总共加起来不50行不到 
1.bat 就是打开本机的微信 

d:
cd D:\Program Files (x86)\Tencent\WeChat
start "" WeChat.exe

　1.vbs  负责处理业务逻辑

Function ReadFile(FileUrl)
    Dim str
    Set stm = CreateObject("ADODB.stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = "UTF-8"
    stm.Open
    stm.loadfromfile FileUrl
    str = stm.readtext
    stm.Close
    Set stm = Nothing
    ReadFile = str
End Function

Function GetRandomMath(m,n)
    Randomize
    GetRandomMath = Int(((n-m+1) * Rnd) + m)
End Function

Dim str
str = ReadFile("C:\software\autoWX\gw.txt") '要读取的文件
words = Split(str,vbCrLf) 
maxLine = UBound(words)
'Randomize rndLine = Int(maxLine * Rnd) 
teststr = "感悟:"+words(GetRandomMath(1,maxLine))
'MsgBox teststr

'保存到粘贴板
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "cmd.exe /c echo " & teststr & " | clip",0,False

'打开微信 发送消息
Set Shell=Wscript.CreateObject("Wscript.Shell")
Shell.run "cmd /c 1.bat",0 
WScript.Sleep 200 '此行必须是 WScript.Sleep 200 
Shell.SendKeys "^f"
WScript.Sleep 200 '延迟200
Shell.SendKeys "qsjcl" '要发送的人名
Shell.SendKeys "+"
WScript.Sleep 1300 '延迟1300
Shell.SendKeys "~"
WScript.Sleep 500 
Shell.SendKeys "^v"
Shell.SendKeys "~"

　　

　　注：

第40行 Shell.SendKeys "+" 这个是切换输入法 。如果进入微信的时输入法是中文 就不用动 。如果拼音变成汉字可以去掉这行 。搜狗输入法本人验证过了没问题 如果上述方法不行 。可以把群名先保存到粘贴板中 然后ctrl+v 输入到搜索框中

C:\software\autoWX\gw.txt要改成自己的要发的内容按行随机读一行
还有就是自己的微信的路径 D:\Program Files (x86)\Tencent\WeChat 改成自己的

qsjcl这个是要接收人的的首字母 。改成自己的接收人

 

 然后配置