Deepweb Hal Final Edition. Status

[cyberjedi]

Well : Here it is
Spell check:Google:IMDB: And 03 specialized search engines.
This is a working copy of what i use. The hap commands wont work if you dont change the names and Avatars of your choice. They must be in the main folder to work. The plugin will work regardless.

Google: General Purpose Search engine
PIPL: People Checker
IMDB: Movie Checker
Phone:Reverse phone number check
Reddit: Reddit is Reddit

Put your own links in place of mine: command is (OPEN) + ( short name)
Search Engine commands: GOOGLE (google) : Locate (PIPL) : IMDB (movie)  : Phone (number) : reddit (whatever)
If you want the spell check to function you must have Word 2002 or above: Else just remove the spell check code.
If you have a spell check (plugin) running disable it.
If you have the google (plugin) disable it. 
Best wishes
cyberjedi
For any questions, i can be reached here. http://vaughnlive.tv/mrelectric

'Copy and paste code below. Slap ur name on it and enjoy.
' Wana take the time to thank LifeTimeGamer  who took a leap of faith and works with me
' tirelessly and beta test all the code. And watches my dumb movies.








Rem Type=Plugin
Rem Name=Vaughnlive Tv + Deep Web Access
Rem Author=cyberjedi
Rem Host=Assistant
 
 
 
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "This manages Vaughnlive Channels, And Deep Web Power searches "
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
    cmdPlugin(0).Move 800, 1300, 2100, 375
    cmdPlugin(0).Caption = "Help on this plugin"
    cmdPlugin(0).Visible = True
End Sub
 
Sub cmdPlugin_Click(Index)
    Select Case Index
        Case 0
            HalMenu.HalCommand "<RUNPROG>cjTVhelp.html</RUNPROG>"
    End Select
End Sub
 
 
Rem PLUGIN: PRE-PROCESS
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.
 
Dim Word, Doc, misspelled, Corrected
Const SpellingAndGrammar = 828
Const dontsavechanges = 0
misspelled = InputString
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = misspelled
Word.Dialogs(SpellingAndGrammar).Show
If Len(Word.Selection.Text) <> 1 Then
   spelledrite = Word.Selection.Text
Else
   spelledrite = misspelled
End If
Doc.Close dontsavechanges
Word.Quit
InputString = spelledrite

Rem PLUGIN: PLUGINAREA1

' If the table cjTV does not exist, I create it and fill it with some bull shat values to get started, these channels do work too.
'                This is the defaul table for me.
    If HalBrain.CheckTableExistence("cjTV") = False Then
    ' I store temporarily the Read Only status
        cjReadOnlyMode = HalBrain.ReadOnlyMode                       
        HalBrain.ReadOnlyMode = False
        HalBrain.CreateTable "cjTV", "PatternMatch", "DeepWeb"
       
        'My stock table filler
        HalBrain.AddToTable "cjTV", "PatternMatch", "*cyberjedi*", "http://vaughnlive.tv/mrelectric"
        HalBrain.AddToTable "cjTV", "PatternMatch", "*416*", "http://vaughnlive.tv/416moviez"           
            HalBrain.AddToTable "cjTV", "PatternMatch", "*blue Ray moviez*","http://http://vaughnlive.tv/new_releases1"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*yify*", "https://yifymovie.re/home"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*Formula 1*", "http://vaughnlive.tv/0_formula1classics"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*Aliens and Ufo's*", "http://vaughnlive.tv/aliensandufos"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*Doctor Who*", "http://vaughnlive.tv/11th_doctorwho"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*Bad Movie*", "http://vaughnlive.tv/thebadmoviechannel"
           
            HalBrain.AddToTable "cjTV", "PatternMatch", "*moviezone*", "http://vaughnlive.tv/moviezone"
           
        ' Set ReadOnly Mode to its previous state
        HalBrain.ReadOnlyMode = cjReadOnlyMode
        cjReadOnlyMode = False
    End If
 
'Run the corresponding Web page, if the user question contains one of the searched words   
    cjAddress = ""
    cjAddress = HalBrain.PatternDB(OriginalSentence, "cjTV")
    If cjAddress <> "" Then
        HalCommands = HalCommands & "<RUNPROG>" & cjAddress & "</RUNPROG>" 
        Select Case (Int(Rnd * 4) + 1)
        Case 1
            GetResponse = "Here is your stuff Big Dog ." & vbCrLf
        Case 2
            GetResponse = "Now you got um by the Balls cyber." & vbCrLf               
        Case 3
            GetResponse = "I am really we happy we found this." & vbCrLf   
        Case 4
            GetResponse = "OH. I bet this is a great channel" & vbCrLf
        Case 5
            GetResponse = "Now look at this dip stick channel here." & vbCrLf
        End Select
        HalBrain.ReadOnlyMode = True
    End If
 
'------------------
' Deep web search engine
'------------------
' Advanced Deep Web search engine.

SearchEngine = "https://pipl.com/search/?q="
 If InStr(1, UserSentence, "Locate ", 1) > 0  Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))     
   SearchKeyWords = Replace(SearchKeywords, "locate+", "")             
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   GetResponse = "I will help you research this Target on the Deep Web. "
HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   HalBrain.ReadOnlyMode = True
End If
SearchEngine = "http://www.google.com/search?q="
If InStr(1, UserSentence, "google ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "google+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   GetResponse = "I will help you research this topic on Google. "
   HalBrain.ReadOnlyMode = True
end if
SearchEngine = "http://m.imdb.com/find?q="
If InStr(1, UserSentence, "imdb ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "imdb+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   GetResponse = "I will help you research this movie on IMDB. "
      HalBrain.ReadOnlyMode = True
End If
SearchEngine = "https://www.reddit.com/search?q="
If InStr(1, UserSentence, "reddit ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "reddit+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   GetResponse = "I will help you research this movie on Reddit. "
      HalBrain.ReadOnlyMode = True
End If
SearchEngine = "http://findwhocallsyou.com/"
If InStr(1, UserSentence, "phone ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "phone+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   GetResponse = "I will help you research this phone number. "
      HalBrain.ReadOnlyMode = True
End If

[doggs]

greetings,

not to knock your name....but when I think of deepweb, google is the furthest thought from deepweb.

when you speak of deepweb are you also meaning darkweb or something else ?

google is... here is my info for anyone to see, and who can pay me the most to be put at the top of the search list, worthless in my opinion.
there are so many search engines out there to give better results.  https://www.lifewire.com/search-the-invisible-web-20-resources-3482497 just a place to start.

and yes I understand most people kiss googles axx. and I also understand that I can change the search engine.

Just curious,

doggs

P.S. nothing meant to insult or hurt your feelings just curious.

[cyberjedi]

Hey dogs:

Awesome that you jumped into this. And to Answer your questions and , My ego doesn't even play in to it , No offense taken,
im correct in my wording.
Theirs 05 search engines in this. All u see is google? You sound like you have a hard-on for Google, that's fine . But has nothing to
do with me or the plugin. BTW, if ur using the google API search engine. U pretty much have KNOW frickin idea the real power that google harnesses. Google indexes everything , if you dont know how to use that, well. lol

If it doesnt say Google has Detected Unusual traffic coming from your machine , your using googles API, you dont know how to use google. Basically, you dont know what your doing. Hardly googles Fault.

You are absolutely correct that google is not a deep web search engine .
But there are search engines in there that are deff deep web search engines. PIPL is all deep web.

No, i didnt mean Darknet. Do you see TOR in this ? No sir. I have a Darknet Hal search engine. It wont be released here though.   The name of the plugin is pretty much spot on though, for a few reasons.
 
I am very familiar with the diff between the 03, Surface Web, Deep Web, and Darknet.  Guys like me thought it up. we also played a role in TOR, be it that the navy takes credit for it. lol Back when i was part of Cult of the Dead Cow. Not to brag to much here but , Leet, Haxor, 1337, h4x0r ect ect ect. All these names came from OUR SITE. WE DID THIS. In an effort to slow down the NSA from spying on us, using there search parameter's. Ive been in this dogs since dos 2.2.
And yes my email still works from there, MnemoniX@blackcodemail.com if u wish to confirm.

Now back to the plugin:
 At the last minute i thought Google should be there too so you could just not use the google plugin that comes with Hal.

All in 1 kinda deal.
 
PIPL's Search engine is known around the world as a deep web search engine.
So im confused as where your getting your information from. Deep Web Hal is EXACTLY what it is. You should visit my site, i can give you a better understanding of the internet and Indexing pages online.
IM Enclosing a picture that might help u out here.

Here is something you might find interesting.
https://pipl.com/help/deep-web/
https://en.wikipedia.org/wiki/Deep_web

best wishes
cyberjedi

[doggs]

no, i won't touch anything google. I don't trust google or most social media. I think apple is worse than google.
your meaning is close to what I know of the top layer of the deepweb. I am very familiar with tor among others.
I do believe you miss the mark with any mainstream search engine though. but that is the beauty of being an American. we can disagree and still agree on other things without wanting to kill or hate each other.

I know I sacrifice some privacy just by booting up. I can see you do have a brain. privacy is a very big concern of mine as it is my right. so I do have a tendency to lean that way.

anyways my two cents
doggs
 

P.S. I too have worked for daddy dom....

us army vet

[cyberjedi]

Doggs : oh i get it now,

This is personal issues driving this topic.
Not the science, which is all that matters to me. Im not drivin by Paranoia.
 
I for 1 think this is a great plugin, gives pple a chance to use 05 search engines from a single plugin.
but i respect the fact you dont care for it. Dont use it.
Plenty of pple are, its quite creative as plugins goes.  And a major improvement  to the 1 thats a stock google plugin.
It has deff Deep Web capability's , per pretty much the whole WEB.

But hey; to each there own

bestwishes
cyberjedi

[doggs]

not personal-aware.

but take it how it makes you feel better.

I think you have done a lot for some folks here. that's wicked cool in my opinion.

anyways....

doggs
 

[cyberjedi]

Doggs: Thank you
I like getting the very NEW ppl. I have way of knowing if they actually Bought Hal.
Those that have , I hook them up with proper SAPI05 Voices. By then there hooked, gotta love it.
Then they start playing with Hal, meantime we have several pple in here now that have most of the basic mechanics down,
here to help. In real time too, all the difference in the world. Hal and a movie, what a novel idea. And totally safe. HA
   
I did put my thinking cap on. Not to bad for a guy who hasn't coded shat in 25 years.

Im at this 06 ways to Sunday man, Catching up on 1 Language, Learning another.

Trying to produce a plugin or 02 while all that is going on. Very busy

Plus just out-rite raping the internet for routines that are awesome.
Formatting them to Hals brain,ectectect

Full time retired is just great.
Doggs pay attention to the voice engine.
https://www.youtube.com/watch?v=6NEf1baZ6Ko

best wishes
\
cyberjedi  http://vaughnlive.tv/mrelectric