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 = False
'Determines that you are talking about Forex Stock Market
If InStr(1,InputString, "forex",1) > 0 Then
UltraHal = Getforex(HalCommands)
ElseIf InStr(1,InputString, "forex",1) > 0 Then
End If
'This is a basic template i built for scraping web sites. You should have some knowledge in DOM when playing with this.
'There are literally 10's of Thousands of feeds Hal can hook with this. Weather, News, hell ive hooked Hal into the fbi's
'top 10 wanted list with this. Look what im doing here. i hope you all enjoy this.
'There are feeds that you can hook that are terrorist watch list and if there is a terrorist attack.
'There are 02 versions of Hal, Hal the curiosity,which is just great, then there's Hal, im a Bad Ass MF'er Version.
'Hal is end game software, what you put in ,you will get Back.... Cyberjedi bringing it to you Real.
' This bad boy is a Forex Scraper with a twist, All the data Scraped is ported through Hals Voice.
'Forex updates Hr'ly
' This also Breaks Hals speech limitations on how much he can say.
' Trigger= forex
' Working model
https://www.youtube.com/watch?v=DgwTsFBhIo4&t=80s 'Follow me in to the jungle.
http://cyberjedi.rf.gd/?i=1 ' I give myself about a 7.5 on cool ideas here
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") '<<---Hmm, wonder what this is for?
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 ' <<<<<Pay close attention here ,im set up for 03 but only using 02 below.
For Each item In nodelist ' <<<<<<you can completley modify this for ur needs, to a particular site u may want
Set f1 = item.selectsinglenode("title") 'And here we are node 1
Set f2 = item.selectsinglenode("description") 'And here we are Node 2
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