vbs脚本可以实现qq发送vbs整人代码怎么用，原理是发送联系人到桌面，然后用vbs直接调用桌面快捷方式打开聊天窗口发送消息关闭窗口，然后把这个vbs脚本添加到系统的自动调度，按你需要的时间进行调度，当然你也可以把定时写进vbs，让这个脚本常驻运行，就不用了添加到调度，或者添加为开机自动执行。

首先vbs整人代码怎么用，你需要建一个文档，把你要发送的内容写入文档，然后保存为txt，发送快捷方式到桌面。找到这个快捷方式，右键，属性，复制目标里边的内容，我在这里称它为A。

然后把你要发消息的人发送快捷方式到桌面vbs整人代码怎么用，也复制目标里边的内容。我们称它为B

新建一个txt文档，

用上边复制的AB路径代替代码里的A B ，保存，重命名，将后缀名改为vbs。手动运行查看效果。当然，脚本运行时qq需要在线，不能在脚本执行打开窗口的一系列操作时操作键盘，不能切换窗口等。WScript.Sleep 1000是一个延时，可以根据自己的电脑适度调小。如果你要给多个人发消息的话，复制第十行以及以后的代码，粘贴多份在后边，并将B替换为不同联系人的桌面快捷方式。如果效果没问题，就可以把这个脚本加入系统的自动调度，定时执行啦。

实测，发送一次之后桌面联系人快捷方式可以删除，保存发送内容的文本快捷方式不可删除。

微信由于没找到怎么发送联系人到桌面还在研究其他替代方案。

网上down了一段代码，发现可以发送微信消息

name是你要发的人的名字，msg是发送内容。

怎么在vb里运行vbs代码？

将代码保存为脚本文件，如保存到C\\1.vbs然后在vb中引用api函数：Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long这样调用这个函数就好了Private Sub Command1_Click() Dim VBS As String VBS = \"C:\\1.vbs\" ‘文件路径 ShellExecute ByVal 0, \"open\", VBS, ByVal 0, ByVal 0, ByVal 0End Sub

vbe整人代码，说我是猪的那个，只要代码，不要文字？

onerrorresumenext dimWSHshellA setWSHshellA=wscript.createobject(\"wscript.shell\") WSHshellA.run\"cmd.exe/cshutdown-r-t60-c\"\"一分钟关你机，不信，试试···\"\"\",0,true dima dowhile(a\"我是猪\") a=inputbox(\"说\"\"我是猪\"\"0\",\"说不说\",\"不说\",8000,7000) msgboxchr(13)chr(13)chr(13)a,0,\"MsgBox\" loop msgboxchr(13)chr(13)chr(13)\"早说就行了嘛\" dimWSHshell setWSHshell=wscript.createobject(\"wscript.shell\") WSHshell.run\"cmd.exe/cshutdown-a\",0,true msgboxchr(13)chr(13)chr(13)\"哈哈哈哈，真过瘾\"