Develop & create ur own Chat Bot

Well, this is not new, but already posted somewhere by me in this community.

So posting it for messenger windows this time.

Let us develop a chat bot.
What we are going to do is, create a shell object instance in vbs and then send keys to the currently activated (selected) window.

Open notepad and create a file named bot.vbs with following code
:



set x=CreateObject("Wscript.Shell")

Wscript.Sleep(3000)
x.SendKeys "{H}{i}"+chr(13)
Wscript.Sleep(3000)
x.SendKeys "{H}{o}{w}{ }{a}{r}{e}{ }{y}{o}{u}{?}"+chr(13)
Wscript.Sleep(3000)
x.SendKeys "{I}{ }{a}{m}{ }{f}{i}{n}{e}"+chr(13)
Wscript.Sleep(3000)
x.SendKeys "{K}{e}{e}{p}{ }{o}{n}{ }{m}{a}{n}"+chr(13)
Wscript.Sleep(3000)
x.SendKeys "{:}{)}"+chr(13)
Wscript.Sleep(3000)
x.SendKeys "{;}{x}"+chr(13)


And save bot.vbs


Now open up the chat window in gtalk or in yahoo messenger or whatever messenger.

Double click the bot.vbs and immediately select the person whome u want to automate the chat.

The code will automatically send the sentences to the selected chat window.


and with random delays:



set x=CreateObject("Wscript.Shell")

Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{H}{i}"+chr(13)
Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{H}{o}{w}{ }{a}{r}{e}{ }{y}{o}{u}{?}"+chr(13)
Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{I}{ }{a}{m}{ }{f}{i}{n}{e}"+chr(13)
Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{K}{e}{e}{p}{ }{o}{n}{ }{m}{a}{n}"+chr(13)
Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{:}{)}"+chr(13)
Wscript.Sleep(Int((10000-1000+1)*Rnd+1000))
x.SendKeys "{;}{x}"+chr(13)

Posted in: latest news,Programming