#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hGui = GUICreate('test', 300, 100)
$nInput = GUICtrlCreateInput('', 10, 30, 280, 20, $ES_NUMBER)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $iIDFrom = BitAND($iwParam, 0xFFFF)
Local $iCode = BitShift($iwParam, 16)
;Switch $hWnd
;Case $hGui
Switch $iIDFrom
Case $nInput
Switch $iCode
Case $EN_UPDATE
GUICtrlSetData($nInput, StringRegExpReplace(GUICtrlRead($nInput), '[^\d]', ''))
EndSwitch
EndSwitch
;EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND