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)