自动发信息vbs

最新推荐文章于 2024-06-20 19:14:44 发布

元小旦

最新推荐文章于 2024-06-20 19:14:44 发布

阅读量2.4k

点赞数 3

分类专栏：推荐文章标签： vbs

必须包含文章地址和作者名称并征得作者同意后方可转载～联系作者：QQ2980077544注明来意。

本文链接：https://blog.csdn.net/yuanwow/article/details/93340837

版权

推荐专栏收录该内容

24 篇文章 1 订阅

订阅专栏

自动发信息vbs

~~记住不要坑人，否则变成猪头不怪我~~
复制

Sub SetClipboardText(Text)
Set objIE = CreateObject(“InternetExplorer.Application”)
objIE.Navigate(“about:blank”)
objIE.Document.ParentWindow.ClipboardData.SetData “text”, Text
objIE.Quit
End Sub
Sub SetClipboardTextA(Text)
Dim Word
Set Word = CreateObject(“Word.Application”)
Word.Documents.Add
Word.Selection.Text = Text
Word.Selection.Copy
Word.Quit False
End Sub
i=1
c=test
set wshshell=createobject(“wscript.shell”)
c=inputbox(“发送内容”,“in”,“test”)
SetClipboardTextA©
wscript.Sleep 1000
do while i<=100
wshshell.sendkeys “^V”
WshShell.SendKeys i
WshShell.SendKeys “{enter}”
wscript.Sleep 50
i=i+1
loop

在下面的代码片中复制代码

Sub SetClipboardText(Text)
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", Text
objIE.Quit
End Sub
Sub SetClipboardTextA(Text)
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = Text
Word.Selection.Copy
Word.Quit False
End Sub
i=1
c=test
set wshshell=createobject("wscript.shell")
c=inputbox("发送内容","in","test")
SetClipboardTextA(c)
wscript.Sleep 1000
do while i<=100
wshshell.sendkeys "^V"
WshShell.SendKeys i
WshShell.SendKeys "{enter}"
wscript.Sleep 50
i=i+1
loop