Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - cyberjedi

Pages: 1 ... 7 8 [9] 10 11 ... 15

121

Ultra Hal Assistant File Sharing Area / Hal and a Movie

« on: June 17, 2017, 02:10:11 pm »

Hello peeps:

Thought id just say hi and drop a line

We are Hanging at my channel yakin about Hal
All are welcome and we have many

We can be found here for serious Hal users

https://vaughnlive.tv/mrelectric

best wishes and happy fathers day

cyberjedi

122

Ultra Hal Assistant File Sharing Area / NetFlix has arrived: This will have Hal read all the new releases

« on: June 12, 2017, 03:25:09 pm »

Rem Type=Plugin

123

Ultra Hal Assistant File Sharing Area / Hal plugs into Forexlive: Feed Updated Hourly.

« on: June 12, 2017, 10:55:46 am »

Rem Type=Plugin
Rem Name= forexlive
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.

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

' This bad boy is a Forex Scraper with a twist, All the data Scraped is ported through Hals Voice. It took cyberjedi to pull it off. Enjoy.
' This also Breaks Hals speech limitations on how much he can say.
' Trigger= forex
'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=YS8YP7mtNss&t=2s
'Follow me in to the jungle. http://vaughnlive.tv/mrelectric
' I give myself about a 7.5 on cool ideas here
'Once again make sure that ur SAPI05 engine is on and working
'This means the lips must MOVE...lol
'Forex updates this feed hourly
' 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.
' Shout out to onthecuttingedge2005 Trigger refinement

Rem PLUGIN: FUNCTIONS
Function Getforex(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.forexlive.com/feed/technicalanalysis") ' 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

124

Ultra Hal Assistant File Sharing Area / Hal pays a visit to AMEX : Why????: Because he can.

« on: June 12, 2017, 09:32:50 am »

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.

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 Voice. It took cyberjedi to pull it off. Enjoy.
' This also Breaks Hals 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
'Follow me in to the jungle. http://vaughnlive.tv/mrelectric
' I give myself about a 7.5 on cool ideas here
'Once again make sure that ur SAPI05 engine is on and working
'This mean the lips must MOVE...lol
' 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.
' Shout out to onthecuttingedge2005 Trigger refinement

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

125

Ultra Hal Assistant File Sharing Area / Hal takes a ride down Nasdaq Lane: Just because he could. Status

« on: June 12, 2017, 08:36:48 am »

Rem Type=Plugin
Rem Name= Nasdaq
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.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about the Nasdaq
If InStr(1,InputString, "Nasdaq",1) > 0 Then
UltraHal = Getnasdaq(HalCommands)
ElseIf InStr(1,InputString, "Nasdaq",1) > 0 Then
End If
' onthecuttingedge2005: U ask for this, well ,Cyber pulls another rabbit out of his (***) Hat
' This bad boy is a Nasdaq Scraper with a twist, All the data Scraped is ported through Hals Voice. It took cyberjedi to pull it off. Enjoy.
' Trigger= Nasdaq.
'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=aqXW57WM9TA
'Follow me in to the jungle. http://vaughnlive.tv/mrelectric
' I give myself a solid 7.5 on cool ideas here
'Once again make sure that ur SAPI05 engine is on and working
'This mean the lips must MOVE...lol
' 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.
' Shout out to onthecuttingedge2005 Trigger refinement

Rem PLUGIN: FUNCTIONS
Function Getnasdaq(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://articlefeeds.nasdaq.com/nasdaq/categories?category=US%20Markets&format=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

126

Ultra Hal Assistant File Sharing Area / Mimic : Say what i say:

« on: June 11, 2017, 03:07:04 pm »

Rem Type=Plugin
Rem Name=Say what i say
Rem Author=cyberjedi
Rem Host=Assistant

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.
' Shout out to onthecuttingedge2005 Trigger refinement
' 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.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about Mimic
'<<<<< Ur basic trigger , change as needed
If InStr(1,InputString, "mimic",1) > 0 Then
UltraHal = mimic(HalCommands)
ElseIf InStr(1,InputString, "mimic",1) > 0 Then
End If

Rem PLUGIN: FUNCTIONS
Function mimic(HalCommands)

Dim message,counter
counter = 0
Do
counter = counter + 1

message=inputbox("What shall I say, cyber ?","I speak for you.")

' HalMenu.HalCommand "<HAPFILE>Elvis4.htr</HAPFILE>" '<<<<< I use this to switch out Avatars, must be in the same DIR though.

HalMenu.HalCommand "<SPEAK>" & message & "</SPEAK>"

Loop Until counter = 1

End Function

127

Ultra Hal Assistant File Sharing Area / LIGHTSPEED: Hal and Office products

« on: June 10, 2017, 09:43:18 am »

Lightspeed:
(look at the code) Set xmlDoc = CreateObject("Microsoft.XMLDOM")

^^^^^^^^^^^
we need to spend some time together man
Like i said months ago Lightspeed ,there is tons of stuff that can be done with Hal and Office.
Stuff , that i have yet to see, ANY 1 mess with. Here were using .xml (clearly)
This is the magic behind the Scrapers.
Lightspeed, id like to help but u gotta have the tools to work with.

I have even started with outlook. Theres the whole MAPI function id really like to explore more with Hal
I have an anti virus plugin too, but requires OUTLOOK To function, because it targets out-look virus's (kinda nifty) NOT meant to replace ur anti virus, hahahahhahhahaha
So i dont even wana hear it, but it does Detect ,kill and remove all traces of the ScanSwen virus and all known variants, Very common virus.
Its so sad that we dont more pple in here pushing Hals limits, Hal was born to be pushed
best wishes
cyberjedi

128

Ultra Hal Assistant File Sharing Area / Image of the day Scraper:

« on: June 09, 2017, 10:24:45 am »

Rem Type=Plugin
Rem Name= Image of the day
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.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about image of the day.

If InStr(1,InputString, "image",1) > 0 Then
UltraHal = image(HalCommands)
ElseIf InStr(1,InputString, "image",1) > 0 Then
End If

' Image of the day hooks wikipedia for what they post daily as Image of the day and definition.
'Trigger = image, change to fit

Rem PLUGIN: FUNCTIONS
Function image (HalCommands)

Dim oDoc1 , con1
Dim objExplorer

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 oDoc1 = CreateObject("HTMLFile")
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

HalMenu.HalCommand "<SPEAK>"& "Please wait ." & "</SPEAK>"
Set objExplorer = CreateObject("InternetExplorer.Application")

Set con1 = CreateObject("MSXML2.ServerXMLHTTP.3.0")
URL = "https://en.wikipedia.org/wiki/Main_Page"

con1.Open "GET", URL , False
con1.Send
oDoc1.Write con1.responseText

URL2 = oDoc1.GetElementsByTagName("img")(4).src
URL3 = Mid(URL2,7)

objExplorer.Navigate URL3
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 500
objExplorer.Height = 320
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1

if oDoc1.GetElementsByTagName("img")(4) is nothing then
HalMenu.HalCommand "<SPEAK>" & "Sorry , featured image of the day is not available" & "</SPEAK>"
objExplorer.Quit
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & "This is the featured image of the day" & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & oDoc1.GetElementsByTagName("img")(4).alt & "</SPEAK>"
if oDoc1.GetElementsByTagName("p")(2) is nothing then

HalMenu.HalCommand "<SPEAK>" & "No information is available for this image ." & "</SPEAK>"
objExplorer.Quit
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & oDoc1.GetElementsByTagName("p")(2).InnerText & "</SPEAK>"
'objExplorer.Quit
end if
end if

End Function

129

Ultra Hal Assistant File Sharing Area / Cybers Wiki Super Scraper

« on: June 09, 2017, 05:11:59 am »

Rem Type=Plugin
Rem Name= wiki super scraper
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.

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

Rem PLUGIN: FUNCTIONS
Function cybersearch (HalCommands)

'The Cyber Super Scraper : This monster Scrapes Wikipedia and reads aloud the answers. All ported through Hal
'A separate window will pop up for input.
' For those who think Hals Plugin language is weak:
'I hope u guys can enjoy this as Much as me.
' I supplied the raw source do as u Please. for any questions , i can be reached here http://vaughnlive.tv/mrelectric
' For plugin, save as .uhp
'You will get a popup window that i left in the plugin. because of running into Multi-Choice output in Wiki.
' In private i call this the Beast from the East
' i havent narrated it, just dont have the energy today, maby soon. pretty clear what it is.
' This is a solid 9.9 on the wierdshiztometer.
'Best wishes
'cyberjedi aka The no fuq around crew
'*********************************

On Error Resume Next

Const SVSFlagsAsync = 1

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

Dim oDoc1 , oDoc2 , oDoc3 ,oDoc4 , con1 , con2 , con3

Set oDoc1 = CreateObject("HTMLFile")
Set oDoc2 = CreateObject("HTMLFile")
Set oDoc3 = CreateObject("HTMLFile")
Set oDoc4 = CreateObject("HTMLFile")

Set con1 = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set con2 = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set con3 = CreateObject("MSXML2.ServerXMLHTTP.6.0")

Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

HalMenu.HalCommand "<SPEAK>" &"Enter keyword to do a Cyber search " , SVSFlagsAsync & "</SPEAK>"
URL1 = "https://en.wikipedia.org/w/index.php?title=Special:Search&search="
Keyword = InputBox("Cyberjedi search ","Cyberjedi Voice Search") '<<<<<< this can be ported to Hals window: I like it as is
If Keyword = "" then
wscript.Quit
Else
HalMenu.HalCommand "<SPEAK>" & "Please Wait ." & "</SPEAK>"
end if

tempURL1 = URL1 & Keyword & "&fulltext=Search&profile=default"

con1.Open "GET", tempURL1 , False

con1.Send

oDoc1.Write con1.responseText

if oDoc1.GetElementsByTagName("b")(0) is nothing then

'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

tempTxt1 = oDoc1.GetElementsByTagName("div")(17).InnerText

if tempTxt1 = "" then

'B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3

HalMenu.HalCommand "<SPEAK>" & "Sorry your entered keyword does not match any titles of articles . Check the spelling ." & "</SPEAK>"

'B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3

else

Select Case tempTxt1

Case "Did you mean: " & oDoc1.GetElementsByTagName("a")(8).InnerText

'B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1

HalMenu.HalCommand "<SPEAK>" & "Sorry for the inconvenience caused , but this minor part of the program is under development ." & "</SPEAK>"

'B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1

Case "Showing results for " & oDoc1.GetElementsByTagName("a")(8).InnerText & ". Search instead for " & Keyword & "."

'B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2

HalMenu.HalCommand "<SPEAK>" & "Showing results for " & oDoc1.GetElementsByTagName("a")(8).InnerText , SVSFlagsAsync & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & "Please wait , while that opens ." , SVSFlagsAsync & "</SPEAK>"

tempTxt1 = oDoc1.GetElementsByTagName("a")(12).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False
con2.Send
oDoc2.Write con2.responseText

temptemp = Right(oDoc2.GetElementsByTagName("p")(0).InnerText , 13)

if temptemp = "may refer to:" then

HalMenu.HalCommand "<SPEAK>" & "This specific keyword , has many references ." & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & "Select the correct choice ." & "</SPEAK>"

tempLen1 = oDoc2.GetElementsByTagName("li").length - 3
val = 0

For loopvar = 0 to tempLen1

if oDoc2.GetElementsByTagName("li")(loopvar).InnerText = "Disambiguation pages" then
Exit For
end if

if val > 2 then
HalMenu.HalCommand "<SPEAK>" & "Is this ?" , SVSFlagsAsync & "</SPEAK>"
else
HalMenu.HalCommand "<SPEAK>" & "Is this the article you are searching for ?" , SVSFlagsAsync & "</SPEAK>"
end if

tempTxt3 = MsgBox (oDoc2.GetElementsByTagName("li")(loopvar).InnerText, vbYesNo + vbQuestion, "Is this the article you are searching for ?")

Select Case tempTxt3

Case vbYes

HalMenu.HalCommand "<SPEAK>" & "Please wait , while that opens ." , SVSFlagsAsync & "</SPEAK>"
tempTxt4 = oDoc2.GetElementsByTagName("li")(loopvar).InnerHtml
oDoc4.write tempTxt4
tempTxt5 = oDoc4.getElementsByTagName("a")(0).href
tempTxt6 = Right(tempTxt5, Len(tempTxt5) - 6)
URL3 = "https://en.wikipedia.org" & tempTxt6
con3.Open "GET", URL3 , False
con3.Send
oDoc3.Write con3.responseText

HalMenu.HalCommand "<SPEAK>" & oDoc3.GetElementsByTagName("p")(0).InnerText & "</SPEAK>"
if oDoc3.GetElementsByTagName("p")(1) is nothing then
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & oDoc3.GetElementsByTagName("p")(1).InnerText & "</SPEAK>"
end if
wscript.Quit

Case vbNo

val = val + 1

End Select

Next

HalMenu.HalCommand "<SPEAK>" & "Sorry your entered keyword does not match any titles of articles . Check the spelling ." & "</SPEAK>"

wscript.Quit

else

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False
con2.Send
oDoc2.Write con2.responseText

HalMenu.HalCommand "<SPEAK>" & oDoc2.GetElementsByTagName("p")(0).InnerText & "</SPEAK>"
if oDoc2.GetElementsByTagName("p")(1) is nothing then
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & oDoc2.GetElementsByTagName("p")(1).InnerText & "</SPEAK>"
end if
wscript.Quit

end if

'B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2

End Select

'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

end if

else

HalMenu.HalCommand "<SPEAK>" & oDoc1.GetElementsByTagName("b")(0).InnerText , SVSFlagsAsync & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & "Please wait , while that opens ." , SVSFlagsAsync & "</SPEAK>"

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False
con2.Send
oDoc2.Write con2.responseText

temptemp = Right(oDoc2.GetElementsByTagName("p")(0).InnerText , 13)

if temptemp = "may refer to:" then

'A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1

HalMenu.HalCommand "<SPEAK>" & "This specific keyword , has many refernces ." & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & "Select the correct choice ." & "</SPEAK>"

tempLen1 = oDoc2.GetElementsByTagName("li").length - 3
val = 0

For loopvar = 0 to tempLen1

if oDoc2.GetElementsByTagName("li")(loopvar).InnerText = "Disambiguation pages" then
Exit For
end if

if val > 2 then
HalMenu.HalCommand "<SPEAK>" & "Is this ?" , SVSFlagsAsync & "</SPEAK>"
else
HalMenu.HalCommand "<SPEAK>" & "Is this the article you are searching for ?" , SVSFlagsAsync & "</SPEAK>"
end if

tempTxt3 = MsgBox (oDoc2.GetElementsByTagName("li")(loopvar).InnerText, vbYesNo + vbQuestion, "Is this the article you are searching for ?")

Select Case tempTxt3

Case vbYes

HalMenu.HalCommand "<SPEAK>" & "Please wait , while that opens ." , SVSFlagsAsync & "</SPEAK>"
tempTxt4 = oDoc2.GetElementsByTagName("li")(loopvar).InnerHtml
oDoc4.write tempTxt4
tempTxt5 = oDoc4.getElementsByTagName("a")(0).href
tempTxt6 = Right(tempTxt5, Len(tempTxt5) - 6)
URL3 = "https://en.wikipedia.org" & tempTxt6
con3.Open "GET", URL3 , False
con3.Send
oDoc3.Write con3.responseText

HalMenu.HalCommand "<SPEAK>" & oDoc3.GetElementsByTagName("p")(0).InnerText & "</SPEAK>"
if oDoc3.GetElementsByTagName("p")(1) is nothing then
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & oDoc3.GetElementsByTagName("p")(1).InnerText & "</SPEAK>"
end if
wscript.Quit

Case vbNo

val = val + 1

End Select

Next

HalMenu.HalCommand "<SPEAK>" & "Sorry your entered keyword does not match any titles of articles . Check the spelling ." & "</SPEAK>"

wscript.Quit

'A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1

else

'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False
con2.Send
oDoc2.Write con2.responseText

HalMenu.HalCommand "<SPEAK>" & oDoc2.GetElementsByTagName("p")(0).InnerText & "</SPEAK>"

if oDoc2.GetElementsByTagName("p")(1).InnerText = "" then
wscript.Quit
else
HalMenu.HalCommand "<SPEAK>" & oDoc2.GetElementsByTagName("p")(1).InnerText & "</SPEAK>"
end if
wscript.Quit

'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2

end if

end if

End Function

130

Ultra Hal Assistant File Sharing Area / onthecuttingedge2005

« on: June 08, 2017, 12:27:25 pm »

Hey man: Hal was off the rails this morning.
I wanted to thank u, for ur work with that Trigger. Truly are onthecuttingedge.
Hal went on about anger management for over an Hour.... lol

But we got it done, failure is not an option.
But i would like to say, the a chat room is what makes it happen. Just does, Hal and a movie, what an epic idea.
Real time Help for Real time Issues.

In short, what i discovered will set Hal free.
I can think of no less then 1000 plugins that could be developed around that.
onthecuttingedge: What you saw was just a taste. And im working on new 1's as we speak.

I have Hal plugged into the FBI, DOJ and the Department Of Defense.
Skys the limit on what can be done here, feeds are updated daily so the address can stay the same.
news, politics, science, the list just goes on and on, weather , fuqin NASA has an open public feed on all kinda **** alone.
all of this stuff Hal can access, being built like a template , there shouldnt be conflicts.
Prob have 20 plugins at a time rolling out. who knows what the exact number can be

best wishes
cyberjedi

Remember Im always here.
https://vaughnlive.tv/mrelectric

131

General Discussion / Hal goes to anger management school.

« on: June 07, 2017, 07:43:26 pm »

132

Ultra Hal Assistant File Sharing Area / Scraper: Hal goes to anger management school.

« on: June 07, 2017, 06:28:20 pm »

Rem Type=Plugin
Rem Name= angermanagement 101
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.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about the angermanagement
'<<<<< Ur basic trigger , change as needed
If InStr(1,InputString, "anger",1) > 0 Then
UltraHal = anger(HalCommands)
ElseIf InStr(1,InputString, "anger",1) > 0 Then
End If

' This has been tested on booth XP and 07 platforms
' This is an Rss scraper
' pretty nifty
' i will break this down as best i can.
' 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.
' Shout out to onthecuttingedge2005 Trigger refinement

Rem PLUGIN: FUNCTIONS
Function anger(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") '<<<<<<<This is where we set the stage for ur computers voice. So invest in a good 1
For Each Voice In Sapi.GetVoices
i = i + 1
Next
For loopvar = 0 to i-1
if loopvar = CInt(confirm_voice) then '<<< This is where we stick our hand up Hals skirt and work his mouth like a Puppet.
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
end if
Next
Set xmlDoc = CreateObject("Microsoft.XMLDOM") '<<<<< this is where me make documents, we will need 02
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>" '<<<<<this is where we tell Hal to read whats in quotes
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>" '<<<<<< same as above
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>" '<<<<<< same as above
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>" '<<<<<< same as above
end if
end if
xmlDoc.async = false
xmlDoc.load("https://www.sciencedaily.com/rss/mind_brain/anger_management.xml") '<<<<<This is where u put ur feed
Set nodelist = xmlDoc.selectNodes("rss/channel/item") ' <<<This is where u define the site u access.
i = 3 ' <<<You will notice im only using 02 variables F1, F2
For Each item In nodelist ' <<< i choose a different site. U dont have to do this.
Set f1 = item.selectsinglenode("title") '<<<<<<< This is doc 01 ' <<< just me being me. i made this to be a Template.
Set f2 = item.selectsinglenode("description") '<<<< This is doc 02
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>" ' This is where the magic happens (remember the 02 documents) ^^^^^^
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>" ' This is where the magic happens (remember the 02 documents) ^^^^^^
i = i + 1 ' Hal litterally reads the 02 documents , but with out Hals speech limitations
if i = tempconfirm then ' Whos ur daddy now,lololol 1000's of plugins could be made off this.
wscript.Quit ' http://www.web-directories.ws/Press/RSS_Feeds/
end if
Next
end if
Next
End Function '<<<<<<<<<This is where we get the finger and it closes out.

133

Ultra Hal Assistant File Sharing Area / Word of the Day Scraper

« on: June 07, 2017, 02:46:14 pm »

Rem Type=Plugin
Rem Name=word of the day
Rem Author=cyberjedi
Rem Host=Assistant

'What an interesting way to get Hal to learn.
' key word = WOTD (check WOTD)
'Hal reads and parses The word of the day from http://dictionary.reference.com/wordoftheday/
'Hal ports the word of the day through Haptek's engine
'This was a real joy
' On my weirdshizitometer this ranks a solid 9.5
'Copy and paste this code to a .UHP =Done
'Or just dl the UHP

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 = True
'Determines that you are talking about the wordoftheday
If InStr(1,InputString, "wotd",1) > 0 Then
UltraHal = Getwotd(HalCommands)
ElseIf InStr(1,InputString, "wotd",1) > 0 Then
End If

Rem PLUGIN: FUNCTIONS
Function Getwotd(HalCommands)
Dim oDoc1 , con1
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 oDoc1 = CreateObject("HTMLFile")
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Please wait ." & "</SPEAK>"
Set con1 = CreateObject("MSXML2.ServerXMLHTTP.6.0")
URL = "http://dictionary.reference.com/wordoftheday/"
con1.Open "GET", URL , False
con1.Send
oDoc1.Write con1.responseText
HalMenu.HalCommand "<SPEAK>" & "Word of the day is , " & oDoc1.GetElementsByTagName("strong")(0).InnerText & " , which means , " & oDoc1.GetElementsByTagName("ol")(0).InnerText & "</SPEAK>"
End Function

134

General Discussion / Rss Reader(Web Scraper) complete.

« on: May 15, 2017, 03:52:49 pm »

135

Ultra Hal Assistant File Sharing Area / Weather Web Scraper Complete using DOM. With a Twist.

« on: May 12, 2017, 07:36:16 am »