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
Show Posts
