Автор Тема: Перебор значений в заданных ограничениях  (Прочитано 2432 раз)

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

Оффлайн Viktor217 [?]

  • Осваивающий
  • **
  • Сообщений: 233
  • Репутация: 31
  • Пол: Мужской
    • Награды
Версия AutoIt: 3.3.6.1

Описание:
Пользователем через InputBox задаются три значения(Разумеется каждое значение отдельным InputBox): $brut1 , $brut2, $brut3.
Затем с задержкой($brut3) отправляется $brut1(причём после каждой отправки к значению($brut1) прибавляется 1) пока $brut1 не станет ровняться значению $brut2.
Примечания:
Значения $brut1 и  $brut2 - четырёкто его знаетначное. Следовательно, когда к значению $brut1 будет прибавляться 1, отправляться должно четырёкто его знаетначное число.
То есть если $brut1=0000, прибавив 1, отправится 0001.

« Последнее редактирование: Декабрь 12, 2010, 19:03:31 от Viktor217 »

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

Перебор значений в заданных ограничениях
« Отправлен: Декабрь 12, 2010, 18:57:15 »

Оффлайн Viktor217 [?]

  • Осваивающий
  • **
  • Сообщений: 233

  • Автор темы
  • Репутация: 31
  • Пол: Мужской
    • Награды
Re: Перебор значений в заданных ограничениях
« Ответ #1, Отправлен: Декабрь 12, 2010, 23:47:34 »
Ап!
Вот примерный скрипт, но не совсем то что нужно...
Код: AutoIt [Выделить]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("BrutЁ", 117, 150, -1, -1);название окна брута
$Input1 = GUICtrlCreateInput("0000", 0, 47, 113, 21);(1)начинать брутить от
$Input2 = GUICtrlCreateInput("9999", 0, 72, 113, 21);(2)до
$Input3 = GUICtrlCreateInput("200", 0, 96, 113, 21);(3)задежка
GUISetState(@SW_SHOW)
Global $start = 0
;-------гор клавиши
HotKeySet("{f5}", "start")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If $start = 1 Then
        If WinActive('Point Blank') Then
            AutoItSetOption('SendKeyDownDelay', GUICtrlRead($Input3))
            If GUICtrlRead($Input1) < GUICtrlRead($Input2) Then
                Send(GUICtrlRead($Input1))
                Send("{ENTER}")
                Sleep(GUICtrlRead($Input3))
                GUICtrlSetData($Input1, StringFormat("%04d", Number(GUICtrlRead($Input1)) + 1))
            EndIf
        EndIf
    EndIf
WEnd

Func start()
    If $start = 0 Then
        $start=1
    Else
        $start=0
    EndIf
EndFunc

« Последнее редактирование: Декабрь 13, 2010, 15:06:31 от Viktor217 »

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 7809
  • Репутация: 2281
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.10.2
Re: Перебор значений в заданных ограничениях
« Ответ #2, Отправлен: Декабрь 13, 2010, 00:40:05 »
Viktor217  [?]
Цитировать
Ап
Слишком рано!


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Оффлайн Viktor217 [?]

  • Осваивающий
  • **
  • Сообщений: 233

  • Автор темы
  • Репутация: 31
  • Пол: Мужской
    • Награды
Re: Перебор значений в заданных ограничениях
« Ответ #3, Отправлен: Декабрь 13, 2010, 15:09:41 »
Появилась одна идея, но не самая лучшая...
Создать шесть ИнпутБоксов вместо трёх, в первых четырёх по одной цифре вписывается первое четырёхзначное значение, во втором и третьем остальные параметры...

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

Re: Перебор значений в заданных ограничениях
« Ответ #3 Отправлен: Декабрь 13, 2010, 15:09:41 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
35 Ответов
12015 Просмотров
Последний ответ Декабрь 29, 2010, 23:57:59
от Guezt Gutsy
10 Ответов
5997 Просмотров
Последний ответ Апрель 01, 2011, 01:12:20
от Kaster
0 Ответов
1388 Просмотров
Последний ответ Август 07, 2012, 23:52:44
от RavdonikaS
2 Ответов
1384 Просмотров
Последний ответ Ноябрь 21, 2013, 05:37:33
от Redcut
0 Ответов
1697 Просмотров
Последний ответ Апрель 27, 2014, 23:11:00
от Isn
12 Ответов
2382 Просмотров
Последний ответ Ноябрь 03, 2014, 00:50:48
от Aleksander-2000
0 Ответов
1090 Просмотров
Последний ответ Май 31, 2015, 19:18:03
от Jameser
8 Ответов
2037 Просмотров
Последний ответ Июль 06, 2015, 17:02:19
от Tapok
4 Ответов
1393 Просмотров
Последний ответ Декабрь 15, 2015, 09:23:33
от serg41
0 Ответов
423 Просмотров
Последний ответ Февраль 28, 2017, 18:30:40
от [email protected]