Hello,

I like UltraVNC to do remote control to PCs on remote sites. This tool can do
many things, but it cannot send the keys NUMPADENTER and AltGr+Print to the
remote PC.

The first one (NUMPADENTER) is nice with the RCONIP.EXE RCONIP written by Paul
Pergamenshchik to set the current displayed screen as the "active" screen:
- scrolling up in logger screen.
- other NLMs don't update their screens 100% if not active
(e.g. ArcServe TapeSVR)



The second (AltGrPrint) is nice to just get the active window to clipboard for
documentation purpose.

As EXE files cannot be attached here you will find the Autoit3 [1] script's
source I wrote for this purpose at the end of this posting.

It's "topmost", "30% tranparent", and it will send the klicked key's keystroke to
the *PREVIOUS* active window.



Hoping someone else may find it usefull too. Like it or leave it, as you like ;-)
Improvement suggestions welcome.



Regards, Rudi.

[1] http://www.autoitscript.com/
http://www.autoitscript.com/autoit3/downloads.shtml

------------------------- NumEnterAltGrPrn.au3 -------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=IT-Beratung Rudolf Thilo, Schweinfurter Str. 131,
97464 Niederwerrn, Germany
#AutoIt3Wrapper_Res_Description=NUMPADENTER + AltGrPrint
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=This script is Freeware, (c) 2008 by Rudolf
Thilo, IT-Beratung Rudolf Thilo
#AutoIt3Wrapper_Res_Field=Phone|+49(0)9721/64 64 84 0
#AutoIt3Wrapper_Res_Field=Fax|+49(0)9721/64 64 84 1
#AutoIt3Wrapper_Res_Field=email|rt dot work at gmx dot de
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <guiconstants.au3>

$GuiTitle="Special Keys for UVNC"
$Breite=220
$Hoehe=50
$Toggle="/"

$mainGui=GUICreate($GuiTitle,$Breite,$Hoehe)
$NumEnter=GUICtrlCreateButton("NumEnter",10,10,60, 30)
$CapWin=GUICtrlCreateButton("AltGrPrnt",75,10,60,3 0)
GUICtrlCreateGroup("Info",140,5,75,35)
$Infobox=GUICtrlCreateLabel("Info-TXT",145,20,65,15)
GUISetState(@SW_SHOW)
WinSetOnTop($GuiTitle,"",1)
WinSetTrans ( $GuiTitle, "",175)

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $NumEnter
send("!{TAB}")
send("{NUMLOCK off}")
send("{NUMPADENTER}")
guictrlsetdata($Infobox,$Toggle & " NumEnter")
Toggle()
Case $msg = $CapWin
send("!{TAB}")
send("^!{PRINTSCREEN}")
guictrlsetdata($Infobox,$Toggle & " AltGrPrnt")
Toggle()
EndSelect
$msg=""

Wend

func Toggle()
if $Toggle = "/" Then
$Toggle = "\"
Else
$Toggle = "/"
EndIf

EndFunc
------------------------- NumEnterAltGrPrn.au3 -------------------------