version
6.50
0
Form1
238
268

4
Bitwise.dll
FormLib.dll
HardwareDesktop.dll
RegistryDesktop.dll
4
Hardware.dll
RegistryDevice.dll
Bitwise.dll
FormLib.dll
4
hk:HardKeys
reg:Registry
flb:FormLib
bit:Bitwise
0
Sub designer
addform(Form1,"Form1","",211,211,211)@
addtextbox(form1,label1,5,10,230,255,"",255,255,255,0,0,0,True,True,True,9)@
End Sub
@EndOfDesignText@
Sub Globals
	Dim keys(0) As Int32
	Dim subKeys(0),keyNames(0)
End Sub

Sub App_Start
	Dim r
	Form1.show
	label1.Text = "Form1.show" : r = Msgbox (label1.Text)
	flb.New1("Form1",B4PObject(1))
	label1.Text = "flb.New1(Form1,B4PObject(1))" : r = Msgbox (label1.Text)
	flb.FullScreen(True)
	label1.Text = "flb.FullScreen(True)" : r = Msgbox (label1.Text)
	reg.New1
	label1.Text = "reg.New1" : r = Msgbox (label1.Text)
	bit.New1
	label1.Text = "bit.New1" : r = Msgbox (label1.Text)
	reg.RootKey(reg.rtLocalMachine)
	label1.Text = "reg.RootKey(reg.rtLocalMachine)" : r = Msgbox (label1.Text)
	subKeys() = reg.GetSubKeyNames("SOFTWARE\Microsoft\Shell\Keys") 'Get the hardware keys values.
	label1.Text = "subKeys() = reg.GetSubKeyNames(SOFTWARE\Microsoft\Shell\Keys)" : r = Msgbox (label1.Text)
	count = ArrayLen(subKeys())
	label1.Text = "count = ArrayLen(subKeys())" : r = Msgbox (label1.Text)
	Dim keys(count) As Int32, keyNames(count)
	label1.Text = "Dim keys(count) As Int32, keyNames(count)" : r = Msgbox (label1.Text)
	For i = 0 To count-1
		label1.Text = "i=" & i : r = Msgbox (label1.Text)
		keys(i) = bit.HexToDec(SubString(subKeys(i),2,2))
		label1.Text = "keys(i) = bit.HexToDec(SubString(subKeys(i),2,2))" : r = Msgbox (label1.Text)
		keyNames(i) = reg.GetValue("SOFTWARE\Microsoft\Shell\Keys\" & subKeys(i),"Name")
		label1.Text = "keyNames(i) = reg.GetValue(SOFTWARE\Microsoft\Shell\Keys\ & subKeys(i),Name)" : r = Msgbox (label1.Text)
	Next
	label1.Text = "Next" : r = Msgbox (label1.Text)
	'For i = 0 To ArrayLen(keys())-1
	'	label1.Text = "For i = 0 To ArrayLen(keys())-1" : r = Msgbox (label1.Text)
	'	If hk.KeyPressed = keys(i) Then
	'		label1.Text = "If hk.KeyPressed = keys(i) Then" : r = Msgbox (label1.Text)
	'		Form1.Text = keyNames(i)
	'		label1.Text = "Form1.Text = keyNames(i)" : r = Msgbox (label1.Text)
	'		Exit
	'		label1.Text = "Exit" : r = Msgbox (label1.Text)
	'	End If
	'	label1.Text = "End If" : r = Msgbox (label1.Text)
	'Next
	'label1.Text = "Next" : r = Msgbox (label1.Text)
	hk.New2("Form1",True,keys(),False)
	label1.Text = "hk.New2(Form1,True,keys(),False)" : r = Msgbox (label1.Text)
End Sub

Sub Form1_KeyPress (specialKey)
	AppClose
End Sub