dupa

Recent Posts

Pages: 1 2 [3] 4 5 ... 10
21
AI NEWS | Latest Future Technology and Robot News | Weekly Update #9
 :)
https://www.youtube.com/watch?v=HgG9SGq7i4k
22
General Discussion / Re: the robots are coming get your a.i. brains ready !
« Last post by cyberjedi on April 22, 2022, 09:02:57 pm »
Hey guys just checkin in.
expect this in a new plugin soon
By targeting this website you get a solid stream..... multi channel
play with timers for getting a feel of whats going on here

##########################
Dim oWMP : Set oWMP = CreateObject("WMPlayer.OCX.7") ' too funny
With oWMP ' saves typing
.settings.autoStart = True
.settings.volume = 50 ' 0 - 100
.settings.balance = 0 ' -100 to 100
.settings.enableErrorDialogs = False
.enableContextMenu = False
.URL = "http://www.181.fm/tuner.php?station=181-70s&file=181-70s.asx" ' <<<<<< ladeda
WScript.Sleep(800000) ' time to load and start playing 08 mins
.Controls.Pause() ' stop
WScript.Sleep(5000)
.Controls.Play() ' go again
WScript.Sleep(5000)
End With

################################
gotta be 100 channels

Save as a vbs and enjoy
If ...u have win 10 this is ON ur machine and installed
Build in the same function over and over point to a new address gives Hal his juke box
https://www.181.fm/

cyber jedi says click on a channel start listening , open task-man, process hacker something along those lines. You will see ip address and channel/port.
plug that address into hals code and presto

This is not Unethical in any means.

if you access the the site ull go rite there.
ive talked to casters, cool we dont care thanks for catching our stream. Is about ive heard.
code up a a kill process trigger to stop media player
Im working on a way to accurately bring up the player giving you GUI support allowing you to just kill it that way
but this works
sites perfectly safe btw


cyber jedi
23
General Discussion / Re: the robots are coming get your a.i. brains ready !
« Last post by Art on April 19, 2022, 04:23:56 pm »
I think that just about everything will soon be just an illusion...

Like that old Beatle's song lyric, "...nothing is real..." (Strawberry Fields).
24
General Discussion / New AUDIO DEEPFAKES Give You any Celebrity Voice
« Last post by lightspeed on April 19, 2022, 09:52:54 am »
New AUDIO DEEPFAKES Give You any Celebrity Voice
https://www.youtube.com/watch?v=AALf9w37COM

hal having any persons voice available ??  :) ;)
25
Ultra Hal Assistant File Sharing Area / Re: Image of the day
« Last post by lightspeed on April 17, 2022, 10:18:14 pm »
will try it out , thanks
26
Ultra Hal Assistant File Sharing Area / Re: Image of the day
« Last post by Art on April 16, 2022, 04:51:01 pm »
Nicely done Cyber!

Good stuff!
27
Ultra Hal Assistant File Sharing Area / Image of the day
« Last post by cyberjedi on April 16, 2022, 10:18:38 am »
By popular demand i redid  Image of the day.
Direct action plugin
Nasa IOTD
The power of this iddy biddy bit of code cant be quantified....Enjoy
Trigger is Open IOTD




Rem Type=Plugin
Rem Name=Image of the day
Rem Author=Zabaware, Inc.
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.
 
HalBrain.ReadOnlyMode = True  '<<<<<<<<What do u think is gonna happen if you set that flag to false
'Determines that you are talking about the Image of the day
If InStr(1,InputString, "IOTD",1) > 0 Then
 UltraHal = GetIOTD(HalCommands)
ElseIf InStr(1,InputString, "IOTD",1) > 0 Then
 End If
 
 

Rem PLUGIN: FUNCTIONS
Function GetIOTD(HalCommands)

Dim oDoc1 , con1
Dim objExplorer

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
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
Next
Set oDoc1 = CreateObject("HTMLFile")
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set objExplorer = CreateObject("InternetExplorer.Application")
Set con1 = CreateObject("MSXML2.ServerXMLHTTP.3.0")
URL = "https://earthobservatory.nasa.gov/topic/image-of-the-day"
con1.Open "GET", URL , False
con1.Send
oDoc1.Write con1.responseText

objExplorer.Navigate URL
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 940
objExplorer.Height = 970
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1

HalMenu.HalCommand "<SPEAK>" & "From the mind of cyber jedi" & "</SPEAK>"

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

else

end if

End Function
28
General Discussion / The Rise of A.I. Companions [Documentary]
« Last post by lightspeed on April 15, 2022, 01:03:42 pm »
The Rise of A.I. Companions [Documentary]

https://www.youtube.com/watch?v=QGLGq8WIMzM
29
Art,

Thanks for checking out the video. I do visit from time to time, I'll have to give the newest version a try.
30
Hey CyborgBob!

Nice video! Good to see you still visiting the forum as it has been some time.

Try out the 7.5 Cloud version where you can talk to Curie, an AI with 1.75 billion exchanges and she's pretty smart!

It only gets better from there.

UltraHal 7.0 will allow you to keep and use your 6.x Hal brain so none of your old information is lost.

Don't be a stranger...

- Art -
Pages: 1 2 [3] 4 5 ... 10