cripec

```vbs
ForceCScript

Const IEVisibleMode = 1 ' 0 - IE скрыт; 1 - IE показан только в фазе ожидания; 2 - IE всегда показан
Const DiscordChannelLink = "https://discordapp.com/channels/175951720990507008/175956780398936065"
Call ExecuteFile("misc_functions.vbs")
Call SetEmojiList("http://pastebin.com/raw/EjAABMpv", emoji_array)

Set objIE = CreateObject("InternetExplorer.Application")
If IEVisibleMode => 1 Then objIE.Visible = True
objIE.Navigate DiscordChannelLink

Do While objIE.Busy
 WScript.Echo "Ожидаю IE..."
 WScript.Sleep 350
Loop
Do While GetLastMessageID(objIE) < 0
 WScript.Echo "Ожидаю Дискорд..."
 WScript.Sleep 350
Loop

If IEVisibleMode = 1 Then objIE.Visible = False:WScript.Echo "IE скрыт."
WScript.Echo "[" & Time & "] Работаю."

WordsArray = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("bad_words.txt", 1).ReadAll, vbNewLine)

Do
 LastMsg = LCase(GetMessageByID(objIE, GetLastMessageID(objIE)))
 If Not(LastMsg = LastCreep) Then
  For y = 0 To UBound(WordsArray)
   If InStr(LastMsg, WordsArray(y)) Then
    objIE.document.getElementsByClassName("btn-reaction")(objIE.document.getElementsByClassName("btn-reaction").length-1).click
    If objIE.document.getElementsByClassName("emoji-item").length > 0 Then objIE.document.getElementsByClassName("emoji-item")(0).click
   End If
  Next
  LastCreep = LastMsg
 End If

 WScript.Sleep 250
Loop

Sub ExecuteFile(file)
 Execute CreateObject("Scripting.FileSystemObject").OpenTextFile(file).ReadAll
End Sub

' -,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-
' Базовые функции для работы с Дискордом
' -,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-

Sub SetEmojiList(link, emoji_array)
 With CreateObject("Microsoft.XMLHTTP"):.Open "GET", link, False:.Send
  emoji_array = Split(.responseText, vbNewLine)
 End With
End Sub

Sub RegisterEnterEvent(obj)
 obj.document.parentWindow.execScript "var kpevent=document.createEvent('Events');kpevent.initEvent('keypress',1,1);kpevent.keyCode=13;kpevent.which=13;"
End Sub

Sub SendMessage(obj, message)
 If IsEmpty(message) = False Then
  obj.document.getElementsByTagName("textarea")(0).value = message
  obj.document.getElementsByTagName("textarea")(0).focus
  obj.document.parentWindow.execScript "document.getElementsByTagName('textarea')(0).dispatchEvent(kpevent);"
 End If
End Sub

Function GetLastMessageID(obj)
 GetLastMessageID = obj.document.getElementsByClassName("message-text").length - 1
End Function

Function GetMessageByID(obj, id)
 GetMessageByID = Mid(obj.document.getElementsByClassName("message-text")(id).innerText, 5)
End Function

Sub ForceCScript
    Dim Arg, Str
    If Not LCase( Right( WScript.FullName, 12 ) ) = "\cscript.exe" Then
        For Each Arg In WScript.Arguments
            If InStr( Arg, " " ) Then Arg = """" & Arg & """"
            Str = Str & " " & Arg
        Next
        CreateObject( "WScript.Shell" ).Run _
            "cscript //nologo """ & _
            WScript.ScriptFullName & _
            """ " & Str
        WScript.Quit
    End If
End Sub
```