Notepad Tricks Ep. 4 - Creating a chatbot (VBS)

[Ikemaster300]

Wait some is not there i was looking at @AZZAMNO1 's comment My ChatBot really goes like this: dim fname fname=inputbox ("Yo wazzup! Whats yo name?") fname=inputbox("Kewl Name!! ") fname=inputbox("Where do you live? ") fname=inputbox("Awesome! I wish I could live in " & fname) fname=inputbox("Oh yeah, I'm here with you so that means I live in " & fname) fname=inputbox("YES!!!! ") fname=inputbox("I'm so stupid ") fname=inputbox("I'm going to go now ") fname=inputbox("Ok bye ")

[Ikemaster300]

My ChatBot: dim fname

fname=inputbox ("What is you Name :D?")

fname=inputbox("What a weird Name! ")

fname=inputbox("Where do you live? ")

fname=inputbox("Awesome! I wish I could live in " & fname)

fname=inputbox("Oh yeah, I'm here with you so that means I live in " & fname)

fname=inputbox("YES!!!! ")

fname=inputbox("I'm going to go now ")

fname=inputbox("Ok bye ")

[AZZAMNO1]

My vbs code a=inputbox("What is Your Name :D") msgbox "" +a+ "? That a weird name !" b=inputbox("where do u live") msgbox "" +b+ "? Lol wat!" c=inputbox("how old are you") msgbox "" +c+ "! wow.. older then this thing :O" d=inputbox("do you want Uberstrike Zombie hack") msgbox "" +d+ " u can get it in ur winrar" e=inputbox("the Pass of the winRar is Zombie") msgbox "" +e+ " wut wrong... :S" f=inputbox("u Lucky because I dont tell U Free") msgbox " o0oo u"

[Traian905]

awesome

[TheDanSpicer]

oh I love tool!

[MrWarriorguy]

cant even here the bot

[dog5770]

cool

[V3ryan]

The only problem is a real chatbot can keep up with the user. If the user changes subject at random, the chatbot responds appropriately. (For the most part) This is all prescripted, and it has no way of keeping up.

[BleuTech]

Grrr, my antivirus block vbs files and when i try to unblock it it tells me i CAN'T unblock it

[Ikemaster300]

@BleuTech are you on an Administrator?

[carmanino]

i want to give my chatbot a name? is it possiballe and i would have an idea if it was possibale that once it knows your name it would always say how are you feeling name without asking every time?

[rsozzy5t9]

mmm does it work if we try sending it to ips

[DaKillZ09]

SONG!?

[stfuimpaul]

for lonely people :)

[mishalml007]

get more hackings at realhackings com

[nightninja94]

nice :) keep on !



[TheAxerman123]

Your a fast typer thumbs up if u agree

[Applejuice591]

@TheAxerman123 you just want thumbs up weirdo



[carmanino]

@Applejuice591 thumbs up if he just wanted thumbs up

[Applejuice591]

@carmanino why do you want im to have thumbs up for people who... meh, I don't even remember the "thubs up for" reason, that is how less I care...

[12OunceProphet]

@TheAxerman123 thumbs down !

[zapper067]

dont work.

[MrLeftywright]

put the code in the description

its easier

[hugie1234567890]

i got a systemfoul 5

[alllks]

@hugie1234567890 whats that, if I can ask...

[unratedPT]

Hey can you do this with the shutdown code like  it asks questions then shutsdown

[mart306e]

shit song x(

[234isaac234]

dun try using .bat i didnt work

[DavidBassMasta]

@234isaac234

cuz its a VBS

[1999lego]

Why are you feeling I'm feeling good? xD

[1999lego]

COOLIO, LOWD BOWSEW!!! xD

[Pokegod100]

Thank god... I had forgotten how to script in notepad for vbs scripts.

[iordanis11]

Script is blocked... Help!!!

[kierakiwi101]

@iordanis11 same i dont know what to do someone help us too?

[iordanis11]

@kierakiwi101 I dont know i have no answe 2 :[!

[SK8RBOY586]

i want to make something like this... but its not working..

dim fname

fname=inputbox ("what is your name?")

fname2=msgbox ("oh, hi " &fname)

fname3=inputbox ("how are you?")

fname4=msgbox ("wow, thats weird, im feeling " &fname3) ("too")

[jakam174]

@SK8RBOY586 delete the fname from msg boxlike this:

Dim fname fname=inputbox("what is your name?") msgbox("oh,hi"&fname) fname=inputbox("how are you?") msgbox("wow, thats weird, im feeling" &fname)

[GameosityXD]

@SK8RBOY586 Here try this:

dim fname

fname=inputbox ("Hi, what's your name?")

fname2=msgbox ("oh, hi " &fname)

fname3=inputbox ("how are you?")

fname4=msgbox ("wow, that's weird, I'm also feeling " &fname3)

fname5=inputbox ("what would you like to do?")

fname6=msgbox ("sure I would love to " &fname5)

fname7=inputbox ("so, let's " &fname5)

[jakam174]

Hello to all: Test this code:

Dim fyourq fyourq = InputBox("Ask me a question.") If fyourq = "What is your name?" Then MsgBox("My name is Chat Bot.") fyourq = InputBox("Ask me a new question.") End If

It will allow you to ask questions to your chat bot:For this code i used

What is your name? the bot will reply "My name is chat bot

Hope you like it!

[NinjaKniver2009]

finally someone on youtube who knows how to type fast :D

[royron21]

@Ashwinder92 the codes soooo short lol

[Ashwinder92]

idiot next time put the damn code in the video infomation.

[Legofan78]

@Ashwinder92 why dont you copy it out yourself, lazy

[DeathHound22]

How are you so good?

[RandomAccount360]

Yes! Now i can talk to myself!!

[groola]

i did exactly what you did and whenever i try to open it it sais "compiliant error"

[MrR0FL]

how can i Continu to "talk" with somebody after i put & fname?

my code didn't worked:

dim fname

fname=inputbox("Hi! What is your name?")

fname=inputbox("Hi " & fname "My name is LALA")

[Blox5320]

OMG i just found another trick to this!

if you want text to already be in the text box, just put this in:

dim fname

lol=inputbox ("text","text","more text")

Replace "text" and "more text" with whatever you want.

[alkalurobs]

it doesnt work. does someone know why?

plz help

[giannadimou]

hey,it says eror! i have vista ultimate,but how do you open it?

[734893]

Hi all! It's also possible to create a .php file that inputs data from a web form.

[ZoZitDat001]

btw, you could replace fname with ANYTHING you want, as long as you do it with EVERY fname that's in it.

[C0DESUB]

How come if i open up an .vbs file i get notepad?

[dabuzzard1]

@C0DESUB you have not saved it as a .VBS file wich oyu can do by going to save as>type in the name> in the name put .VBS at the end.

Hope that helps.

[BurnTheOpposing]

@dabuzzard1 and make sure you change save as text file (.txt) to save as all files

[PromotedTutorials]

@BurnTheOpposing That part doesnt matter i saved it as all files i guess it works for both

[BurnTheOpposing]

@PromotedTutorials sorry for the misunderstanding but thats what i meant ^^ i meant to change it when it says save as txt as default, its supposed to be all files

[thingthingsss]

DROWNING POOL!!! YEAH!!!!

[ninja99900999]

can u change the font color?

[tes4King]

Color A1(Green) A 1-9 for colors

[RobertTheRobot1]

Say i have asked someones name, how would i put it in the middle of a sentence, like,

fname=inputbox("Well hello " & fname!!!) How do i say, my name is RobertTheRobot where the !!! are?... so the fname is in the middle of a sentence?

[ninja99900999]

@RobertTheRobot1 you should reely read the comments more often :P but since im nice, ill save you the labor

fname=inputbox("Well hello "+fname+"!!!"

if you want the last responce in comment just put "+fname+" where u want it.

[RobertTheRobot1]

@ninja99900999 Lol, i actually read someone them :P thanks anyway xD

[princemaster12345]

how do i stop the code like if i say fname=inputbox("type stopit to quit") whats the code to stop

[KreoTheHedgehog]

kid love it! (me)

[TheNikolaiBishop]

why would anyone want to do this?

[TheGamersGateway]

@TheNikolaiBishop

then why r u watching it

[alibabafreak]

yay i got it working =D

[Akbaboy]

I am only good at one programming language (no, I have never made a Hello, World. That's how good I am ;) .) and it is VB (or Visual Basic).

[alibabafreak]

whaaa? it just says when i open:

Script: C:/Documents and settings/...

Line: 2

Char: 16

Error: Syntax error

Code: 800A****

Source: Microsoft VBScript compilation error

and then there is a box saying ''ok'' WHAT THE HELL!??

[the731272]

there is an easier way just type

msgbox "ur message here" with the quotes

[alibabafreak]

@the731272 does still not work :(

[oilsaintoils69]

Go to line 2, character 16 and there will be an error in what you have typed.

[sheepnote]

dim fname

fname=inputbox("Hi! Whats your name?")

fname=inputbox("Be ready for the next question, " & fname)

fname=inputbox("I'm a loser because _____. Fill in the blank")

fname=inputbox("That's right! I'm a loser because " & fname)

fname=inputbox("I suck so much!")

Hells yeah!

[bostjanjaksa]

dim fname

fname=inputbox("Hi! Whats your name?")

fname=inputbox("How are you feeling " & fname)

fname=inputbox("Why are you feeling " & fname)

fname=inputbox("Your A lozer becaouse you typed " & fname)

fname=inputbox("LOL")

[DsTutorial]

can u repie to my message well on my chat bot i want to end it with the persons name how do i do thats???

[x0xlief]

add

"+fname+"

to the message area

[5yn3r6y]

Thx Man! I was a beginner, now im not ;P

I need some help: What is this song?

[vintzsbb]

how do u noe so much?

[akedibo]

I just made one saying "fname=inputbox("Jeg snakker med deg nå. " & fname)"

722176 times.

[dabuzzard1]

lol =]

[Blox5320]

I GOT A GOOD ONE!

this is funny!

dim fname

fname=inputbox("hello, whats your name?")

fname1=inputbox("well "+fname+". My name is Amy Rose.;)")

x=msgbox("face it, you love Amy Rose!")

in fname, put your name

in fname2, put *runs away*

i lol'ed f*ckin hard!

[MovieYlar]

lol

[BILLYBOB12231]

Blox5320, that`s some funny shit right there

[Blox5320]

@BILLYBOB12231 i edited that one. i hope you like this one: dim fname fname=inputbox("hello, whats your name?") fname1=inputbox("well "+fname+". My name is Amy Rose.;)") fname2=inputbox("face it, you love me! Amy Rose!") fname3=inputbox("why are you saying no? cuz you think im ugly?") fname4=inputbox("*cries*") fname5=inputbox("really? you think im cute?") fname6=inputbox("I LOVE YOU!!") x=msgbox("Amy walks away, mouthing 'I Love You'. now you can laugh ur ass off.") its v2.

[KeNnYrOxXxX]

lol i love it its funny as

[lebronbush5]

omg! no vbs files will work 4 me! they all bring up errors... any suggestions?

[ChIpMuNkMuSiC2009]

mine too.

[cricketgd]

goto run and type regsvr VBSript if error appears type in cmd but make sure u run as administrator

[CyberHaxx]

Well, try to change the extension to .vbe, it's possible the .vbs extension is not in your register.

[khous1000]

thats pritty cool thx 5/5

[CartmanTheTrikz0r]

can i make it do like this "it asks "whats your name" and then the user puts the name in, and then the program saves the name to a text file...?

do i need sum c++ or batch things tho?

[RakionTube]

how do you put words/punctuation marks behind the &fname?

[twothosand]

i can finaly hack my dads somputer SCORE hehe... song?

[mathieurules]

you just have a new subscriber :) lol

[TheNasiPanas]

well its nice and simple, but i wonder if u could make a tut vid to make a hard one, because this one is not act like a bot afterall(to me), it just simply asking question and after we answered it it continue askin other question, TY for the vid,i rated u

[sourabh422]

i luv u dude

[emanuelownzu23]

Hey i found something! if u dont put: & fname) then u can ask something off topic cuz it wont say answer from last 1

[Newton800]

Wow! A chatbot writen in just a few lines of code in VB Script. I have myself started a more in detailed tutorial on how to create a chatbot, , the tutorial is available in many programming languages: C++, C#, Java, Visual Basic, Pascal, Lisp and Prolog.

To access the tutorial, search for chatbot tutorial on google (look in the first results)

[Basshunterrockz]

how do i make the bot say oh my gosh (the answered color) is my favourite color to

[h3rry123]

@Basshunterrockz

fname=inputbox("oh my gosh "+fname+" is my favourite color to")

hope it worked

[GoldenGun1994]

can you make it save the input from the user?

[IDOG321]

Tip: If you know what they are, USE IF STATEMENTS! It makes it more fun :3

[chillikking]

it didnt work it poped up a box that say windows script host what to do?

[Blox5320]

i already made a chat bot and if you put like "+fname1+" or some thing it will say like "Pepsi is your fav drink,yes?" when you enter something in the box

[ihackyou123]

how do u add ? or !

[Barrealster]

blablablablabalhblBH=e9w 347ß9z8ghb

c

[Daniel55556]

lol

[Daniel55556]

lol i love windows

[bigbookofnothing]

why do these always have such noisy music, it really annoys me.

[ShevinFC]

i had my speakers on full blast! i jumped!

[chillikking]

me too i was listening to ozzy lol

[IDOG321]

IT'S AMBIENCE...well the kind that doesn't suck! :3

[nabbythecutie]

dim fname

fname=inputbox("Hello, My name is Dr. Feelgood, what is your name?")

fname1=inputbox("Ahh yes, "+fname+", for some reason many people with mental problems have that name... hmmm, strange isn't it?")

fname2=inputbox(""+fname1+"? Ok, well I do. So, what seem to be your problem?")

fname3=inputbox("Hmmm, "+fname2+". I have four other patients named "+fname+" who have the same problem. Maybe we should call it "+fname+"alosis... *chuckles* get it?")

[nabbythecutie]

fname4=inputbox("Ok, anyways, what type of medication do you take?")

fname5=inputbox("Well, I don't think that "+fname4+" will help at all! I'll put you on some custom medication. Is that ok with you?")

fname6=inputbox(""+fname5+"...­.. well, I think I'll have put you on it anyways. How much are you willing to pay?")

fname7=inputbox(""+fname6+"?!?­!?!?!? you crazy I'll have to double "+fname6+"! And I'm afraid you have to get it! Do you want to die?")

[ERPP8]

fname=inputbox("i have to go because i'm overheating")

StrText=("bye, dont forget to click chat dot vee bee s on the desktop again soon!")

set ObjVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Speak StrText

fname=inputbox("bye, dont forget to click chat.vbs on the desktop soon!")

[ERPP8]

ObjVoice.Speak StrText

fname=inputbox("what's your favorite color?")

StrText=(fname & " is my favorite color too")

set ObjVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Speak StrText

fname=inputbox(fname & " is my favorite color too")

StrText=("i have to go because i'm overheating")

set ObjVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Speak StrText

[ERPP8]

dim fname StrText=("Hi! whats your name!") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText fname=inputbox("HI! what's you name?") StrText=("nice to meet you " & fname & ",my name is HP HDX 18") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText fname=inputbox("nice to meeet you " & fname & ",my name is (your computer's model") StrText=("what's your favorite color?") set ObjVoice = CreateObject("SAPI.SpVoice")

[daydayANDcraig]

same song?

[karzlovemagic]

HAHAHHAHA ITS VERY FUN

[gogeta486]

Why the same song :(

[iBombzU]

dim fname

fname=inputbox("hi whats ur name")

fname=inputbox("hello " & fname)

fname=inputbox("my name is jimmy carlson")

fname=inputbox("whats ur favorite color?")

fname=inputbox("why is it " & fname)

fname=inputbox("i forgot wats ur name again")

fname=inputbox("thank you " & fname)

fname=inputbox("i have to go")

fname=inputbox(" " & fname)

[ldac54]

nice :)

[IsaProducitons]

it doesnt work

[SAMZAMAN12]

dim fname StrText=("Hi! whats your name!") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText fname=inputbox("hi! what's your name") StrText=("how are you feeling " & fname) set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText fname=inputbox("how are you feeling " & fname) StrText=("what are you going to do today") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText fname=inputbox("What are you doing today")

[giannadimou]

@SAMZAMAN12  error !!!!!!!

[marthmo]

dimfname

fname=inputbox("Hi! What's your name?")

fname2=inputbox("Hello "+fname+"!!! Im called Rima , the best chatbot ever made!!")

fname3=inputbox("How are you feeling?")

fname4=inputbox("Is there a particular reason why you are feeling "+fname3+"? If there is, tell it to me!")

fname5=inputbox("Whats your favorite food?")

fname6=inputbox("Well whadya know! My favorite food also is "+fname5+"!")

[H4675252]

Thanks!

[bsasam]

dont get your music from limewire

your music is bad qualtiy

[CoolOppo]

He actually used audioswap genuis!

[Z3AI0T]

Don't try explaining it to him, he's got the intellectual capacity of a pane of glass. And the music isn't bad quality, the FILE is bad quality. Drowning Pool is the shit.

[jmthetank]

Drowning Pool is definitely the shit. "Soldiers"!

[bigreda357]

dim fname fname=inputbox("Hello") fname=inputbox("Whats your name?") fname=inputbox("Thats a nice name, my name is comp") fname=inputbox("yup.") fname=inputbox("So how are you feeling?") fname=inputbox("thats good i guess.lol why do you feel that way?") fname=inputbox("Well i can make you feel even better =]") fname=inputbox("How you ask? How about Destroying your hard drive?") fname=inputbox("Why not?") fname=inputbox("But it will make me feel better")

[bigreda357]

fname=inputbox("Well if you dont want me to feel better FUCK OFF")

fname=inputbox("Bye Bye now.")

[znorro123]

it istn´t working for me! please help!!

[BruteStomper]

heres my trick of saying the computer hates you! (in my opinion) dim fname fname=inputbox(" ") fname=inputbox("Yes") fname=inputbox("Because you download shit everyday and im sick of it") fname=inputbox("FUCK YOU") fname=inputbox("Shutting down system in 5 seconds") fname=inputbox("5") fname=inputbox("4") fname=inputbox("3") fname=inputbox("2") fname=inputbox("1") fname=inputbox("0") fname=inputbox("Have a nice day! Bye, bye!")

[MosaHadisha]

I can't put mine because its too long XD

[FlamingMovies]

fname=inputbox("hi! what's your name?")

fname2=inputbox("Hello "+fname+"!!! im called Pokemaster, the master of pokemon chatting!!")

fname3=inputbox("whats your favorite pokemon?")

fname4=inputbox("Is there a reason that's your favorite pokemon "+fname3+"? if there is, tell it to me!")

fname5=inputbox("whats your favorite pokemon game?")

fnameFF=inputbox("well whadya know! my favorite pokemon game also is "+fname5+"!")

x=msgbox ("GoodeBye "+fname+"!!! You are my PokeBuddy! ") & fname

[rob432g]

fname=imputbox("hi u up for some fun")

fname=imputbox("im not hahahahaha just kiddin")x=msgbox ("GoodeBye,ttyl ") & fname

[jwb72199]

a=inputbox("Hi there! What's your name?")

a=inputbox("How are you fealing " & a & "?")

a=inputbox("Why are you fealing " & a & "?")

a=msgbox("Well I hope that " & a & " is a good thing")

is mine

[nintendoto]

here's mine

dim fname

fname=inputbox("Hi! What's your name?")

fname=inputbox("How are you feeling " & fname & "?")

fname=inputbox("Why are you feeling " & fname & "?")

[dylanpdx]

try mine! make sure to fill in every textbox!

my script is just below this comment!

[dylanpdx]

fname=inputbox("hi! what's your name?")

fname2=inputbox("Hello "+fname+"!!! im called Dylanpdx, the best chat bot ever made!!")

fname3=inputbox("how are you feeling?")

fname4=inputbox("Is there a particular reason why you are feeling "+fname3+"? if there is, tell it to me!")

fname5=inputbox("whats your favorite food?")

fnameFF=inputbox("well whadya know! my favorite food also is "+fname5+"!")

x=msgbox ("GoodeBye "+fname+"!!! You are my #1 friend! ") & fname

[annamoradi]

btw people fname = first name.

you can use lname to get last name

if you did :-

dim fname

dim lname

fname=inputbox("what's your first name")

lname=inputbox("what's your last name " & fname)

fname=inputbox("ok " & fname & lname)

it would make the bot say first name + second name.

[KingAamirLujee]

how cumz this isnot workin', can ani1 help me ???

[n1ghtfir357]

this is my chat bot i made fname=inputbox("hi! what's your name?") fname=inputbox("im called andrews the best bot made by andrew stornelli!!!") fname=inputbox("ask me a yes or no question plz") fname=inputbox("yes") fname=inputbox("no") fname=inputbox("yes") fname=inputbox("no") fname=inputbox("no") fname=inputbox("yes") fname=inputbox("sorry thats all i can answer try reopening me and asking me some more") x=msgbox ("GoodeBye,ttyl ") & fname but more yes and no's

[helzboy11]

its pro !!!!!!!!!!!!!!!!!!!!!!!!!1

[da9elan]

dim fname

fname=inputbox("Hi ! What's your name?")

fname=inputbox("How are you feeling today " &

fname)

fname=inputbox(" Why are you feeling " &

fname)

[fatso79750]

hey im typing it just like you say but when i go to try it out it says vbs script error is there something wrong that i am doing?

[FireBirdTutorials]

Make it a loop <.<;; that would get on someones nerves

[alqtyman]

"diferent" is spelled different!

[guypenfilms]

thanks you teach me sumthing

[bathoids]

do

x=msgbox("muhahaha",2,"comp")

loop

this is awsome you go to try it

[K1Y2L1E7]

lololololol

[haloemoguy]

gah! i hate u!

[dummshapeshifter]

Z3AI0T your videos are rlly good!

[elisha054]

fname=inputbox("name here")

x=msgbox ("hello ") & fname

save as name.vbs

try it!

[860175]

this is awsome!!!

[daltonds]

yeas