微信定時發消息給好友

起因 ：加入一個新的公司 每周都要發感悟，這種死板重復的工作，作為一個程序員怎么能忍呀！ 肯定程序定時發呀
上次寫了一個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這個是要接收人的的首字母 。改成自己的接收人

 

 然后配置