Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Зулус

Pages: [1]
1
Общие вопросы / EXECUTE("....")
« on: November 08, 2023, 06:27:22 PM »
добрый день!
Подскажите, вызываю сайт с помощью команды EXECUTE("адрес сайта"), но он открывается в новой вкладке. А как сделать, чтобы сайт открывался в текущей вкладке?

2
Ошибки / Проблема с AGClient
« on: June 15, 2023, 10:34:57 PM »
В последнее время AGClient часто (почти всегда) выдает ошибку при отправке капчи на сервер Антигейт.
Пишет:
Quote
22:21:30 AGClient hwnd: 526702
22:21:31 НЕ распознано. Ошибка!
22:21:36 AGClient hwnd: 526702
22:21:38 НЕ распознано. Ошибка!
Цвет индикатора - красный.
И так может до бесконечности.

Вот код.
Code: (clickermann) [Select]

$repeat01=0

repeat:

$cap4a = 1
WHILE($cap4a = 1) // цикл распознавания капчи
   
   // Область снимка капчи
   $x1 = 605
   $y1 = 442
   $x2 = 922
   $y2 = 523
   
   WAIT(1)
   $hwnd = wndFind("AGClient v1.5") // находим окно
   LOGWRITE ("AGClient hwnd: ", $hwnd)
   HINTPOPUP(STRCONCAT("hwnd: ", $hwnd), "AGClient")
   
   TFCLEAR("out.txt")
   WAITMS(50)
   TFWRITE("out.txt", "0")
   waitms(200)
   
   // последовательное задание координат
   PostMessage($hwnd, 0x555, 1, $x1)
   PostMessage($hwnd, 0x555, 2, $y1)
   PostMessage($hwnd, 0x555, 3, $x2)
   PostMessage($hwnd, 0x555, 4, $y2)
   PostMessage($hwnd, 0x555, 5, 0) // распознать
   waitms(200)
   
   $response = 0
   
   WHILE($response = 0)
      $response = TFREAD("out.txt", 1)
      WAITMS(500)
   END_CYC
   
   IF ($response = 1)
      $str = TFREAD("out.txt", 2)
      LOGWRITE ("Распознано. Ответ: ", $str)
      TOCLIP($str) // капчу в буфер
      WAITMS (50)
      $cap4a = 0 // после ввода выходим из цикла
   END_IF
   IF ($response = 2)
      LOGWRITE ("НЕ распознано. Ошибка!")
      WAIT(3)
      $repeat01=$repeat01+1
      IF($repeat01<5)
         WAIT(1)
         GOTO(repeat)
      ELSE
         WAIT(3600)
         GOTO(zagruzka)
      END_IF
   END_IF
END_CYC
WAITMS(200)

Раньше нормально работал. Вроде его не трогал, когда менял код в других частях скрипта, но уже не уверен. Может, что-то задел и в этом коде. но сам определить не могу.
Проверьте, пожалуйста, код - все ли в нем правильно.

3


но вы реально используете версию программы "AGClient v1.1", не 1.4 или 1.5 ?
Я использую "AGClient v1.5" . В коде тоже правильно указана версия клиента. Не то скопировал просто.


4
Всё проверил и всё перепробовал.
Даже вот этот простой код из поста на первой странице этой ветки:
Code: (clickermann) [Select]
// задаем область
 
$x1 = 318
$y1 = 379
 
$x2 = 463
$y2 = 443
 
 
// находим окно
$hwnd = wndFind("AGClient v1.1")
 
// задание координат через сообщение
PostMessage($hwnd, 0x555, 1, $x1)
PostMessage($hwnd, 0x555, 2, $y1)
PostMessage($hwnd, 0x555, 3, $x2)
PostMessage($hwnd, 0x555, 4, $y2)
 
waitms(100)
 
// команда РАСПОЗНАТЬ
PostMessage($hwnd, 0x555, 5, 0)
 
halt // for single run

AGClient не отправляет на сервер антигейт. Состояние AGClient "Отправка..." может висеть часами и никакого толка. Тупо не понимаю в чем и где проблема.

5
ОК. Сегодня перепроверю весь код.

6
ОК. Спасибо. Все настроил, теперь проблема с отправкой - AGClient слишком долго отправляет. Завис и все, так и не дождался отправки. Это как-то можно исправить?
исправляется настройками в вашем аккаунте на сайте максимально допустимой суммы за разгадывание на текущий час.
С суммой там все нормально. Капча просто не уходит на Антигейт.

7
ОК. Спасибо. Все настроил, теперь проблема с отправкой - AGClient слишком долго отправляет. Завис и все, так и не дождался отправки. Это как-то можно исправить?

8
Спасибо, что откликнулись. Да, похоже проблема в file_result - перенес папку в другое место, а изменить конфиг не додумался.
Еще подскажите, пожалуйста: чтобы записывало буфер в оut.txt нужно чтобы стояло "1" в file_result_enable?

9
Вот используемый мной код:
Code: [Select]

$cap4a = 1
WHILE($cap4a = 1) // цикл распознавания капчи
   
   // Область снимка капчи
   $x1 = 673
   $y1 = 404
   $x2 = 929
   $y2 = 469
   
   WAIT(1)
   $hwnd = wndFind("AGClient v1.5") // находим окно
   LOGWRITE ("AGClient hwnd: ", $hwnd)
   HINTPOPUP(STRCONCAT("hwnd: ", $hwnd), "AGClient")
   
   TFCLEAR("out.txt")
   WAITMS(50)
   TFWRITE("out.txt", "0")
   waitms(200)
   
   // последовательное задание координат
   PostMessage($hwnd, 0x555, 1, $x1)
   PostMessage($hwnd, 0x555, 2, $y1)
   PostMessage($hwnd, 0x555, 3, $x2)
   PostMessage($hwnd, 0x555, 4, $y2)
   PostMessage($hwnd, 0x555, 5, 0) // распознать
   waitms(200)
   
   $response = 0
   
   WHILE($response = 0)
      $response = TFREAD("out.txt", 1)
      WAITMS(500)
   END_CYC
   
   IF ($response = 1)
      $str = TFREAD("out.txt", 2)
      LOGWRITE ("Распознано. Ответ: ", $str)
      TOCLIP($str) // капчу в буфер
      WAITMS (50)
      $cap4a = 0 // после ввода выходим из цикла
   END_IF
   IF ($response = 2)
      LOGWRITE ("НЕ распознано. Ошибка!")
      WAIT(3)
      $repeat01=$repeat01+1
      IF($repeat01<5)
         WAIT(1)
         GOTO(repeat)
      ELSE
         WAIT(3600)
         GOTO(zagruzka)
      END_IF
   END_IF
END_CYC
WAITMS(200)
В целом код идентичен процитированному выше, убрал только ненужные мне If и ctrl+V.
Посмотрите, пожалуйста, где ошибка - почему не записывает капчу в файл out.txt? Мой код дальше должен считывать из этого  файла данные.

10
В файле "config.ini" программы "AGClient" нужно вписать Имя сервера и ключ

Code: [Select]
[user]
; Имя сервера или псевдонима
server=rucaptcha.com

; ваш ключ к системе
apikey=ваш ключ

Вот скрипт для кликера.
Картинка "Капча.bmp" это часть окошка капчи по которому можно понять что копча находится на экране, иначе распознавание пропускаем.
В скрипте требуется настроить "Область снимка капчи" и "клик по полю ввода" если конечно он вообще нужен.

Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Капча.bmp", -1, 100) // поиск окошка капчи
   $cap4a = 1
   WHILE($cap4a = 1) // цикл распознавания капчи
      // Область снимка капчи
      $x1 = 886
      $y1 = 407
      $x2 = 1015
      $y2 = 455
     
      WAIT(1)
      $hwnd = wndFind("AGClient v1.4") // находим окно
      LOGWRITE ("AGClient hwnd: ", $hwnd)
      HINTPOPUP(STRCONCAT("hwnd: ", $hwnd), "AGClient")
     
      TFCLEAR("out.txt")
      WAITMS(50)
      TFWRITE("out.txt", "0")
      waitms(200)
     
      // последовательное задание координат
      PostMessage($hwnd, 0x555, 1, $x1)
      PostMessage($hwnd, 0x555, 2, $y1)
      PostMessage($hwnd, 0x555, 3, $x2)
      PostMessage($hwnd, 0x555, 4, $y2)
      PostMessage($hwnd, 0x555, 5, 0) // распознать
      waitms(200)
      $response = 0
     
      WHILE($response = 0)
         $response = TFREAD("out.txt", 1)
         WAITMS(500)
      END_CYC
     
      IF ($response = 1)
         $str = TFREAD("out.txt", 2)
         LOGWRITE ("Распознано. Ответ: ", $str)
         TOCLIP($str) // капчу в буфер
         WAITMS (50)
         LCLICK(10,10) // клик по полю ввода (нужно вписать координату этого поля!!!)
         WAITMS (50)
         KEYDOWN (#CTRL) // вставляю в окошко из буфера
         WAITMS (50)
         KEYDOWN (#V)
         WAITMS (50)
         KEYUP (#V)
         KEYUP (#CTRL)
         WAITMS (100)
         KEYPRESS(#ENTER) // отправить
         WAITMS(300)
         $cap4a = 0 // после ввода выходим из цикла
      END_IF
      IF ($response = 2)
         LOGWRITE ("НЕ распознано. Ошибка!")
         WAITMS(300)
      END_IF
   END_CYC
END_IF

Помогите с такой проблемой: распознанную капчу не записывает в файл out.txt.
Использую указанный выше код. Файл config.ini настроен, AGClient (v.1.5) капчу видит и распознает, помещает ее в буфер. Но в файл out.txt не записывает((
А мне нужно чтобы именно в этот файл записывал  - дальше код потом считывает данные из этого файла.
В целом код идентичен процитированному выше, убрал только ненужные мне If и ctrl+V.
В сообщении ниже приведу свой код.

Pages: [1]