VB.NET 通过vbs发送微信消息

如题，

网上没有源码，但也感谢各路大神留下过星星点灯般的痕迹，才让我有迹可循。

切入正题。

1.第一步是通过vbs脚本文件发送微信消息。

其中代码如下：

    On Error Resume NextDim wsh,Msg,Msgr,NameName="文件传输助手"Msg="老婆早安 夏日里蝉鸣虫叫 不管是瞬间还是长久 依然有着各自对理想的追求"Set wsh = CreateObject("wscript.shell")wsh.Run """C:\Program Files (x86)\Tencent\WeChat\WeChat.exe""",false,falseWScript.Sleep(3000)wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)&     Name&Chr(34)& ")(close)",0,True'把name存入剪切板wscript.sleep 500  '停留500毫秒wsh.sendKeys "^f" '执行ctrl + F快捷键在微信窗口唤醒搜索功能wscript.sleep 1000 wsh.sendKeys "^v" '复制查找发送消息的对象wscript.sleep 1000 wsh.sendKeys "{ENTER}"wscript.sleep 1000 wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,TrueWScript.Sleep(200)wsh.sendKeys "^v"WScript.Sleep(300)wsh.sendKeys "{ENTER}"wscript.sleep(2000)set spans=NoThingSet wsh=NoThingwscript.quit

其中打开微信的代码有2种，其一如下，通过本机微信地址打开，你们使用时需要更改为自己本机的地址：

    wsh.Run """C:\Program Files (x86)\Tencent\WeChat\WeChat.exe""",false,false

其二，在运行微信（电脑端）的情况下，可以通过快捷键调出，如下：

    wsh.sendKeys "^%w"  '通过Ctrl+Alt+W快捷键打开微信

以上两种方案均可。

然后进行以下操作：将上面的代码写入 txt 文件，保存后另存为 .vbs 的文件，双击便可以打开。

但是我们在vb.net程序设计种怎么引用vbs脚本文件来进行操作？这样可行吗？在最开始我也是有这样的疑问，一番探索之后，发现别有一片天地。

首先，可以新建一个窗体，加入Button，如图：

在Button事件中引入VBS内容，

Dim vbs As Object
Dim code As String
code = "此处录入vbs脚本程序内容，注意vbcrlf换行，以及双引号的引用"
vbs = CreateObject("MSScriptControl.ScriptControl")
vbs.Language = "VBScript"
vbs.ExecuteStatement(code)

内容执行完毕，记得code内容必须严格按照格式书写。

延伸内容如下：

操作后手机端接收消息如下：

再给大家一个避坑的点，如下：

vbs中延时代码：

    wscript.sleep 1000  '停留1秒

但是它在vb.net中不适用，在vb.net中需要将以上延时的代码替换为以下代码：

    Ts=TimerDoDoEventsLoop While Timer-Ts<1'延时1秒

VB.NET 通过vbs发送微信消息相关推荐

全网最全的Windows下Anaconda2 / Anaconda3里Python语言实现定时发送微信消息给好友或群里（图文详解）...
不多说,直接上干货! 缘由: (1)最近看到情侣零点送祝福,感觉还是很浪漫的事情,相信有很多人熬夜为了给爱的人送上零点祝福,但是有时等着等着就睡着了或者时间并不是卡的那么准就有点强迫症了,这是也许程序 ...
python自动发送微信-Python自动定时发送微信消息
如今微信已成为我们日常生活的主要交流工具,利用itchat库,我们可以发送微信消息,如果需要定时自动发送,则需要借助apscheduler库,关于apscheduler库,前一篇转载文章有专门的介绍. ...
用python实现自动化办公------定时发送微信消息
python自动化办公------定时发送微信消息身边的一位朋友的真实事迹分享给大家,就暂称他C吧.C是一个英俊潇洒的健身男,经常沾花惹草,桃花运不断,听C说他的微信好友就有5000+,平时回消息都 ...
Python发送微信消息（文字、图片、文件）给指定好友和微信群，零基础可看懂（附源码和教程）
前言本示例是调用Windows API模拟发送,用Python调用win32api这个库来调用Windows API模拟人的手动操作来发送消息. 在使用前,请将你微信的窗口设置为在最前面,这样就便于 ...
使用Java实现发送微信消息（附源码）_此程序在手再也不怕对象跟你闹了
使用Java实现发送微信消息(附源码)_此程序在手再也不怕对象跟你闹了此程序在手再也不怕女朋友跟你闹了!!!!自从有了女朋友比如:早安.晚安之类的问候语可不能断,但是也难免有时候会忘记那么该咋么办呢 ...
利用Python发送微信消息的方法
微信是支持用快捷键打开主界面的,这个可以在微信的设置里看到,如下图所示我们就可以利用这一特性,用Python模拟按快捷键的操作,用来打开微信主界面. 打开主界面之后,使用Ctrl+F,定位到微信的搜 ...
python 发送微信语音消息_全网最全的Windows下Anaconda2 / Anaconda3里Python语言实现定时发送微信消息给好友或群里（图文详解）...
不多说,直接上干货! 缘由: (1)最近看到情侣零点送祝福,感觉还是很浪漫的事情,相信有很多人熬夜为了给爱的人送上零点祝福,但是有时等着等着就睡着了或者时间并不是卡的那么准就有点强迫症了,这是也许程序 ...
shell脚本运维发送微信消息
#!/bin/bash # 监控ElasticSearch服务器运行状态,若服务器停止运行则发送微信消息通知 # 脚本及配置文件config.json运行位置根据实际目录修改 cd /root/De ...
Python自动定时发送微信消息
如今微信已成为我们日常生活的主要交流工具,利用itchat库,我们可以发送微信消息,如果需要定时自动发送,则需要借助apscheduler库,关于apscheduler库,前一篇转载文章有专门的介绍. ...

VB.NET 通过vbs发送微信消息

VB.NET 通过vbs发送微信消息相关推荐

最新文章

热门文章