【给小白玩的脚本】自动发歌词、发弹幕

这是给纯粹的小白写的说明。

整体说明：
需要自己先制作两个文件：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 就会停止运行

参考文献：vbs 自动复制粘贴文字，批量定时在窗口发文字

例子：在这里下载我做好的两个文件, 文件我刚上传，审核大概需要一两天，可能晚点才看得到这个下载页面。
没有积分的可以邮件找我要,[email protected]

如果要无限循环，代码改成如下：

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宝账号：[email protected]