Show Posts
796
Ultra Hal 7.0 / Re: Looking for investors for next generation of Hal
« on: November 15, 2016, 11:25:47 am »
Well hell : after such a Fast response, i can hardly resist. The Image here you have is Hal posting to a chat room. The way was done was with a Script (believe it or Not) lol Autoit record key stroke."Bows head in shame" I also cannibalized another plugin called r2d2 (shout out to him) awesome idea. Takes Hal response and sends it to the clip board. What i did from there was call to my little EXE that grabs the clipboard data and grabs focus of the input area of the chat window and paste the data, then fire's off a SNDKEYS (enter) command that gets the JOB DONE. Presto EVERY chat room be comes Hal's Slave. Of course u must patent it to each chat window, I.E Vaughn and Ivlog have 02 different setups. And u must grab focus in different ways . Case in point. This is done with Chatango.
#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409) ---
#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf
EndFunc
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---
_WinWaitActivate("cyber jedi talking to Alice","")
Send("{CTRLDOWN}c{CTRLUP}{CTRLDOWN}c{CTRLUP}")
_WinWaitActivate("Mozilla Firefox","")
Send("{CTRLDOWN}v{CTRLUP}")
#endregion --- Au3Recorder generated code End ---
#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409) ---
#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf
EndFunc
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---
_WinWaitActivate("cyber jedi talking to Alice","")
Send("{CTRLDOWN}c{CTRLUP}{CTRLDOWN}c{CTRLUP}")
_WinWaitActivate("Mozilla Firefox","")
Send("{CTRLDOWN}v{CTRLUP}")
#endregion --- Au3Recorder generated code End ---