Что нового

Объединение похожих скриптов в один

trizorka

Новичок
Сообщения
53
Репутация
4
Доброго времени суток.
Есть несколько скриптов скриптов, они отличаются только $iLogin и $iPassword. Как соединить их в один скрипт при помощи GUICreate. Что бы при запуске скрипта, открывалось окно, с возможностью выбора (при помощи кнопок) того или иного подскрипта.
Код:
Global $Paused
Dim $iWindow = "Window"
Dim $iLogin = "Login"
Dim $iPassword = "Password"
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("^q", "Terminate")

WinActivate($iWindow) 
WinWaitActive($iWindow)
Sleep(1000)
Send($iLogin)
Sleep(10)
Send("{TAB}")
Sleep(10)
Send($iPassword)
Send("{ENTER}")

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(10)
    WEnd
    ToolTip("")
EndFunc
Func Terminate()
    Exit 0
EndFunc
 

winstan

Эксплотатор)
Сообщения
406
Репутация
79
trizorka [?]
Как соединить их в один скрипт при помощи GUICreate
обезательно именно GUICreate?
вапример секундное дело сделать через inputbox

Код:
$iLogin =inputbox("","Login")
$iPassword =inputbox("","Password")
 
Автор
T

trizorka

Новичок
Сообщения
53
Репутация
4
Мне нужно что бы был выбор, запуск первого скрипта или второго и тд.
 

winstan

Эксплотатор)
Сообщения
406
Репутация
79
Ну а поднастроить как расивей сам)
Код:
$iLogin1=
$iPassword1=

$iLogin2=
$iPassword2=

$iLogin3=
$iPassword3=

$iLogin4=
$iPassword4=

GUICreate("test")
$boton1=GUICtrlCreateButton("1",0,0)
$boton2=GUICtrlCreateButton("2",20,0)
$boton3=GUICtrlCreateButton("3",40,0)
$boton4=GUICtrlCreateButton("4",60,0)
GUISetState()
While 1

Global	$msg = GUIGetMsg()
If $msg =-3 Then Exit

if $msg = $boton1 Then
$iLogin =$iLogin1
$iPassword=$iPassword1
ExitLoop
EndIf

if $msg = $boton2 Then
$iLogin =$iLogin2
$iPassword=$iPassword2
ExitLoop
EndIf

if $msg = $boton3 Then
$iLogin =$iLogin3
$iPassword=$iPassword3
ExitLoop
EndIf

if $msg = $boton4 Then
$iLogin =$iLogin4
$iPassword=$iPassword4
ExitLoop
EndIf

WEnd
GUIDelete()
 
Автор
T

trizorka

Новичок
Сообщения
53
Репутация
4
Спасибо, работает! А не могли бы вы рассказать об этих двух строках
Код:
Global  $msg = GUIGetMsg()
If $msg =-3 Then Exit
 

winstan

Эксплотатор)
Сообщения
406
Репутация
79
Код:
Global  $msg = GUIGetMsg() ; опрос гуи интерфейса
If $msg =-3 Then Exit ; Если закрыть гуи то GUIGetMsg() возвращает -3, и программа закрывается

воапще должно быть

Код:
If $msg =$GUI_EVENT_CLOSE Then Exit

но для этого нужно подключать GUIConstants.au3
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

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

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

agikon

Знающий
Сообщения
789
Репутация
17
Код:
Global   $msg = GUIGetMsg()
If $msg =-3 Then Exit
random


первая строчка это обьявляет первое окно глобально йпеременной, чтобы работало в любой части кода.
вторая, это закрытие окна если нажали кнопку "закрыть"
 
Верх