Что нового

Биндер в несколько полей для ввода

den-x

Новичок
Сообщения
46
Репутация
0
Вот простой биндер :smile:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Биндер", 615, 438, 197, 125)
$Input = GUICtrlCreateInput("", 8, 8, 121, 21)
GUISetState(@SW_SHOW)

Global $start = 0, $i ;переменные
;-------гор клавиши
HotKeySet("{f2}", "start") ;старт
HotKeySet("{NUMPAD0}", "stop") ;стоп
While 1
;------------настройка крестика(Х-закрытие программы)
      $nMsg = GUIGetMsg()
      Switch $nMsg
          Case $GUI_EVENT_CLOSE
              Exit
	  EndSwitch
	  If $start = 1 Then ;если  F2 зажата тогда
				$ss = GUICtrlRead($Input)
				Send($ss&"{NUMPAD0}");пишем и тормозим
		EndIf

WEnd

Func start() ; функция включения
      $start = 1
EndFunc   ;==>start

Func stop() ; функция выключения
      $start = 0
EndFunc   ;==>stop

Как сделать биндер под это окно,у меня не получалось сделать все поля рабочими,только 1
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Биндер by Den-x v0.1", 613, 441, 244, 155)
GUISetIcon("I:\ВСЁ МОЁ\Игры\GTA San Andreas\Иконки\SAN.ico", -1)
GUISetBkColor(0x800000)
$Input1 = GUICtrlCreateInput("", 8, 24, 193, 21)
$Input2 = GUICtrlCreateInput("", 208, 24, 73, 21)
$Label1 = GUICtrlCreateLabel("Команда:", 8, 0, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Label2 = GUICtrlCreateLabel("Клавиша:", 208, 0, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Input3 = GUICtrlCreateInput("", 328, 24, 193, 21)
$Label3 = GUICtrlCreateLabel("Команда:", 337, 2, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Label4 = GUICtrlCreateLabel("Клавиша:", 533, 2, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Input5 = GUICtrlCreateInput("", 7, 54, 193, 21)
$Input6 = GUICtrlCreateInput("", 7, 86, 193, 21)
$Input7 = GUICtrlCreateInput("", 7, 118, 193, 21)
$Input8 = GUICtrlCreateInput("", 7, 150, 193, 21)
$Input9 = GUICtrlCreateInput("", 207, 54, 73, 21)
$Input10 = GUICtrlCreateInput("", 207, 86, 73, 21)
$Input11 = GUICtrlCreateInput("", 207, 118, 73, 21)
$Input12 = GUICtrlCreateInput("", 207, 150, 73, 21)
$Input14 = GUICtrlCreateInput("", 531, 23, 73, 21)
$Input4 = GUICtrlCreateInput("", 531, 55, 73, 21)
$Input13 = GUICtrlCreateInput("", 531, 87, 73, 21)
$Input15 = GUICtrlCreateInput("", 531, 119, 73, 21)
$Input16 = GUICtrlCreateInput("", 531, 151, 73, 21)
$Input17 = GUICtrlCreateInput("", 331, 55, 193, 21)
$Input18 = GUICtrlCreateInput("", 331, 87, 193, 21)
$Input19 = GUICtrlCreateInput("", 331, 119, 193, 21)
$Input20 = GUICtrlCreateInput("", 331, 151, 193, 21)
$Edit1 = GUICtrlCreateEdit("", 8, 176, 593, 257, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, StringFormat("Клавиши:\r\n {ASC 47} - "&Chr(34)&"Безопасный"&Chr(34)&" / (Чтобы писало правильно в любой расскладке)\r\n{SPACE} - Пробел\r\n{ENTER} - Энтер\r\n{BS} - Стереть\r\n{DEL} - Delite\r\n{UP} - Вверх\r\n{DOWN} -Вниз\r\n{LEFT} - Влево\r\n{RIGHT} - Вправо\r\n{HOME} - Home\r\n{END} - End\r\n{INS} - Insert\r\n{ALT} - Alt\r\n{PGUP} - Page Up\r\n{PGDN} - Page Down\r\n{F1} - {F12} - От F1 до F12\r\n{NUMPAD0} - {NUMPAD9} От 0 до 9(справа)\r\n{CAPSLOCK} - Caps Lock"))
GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Автор", 296, 24, 19, 145, $BS_MULTILINE)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

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

	EndSwitch
WEnd
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Биндер

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"Биндер" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.








{CodeWarn}
 

DelphiExpert

Сначала подумай, потом сделай.
Сообщения
13
Репутация
7
Ни кто тебе не поможет пока не сменишь название темы.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
что такое биндер?
 
Верх