2.如何实现使用VBS脚本程序对直播间自动评论

前言：本文使用的是VBS脚本，实现了对繁星直播自动登录，自动进入房间并且自动评论。

前提准备：把需要刷的评论放到mysql中，再使用vbs读出评论

--------------------------------------------------------------------------------

1.vbs实现连接mysql数据库并且读出数据

首先本地或者远程有一个mysql，再者，需要下载mysql connector，下载链接http://dev.mysql.com/downloads/connector/odbc/

或者去本人的网盘下载，具体根据mysql的版本来决定

32位链接: http://pan.baidu.com/s/1jIHbCXo 密码: ge69

64位链接: http://pan.baidu.com/s/1eSJlFA6 密码: ukwq

下载安装之后配置

方法如下：控制面板->管理工具

->ODBC数据源（选择合适位数）

添加数据源

编写配置：

确定

------------------------------------------------------------------------------------------------------------

具体代码为：

set WshShell=WScript.CreateObject("WScript.Shell")
Dim conn
'连接数据库
function connectMysql()
    strConn="dsn=mysql;driver={MySql ODBC 5.3 Unicode Driver};server=localhost;database=wechat;port=3306;uid=root;password=basketball"
    Set conn = CreateObject("adodb.connection")
    conn.Open strConn
    If conn.State =  Then
        MsgBox  "fail"
        WScript.quit
    Else
        MsgBox  "success"
    End If
    connectMysql = conn
End function

'把数据库中的用户都读出来
Function readUser()
    connectMysql
    Set Rst =CreateObject("ADODB.Recordset")
    Dim user()
    Rst.open "select account,pwd from user",conn
    i=
    While not Rst.eof
    Redim Preserve user(i,)
    user(i,)=Rst("account").value
    user(i,)=Rst("pwd").value
    MsgBox user(i,)
    MsgBox user(i,)
    i = i+
    Rst.movenext
    wend
    Rst.close          '关闭记录集
    Set Rst=nothing    '释放对象
    conn.close         '关闭连接
    Set conn=nothing   '释放对象
    readUser = User
End Function 

'把数据库中的评论都读出来
Function readRemark()
    connectMysql
    Set Rst =CreateObject("ADODB.Recordset")
    Dim myRemark()
    Rst.open "select remark from remark",conn
    i=
    While not Rst.eof
    Redim Preserve myRemark(i)
    myRemark(i)=Rst("remark").value
    'MsgBox  myRemark(i)
    i = i+
    Rst.movenext
    wend
    Rst.close          '关闭记录集
    Set Rst=nothing    '释放对象
    conn.close         '关闭连接
    Set conn=nothing   '释放对象
    readRemark = myRemark
End Function

'把评论刷在直播间
function login()
    '获取评论
    Remark = readRemark()
    User = readUser()
    for i= to UBound(User)
        Dim ie
        Set ie = CreateObject("InternetExplorer.Application")
        ie.navigate "http://fanxing.kugou.com/"
        Wscript.sleep
        ie.document.getElementById("fxLogin").Click
        ie.document.getElementById("loginSdk_loginUserName").Value = User(i,)
        ie.document.getElementById("loginSdk_loginPassWord").Value = user(i,)
        ie.document.getElementById("loginSdk_loginBtn").Click
        Wscript.sleep
        Set ie2 = CreateObject("InternetExplorer.Application")
        ie2.navigate "http://fanxing.kugou.com/1038049"
        Wscript.sleep
        for j= to UBound(Remark)
        Wscript.sleep
        ie2.document.getElementById("inputChatMessage").Value = Remark(j)
        Wscript.sleep
        ie2.document.getElementById("sendMessageButton").Click
        next
    next
end function

'关闭浏览器
function closeWeb()
    Set ws = CreateObject("Wscript.Shell")
    ws.run "taskkill /f /im 360se.exe",vbhide
End Function

'开始执行
login
Wscript.sleep
closeWeb
Wscript.Quit

以上代码结合起来即可实现自动登陆繁星并且实现自动评论，其中一些参数需要要实际情况自己填写。

源码

效果如下：