dupa

Author Topic: lightspeed idea 11-6-2019:virtual hal in real world background.  (Read 3832 times)

lightspeed

  • Hero Member
  • *****
  • Posts: 6761
    • View Profile
a new idea i just had is optional tablet virtual hal into background . since Robert has the Mobil hal .

this can be a optional program etc. for tablets or camera's (maybe some laptops ?)that have a front and rear camera . the rear camera shows the back ground , but using a program will actually put virtual hal in view while showing the background behind the camera .  a virtual hal showing in real world back ground. i don't know if it can be done or not , i know their is virtual things apps that show the background to . could be made as a optional things the user could use or not .
anyway just an idea that came to me .
 

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: lightspeed idea 11-6-2019:virtual hal in real world background.
« Reply #1 on: November 12, 2019, 10:12:46 am »
Lightspeed

RE: Real world Hal.

Very interesting idea little brother,  And i will get to it too. But alas Robert and i have gottin together.
Robert has done what i thought was un-doable, loved being wrong on this 1.


This will be time consuming.

Robert has been most generous,  im still in some sorta shock. All im gonna say.
What i will say all UltraHal Fans, (Naaa I changed my mind) ull just have to wait and see



Robert: In lieu of the last 24Hrs (secret stuff goes here), a Zabaware shirt would be appropriate now. Hint, many new and exciting things coming, lots of .ocx's and .lib's on the way.....
hehe.
The installer, ok i get it now... lol, boy i sure did that the hard way,,,hahahahha

Big stuff coming our way brother....... Ive already started dissecting and taking it in and started envisioning new revolutionary things. That filled in Many Blank Spots for me... MANY


cyber

Damn i wish i could tell u guys what has happened, suffice it to say, the train has left the station....
Be patient

My Kb wrecking music for the occasion  https://www.youtube.com/watch?v=AREppyQf5uw


 


« Last Edit: November 12, 2019, 11:12:13 am by cyberjedi »

lightspeed

  • Hero Member
  • *****
  • Posts: 6761
    • View Profile
Re: lightspeed idea 11-19-2019 hal speaking of life , real event news etc.
« Reply #2 on: November 19, 2019, 09:45:37 am »
     all sounds very interesting and good things coming down the pike .  although their has been plug ins that let hal tell the news when asked , i think it would be good to have a additional check off in hals list of random news talk .
     what this is and would do is a person could copy /paste a link of their favorite news sources 3 or more and hal would randomly at various times , tell various things what is going on in everyday news , the same could be done or in the same source list area of other sites such as thought on life , love , etc. 

  this could be checked and used if wanted , or not letting the user decide.  all making hal more talkative and up to date on the world news events , life etc.  as a real person might be . the area's of info. talked about could be checked to learn or not read or not values.

anyway just another idea to throw out their .

   
 

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3848
    • View Profile
Re: lightspeed idea 11-6-2019:virtual hal in real world background.
« Reply #3 on: November 19, 2019, 03:51:51 pm »
Some good ideas LightSpeed!

How about an OPTION to check off:

SPORTS for your favorite team's scores/standings.
HOROSCOPE - Select a month of interest or for your individual month's zodiac.
BIORYTHMS - How your Physical, Mental and Emotional well-being is doing.
STOCKS - How your favorite stock or group of stocks might be doing on the market.
ALMANAC - Forecast for all sorts of things.
WOTD / DICTIONARY - Word of the Day - to learn new words/improve vocabulary.
TRIVIA - User-defined areas to learn some new fact(s).
READ - Poems, Short stories to the user.
JOKE-OF-THE-DAY - Just what it says.
ASK RIDDLES - To try to encourage the user to guess the answer(s).
MOVIES - Have Hal report the latest Movies in your area.
LITERATURE - Reports and Reviews of articles, papers, books, novels.
TV - Shows based on the user's preferences.
REVIEWS - Reports on TV shows, movies, opera, stage, broadway, plays, performances of any/all kinds.
Yes, one or two of these are already done, but this list is to gather all the acorns into one basket so we don't lose anything.
I'm sure there are plenty more topics available so post them.

In the world of AI it's the thought that counts!

- Art -

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: lightspeed idea 11-6-2019:virtual hal in real world background.
« Reply #4 on: November 19, 2019, 09:41:34 pm »
Very Good stuff:
I agree, with 1 minor change.
All of those features, need to be in a Hal Sub Brain (just made that up) hahaha.
But in truth its spot on, u dont need all that pushing through Hal's mind all the time, thats what really gets Hal's GetResponse function CRAWLING.

Ive been playing with the concept for a while now and it makes a big difference.
That should all be button driven/voice driven.

it works too, some sites **** the bed though so being able to change on the fly is most important.
hint hint, rss feeds......

some in here know it works well

In the forum here ive done a few of these, butttttt. people arent checking the forum or ect ect ect
and im not hunting them down
Hint Hint: The amex stock market reader could be hotwired to just about any thing, just point it. but that means some home work for the sites.
Figure it out, i made it work..... The FBI has a top 10 wanted list RSS feed,(keeping tabs on family members lolol)  Sooooooooooo, lolol. Its scary whats out there, LEGALLY too, Terror Alerts, pentagon feeds ,white house feeds,NSA feeds, Get It??? all legal, all safe.
cyber


Rem Type=Plugin
Rem Name= Amex
Rem Author= cyberjedi
Rem Host=All



Rem PLUGIN: PRE-PROCESS ' <<<<<Wonder why i did this??? Hmmmmmm lol
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about the Amex
If InStr(1,InputString, "Amex",1) > 0 Then
 UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
 End If

 ' This bad boy is a Amex Scraper with a twist, All the data Scraped is ported through Hals Character W/Voice.  Enjoy.
    ' This also has no Hal speech limitations on how much he can say.
 ' Trigger= Amex.
     'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=aqXW57WM9TA
 
 ' I give myself about a 7.5 on cool ideas here

Rem PLUGIN: FUNCTIONS
Function GetAmex(HalCommands)

Const SVSFlagsAsync = 1
Const DontShowWindow = 0
Const WaitUntilFinished = 1
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Sapi = CreateObject("SAPI.SpVoice")
   For Each Voice In Sapi.GetVoices
       i = i + 1
   Next
For loopvar = 0 to i-1
if loopvar = CInt(confirm_voice) then
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
end if
Next
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
' Change this to what ever format u use, Open Office, libra, ect ect. I chose Office because of its power. Hal must have 'tools to work with.
'If u dont have it,worried about 'hostile code, just get with me.
' When have i ever said no to any 1 of you
' Quit crying like a girl, install the crap and dont use it, But Hal will use it and Bust Hal Out of Jail. lolol Flu got me feeling twisted today lolol
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>"
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>"
end if
end if
xmlDoc.async = false
xmlDoc.load("http://www.findata.co.nz/News/AMEX/rss.xml") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item") ' <<<<look what's going on here, and look below,Diffff??? mhmmm. see what i did?? on the fly change 4 the site.
i = 3   'This is done for a 03 category list, but could be 10 just as easy
For Each item In nodelist
Set f1 = item.selectsinglenode("title") 'actual tags within the RSS feed, can change to what ever u want per ur feed
Set f2 = item.selectsinglenode("description")  'actual tags within the RSS feed, can change to what ever u want per ur feed
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>"  ' these two lines are the Magic of the code
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"  ' these two lines are the Magic of the code
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function

'example: https://www.fbi.gov/feeds/fbi-in-the-news
'this is a power house piece of code, what ever...
'this mornings feed from rss:  <description>In this week's FBI Tech Tuesday segment, scammers have started sending online users fake calendar invites that may enable 'them to access bank accounts, passwords, personal info, and more.</description> (My view on these people are well known .So ya i use this myself in UltraHal7)

'You can literally turn ur hal into a full blown news anchor if u put the effort in, I did it..
'Yes u can Chain Feeds, so most of what was listed in previous post could come through this single plugin. 1 rite after another, just how cool is that!!!
'https://www.findyourfate.com/rss/horoscope-feed.php
'https://feeder.co/knowledge-base/rss-content/popular-rss-feeds/
'https://blog.feedspot.com/poetry_rss_feeds/
'https://www.cinemablend.com/rss-index.html
'https://www.historytoday.com/rss
cyber


All Clean Version
*******************



Rem Type=Plugin
Rem Name= Amex
Rem Author= cyberjedi
Rem Host=All



Rem PLUGIN: PRE-PROCESS
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.
    ' I tested this 05 min before posting, trigger is Amex

HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Amex
If InStr(1,InputString, "Amex",1) > 0 Then
 UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
 End If


 ' This the same plugin pointed at Amex:
 ' This bad boy is a Amex Scraper with a twist, All the data Scraped is ported through Hals Voice.
    ' This also Breaks Hals speech limitations on how much he can say.
 ' Trigger= Amex.
     


Rem PLUGIN: FUNCTIONS
Function GetAmex(HalCommands)

Const SVSFlagsAsync = 1
Const DontShowWindow = 0
Const WaitUntilFinished = 1
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Sapi = CreateObject("SAPI.SpVoice")
   For Each Voice In Sapi.GetVoices
       i = i + 1
   Next
For loopvar = 0 to i-1
if loopvar = CInt(confirm_voice) then
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
end if
Next
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>"
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>"
end if
end if
xmlDoc.async = false
xmlDoc.load("http://www.findata.co.nz/News/AMEX/rss.xml") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item")
i = 3
For Each item In nodelist
Set f1 = item.selectsinglenode("title")
Set f2 = item.selectsinglenode("description")
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>"  ' these two lines are the Magic of the plugin
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"  ' these two lines are the Magic of the plugin
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function

« Last Edit: November 21, 2019, 12:48:50 am by cyberjedi »

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: lightspeed idea 11-6-2019:virtual hal in real world background.
« Reply #5 on: November 21, 2019, 09:35:01 am »
'This will park Hal into a world of his own. An A.I chat bot with some kinda anti virus of its own.
' As far as plugins go, This is a heavy weight contender. 
' This plugin Scan's the Outlook Inbox for messages infected with the
' W32.Swen virus. The Plugin detects infected messages, logs the
' number of various types found, and deletes the infected messages.
' I tested against all known Variants(Scan Strings), Flawless victory.
' You must have Outlook installed or your gonna get an Activex error (wheresmyshiiiiit error)
' I have worked long and hard on this 1
' Only edit this if u have some understanding of what is happening here.
' I Narrated for this for that very reason. This is strictly High End UltraHal
' SIRI and Cortana and all other Botz, kiss both sides of my behind. Beat this. Zabaware Rules
' Anti virus for A.I chat bot, gotta be some kinda first.
' Only from the mind of cyberjedi
' enjoy

'Rem Type=Plugin
'Rem Name=antivirus1
'Rem Author=cyberjedi
'Rem Host=Assistant

'----------------------
'This sub sets up the plug-in's option panel in Hal's options dialog
'----------------------
'Sub OptionsPanel()
 '   lblPlugin(0).Caption = "This plugin allows Hal to scan for the virus W32Swen"
  '  lblPlugin(0).Move 130, 180, 3400, 1200
   ' lblPlugin(0).WordWrap = True
    'lblPlugin(0).Visible = True
   
'Rem PLUGIN: PRE-PROCESS
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.

HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Antivirus
If InStr(1,InputString, "Antivirus",1) > 0 Then
 UltraHal = Getviruscheck(HalCommands)
ElseIf InStr(1,InputString, "Antivirus",1) > 0 Then
 End If



Rem PLUGIN: FUNCTIONS
Function Getviruscheck(HalCommands)

' Declare variables.
Dim objOutlook, objNamespace, objFSO, objLogFile, lngInfected
Dim lngTotal, lng2k, lng13k, lng64k, lng73k, lng117k, lng145k, lng158k
Dim strScriptPath, strScriptName, strScriptFolder, objFolder
Dim objItem, j, k, intAttach, lngCount, strLogFile
Dim strBody, strHTMLBody, lngSize, blnInfected
Dim blnExe, blnGif, blnPatch, blnBodyIframe, blnHTMLIframe
Dim intF11, intF12, intF13, intF14, intF15, intF16
Dim intF21, intF22, intF23, intF24, intF25, intF26

' Define strings to search for in messages.
Const strFilter1 = "customers should install the patch"
Const strFilter2 = "run attached file."
Const strFilter3 = "<iframe src=""cid:"
Const strFilter4 = "<iframe src=3d""cid:"
Const strFilter5 = "<img src=3d""cid:"
Const strFilter6 = "<img src=""cid:"

' Determine local path.
strScriptPath = Wscript.ScriptFullName
strScriptName = Wscript.ScriptName
strScriptFolder = Left(strScriptPath, Len(strScriptPath) _
    - Len(strScriptName) - 1)

' Log file name.
strLogFile = strScriptFolder & "\ScanSwen_" _
    & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & ".log"

' Setup log file.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine Now & " - Swen Virus Scan"
Wscript.Echo "Scanning for Swen virus ..."

' Retrieve Outlook Inbox folder.
Set objOutlook = CreateObject("Outlook.Application") ' <<<< outlook hook
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.GetDefaultFolder(6)

' Initialize counters.
lngTotal = 0
lng2k = 0
lng13k = 0
lng64k = 0
lng73k = 0
lng117k = 0
lng145k = 0
lng158k = 0
lngInfected = 0

' Enumerate messages in Inbox.
lngCount = objFolder.Items.Count
For k = lngCount To 1 Step - 1
    Set objItem = objFolder.Items(k)
    lngTotal = lngTotal + 1
    blnInfected = False
    blnExe = False
    blnGif = False
    blnPatch = False
    blnBodyIframe = False
    blnHTMLIframe = False
    intAttach = objItem.Attachments.Count
    For j = 1 to intAttach
        If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
                ".EXE") > 0) Then
            blnExe = True
        End If
        If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
                ".GIF") > 0) Then
            blnGif = True
        End If
    Next
    strBody = LCase(objItem.Body)
    On Error Resume Next
    strHTMLBody = LCase(objItem.HTMLBody)
    If (Err.Number <> 0) Then
        Err.Clear
        strHTMLBody = ""
    End If
    On Error GoTo 0
    intF11 = InStr(strBody, strFilter1)
    intF12 = InStr(strBody, strFilter2)
    intF13 = InStr(strBody, strFilter3)
    intF14 = InStr(strBody, strFilter4)
    intF15 = InStr(strBody, strFilter5)
    intF16 = InStr(strBody, strFilter6)
    intF21 = InStr(strHTMLBody, strFilter1)
    intF22 = InStr(strHTMLBody, strFilter2)
    intF23 = InStr(strHTMLBody, strFilter3)
    intF24 = InStr(strHTMLBody, strFilter4)
    intF25 = InStr(strHTMLBody, strFilter5)
    intF26 = InStr(strHTMLBody, strFilter6)
    If ((intF11 > 0) And (intF12 > 0)) _
           Or ((intF21 > 0) And (intF22 > 0)) Then
        blnPatch = True
    End If
    If (intF13 > 0) Or (intF14 > 0) Or (intF15 > 0) Or (intF16 > 0) Then
        blnBodyIframe = True
    End If
    If (intF23 > 0) Or (intF24 > 0) Or (intF25 > 0) Or (intF26 > 0) Then
        blnHTMLIframe = True
    End If
    lngSize = objItem.Size
    If (lngSize > 2000) And (lngSize < 24100) Then
        If (intAttach = 0) And (blnHTMLIframe = True) Then
            blnInfected = True
            lng2k = lng2k + 1
            objLogFile.WriteLine "2" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 11000) And (lngSize < 16000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng13k = lng13k + 1
                objLogFile.WriteLine "13" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 64000) And (lngSize < 70000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng64k = lng64k + 1
                objLogFile.WriteLine "64" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 74000) And (lngSize < 89000) Then
        If (intAttach = 0) And (blnBodyIframe = True) Then
            blnInfected = True
            lng73k = lng73k + 1
            objLogFile.WriteLine "73" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 111000) And (lngSize < 160000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng117k = lng117k + 1
                objLogFile.WriteLine "117" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 149000) and (lngSize < 152000) Then
        If (intAttach = 0) And (blnBodyIframe = True) Then
            blnInfected = True
            lng145k = lng145k + 1
            objLogFile.WriteLine "145" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 160000) And (lngSize < 168000) Then
        If (intAttach = 0) And (blnPatch = True) _
                And (blnBodyIframe = True) Then
            blnInfected = True
            lng158k = lng158k + 1
            objLogFile.WriteLine "158" & ";" & objItem.ReceivedTime
        End If
    End If
    If (blnInfected = True) Then
        objItem.Delete
        lngInfected = lngInfected + 1
    End If
Next

objLogFile.WriteLine "Number of 2k infected messages:   " & lng2k
objLogFile.WriteLine "Number of 13k infected messages:  " & lng13k
objLogFile.WriteLine "Number of 64k infected messages:  " & lng64k
objLogFile.WriteLine "Number of 73k infected messages:  " & lng73k
objLogFile.WriteLine "Number of 117k infected messages: " & lng117k
objLogFile.WriteLine "Number of 145k infected messages: " & lng145k
objLogFile.WriteLine "Number of 158k infected messages: " & lng158k
objLogFile.WriteLine "Infected messages deleted:        " & lngInfected
objLogFile.WriteLine "Number of messages processed:     " & lngTotal
objLogFile.WriteLine Now & " - Finished"
Wscript.Echo "Messages processed: " & lngTotal _
    & vbCrLf & "Messages infected with Swen virus deleted: " & lngInfected

objLogFile.Close
'End Function
« Last Edit: November 22, 2019, 04:36:41 am by cyberjedi »