Autotyper.vbs

' Copy the text below and save it in a text document as "autotyper.vbs"
' this should work for any windows pc XP and later
' Enjoy! ;)

'By DoktorBass

Sub Initialize_Autotyper()

    Dim msg_Get
    Dim times_Get
    Dim lmsg_Get

    msg_Get = inputbox("Enter the Message: ")
    times_Get = inputbox("Enter the number of times to post the message: ")
    lmsg_Get = inputbox("Enter the last/signature message to post: ")

    Call Activate_AutoTyper(msg_Get, times_Get, lmsg_Get)

End Sub

Sub Activate_AutoTyper(msg, times, lmsg)

    Set shellobj = CreateObject("WScript.shell")

    WScript.sleep 5000

    For i = 0 To times

        shellobj.sendkeys msg
        WScript.sleep 200
        shellobj.sendkeys "{ENTER}"
        WScript.sleep 750

    Next

    shellobj.sendkeys lmsg
    WScript.sleep 200
    shellobj.sendkeys "{ENTER}"
    WScript.sleep 200

    Dim finishbox
    finishbox = msgbox("Done!")

    WScript.Quit

End Sub

Call Initialize_Autotyper()