Автор Тема: Aвтоматизировать игру “больше меньше”  (Прочитано 2254 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Neo [?]

  • Новичок
  • *
  • Сообщений: 39

  • Автор темы
  • Репутация: 0
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #15, Отправлен: Декабрь 02, 2016, 05:23:03 »
После клика по “OK”окно закрывается.
Как сделать, чтобы не закрывалось, а сворачивалось так, чтобы можно было развернуть?
Закрыть окно только по клику на крест, в правом углу.
Код: AutoIt [Выделить]
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


GUICreate(" Lot", 320,120, @DesktopWidth/2-160, @DesktopHeight/2-45, -1, 0x00000018); WS_EX_ACCEPTFILES
$sValue = GUICtrlCreateInput ( "0.00000001", 10,  5, 300, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
;GUICtrlCreateInput ("", 10,  35, 300, 20)   ; will not accept drag&drop files
$btn = GUICtrlCreateButton ("Ok", 40,  75, 60, 20)

GUISetState ()

$msg = 0
While $msg <> $GUI_EVENT_MINIMIZE; $GUI_EVENT_CLOSE
       $msg = GUIGetMsg()
       Select
           Case $msg = $btn
               exitloop
       EndSelect
Wend

MsgBox (4096, "Lot", GUICtrlRead($sValue))


Русское сообщество AutoIt

Re: Aвтоматизировать игру “больше меньше”
« Ответ #15 Отправлен: Декабрь 02, 2016, 05:23:03 »

Оффлайн damien2008 [?]

  • Осваивающий
  • **
  • Сообщений: 156
  • Репутация: 29
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Aвтоматизировать игру “больше меньше”
« Ответ #16, Отправлен: Декабрь 02, 2016, 10:22:59 »
(нажмите для показа/скрытия)

Онлайн Alofa [?]

  • Скриптер
  • ****
  • Сообщений: 901
  • Репутация: 111
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #17, Отправлен: Декабрь 02, 2016, 11:15:35 »
damien2008
OffTopic
... Закрыть окно только по клику на крест, в правом углу.
----------------------- Вы думаете, всё так просто? Да, всё просто. Но совсем не так. -----------------------
Альберт Эйнштейн.

Оффлайн Neo [?]

  • Новичок
  • *
  • Сообщений: 39

  • Автор темы
  • Репутация: 0
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #18, Отправлен: Декабрь 05, 2016, 23:48:59 »
Спасибо, damien2008
« Последнее редактирование: Декабрь 06, 2016, 04:00:18 от Neo »

Русское сообщество AutoIt

Re: Aвтоматизировать игру “больше меньше”
« Ответ #18 Отправлен: Декабрь 05, 2016, 23:48:59 »

Онлайн Alofa [?]

  • Скриптер
  • ****
  • Сообщений: 901
  • Репутация: 111
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #19, Отправлен: Декабрь 06, 2016, 00:12:42 »
OffTopic
Администраторы сайта давно уже покинули нас. Почти уже не осталось модераторов, которые следят за порядком и многие юзеры этим пользуются.
Все что нам остается - это не гадить самим и соблюдать правила форума.
Это я про дополнительные вопросы, неотносящиеся к описанию в первом посте темы.
« Последнее редактирование: Декабрь 06, 2016, 12:16:50 от Alofa »

Оффлайн Neo [?]

  • Новичок
  • *
  • Сообщений: 39

  • Автор темы
  • Репутация: 0
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #20, Отправлен: Декабрь 06, 2016, 00:47:02 »
Alofa
Спасибо, реагируют.

Как записать в реестр значение переменной "$sValue"
Код: AutoIt [Выделить]
$sValue = GUICtrlCreateInput("0.00000001", 10, 5, 60, 20)

При следующем запуске проверить его


Добавлено: Декабрь 06, 2016, 04:21:14
Alofa
Вас услышал.
Вопрос не по теме, удалил.
« Последнее редактирование: Декабрь 06, 2016, 04:21:14 от Neo, Причина: Объединение сообщений »

Оффлайн Neo [?]

  • Новичок
  • *
  • Сообщений: 39

  • Автор темы
  • Репутация: 0
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Aвтоматизировать игру “больше меньше”
« Ответ #21, Отправлен: Декабрь 11, 2016, 21:56:50 »

Если сразу после запуска скрипт кликнуть “выход”, то скрипт заканчивает работу.
Если сначала кликнуть “старт” потом кликнуть “выход”, то скрипт продолжает работу.
Что сделать, чтобы заканчивал свою работу  при клике на “выход”?
Код: AutoIt [Выделить]
#NoTrayIcon
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet('{Esc}', '_Exit')
$var = "1"

$gui = GUICreate(" Lot", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
$sValue = GUICtrlCreateInput("0.00000001", 10, 5, 300, 20)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
;GUICtrlCreateInput ("", 10,  35, 300, 20)   ; will not accept drag&drop files
$btn = GUICtrlCreateButton("старт", 40, 75, 60, 20)
$btn2 = GUICtrlCreateButton('выход', 130, 75, 60, 20)
$sPass = GUICtrlCreateInput ("1", 10,  35, 75, 20)
GUISetState()
$msg = 0
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $btn ;And $sPass = $var
            if $var= GUICtrlRead($sPass)  Then _Funj()
            GUISetState(@SW_MINIMIZE, $gui)
         Case $msg = $btn2

            GUIDelete($gui)
             _Exit()
           Exit
        Case $msg = $GUI_EVENT_CLOSE

            GUIDelete($gui)

           Exit
            ;GUISetState(@SW_MINIMIZE, $gui)
    EndSelect
WEnd
Func  _Funj()
While 1

 _funcA()

Sleep(Random(6000, 12000, 1))
WEnd
EndFunc

Func _funcA()
Send("{S 30}")
EndFunc
 Func _Exit()
Exit
EndFunc

 


Русское сообщество AutoIt

Re: Aвтоматизировать игру “больше меньше”
« Ответ #21 Отправлен: Декабрь 11, 2016, 21:56:50 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
2590 Просмотров
Последний ответ Март 26, 2010, 15:59:21
от CreatoR
7 Ответов
7234 Просмотров
Последний ответ Декабрь 04, 2010, 18:02:30
от CreatoR
4 Ответов
1910 Просмотров
Последний ответ Сентябрь 24, 2011, 21:30:45
от agikon
8 Ответов
3161 Просмотров
Последний ответ Октябрь 27, 2011, 23:00:32
от general66
3 Ответов
2541 Просмотров
Последний ответ Февраль 05, 2012, 13:08:50
от madmasles
1 Ответов
2594 Просмотров
Последний ответ Март 04, 2012, 19:43:40
от armenxxx1
0 Ответов
1170 Просмотров
Последний ответ Август 07, 2012, 14:39:47
от madmasles
1 Ответов
1702 Просмотров
Последний ответ Июль 18, 2013, 16:38:29
от atlake
5 Ответов
1031 Просмотров
Последний ответ Март 31, 2014, 21:57:59
от Kaster
2 Ответов
1395 Просмотров
Последний ответ Май 06, 2014, 21:07:51
от damien2008