Zabaware Support Forums
Zabaware Forums => General Discussion => Topic started by: lightspeed on November 06, 2019, 09:33:16 am
-
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 .
-
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
-
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 .
-
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.
-
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
-
'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