HOW TO MAKE FRIDAY AI IN NOTEPAD USING VBS SCRIPT(DEMO)
SO THESE ARE THE CODES OF THE AI JUST COPY AND PASTE IN NOTEPAD BUT DON'T FORGET TO WRITE WHENEVER YOU SAVE WRITE
EX-YOUR WISH NAME.vbs
write vbs at last. AND THEN YOU CAN CUSTOMIZE THE AI IF YOU CANT CUSTOMIZE SO JUST LEAVE A COMMENT IN COMMENT BOX
THANKS FOR WATCHING.
--------------
set wshshell = wscript.CreateObject("wScript.Shell")
Dim speaks, speech, speakks, ape, hi
hi="Good,morning,sir. I am friday , your artificial intelligence"
speaks="how can i help you sir?"
speakks="Type yes so that I can answer your questions"
ape="Type speak so that I can say whatever you said"
Set speech=CreateObject("sapi.spvoice")
speech.Speak hi
speech.Speak speaks
speech.Speak speakks
speech.Speak ape
set wshshell = wscript.CreateObject("wScript.Shell")
Dim que
que = InputBox("Enter the number 1 or 2, Sir")
MsgBox("Your response was " & que )
If que=1 Then
speaks=" sir. please ask your questions, sir"
speech.Speak speaks
ans = InputBox("Type your question, sir, and dont use fullstops or question marks, sir")
End If
If que=2 Then
speaks=" sir. please say , what I have to tell, sir"
speech.Speak speaks
Dim msg
msg = inputbox("Enter text here, sir.")
speech.Speak msg
End If
If ans="shut up" Or ans="close friday " Or ans="close window" Or ans="shut down the window" Or ans="close yourself" Or ans="shut down yourself" Then
helllo="Bye sir, Have a nice day"
speech.Speak helllo
MsgBox(helllo)
End If
If ans="who are you" Or ans="what is your name" Or ans="what is jarvis " Or ans="who are you, what is your name" Then
helllo="I am jarvis , sir. You have created me, sir."
speech.Speak helllo
MsgBox(helllo)
End If
If ans="bye" Then
helllo="Bye, sir"
speech.Speak helllo
MsgBox("Have a nice day, sir.")
End If
If ans="close jarvis " Then
helllo="Closing jarvis "
speech.Speak helllo
MsgBox("bye sir")
End If
If ans="who is the best ai" Or ans="who is the best of all AIs" Or ans="who is the best artificial intelligence"Then
helllo="According to wikipedia, friday is the best A.I."
speech.Speak helllo
MsgBox("(^_^)")
End If
If ans="activate atom bomb from kamalanagar, hyderabad city hive, Ronaldo corporation"Then
helllo="activating attack protocol system, launching , atom bomb from kamalanagar, hyderabad city hive, ronaldo corporation, in 10, 9, 8, 7, 6, 5, 4, 3, 2, 1."
speech.Speak helllo
End If
If ans="whom do you like jarvis or friday or genisys" Or ans="whom do you like, cortana or google assistant" Or ans="whom do you like google assistant or cortana" Or ans="whom do you like cortana or google assistant" Then
helllo="I like all of them , they are my brother and sister systems"
speech.Speak helllo
MsgBox("I am the worst!")
End If
If ans="bye" Then
helllo="Bye, sir"
speech.Speak helllo
MsgBox(helllo)
End If
If ans=" " Or ans="," Or ans="." Or ans="/" Or ans=":" Or ans=";" Then
helllo="I told you, dont use fullstops or question marks. You can use commas"
speech.Speak helllo
MsgBox(helllo)
End If
If ans="what is the capital of india" Then
helllo="Delhi"
speech.Speak helllo
MsgBox("Delhi")
End If
If ans="open google" Or ans="open google.exe" Or ans="google.exe" Or ans="google" Then
helllo="opening google"
speech.Speak helllo
set wshshell = wscript.CreateObject("wScript.Shell")
wshshell.run "https://www.google.co.in/?gws_rd=ssl"
End If
If ans="open youtube" Or ans="open youtube.exe" Or ans="youtube.exe" Or ans="youtube" Then
helllo="opening youtube"
speech.Speak helllo
set wshshell = wscript.CreateObject("wScript.Shell")
wshshell.run "https://www.youtube.com/"
End If
If ans="open firefox" Or ans="open firefox.exe" Or ans="firefox.exe" Or ans="open firefox.exe" Then
helllo="opening firefox"
speech.Speak helllo
wshshell.run "C:\Program Files\Mozilla Firefox\firefox.exe"
End If
If ans="open edge" Or ans="open microsoft edge" Or ans="open microsoft edge.exe" Then
helllo="opening microsoft edge"
speech.Speak helllo
wshshell.run "C:\Program Files (x86)\microsoft\Edge\Application\msedge.exe"
End If
If ans="open internet explorer" Or ans="open explorer" Or ans="open internet explorer.exe" Then
helllo="opening internet explorer"
speech.Speak helllo
wshshell.run "C:\Program Files\Internet Explorer\iexplore.exe"
End If
yo = InputBox("Have you got your answer? Type yes or no, sir")
If yo="no" Then
MsgBox("Don't type anything except enter, sir.")
MsgBox("Press enter and wait for a few seconds until google opens and you get your answer")
wshshell.run "https://www.google.co.in/?gws_rd=ssl"
wscript.sleep 5000
wshshell.sendkeys (ans)
wshShell.SendKeys "{ENTER}"
wscript.sleep 5000
wshshell.sendkeys (ans)
wshShell.SendKeys "{ENTER}"
wscript.sleep 1000
wshshell.sendkeys (ans)
wshShell.SendKeys "{ENTER}"
wscript.sleep 100
wshshell.sendkeys (ans)
wshShell.SendKeys "{ENTER}"
End If