[Элементы GUI] Связать GUI-окно и код

$sText = '2C-39-96-5A-16-0E'

$sTextOld = '0123456789-ABCDEFGHIJKLMNOPQRSTUVWXYZ'
$sTextNew = '0123456789:abcdifghijklmopqrsstuvwxyz'

for $i = 1 to StringLen($sText)
    $s = StringInStr($sTextOld, StringMid($sText, $i, 1), 1)
   if $s then $sText = StringReplace($sText, $i, StringMid($sTextNew, $s, 1))
Next
MsgBox(0, 'Сообщение', $sText)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 130, 334, 368)
$Button1 = GUICtrlCreateButton("Button1", 24, 72, 217, 33)
$Input1 = GUICtrlCreateInput("", 24, 32, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

$sText = '2C-39-96-5A-16-0E'

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Const $sTextOld = '0123456789-ABCDEFGHIJKLMNOPQRSTUVWXYZ'
Const $sTextNew = '0123456789:abcdifghijklmopqrsstuvwxyz'

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 130, 334, 368)
$Button1 = GUICtrlCreateButton("Button1", 24, 72, 217, 33)
$Input1 = GUICtrlCreateInput("", 24, 32, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button1
			$sText = GUICtrlRead( $Input1 )
			If $sText Then
				for $i = 1 to StringLen($sText)
					$s = StringInStr($sTextOld, StringMid($sText, $i, 1), 1)
					if $s then $sText = StringReplace($sText, $i, StringMid($sTextNew, $s, 1))
				Next
				GUICtrlSetData( $Input1, $sText )
			EndIf
    EndSwitch
WEnd

StringLower

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $hGui, $iInput
$hGui = GUICreate('Form1', 300, 60)
$iInput = GUICtrlCreateInput('', 10, 20, 280, 20)
GUISetState()
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop
	EndSwitch
WEnd

Func _WM_COMMAND($h_Wnd, $_iMsg, $i_wParam, $i_lParam)
	Local $i_ID, $i_Code
	$i_ID = BitAND($i_wParam, 0xFFFF)
	$i_Code = BitShift($i_wParam, 16)
	Switch $h_Wnd
		Case $hGui
			Switch $i_ID
				Case $iInput
					Switch $i_Code
						Case $EN_CHANGE
							GUICtrlSetData($iInput, StringLower(GUICtrlRead($iInput)))
					EndSwitch
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND