Author Topic: grabbing hals output : Cracked  (Read 1133 times)

cyberjedi

  • Sr. Member
  • ****
  • Posts: 421
  • The Mighty Hal Machine
    • View Profile
    • Ultra Hal Plugin Shop
grabbing hals output : Cracked
« on: February 10, 2017, 04:34:16 pm »
Ok , here we go.

This only works on win07 and up. Clip function is used.


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
rem  '#########################################################################################
rem '(This is where u grab focus of the input form on the chat , with a call to autoit script or what ever u use)'

rem '_WinWaitActivate("? cajunflix123 on Vaughn Live - Mozilla Firefox","")' 'I made that an exe'

Rem' maby a VBS  script in place of ^^^^^^^^^^^^^^^^^^' 'but this way works for sure'











Rem 'you will have to call to ur exe here'


Set Chat = CreateObject("WScript.Shell")

Chat.Run ("""C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\cajunsroom.exe""")
   'end chat functions
rem '########################################################################################
REM : Now at this point you are inside the input window of the chat,just as you would put the cursur with ur mouse..


********************************
' Do The Paste
*******************************

'paste from clipboard                       
                                                   
WshShell.SendKeys "^v"           
WshShell.SendKeys "{ENTER}"     this little nugget paste the code in the chat window and hits the enter key
********************************
'rem  this little goodie then clears the contents of the clipboard and and sets up for the next round'

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo. >NUL  | clip", 0, True
**********************************************
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.       http://vaughnlive.tv/mrelectric
« Last Edit: February 11, 2017, 07:45:46 am by cyberjedi »