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

trizorka · 25 Ноя 2011

Доброго времени суток.
Есть несколько скриптов скриптов, они отличаются только $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 · 25 Ноя 2011

trizorka [?]

Как соединить их в один скрипт при помощи GUICreate

обезательно именно GUICreate?
вапример секундное дело сделать через inputbox

Код:

$iLogin =inputbox("","Login")
$iPassword =inputbox("","Password")

trizorka · 25 Ноя 2011

Мне нужно что бы был выбор, запуск первого скрипта или второго и тд.

winstan · 25 Ноя 2011

Ну а поднастроить как расивей сам)

Код:

$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()

trizorka · 25 Ноя 2011

Спасибо, работает! А не могли бы вы рассказать об этих двух строках

Код:

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

winstan · 25 Ноя 2011

Код:

Global  $msg = GUIGetMsg() ; опрос гуи интерфейса
If $msg =-3 Then Exit ; Если закрыть гуи то GUIGetMsg() возвращает -3, и программа закрывается

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

Код:

If $msg =$GUI_EVENT_CLOSE Then Exit

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

kaster · 25 Ноя 2011

Предупреждение За нарушение правил форума (пункт Б.5):

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

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

agikon · 27 Ноя 2011

Код:

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

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

Автор темы	Похожие темы	Форум	Ответы	Дата
N	Окна, Диалоги Объединение скриптов RequireAdmin + User	Общие вопросы по AutoIt	7	22 Июн 2020
M	Объединение небольших картинок - в большие картинки формата А4	Общие вопросы по AutoIt	4	25 Авг 2019
V	Объединение фотофайлов - с помощью UDF GDIP	Общие вопросы по AutoIt	8	9 Ноя 2018
M	Объединение проигрывание ролика с проигрыванием звукового файла	Общие вопросы по AutoIt	0	13 Май 2018
	[RegExp] Объединение похожих стилей	Регулярные выражения и прочее	7	4 Апр 2010

Поиск

Поиск

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

trizorka

Новичок

winstan

Эксплотатор)

trizorka

Новичок

winstan

Эксплотатор)

trizorka

Новичок

winstan

Эксплотатор)

kaster

Мой Аватар, он лучший самый

agikon

Знающий