这是给纯粹的小白写的说明。
整体说明:
需要自己先制作两个文件:1,脚本文件test.vbs;2,歌词文件 content.txt。然后运行脚本文件即可。
制作test.vbs的方法:
记事本新建一个txt文件,复制输入下面代码后保存,改.txt文件后缀为.vbs后缀。
Const ForReading = 1
Dim message
Dim fs, ts, ws
set fs = CreateObject("Scripting.FileSystemObject")
set ts = fs.OpenTextFile("content.txt", ForReading)
set ws=wscript.createobject("wscript.shell")
wscript.sleep 5000
Do Until ts.AtEndOfStream
message = ts.ReadLine
if message <> "" Then
ws.AppActivate("")
ws.Run "cmd.exe /c echo " & message & "| clip.exe", vbHide
wscript.sleep 3000
ws.sendkeys "^v"
ws.sendkeys "{enter}"
'wscript.sleep 1000
End if
Loop
ts.Close
set ts = Nothing
set fs = Nothing
wscript.quit
注释:这段代码的意思是等待5秒后开始一行一行地读content.txt文件,复制粘贴到当前活动窗口,再等待3秒,再复制粘贴下一行,一直到所有行读完。
制作歌词文件的方法:
记事本新建一个txt文件,复制歌词到文件中,以ANSI编码,保存。
“以ANSI编码”的方法是,下载安装一个notepad++,打开txt文件,点击“编码”->“转为ANSI编码格式”,保存,即可。
制作完两个文件之后,使用方法如下:
打开要发弹幕的窗口,双击运行vbs文件,鼠标点击一下发送弹幕的那个输入框位置。等待。
如果不想发弹幕了想要关闭脚本,就打开任务管理器,关闭进程 microsolf base wscript.exe 就会停止运行
例子:在这里下载我做好的两个文件, 文件我刚上传,审核大概需要一两天,可能晚点才看得到这个下载页面。
没有积分的可以邮件找我要,huqiaoping23@qq.com
如果要无限循环,代码改成如下:
Const ForReading = 1
Dim message
Dim fs, ts, ws
set fs = CreateObject("Scripting.FileSystemObject")
set ws=wscript.createobject("wscript.shell")
wscript.sleep 5000
ws.AppActivate("")
Do
set ts = fs.OpenTextFile("content.txt", ForReading)
Do Until ts.AtEndOfStream
message = ts.ReadLine
if message <> "" Then
ws.Run "cmd.exe /c echo " & message & "| clip.exe", vbHide
wscript.sleep 1000
ws.sendkeys "^v"
ws.sendkeys "{enter}"
End if
Loop
ts.Close
set ts = Nothing
Loop
set fs = Nothing
wscript.quit
注释:区别是外圈多了一层循环哈哈哈
喜欢请打赏,一毛两毛也是个意思
支F宝账号:2363891614@qq.com