Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Если тебе общий смысл, то вот:
Код: Выделить весь код
#include <GuiConstants.au3> 
#include <WindowsConstants.au3> 
#include <EditConstants.au3> 

Global $x, $y
$hGUI  = GUICreate("проба", 189, 62, 193, 182)
$Input_1 = GUICtrlCreateInput("", 0, 24, 89, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetLimit($Input_1,1) 
$Input_2 = GUICtrlCreateInput("", 93, 22, 89, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetLimit($Input_2, 1) 
$Label1 = GUICtrlCreateLabel("инпут 1", 8, 0, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("инпут 2", 100, 0, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") 
While 1 
Switch GUIGetMsg() 
Case $GUI_EVENT_CLOSE
ExitLoop 
EndSwitch 
Sleep(10)
WEnd 

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam) 
Local $nNotifyCode = BitShift($wParam, 16) 
Local $nID = BitAND($wParam, 0xFFFF) 

Switch $nID 
Case $Input_1
Switch $nNotifyCode 
Case $EN_UPDATE 
Local $sRead_Input = GUICtrlRead($nID) 
If $sRead_Input= 1 Then
    ControlFocus ( "проба", "", $Input_2 )
$x="300"
$y="400"
Else
If $sRead_Input=2 Then
    ControlFocus ( "проба", "", $Input_2 )
$x="300"
$y="500"
EndIf 
EndIf 
EndSwitch 

Case $Input_2
Switch $nNotifyCode 
Case $EN_UPDATE 
Local $sRead_Input = GUICtrlRead($nID) 
If $sRead_Input= 1 Then
MouseClick ( "left" , $x, $y)
Else
If $sRead_Input=2 Then
    MouseClick ( "left" , $x, $y+20)
EndIf 
EndIf 
EndSwitch 
EndSwitch 
EndFunc
P.S. Пропустил, что тебе нужен не обычный инпут а InputBox. Но в случае с InputBox дела даже очень полегче...
Код: Выделить весь код
Local $x,$y

$msg=InputBox("инпутбокс", "Введите сообщение.", "")
Switch $msg
Case 1
$x="300"
$y="400"
Case 2
$x="300"
$y="500"
Case else
MsgBox(0,"","не один и ни два")
Exit
EndSwitch

$msg2=InputBox("инпутбокс", "Введите сообщение.", "")
Switch $msg2
Case 1
MouseClick ( "left" , $x, $y)
Case 2
MouseClick ( "left" , $x, $y+20)
Case else
MsgBox(0,"","не один и ни два")
EndSwitch
В коде я использовал Case чтоб ты мог добавить еще альтернативы выбора, если же тебе альтернативы не нужны (например 3, 4, 5) то можна использовать конечно и if.

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Последний раз редактировалось beve, 23-02-2009 в 17:50.

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:11, 23-02-2009 | #2