Sunday, June 12, 2011

Develop 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)

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hostgator Discount Code