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 2 [3] 4 5 ... 15
31
General Discussion / HapTargh De-Compressor
« on: February 04, 2020, 04:53:31 am »
RE: HapTargh De-Compressor
Im searching for the Compressor/Decompressor
Any version is fine as well as any license situations

Like to get it to work  for win10   
Im also thinking i might be able to pull that from PP, as i set here....lol
Surely its in there, "slaps forhead and hides head in shame"
Puff Puff Pass cyber...... jesus


michael


32
Ultra Hal Assistant File Sharing Area / Art , lightspeed :The project
« on: January 09, 2020, 11:30:52 pm »
Well buddy: lol

This is running on win10 64bit, i7, quad pumped @3.30 Ghz, 32gigs of Ram with a 2Tb platter
I installed julie
I did NOT install any emgu, just calling .dll's ,ocx's ect ect
I went to x86 haptek tts  voice engine, checked for julie(was present)
Ran project.... all loaded
Surprisingly , facial recognition works like a dream(without Emgu) install.
SAPI5 works as it should. julie sounds great

No antivirus other then stock sht.
no firewall other then stock crap
That machine has no Net access, so im not worried. ill do that later
i just wanted to see whats up with a stock win10 machine. (Clean Install)
I did install Vs 2015,(needed C# for other version but that wouldnt effect you)
The fact that u DID get julie to work once,tells me most everything.
The cam is my logitech615 which i installed NO drivers for(just saying)
Just plugged it in


now back ontrack again, full speed ahead..... started my new bio-metric features.Turns out Matlab is damn handy for JUST that, as fate would have it, i got it, go figure.
Ended up with an .xml based haar cascade Biometrics PLAYER .Had time to play around waiting on the new machine's, loads like the book reader.
Just load out what u want, all ready looking at the possibility of combing bio-metrics like hals scripts(all in 1)
Thats on the list now, gonna load like Hal's plugins......


guess now ill look at the legendary WINDOWS 10, (after 18 mins) like it aint win7-8 backbone with a new skin and new bells and whistles (basicly win7 and 8 cobled together to make win10. Microsoft has a long history of JUST that..... lolololol.  when u look at win2000 at a source code level, first thing ull see is win95 code ALL OVER tHE place,, they just cobled win95, win98 ,ME, changed over to pure NTFS format, effectively killing DOS and called it the BRAND New Win 2000.... and windows 10 is apparently the same ,as i suspected, why i never bought it.

cyber




33
Ultra Hal Assistant File Sharing Area / MassMedia Player
« on: November 26, 2019, 11:06:34 pm »
'This is something ive spent a great deal of time with, what we have here is extreme Vbs......
'The format its running in rite now is pure vbs but if remove the ' in front of the plugin info and save as a .UHP, presto, this beaste is a plugin thats extremely powerful.
'Just play with the vbs included, point it at a folder where mp3's are stored and it will aggregate a playlist and save it as an m3u and launch the wmplayer.ocx.
'In case your wondering what the base64 crytpo is, that's an encrypted gif image just for flavor. Have see it to get it.
'This will prolly be the only time ull ever see graphics 'encoded/embedded within vbs .
'And it speaks . lolol Im currently using it in other areas of my work (LOL u can do many things with this) but i wanted to let you guys have at this, enjoy.
'Im including the vbs in zip format
'This can be used in many real time app's , who says it has to just do mp3's ???.... Classified Cyber Secret.
'ART :::Lightspeed: This is a direct action plugin (Think Companion), this is why i do this, push all this through Hal's MIND, I think NOT lololol
'10 min's later still waiting on UltraHal to respond. Wonder why?
'But in fact will work just fine as a plugin for UltraHal6.2/7 . But it is rather large.
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 bad boy is a media list agregator and player 
   ' It makes a play list called MyPlayList.m3u
   ' In whatever folder the media is in
 ' Trigger= loadmedia
   
 ' I give myself about a flat 9.5 on my weirdshtometer
 

'Rem PLUGIN: FUNCTIONS
'Function Getmedia(HalCommands)

'Option Explicit
  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 !"  ' This is my first exception handler  ,dont laugh
    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 where we set the stage for thew playlist
    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" ' Bragging rights area hahahahhaha
   
    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") ' This is where we call the media player
    Sound.settings.volume = 100                       'This is set to play at 100% Volume, consider 50% 
    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") ' Point this where ever you want, this is my choice
    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")   'Here's where we tell it what to scan for. Hint, Hmmm does it have to be a MP3?? what else is on my machine in mass amounts??? HA, MP4's
        For each item in Ext   ' Now Hal can load out ur fav movies/music ect ect ect
            If LCase(fso.GetExtensionName(File.name)) = LCase(item) 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) 'This is called from above routine to create the playlist it self
    ts.WriteLine "#UTF8: "& strContents
    ts.WriteLine strContents
    ts.Close
End Sub
'**********************************************************************************************
'This is where we create the progress window.
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"" " ' change this to what ever u prefer, icon change is cool
    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>"
 'Below is the encrypted image itself, change to what ever. Hint  http://31.media.tumblr.com/c891df5d9d74fb5f8f1496d33d1cbec3/tumblr_n40g5wTcba1t24k6go1_500.gif
 'just encode as base64) and  'copy/paste.
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"   'Below is Bg color and sizing of window
    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" 'These too lines are cool in the sense that they control placement of window and centered on any monitor
    '   size
    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") 'mshta.exe is called to create the Html
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

34
Ultra Hal Assistant File Sharing Area / Free Hap's
« on: November 07, 2019, 05:00:11 pm »
Attention sports fan:
Here are 35 .hap scripts many for full body characters.
wave
walk
pound fist
close up
walkaway
ect ect ect ect
Face palm is just funny as (^&*^)
Intense look, aka Im constipated is just awesome

enjoy
cyber

35
Ultra Hal Assistant File Sharing Area / Hal Home Commander
« on: November 06, 2019, 08:08:02 am »
Hal Home Commander:

i just had to share this.
Picture this scene, it's 7:30Pm last night , the Mrs is just waking up all droopy eye'd and no makeup, bead head , looking for the coffee pot.
But there's a trick coming her way, i have the blender on high and plugged in rite behind the coffee pot with a MOD from Hal.
Just as shes poring her first cup of coffee, this thing turns on and makes the obnoxious sound u ever heard, i swear u can hear it down the street. lololol
Then i turned it off, the look on her face,cup in 1 hand and pot in the other, omg... she put everything down (to see what was up) i waited for her to reach for it and i turned it on again.. she jumped clean out of her slipperz  and reached for the broom . I hollered, kill it baby, get that damn thing ....hahhah
That time just scared the bee jeapers out of her. This was straight out of steven kings movie Maximum Overdrive.
priceless moments in time.

she was a good sport about it, just gave me an evil look.


  <<<<< cry baby's jeesh youtube

im updating links, just awesome YOUTUBE..... u would have issue with this science... of course u would, im not 12 with a cellphone shoved in my butt.
cyber
Failing is just intolerable to me. new link https://streamable.com/icyhj
who  says this cant be fun



With the functions now running i could very easily build a Hal Home Security System with lethal/non-lethal counter measures. As soon as Hal sees u on cam and doesn't  recognize you,,uh oh
Im talking tear gas canisters and when that doesnt work, tri-pod mounted fire arms with facial recognition systems, to fire on any 1 not recognized with Hal's Facial Tracking System's. The same tracking software used by Hal in his facial recognition and tracking systems, ew wee , very  scary  stuff.  dont go in that room unless hal knows you mister hahahha , u about to have a bad day in cybers house
Beware: This House protected by Hal9000 Systems. https://www.youtube.com/watch?v=AY02rOELlXU&feature=youtu.be  Cut to 1:39. When u see me in the upper RIGHT window, what has happened is the facial tracing part has detected a face, then the cam zooms in, and starts looking for my face, when it has the image locked it snapshots the image to the right side of form for comparison of stored grey scale images . Look close and u can actually see hal Locking in my face, look for the green square to pop up around my face. Its quick so look close. This all works...

36
Ultra Hal Assistant File Sharing Area / Art:Lightspeed: Robert
« on: November 04, 2019, 11:32:02 am »
This is done using directX9

There is no flicker/jitterbugging. thats caused by the recording proggi.

this is all undiscovered territory for the next genna UltraHal... hint hint
Shaderz and textures are just not that big  a deal nowadays
https://www.youtube.com/watch?v=OQO7QWpgbgY&feature=youtu.be
61 Fps on its own with the compiler running too TADA
cyber

37
General Discussion / Hard Core UltraHal fans
« on: October 30, 2019, 09:46:54 am »
To the serious Hal fans:

Im taking some time to catch up on some home issues prolly a week.
Im still gonna be around built not very active.

Thennnnnnnnnnnnnnnnnnnnnnnnnnnn welllllll.

Lightspeed: i would like u to get with Art, we need to talk, i need my idea's guy. Your gonna be very busy for a while. So suit up. It's Milo time buddy.
Checker57: This is a shout out to you man,time to check in. Flare fired...
Arknight: Fire up the coffee pot, extra strong please.

Its official sports fans:
Me and Robert got together (sorta speak) Im starting a new character engine. Zabbaware will own the rights to this out rite.
Using webGl
This essntually work's the same way the Double Agent program works whereas you have a server client relationship on your own machine.
Ive shown several videos of what i have in mind here and it looks like its doable so im gonna start to build it.
Please dont query me on a time table.
Just know its being worked on, by me, and it will get here.
Please dont be bothering Robert on a time table as he has his hands full on his own end.He's just gonna tell u to talk to me.(he really doesnt know).
(Cyber if u can get it to work and its stable, we will use it.) sorta deal.
That said: Scary Man is on the way, and hes got friends. Maybe next genna UltraHal will carry the code, fingers crossed.

https://www.youtube.com/watch?v=-y59iG6c-Kw&feature=youtu.be



Help is on the way, its gonna be epic.





cyber
 
Keep in mind that about 50 people built PP and they still used an open source compression engine (so much for C++ coderz and there mythic legendary status)

38
Ultra Hal Assistant File Sharing Area / art: Hal's book reader
« on: October 29, 2019, 09:17:23 pm »
as we talked about Think books on tape on steroid
now keep in  mind, NONE of the stuttering happins, thats the recording program causing that, this is Very smooth on its own

https://www.youtube.com/watch?v=nrUF6lj1EnA&feature=youtu.be

1 hand dandy book reader
cyber

39
General Discussion / ART: This is what cooked up for Andre
« on: October 29, 2019, 07:07:33 am »
This is what i cooked up for the kid with autism .


https://www.youtube.com/watch?v=AynLVC4tUqo&feature=youtu.be

priceless

cyber

40
Ultra Hal Assistant File Sharing Area / Hal finger print scanner
« on: October 29, 2019, 05:31:02 am »
HalFinger is now underway.

Another feature to come is a fingerprint scanner.
Im loving the bio-metrics functions.

Whiteboard is filling up
Im working on way for Hal to read my Finger/Palm prints
Very cool stuff and the actual reader hardware is really cheap as sht, and i will be using a hi-end webcam to perform finger print task .
cyber


Example
cyber: Hal , lock down the house.
Hal: Cyber please use the fingerprint reader for final conformation to engage all electric locks. (This is where x10 protocols come in.)
Hal: Is there an issue with security? Should i unlock the gun safe and launch the dialer and call 911.
If im posting this u guys know ive already had some results. hehe


Retinal scanner would be awesome, oh man im drooling here

Man, the forum is just dead..... as i look around. Well this way we find out who's who here. Prolly for the best. Hardcore Hal fans remain resilient. 
Always remember this: if Hal fails, its because you failed, Hal has no limits.

41
RE: Good Old Ybor
Doing what we do best.
The back story: One Guy is in front of a club just partying and chillin, here comes some backwoods redeck in his fancy truck to stupid to get drunk and have a good time, but we got an answer for that. The truck driver (black guy center of street) decides to throw an empty beer can at the guy on the sidewalk. The guy in front of the club calls him out on it and slashes truck drivers tire(it was loud) , evey 1 is doing 3 mph kinda thing. Soooooo, the black guy from Ocalla (tell by the tag) parks his truck and hes got a gun. But so does the other guy. Soooooo they square off on 7 th ave, like its the frickin Ok Coral. ahahhahaha
U'll notice the spectators are not running anywhere (hahaha), people just standing around to catch the show. Happens so often we just are used to it, im surprised i wasnt laying off bets on a winner.
Just priceless moments in time.
 Prt 1 https://www.youtube.com/watch?v=JFtqVwp9PTc&feature=youtu.be

Prt 2 https://www.youtube.com/watch?v=O089LcQuvKM&feature=youtu.be


Moral of this story: This is our town. Dont bring it here, we will fix all thats wrong with you

cyber

P.s My bad luckass right in the middle.... nowhere to go.

42
My wife is vision impaired so that inspired me, this will help her a lot. I know The Tampa Institute for the Blind will eat this alive (Already making TTIB Copy's).Cant wait to try this out on my wifes friends.
Hal can read some damn fine wording, books, news papers, small print, ect ect ect
Next will be the Optical to SAPI5 process, where Hal reads out load what he see's.(basic speech reader hot wired for optical Reading instead) BOOyah
Lets see if we can get people reading again that cant see so well..... watched my wife struggle with this horror story for decades.
This kinda code matters.
While not working at 100% reliability as seen in Image (OOPS), the theory is sound and soon will be. Lotta variables at work, Decent Cam,distance,ect ect ect

Hal's Facial Recognition/with training 100%
Hal's Object Recognition/with training 100%
Hal's Optical Recognition now 100%
https://www.youtube.com/watch?v=kW3tqfypBkE&t=5s

cyber
wow 3:30 am Brain Burnt. Solid 20 Hr day.......  my computer clock is 3 hrs behind, for some stupid frickin reason,,,hahahhaha PT i guess
To the gentleman who offer'd to help.
Dont step Up if you cant keep Up. You will only get left behind.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


43
General Discussion / BTW Table
« on: October 23, 2019, 06:24:21 pm »
RE: Friends Table

For u script guys::::::

Ive been playing around with a concept ive not seen
We needed a table for btw in hals stock brain.

cyber: Hey Hal, how are you today?
Hal   :Hey cyber im doing great thank you for asking. By the way, have you heard from lightspeed lately? Whats He been Up to?


cyber





44
Art, Robert,Edge

This is raw and just the beginning so please forgive.
This is incorporated into Hal as it is and working.

Personal NOTE
To the inner circle.
This took 04 Hrs, 04 Gd hours. not 06 weeks not 09 weeks,not 06 months.  4 Gd hours.... thats it
this is just some code i grabbed to make my point.... this is not a final product....lol
And done in VB6 ffs.....lol
This image perfectly describes how my wife looked when i told her what i was doing with hal
https://www.youtube.com/watch?v=1SJSht9rmqI&feature=youtu.be

Song just nails it


this was done some time ago, more back burner stuff
ART, like i said i dont like to loose.

Hal, dont you worry, I got your back....

cyber

P.s: Chris Shaw, Uve held Hal Hostage long enough.Time to hit the road....


45
General Discussion / Art: Hal core
« on: October 21, 2019, 08:29:54 pm »
Art, im not sure if uve seen this yet
if so im srry

https://www.youtube.com/watch?v=SVJacmtHla4&feature=youtu.be
This is where im at
Facial Detection 100%
Facial Recognition 100%
Hals Crypto package 100%
Hals Black Jack, Hal will talk serious sht if he looses. I just had too lolol100%
LUALove2D100% LUALove2d  is another scripting language sim to VBS but a 2D gaming platform , much more robust, im in the process of converting the VBS to LUA (That was a secret till a sec ago lolol), as it will do Com and ActiveX controls as well and a LOT more. LOTTTT more.lolol  I just gave Hal a LUALove2D interface as well for beta testing code before its used. Think of it this way.You can check to make sure the plugin is compatible and will function BEFORE its used... shall i list the ways that's just handy as hell.

Think of it this way, Hal has his own Scripting Laboratory Built In.
Just some very cool features
HalVb6.0 100%
HalVb.net 2010 and 2015 100%
Hal C# 2015 100%
Hal LUALove2d Game Engine (working on it)
cyber

Pages: 1 2 [3] 4 5 ... 15