dupa

Author Topic: LIGHTSPEED IDEA'S  (Read 2003 times)

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
LIGHTSPEED IDEA'S
« on: April 16, 2021, 08:47:29 pm »
I AM GOING TO JUST TRY TO KEEP my idea's here in one spot ; 4-16-2021    :)

a idea i thought about today would maybe require ?? the old game type 3d motion type set up , or who knows maybe it can be done with a regular pc motion detection and camera .

 Anyway it would be having hal do mimic motion detection of laughter  with sound and mimic of facial expressions ,  different versions could be used , with even a full body mimicking  auser waving his or her hand , so the character would wave back at you .

I know cyberjedi is at work on many things but maybe if interested could keep this idea on a back burner for a later project .  :) ;)
 

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
automatic language translator
« Reply #1 on: April 23, 2021, 12:31:09 pm »
i was thinking  that maybe with an app access or code hal could translate from English only to any language , using something like the  app translator  with voice recognition. using this  would allow more people in the market to use hal that can't speak English .  they would talk to hal in their language and hals txt response files would be instantly translator speaking in whatever language was set up .


 Anyway , just a idea.   :)
 

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
reset to original brain editor idea 5-27-2021
« Reply #2 on: May 27, 2021, 11:39:26 am »
       Okay here is another out of the box idea , don't know if this is doable but i will throw it out there . i just ran across something odd while in the hal brain editor when i went in to correct a sentence outcome  from a statement that went into answer , when i went to save it the save changes area was greyed out , so i don't know if the brain editor is corrupted somehow or what .

        Anyway because of this it made me wonder if someone could create a  restore type of editor that would restore the hal editor back to original but keep all learned info. just a thought .  it would kind of work like how windows does a restore to earlier time without losing information .



     
 

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3693
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #3 on: May 27, 2021, 04:58:05 pm »
I think it has a lot to do with which area of the Table one is trying to change & SAVE.

I tried several and in some, the SAVE word was dark and would allow me to save my changes yet some other topic areas of the Table were grayed out.

The same experiment was tried on a personal Customized Hal Brain. Some areas would let me save yet others would not show a highlighted/dark Save word.

Apparently, one's changes are saved and entered into the topic areas within the Brain's Table, whether grayed out or not.

Make a change, Exit the brain, restart the Brain Editor and go to that area where you made the change. It should still be present.

Just another one of those Hal mysteries that work in spite of what we try.












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

- Art -

LiFeTimeGamer

  • Full Member
  • ***
  • Posts: 151
    • View Profile
    • LifeTimeGamer
Re: LIGHTSPEED IDEA'S
« Reply #4 on: May 28, 2021, 11:41:09 am »
Here's what Robert posted in another thread about the Brain Editor saving changes...

"Most database changes are done instantly as soon as you leave focus for the particular row. So there is no separate save button needed and it is greyed out.

Only changes to the vbscript code and I believe the sentence list database tables have the save button that needs clicked to commit the changes, everything else is instant.

It shouldn't be an issue having both Hal running and the brain editor, the sqlite engine only keeps files open for a split second while doing an operation and has automatic collision detection and handling if 2 programs try the same file at the exact same time."


https://www.ultrahal.com/community/index.php?topic=12831.0
When it comes to Artificial Intelligence: The Soul is in the Software.

cyberjedi

  • Hero Member
  • *****
  • Posts: 755
  • The Mighty Hal Machine
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #5 on: May 28, 2021, 12:59:12 pm »
Hwy lightspeed

make sure that ur in expert mode too

Upper left hand corner


cyber

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
another lightspeed idea i had . 7-29-2021
« Reply #6 on: July 29, 2021, 11:04:08 pm »
   while typing to hal  sometimes i may misspell a word  or type to fast and put a extra letter and don't realize it until i hit enter , by then it's to late hal is already learning a sentence with a misspelled word etc.  ( i know it can be edited in the brain editor but here's my idea,
it would be handy if a person realizes something like that and before hal can respond back, maybe have a "hot" key of choice that would somehow cancel it  from entering into hal , but leave the written sentence in the box to hal . This way the user has a second chance to correct the sentence and hal can learn it correctly (or) even change the sentence completely . 

Anyway, just an idea that may or may not be useful in a future update of hal.
 

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3693
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #7 on: July 30, 2021, 08:54:13 am »
I'm trying to figure out how that would or could work when as you mentioned, as soon as the Enter key is pressed, Hal is already processing its pattern matching routines! Many people in the past have said that Hal doesn't respond fast enough and they didn't like waiting for a response, etc.
How would there be a "Hot Key" to enable such a feature of yours?

"How about a Forget my previous sentence" command at which Hal could remove it from whichever table it was inserted.

That way, the user could reword or retype the correct sentence for Hal to store and learn.

Just a thought but if you're just looking for a Spell Checker, wasn't that tossed about some time ago? Don't know by whom...
« Last Edit: July 30, 2021, 02:06:48 pm by Art »
In the world of AI it's the thought that counts!

- Art -

cyberjedi

  • Hero Member
  • *****
  • Posts: 755
  • The Mighty Hal Machine
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #8 on: July 31, 2021, 08:58:00 am »
RE: spell checker

Time to bend over and take 03 wacks in the principles office,, mhmm


Lighty, bill did this years ago, Art was nice enough to help me track this down.

Lighty., look little brother ive had this discussion with some of you before....
This bad boy gets it done...../.. and in real time, issue resolved.

But once again, there is resistance because of bill gates
Let me ask you guys something and i address this to all involved, do u think Mr Gates gives a ratts F**** if you like him or not, what are we 12 now,i hate my dad so i refuse to look before i cross the street.........???????Really

Install Microsoft Word, any version will do. FIXED
Dont sht on Hal because u hate bill gates...
If ur worried about hostile code, get it from me, we go back a decade now, or close to it.

Dont use it if u dont want to,just install it
You can still default to openoffice if u like......

Your selling ur car for gas money..
The amount of code u cant use(theres so much more) is staggering
.... Hint, Scrapers,xml , yupper office yet again....

Ima show up at ur door and club u in da head with a rubber DONG... lol im teasing...

Its been suggested to me from on high because of the situation, not to get to personally involved (watch my temper lol we are pg13 environment )with members....
But weve known each other far to long.......

So here i am. Charging the walls again. Doing what i do... No fear No fear



Rem Type=Plugin
Rem Name=Spell Checker
Rem Author=Bill DeWitt
Rem Host=Assistant

'This sub sets up the plug-in's option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "This should help correct your input sentence on any computer with MSWord" ' if u dont have office, dont bother
    lblPlugin(0).Move 120, 120, 3300, 1200
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

Rem PLUGIN: PRE-PROCESS
Dim Word, Doc, Uncorrected, Corrected
Const wdDialogToolsSpellingAndGrammar = 828
Const wdDoNotSaveChanges = 0
Uncorrected = InputString
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = Uncorrected
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show
If Len(Word.Selection.Text) <> 1 Then
   Corrected = Word.Selection.Text
Else
   Corrected = Uncorrected
End If
Doc.Close wdDoNotSaveChanges
Word.Quit
InputString = Corrected



Pre Process area is spot on  for the way Hal works in memory.
Lighy, love ya man, peace out
Hals obedient servant
Cyber


P.S The windows platform Ulrahal is installed on is in fact a microsoft product, so im kinda lost on this one.
« Last Edit: August 29, 2021, 07:54:30 am by cyberjedi »

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
hal uhp music plug in with commands idea 8-23-2021
« Reply #9 on: August 23, 2021, 01:01:48 pm »
don't remember if anyone created this for hal , but a plug in using the existing user's windows music files . With command to play specific and or random music and stop and /lower  or raise volume command .  Would be a nice addition to hals capabilities.
 

cyberjedi

  • Hero Member
  • *****
  • Posts: 755
  • The Mighty Hal Machine
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #10 on: August 23, 2021, 01:14:19 pm »
hey lighty:

Theres an mp3/mp4 uhp floating around in here somewhere.
It was a VrPlugin idea, this is a complete rewrite  i back engineered farrrrr past its intended use.. .lol
Requires windows media player. ocx calls, follow the code
I worked on this years ago buddy
im sure i shared it with evey one.

Il llook around
Ok found it, you guys are on ur own about this. it did work with Ultrahal 6.2
cyber

'Option Explicit
Rem Type=Plugin
Rem Name= mass media player
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 the media player
If InStr(1,InputString, "loadmedia",1) > 0 Then
UltraHal = Getmedia(HalCommands)
ElseIf InStr(1,InputString, "loadmedia",1) > 0 Then
End If
 'This is the only plugin for hal that creates its own image GUI
 ' This bad boy is a media list maker and player 
 ' It makes a play list called MyPlayList.m3u
 ' In whatever folder the media is in
 ' Launches the wmp with full controls
 ' Trigger= loadmedia
 ' I give myself about a 9.5 on cool ideas here
 ' This is something hal has needed for years
 ' Seek time is just so much faster

Rem PLUGIN: FUNCTIONS
Function Getmedia(HalCommands)

   'SAPI engine Hook here
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Sapi = CreateObject("SAPI.SpVoice")
  For Each Voice In Sapi.GetVoices
  i = i + 1
Next

If AppPrevInstance() Then
    MsgBox "There is an existing proceeding !" & VbCrLF &_
    CommandLineLike(WScript.ScriptName),VbExclamation,"There is an existing proceeding !"   
    WScript.Quit   
Else
    Dim Folder,File,fso,MyPlayList,Temp,oExec,ws,Title,WaitingMsg
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ws = CreateObject("WScript.Shell")
    Temp = ws.ExpandEnvironmentStrings("%Temp%")
    Folder = Browse4Folder()
    MyPlayList = Folder & "\MyPlayList.m3u"  'This is the magic behind this plugin
    If fso.FileExists(MyPlayList) Then
        fso.DeleteFile(MyPlayList)
    End If
    Title = "Looking for songs in "& DblQuote(Folder) & " From the mind of cyberjedi"
    WaitingMsg = "Please wait... Searching for songs  : <font color=Yellow>"& DblQuote(Folder) & "</font> is in progress..."
    Sapi.speak "Please wait... Searching for songs "
    Sapi.speak "From the mind of cyberjedi"
   
    Call CreateProgressBar(Title,WaitingMsg)'Creation of Waiting Bar
    Call LancerProgressBar() 'Launch of the Waiting Bar
    Call Pause(10)
    Call Scan4Songs(Folder)
    Call FermerProgressBar()
    Call Play(MyPlayList)
End If
'*********************************************************
Sub Play(File)
    On Error Resume Next
    Dim Sound,Ws,Copyright
    Copyright = " ? cyberjedi 2017"
    Set Ws = CreateObject("wscript.Shell")
    If Err <> 0 Then
        Ws.popup Err.Description & VbCrlF &_
        "No media file found !","3",Err.Description & Copyright,VbCritical
        wscript.quit()
    Else
    Set Sound = CreateObject("WMPlayer.OCX") ' if u dont have wm player installed , dont bother.
    Sound.settings.volume = 100
    Sound.OpenPlayer(File)
    End If
End Sub
'*********************************************************************************************
Function AppPrevInstance()   
    With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")   
        With .ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE " & CommandLineLike(WScript.ScriptFullName) & _
            " AND CommandLine LIKE '%WScript%' OR CommandLine LIKE '%cscript%'")   
            AppPrevInstance = (.Count > 1)   
        End With   
    End With   
End Function   
'*********************************************************************************************
Function CommandLineLike(ProcessPath)   
    ProcessPath = Replace(ProcessPath, "\", "\\")   
    CommandLineLike = "'%" & ProcessPath & "%'"   
End Function
'*********************************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder in order to scan into it and its subfolders for songs"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
end Function
'*********************************************************************************************
Function Scan4Songs(Folder)
    On Error Resume Next
    Dim File,Ext,item,SubFolder
    Set Folder = fso.GetFolder(Folder)
    For each File in Folder.Files
    Ext = Array("mp3","wav","ogg","asf","aa3","m3v","midi")' this totally expandable now. if ur version of WMP will play it, add the ext here. '
     'mp4, avi, ect ect ect^^^^^^^^^^^^^^^^^^^^^
    For i = LBound(Ext) To UBound(Ext)
        'Ext = Array("mp3")
        'For each item in Ext
            'If LCase(fso.GetExtensionName(File.name)) = LCase(item) Then
            If LCase(fso.GetExtensionName(File.name)) = LCase(Ext(i)) Then
                Call MakePlayListFile(MyPlayList,File.Path)
            end if
        Next
    Next
    For each SubFolder in Folder.SubFolders
        Call Scan4Songs(SubFolder.Path)
    Next
End Function
'*********************************************************************************************
Sub MakePlayListFile(MyPlayList,strContents)
    Dim fso,ts
    Const ForAppending = 8
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(MyPlayList,ForAppending,True)
    ts.WriteLine "#UTF8: "& strContents
    ts.WriteLine strContents
    ts.Close
End Sub
'**********************************************************************************************
Sub CreateProgressBar(Title,WaitingMsg)
    Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec
    Set ws = CreateObject("wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Temp = WS.ExpandEnvironmentStrings("%Temp%")
    PathOutPutHTML = Temp & "\Barre.hta"
    Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
    fhta.WriteLine "<HTML>"
    fhta.WriteLine "<HEAD>"
    fhta.WriteLine "<Title>  " & Title & "</Title>"
    fhta.WriteLine "<HTA:APPLICATION"
    fhta.WriteLine "ICON = ""magnify.exe"" "
    fhta.WriteLine "BORDER=""THIN"" "
    fhta.WriteLine "INNERBORDER=""NO"" "
    fhta.WriteLine "MAXIMIZEBUTTON=""NO"" "
    fhta.WriteLine "MINIMIZEBUTTON=""NO"" "
    fhta.WriteLine "SCROLL=""NO"" "
    fhta.WriteLine "SYSMENU=""NO"" "
    fhta.WriteLine "SELECTION=""NO"" "
    fhta.WriteLine "SINGLEINSTANCE=""YES"">"
    fhta.WriteLine "</HEAD>"
    fhta.WriteLine "<BODY text=""white""><CENTER>"
    fhta.WriteLine "<marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE><font face=""Comic sans MS"">" & WaitingMsg &"</font></marquee>"
    fhta.WriteLine "<img src=""data:image/gif;base64,R0lGODlhgAAPAPIAAP////INPvvI0/q1xPVLb/INPgAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAgAAPAAAD5wiyC/6sPRfFpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwDkJEDE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/4ixgeloM5erDHonOWBFFlJoxiiTFtqWwa/Jhx/86nKdc7vuJ6mxaABbUaUTvljBo++pxO5nFQFxMY1aW12pV+q9yYGk6NlW5bAPQuh7yl6Hg/TLeu2fssf7/19Zn9meYFpd3J1bnCMiY0RhYCSgoaIdoqDhxoFnJ0FFAOhogOgo6GlpqijqqKspw+mrw6xpLCxrrWzsZ6duL62qcCrwq3EsgC0v7rBy8PNorycysi3xrnUzNjO2sXPx8nW07TRn+Hm3tfg6OLV6+fc37vR7Nnq8Ont9/Tb9v3yvPu66Xvnr16+gvwO3gKIIdszDw65Qdz2sCFFiRYFVmQFIAEBACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9J2qd1AoM9MYeF4KaWJKWmaJXxEyulI3zWa/39Xh6/vkT3q/DC/JiBFjMSCM2hUybUwrdFa3Pqw+pdEVxU3AViKVqwz30cKzmQpZl8ZlNn9uzeLPH7eCrv2l1eXKDgXd6Gn5+goiEjYaFa4eOFopwZJh/cZCPkpGAnhoFo6QFE6WkEwOrrAOqrauvsLKttKy2sQ+wuQ67rrq7uAOoo6fEwsjAs8q1zLfOvAC+yb3B0MPHD8Sm19TS1tXL4c3jz+XR093X28ao3unnv/Hv4N/i9uT45vqr7NrZ89QFHMhPXkF69+AV9OeA4UGBDwkqnFiPYsJg7jBktMXhD165jvk+YvCoD+Q+kRwTAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJdCLnC/S+nsCFo1dq5zeRoFlJ1Du91hOq3b3qNo/5OdZPGDT1QrSZDLIcGp2o47MYheJuImmVer0lmRVlWNslYndm4Jmctba5gm9sPI+gp2v3fZuH78t4Xk0Kg3J+bH9vfYtqjWlIhZF0h3qIlpWYlJpYhp2DjI+BoXyOoqYaBamqBROrqq2urA8DtLUDE7a1uLm3s7y7ucC2wrq+wca2sbIOyrCuxLTQvQ680wDV0tnIxdS/27TND+HMsdrdx+fD39bY6+bX3um14wD09O3y0e77+ezx8OgAqutnr5w4g/3e4RPIjaG+hPwc+stV8NlBixAzSlT4bxqhx46/MF5MxUGkPA4BT15IyRDlwG0uG55MAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPECwbnu3gUKH1h2ZziNKVlJWDW9FvSuI/nkusPjrF0OaBIGfTna7GaTNTPGIvK4GUZRV1WV+ssKlE/G0hmDTqVbdPeMZWvX6XacAy6LwzAF092b9+GAVnxEcjx1emSIZop3g16Eb4J+kH+ShnuMeYeHgVyWn56hakmYm6WYnaOihaCqrh0FsbIFE7Oytba0D7m6DgO/wAMTwcDDxMIPx8i+x8bEzsHQwLy4ttWz17fJzdvP3dHfxeG/0uTjywDK1Lu52bHuvenczN704Pbi+Ob66MrlA+scBAQwcKC/c/8SIlzI71/BduysRcTGUF49i/cw5tO4jytjv3keH0oUCJHkSI8KG1Y8qLIlypMm312ASZCiNA0X8eHMqPNCTo07iyUAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8hffaB3ZiWJKfmaJgJWHV5FqQK9uPuDr6yPeTniAIzBV/utktVmPCOE8GUTc9Ia0AYXWXPXaTuOhr4yRDzVIjVY3VsrnuK7ynbJ7rYlp+6/u2vXF+c2tyHnhoY4eKYYJ9gY+AkYSNAotllneMkJObf5ySIphpe3ajiHqUfENvjqCDniIFsrMFE7Sztre1D7q7Dr0TA8LDA8HEwsbHycTLw83ID8fCwLy6ubfXtNm40dLPxd3K4czjzuXQDtID1L/W1djv2vHc6d7n4PXi+eT75v3oANSxAzCwoLt28P7hC2hP4beH974ZTEjwYEWKA9VBdBixLSNHhRPlIRR5kWTGhgz1peS30l9LgBojUhzpa56GmSVr9tOgcueFni15styZAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKsWIPiFwhia4kWWKrl5UGXFMFa/nJ0Da+r0rF9vAiQOH0DZTMeYKJ0y6O2JPApXRmxVe3VtSVSmRLzENWm7MM+65ra93dNXHgep71H0mSzdFec+b3SCgX91AnhTeXx6Y2aOhoRBkllwlICIi49liWmaapGhbKJuSZ+niqmeN6SWrYOvIAWztAUTtbS3uLYPu7wOvrq4EwPFxgPEx8XJyszHzsbQxcG9u8K117nVw9vYD8rL3+DSyOLN5s/oxtTA1t3a7dzx3vPwAODlDvjk/Orh+uDYARBI0F29WdkQ+st3b9zCfgDPRTxWUN5AgxctVqTXUDNix3QToz0cGXIaxo32UCo8+OujyJIM95F0+Y8mMov1NODMuPKdTo4hNXgMemGoS6HPEgAAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9pcgitpIhmaZouMGYq/LwbPMTJVE34/Z9j7BJCgE+obBnAWSwzWZMaUz+nQQkUfjyhrEmqTQGnins5XH5iU3u94Crtpfe4SuV9NT8R0Nn5/8RYBedHuFVId6iDyCcX9vXY2Bjz52imeGiZmLk259nHKfjkSVmpeWanhhm56skIyABbGyBROzsrW2tA+5ug68uLbAsxMDxcYDxMfFycrMx87Gv7u5wrfTwdfD2da+1A/Ky9/g0OEO4MjiytLd2Oza7twA6/Le8LHk6Obj6c/8xvjzAtaj147gO4Px5p3Dx9BfOQDnBBaUeJBiwoELHeaDuE8uXzONFu9tE2mvF0KSJ00q7Mjxo8d+L/9pRKihILyaB29esEnzgkt/Gn7GDPosAQAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTcJJKmV5oUKJ7qBGPyKMzNVUkzjFoSPK9YjKHQQgSve7eeTKZs7ps4GpRqDSNcQu01Kazlwbxp+ksfipezY1V5X2ZI5XS1/5/j7l/12A/h/QXlOeoSGUYdWgXBtJXEpfXKFiJSKg5V2a1yRkIt+RJeWk6KJmZhogKmbniUFrq8FE7CvsrOxD7a3Drm1s72wv7QPA8TFAxPGxcjJx8PMvLi2wa7TugDQu9LRvtvAzsnL4N/G4cbY19rZ3Ore7MLu1N3v6OsAzM0O9+XK48Xn/+notRM4D2C9c/r6Edu3UOEAgwMhFgwoMR48awnzMWOIzyfeM4ogD4aMOHJivYwexWlUmZJcPXcaXhKMORDmBZkyWa5suE8DuAQAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9h03gZNgmtqJXqqwka8YM2NlQXYN2ze254/WyiF0BYU8nSyJ+zmXQB8UViwJrS2mlNacerlbSbg3E5fJ1WMLq9KeleB3N+6uR+XEq1rFPtmfdHd/X2aDcWl5a3t+go2AhY6EZIZmiACWRZSTkYGPm55wlXqJfIsmBaipBROqqaytqw+wsQ6zr623qrmusrATA8DBA7/CwMTFtr24yrrMvLW+zqi709K0AMkOxcYP28Pd29nY0dDL5c3nz+Pm6+jt6uLex8LzweL35O/V6fv61/js4m2rx01buHwA3SWEh7BhwHzywBUjOGBhP4v/HCrUyJAbXUSDEyXSY5dOA8l3Jt2VvHCypUoAIetpmJgAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8q/YdN4Gj+AgoqqVqJWHkFrsW5Jbzbee8yaaTH4qGMxF3Rh0s2WMUnUioQygICo9LqYzJ1WK3XiX4Na5Nhdbfdy1mN8nuLlxMTbPi4be5/Jzr+3tfdSdXbYZ/UX5ygYeLdkCEao15jomMiFmKlFqDZz8FoKEFE6KhpKWjD6ipDqunpa+isaaqqLOgEwO6uwO5vLqutbDCssS0rbbGuMqsAMHIw9DFDr+6vr/PzsnSx9rR3tPg3dnk2+LL1NXXvOXf7eHv4+bx6OfN1b0P+PTN/Lf98wK6ExgO37pd/pj9W6iwIbd6CdP9OmjtGzcNFsVhDHfxDELGjxw1Xpg4kheABAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTeBowiZjqCqG9malYS5sXXScYnvcP6swJqux2MMjTeiEjlbyl5MAHAlTEarzasv+8RCu9uvjTuWTgXedFhdBLfLbGf5jF7b30e3PA+/739ncVp4VnqDf2R8ioBTgoaPfYSJhZGIYhN0BZqbBROcm56fnQ+iow6loZ+pnKugpKKtmrGmAAO2twOor6q7rL2up7C/ssO0usG8yL7KwLW4tscA0dPCzMTWxtXS2tTJ297P0Nzj3t3L3+fmzerX6M3hueTp8uv07ezZ5fa08Piz/8UAYhPo7t6+CfDcafDGbOG5hhcYKoz4cGIrh80cPAOQAAAh+QQJCgAAACwAAAAAgAAPAAAD5wi0C/6sPRfJpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwFkJEFE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAA7AAAAAAAAAAAA"" />"
    fhta.WriteLine "</CENTER></BODY></HTML>"
    fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> "
    fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")"
    fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")"
    fhta.WriteLine "Sub window_onload()"
    fhta.WriteLine "    CenterWindow 490,110"
    fhta.WriteLine "    Self.document.bgColor = ""DarkOrange"" "
    fhta.WriteLine " End Sub"
    fhta.WriteLine " Sub CenterWindow(x,y)"
    fhta.WriteLine "    Dim iLeft,itop"
    fhta.WriteLine "    window.resizeTo x,y"
    fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2"
    fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2"
    fhta.WriteLine "    window.moveTo ileft,itop"
    fhta.WriteLine "End Sub"
    fhta.WriteLine "</script>"
    fhta.close
End Sub
'**********************************************************************************************
Sub LancerProgressBar()
    Set oExec = Ws.Exec("mshta.exe " & Temp & "\Barre.hta")
End Sub
'**********************************************************************************************
Sub FermerProgressBar()
    oExec.Terminate
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
Sub Pause(Secs)   
    Wscript.Sleep(Secs * 1000)   
End Sub   
End Function
« Last Edit: August 29, 2021, 08:03:41 am by cyberjedi »

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #11 on: August 23, 2021, 03:57:32 pm »
Hey , thanks cyber jedi , i did have that plug in a long time ago but may have lost it , thanks i copied and made a uhp file of it and am now using it .
I am checking out the other media player plug in to, thanks .   i showed art in the past i have a Wurlitzer lit up animate pc version juke box that comes on as a media player and loads all my old music songs i originally had on cd's , do think though they are in different forms seems like it said caa original format ?
 

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #12 on: August 23, 2021, 05:30:23 pm »
okay after checking the spell checker i got this error after i had hal open and wrote in conversation .

 

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3693
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #13 on: August 23, 2021, 09:37:47 pm »
Lonnie (and others),

Windows 10 did not and does not come with Microsoft WORD. IT is available as an online purchase or as a Subscription-based purchase.

While they claim that Windows 10 comes with Wordpad, it is NOT the same and does not function the same as Word.

Therefore, look through any Plugins that make references to or calls/commands to any MS Office Programs like Word, Excel, Database, etc. because they will, in most cases, cause an error similar to the one shown here in your example, if you do not own said program.

Unless you're willing to go through some code to make changes to the Plugin and spend some time digging through a different program, know that you are going to have to test and debug and retest it again, hoping that you finally get it to work without an error.

Otherwise, it might be just best to not use that plugin or find a more suitable substitute.

Thanks for sharing your frustration with the rest of us Lonnie!
Sorry, I can't be of more help.
In the world of AI it's the thought that counts!

- Art -

lightspeed

  • Hero Member
  • *****
  • Posts: 6606
    • View Profile
Re: LIGHTSPEED IDEA'S
« Reply #14 on: August 24, 2021, 08:20:13 pm »
art i just sent you a  e mail  about something  but it may only be for online and not work .