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

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 [?]

  • Скриптер
  • ****
  • Сообщений: 854
  • Репутация: 101
  • Пол: Мужской
    • Награды
  • Версия 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 [?]

  • Скриптер
  • ****
  • Сообщений: 854
  • Репутация: 101
  • Пол: Мужской
    • Награды
  • Версия 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 Ответов
2578 Просмотров
Последний ответ Март 26, 2010, 15:59:21
от CreatoR
7 Ответов
7166 Просмотров
Последний ответ Декабрь 04, 2010, 18:02:30
от CreatoR
4 Ответов
1886 Просмотров
Последний ответ Сентябрь 24, 2011, 21:30:45
от agikon
1 Ответов
2550 Просмотров
Последний ответ Март 04, 2012, 19:43:40
от armenxxx1
5 Ответов
2393 Просмотров
Последний ответ Август 08, 2012, 11:15:29
от mugger
0 Ответов
1156 Просмотров
Последний ответ Август 07, 2012, 14:39:47
от madmasles
1 Ответов
1675 Просмотров
Последний ответ Июль 18, 2013, 16:38:29
от atlake
5 Ответов
1004 Просмотров
Последний ответ Март 31, 2014, 21:57:59
от Kaster
2 Ответов
1353 Просмотров
Последний ответ Май 06, 2014, 21:07:51
от damien2008
1 Ответов
813 Просмотров
Последний ответ Ноябрь 05, 2015, 14:09:54
от InnI