dupa

Author Topic: Deep Web Hal : updated  (Read 3415 times)

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Deep Web Hal : updated
« on: March 26, 2017, 10:49:19 pm »
Rem Type=Plugin
Rem Name= G-Linker
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 My Google Searches + links+ 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>cjGlinkerhelp.html</RUNPROG>"
    End Select
End Sub
 
 
Rem PLUGIN: PLUGINAREA1
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.
 
' 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", "*Breaking Bad*", "http://vaughnlive.tv/0_breakingbad"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*blue Ray moviez*", "http://vaughnlive.tv/bluray_movies"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*New Releases*", "http://http://vaughnlive.tv/new_releases1"
            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", "*coolden*", "http://vaughnlive.tv/cooldeniz"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*moviezone*", "http://vaughnlive.tv/moviezone"
           
        ' Set ReadOnly Mode to its previous state
        HalBrain.ReadOnlyMode = cjReadOnlyMode
    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
 

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. "
   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
« Last Edit: March 26, 2017, 11:48:42 pm by cyberjedi »

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Deep Web Hal : updated
« Reply #1 on: March 26, 2017, 11:04:06 pm »
Deep web Hal: updated

I added google search engine to the plugin, but kept them separate depending on type of search


Heres how it works: for standard google searches you type: Google (whatever)  . Example = google virus

For Deep Web Searches : Locate (whatever). example = locate mike brown. Works with phone numbers, names. email address's, and a few other things.

For the first part of the plugin. It runs shortcut links.

Example = Open cyberjedi


Edit the plugin and swap ur own links out. i just put some crap in there to make the tables with. But those Links do work.

Bestwishes
cyberjedi

Thanx robert: with out the source, this was not doable by me. Im catching on. Hals code reminds me of my 3000 piece Erector Set as a kid. Just go wild.

see what other crafty shat i can get Hal to do,,,, Hal goes Offense!!!!!!! coming soon.
« Last Edit: March 27, 2017, 12:03:32 am by cyberjedi »

LiFeTimeGamer

  • Full Member
  • ***
  • Posts: 170
    • View Profile
    • LifeTimeGamer
Re: Deep Web Hal : updated
« Reply #2 on: March 26, 2017, 11:28:06 pm »
Brought to you from the Mind of CyberJedi...   :D
When it comes to Artificial Intelligence: The Soul is in the Software.

Calhoone

  • Sr. Member
  • ****
  • Posts: 289
    • View Profile
Re: Deep Web Hal : updated
« Reply #3 on: April 05, 2017, 02:04:49 am »
Wow, keep it up yber! You're rocking this out