If execute.Contains(Command) And comtype = " social" Then Dim robotvoice = CreateObject( " sapi.spvoice")ĮlseIf execute.Contains(Command) And comtype = " comando" Then Dim robotvoice = CreateObject( " sapi.spvoice")įor Each myprocess As Process In Process.GetProcessesByName(Action) If comtype = " social" Then If value 3 Then Let's see now first the random generation:Ĭopy Code Dim params( 3) As String Dim execute = e.ĭim answer As String = " " For Each ls In File.ReadLines(npath)ĭim Command As String = params( 0).ToLower
#MAKE JARVIS PROGRAM FULL#
The 'social' command type will simply be used to chat with the computer, which performs no real actions, so the action1 and action2 will be the 2 possible sentences with which the computer will answer the spoken command the 'comando' command type will be used to handle operations on windows-installed programs, like in th example to open wordpad and such, in this case we will ony need action1, so action2 is set to a neutre value the 'website' command type is formally equal to the 'comando' type' except that we pass a website address instead of an exe file the 'internal' command type is used to operate on the program itself, in the cases above we use it to show and hide the commands listbox, and to set the form full screen. Goodbye^It ' s been a pleasure,^internal^noactionĪs can be seen by the code, in this approach we use in the 3 rd position of the string (commandtype) four possible choices: social, comando, website, internal. Go full screen^noaction^internal^noaction Navigate to facebook^navigate to hotmail^navigate to twitter^http: // ^website^noaction Open wordpad^wordpad.exe^comando^noaction Open my computer^explorer.exe^comando^noaction
Where are you vera?^come find me, creator!^social^That is a very stupid question! I am trapped in this goddamn computer where else should i be?^social^Here and running Hello vera^Hello creator, how are you?^social^Good morning master, I am ready to operate