自动发信息vbs

版权声明：署名，允许他人基于本文进行创作，且必须基于与原先许可协议相同的许可协议分发本文 （Creative Commons）

自动发信息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