Автор Тема: Проблема с AGClient  (Прочитано 740 раз)

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

Зулус

  • Зашел в гости
  • *
  • Сообщений: 9
    • Просмотр профиля
Проблема с AGClient
« : Июнь 15, 2023, 10:34:57 pm »
В последнее время AGClient часто (почти всегда) выдает ошибку при отправке капчи на сервер Антигейт.
Пишет:
Цитировать
22:21:30 AGClient hwnd: 526702
22:21:31 НЕ распознано. Ошибка!
22:21:36 AGClient hwnd: 526702
22:21:38 НЕ распознано. Ошибка!
Цвет индикатора - красный.
И так может до бесконечности.

Вот код.
Код: Clickermann
  1.  
  2. $repeat01=0
  3.  
  4. repeat:
  5.  
  6. $cap4a = 1
  7. WHILE($cap4a = 1) // цикл распознавания капчи
  8.  
  9.   // Область снимка капчи
  10.   $x1 = 605
  11.   $y1 = 442
  12.   $x2 = 922
  13.   $y2 = 523
  14.  
  15.   WAIT(1)
  16.   $hwnd = wndFind("AGClient v1.5") // находим окно
  17.   LOGWRITE ("AGClient hwnd: ", $hwnd)
  18.   HINTPOPUP(STRCONCAT("hwnd: ", $hwnd), "AGClient")
  19.  
  20.   TFCLEAR("out.txt")
  21.   WAITMS(50)
  22.   TFWRITE("out.txt", "0")
  23.   waitms(200)
  24.  
  25.   // последовательное задание координат
  26.   PostMessage($hwnd, 0x555, 1, $x1)
  27.   PostMessage($hwnd, 0x555, 2, $y1)
  28.   PostMessage($hwnd, 0x555, 3, $x2)
  29.   PostMessage($hwnd, 0x555, 4, $y2)
  30.   PostMessage($hwnd, 0x555, 5, 0) // распознать
  31.   waitms(200)
  32.  
  33.   $response = 0
  34.  
  35.   WHILE($response = 0)
  36.      $response = TFREAD("out.txt", 1)
  37.      WAITMS(500)
  38.   END_CYC
  39.  
  40.   IF ($response = 1)
  41.      $str = TFREAD("out.txt", 2)
  42.      LOGWRITE ("Распознано. Ответ: ", $str)
  43.      TOCLIP($str) // капчу в буфер
  44.      WAITMS (50)
  45.      $cap4a = 0 // после ввода выходим из цикла
  46.   END_IF
  47.   IF ($response = 2)
  48.      LOGWRITE ("НЕ распознано. Ошибка!")
  49.      WAIT(3)
  50.      $repeat01=$repeat01+1
  51.      IF($repeat01<5)
  52.         WAIT(1)
  53.         GOTO(repeat)
  54.      ELSE
  55.         WAIT(3600)
  56.         GOTO(zagruzka)
  57.      END_IF
  58.   END_IF
  59. END_CYC
  60. WAITMS(200)
  61.  
  62.  
Раньше нормально работал. Вроде его не трогал, когда менял код в других частях скрипта, но уже не уверен. Может, что-то задел и в этом коде. но сам определить не могу.
Проверьте, пожалуйста, код - все ли в нем правильно.