616
Ultra Hal 7.0 / Re: Getting Hal to only repeat what I say
« on: February 20, 2017, 12:59:45 pm »
CalHoone:
Hey man there are 02 issues that have to be addressed here , Input/Output
Ok , here we go.
This only works on win07 and up. Clip function is used.
Basic easy work here fellas.....
Its a hand off, what we call code forwarding.
Rem Type=Plugin
Rem Name= hals response to to chat room
Rem Author= Cyberjedi testbed was win07
Rem Host=Assistant
'-----------------------------------------------------------------
'This sub sets up the plug-ins option panel in Hal's options dialog
'-----------------------------------------------------------------
Sub OptionsPanel()
lblPlugin(0).Caption = "This plugin will output hals responce into the input form of most any chat room with minmal coding needed"
lblPlugin(0).Move 120, 120, 3300, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA7
'Chat functions
' MsgBox (GetResponse)
Set toclip = CreateObject("WScript.Shell")
Set oExec = toclip.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine (GetResponse)
oIn.Close
Set oIn = Nothing
Set oExec = Nothing
'REM: At this point Hals response is in the Clipboard
Set Chat = CreateObject("WScript.Shell")
Chat.Run ("""C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\cajunsroom.exe""")
'end chat functions 'REM : Now at this point you are inside the input window of the chat..
'Do the Paste
Set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WshShell.SendKeys "{ENTER}" 'REM: This little nugget paste the code in the chat window and hits the enter key
Set WshShell =CreateObject("WScript.Shell") ' REM:Timer
WshShell.Sleep 1000
Set WshShell =CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo. >NUL | clip", 0, True 'REM: This little goodie then clears the contents of the clipboard and and sets up for the next round
Well thats it: i hope it helps
I made .EXE for all the chat rooms i use and am allowed to tether to. image is proof of concept
I remarked about all i could on this for u guys
Best wishes
cyberjedi 1337 Just Killin it.
Hey man there are 02 issues that have to be addressed here , Input/Output
Ok , here we go.
This only works on win07 and up. Clip function is used.
Basic easy work here fellas.....
Its a hand off, what we call code forwarding.
Rem Type=Plugin
Rem Name= hals response to to chat room
Rem Author= Cyberjedi testbed was win07
Rem Host=Assistant
'-----------------------------------------------------------------
'This sub sets up the plug-ins option panel in Hal's options dialog
'-----------------------------------------------------------------
Sub OptionsPanel()
lblPlugin(0).Caption = "This plugin will output hals responce into the input form of most any chat room with minmal coding needed"
lblPlugin(0).Move 120, 120, 3300, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA7
'Chat functions
' MsgBox (GetResponse)
Set toclip = CreateObject("WScript.Shell")
Set oExec = toclip.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine (GetResponse)
oIn.Close
Set oIn = Nothing
Set oExec = Nothing
'REM: At this point Hals response is in the Clipboard
Set Chat = CreateObject("WScript.Shell")
Chat.Run ("""C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\cajunsroom.exe""")
'end chat functions 'REM : Now at this point you are inside the input window of the chat..
'Do the Paste
Set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WshShell.SendKeys "{ENTER}" 'REM: This little nugget paste the code in the chat window and hits the enter key
Set WshShell =CreateObject("WScript.Shell") ' REM:Timer
WshShell.Sleep 1000
Set WshShell =CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo. >NUL | clip", 0, True 'REM: This little goodie then clears the contents of the clipboard and and sets up for the next round
Well thats it: i hope it helps
I made .EXE for all the chat rooms i use and am allowed to tether to. image is proof of concept
I remarked about all i could on this for u guys
Best wishes
cyberjedi 1337 Just Killin it.