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 - Loginow

Pages: [1] 2 3
1
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 14, 2017, 09:57:53 PM »
Quote from: Атеист on May 14, 2017, 09:17:23 PM
Quote from: Loginow on May 14, 2017, 08:50:15 PM
Однозначно собака зарыта в другом месте.

Синтаксические ошибки где то есть в коде. Например: "SUB(" встречается 23 раза в этом скрипте, а "END_SUB" всего 22 раза. Где то не закрыта подпрограмма. Это видно сразу по тому, как скрипт в редакторе перекашивается, если на волшебную палочку нажать (вверху на панели) "Расставить отступы" .

Проверил, когда правил/копировал сюда случайно дернул в старт1 вроде, исправил. Это не то.
У меня бы скрипт со старта выдавал ошибку, а не доходил до конца.
В очередной раз перепроверил все, по частям/по отдельности - работает на 5+. Все копирования и вставки сами по себе (отдельно от общего скрипта) проверены и работают правильно. Почему у меня в целом скрипт выдает ошибку я не понимаю(((
Никаких сверх сложных действий или функций нет. Я в замешательстве((
Дорогие профи, помогите пожалуйста((

2
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 14, 2017, 08:50:15 PM »
Да, видимо не "случайно", пардоньте) Солгать и вовсе в мыслях не было.
На счет Undefine - проставил, проблема не решилась. Однозначно собака зарыта в другом месте. Я уже 3 дня не могу справится.
Помогите, прошу, уже апатия начинается, но я уверен эту задачу можно разрешить(

Code: (clickermann) [Select]
LOGWRITE("00.00.00")
WAITMS(50)
EXECUTE("h.bat - Ярлык")
WAIT(5) // тут должно было быть ожидание окна через вайл, но скрипт идет дальше не дожидаясь его появления
$hwnd1 = wndfind("h")
WAITMS(500)

// CTRL+: G / S / A / C / V /



SUB(G)
KEYDOWN(#CTRL)
WAITMS(50)
KEYDOWN(#G)
WAITMS(50)
KEYUP(#G)
WAITMS(50)
KEYUP(#CTRL)
END_SUB

SUB(S)
KEYDOWN(#CTRL)
WAITMS(50)
KEYDOWN(#S)
WAITMS(50)
KEYUP(#S)
WAITMS(50)
KEYUP(#CTRL)
END_SUB

SUB(A)
KEYDOWN(#CTRL)
WAITMS(50)
KEYDOWN(#A)
WAITMS(50)
KEYUP(#A)
WAITMS(50)
KEYUP(#CTRL)
END_SUB

SUB(C)
KEYDOWN(#CTRL)
WAITMS(50)
KEYDOWN(#C)
WAITMS(50)
KEYUP(#C)
WAITMS(50)
KEYUP(#CTRL)
END_SUB

SUB(V)
KEYDOWN(#CTRL)
WAITMS(50)
KEYDOWN(#V)
WAITMS(50)
KEYUP(#v)
WAITMS(50)
KEYUP(#CTRL)
END_SUB

SUB(pastenter, $_hh)
   TOCLIP($_hh)
   WAITMS(50)
   V()
   WAITMS(50)
   KEYPRESS(#ENTER)
END_SUB


SUB(start)
HSET($hwnd1,1)
WAITMS(50)
$check = 0         // прохождение апи (картинка)
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "e1.bmp")  // апи
   $check = 1
      WAITMS(50)
      LCLICK(500,283)
   Else
      WAITMS(100)
   END_IF
END_CYC
 
    $check = 0         // прохождение апи (картинка)
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "f1.bmp")  // апи
   $check = 1
      WAITMS(50)
      KEYPRESS(#SPACE)
   Else
      WAITMS(100)
   END_IF
END_CYC
   
   WAITMS(50)
   LCLICK(500,283)
   WAIT(1)
   LOGWRITE("START")
END_SUB
 
SUB(start1)
LOGWRITE("1")
$check = 0         // прохождение апи (картинка)
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(399,175, 598,315, "g1.bmp")
//   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "g1.bmp")  // апи
   $check = 1
      WAITMS(50)
      KEYPRESS(#TAB)
   Else
      WAITMS(100)
   END_IF
END_CYC
LOGWRITE("2")
WAITMS(50)
KEYPRESS(#SPACE)
WAITMS(50)
LCLICK(500,283)
WAIT(1)
LCLICK(840,30)
$check = 0     
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(6,406, 1007,444, "a1.bmp")
      $check = 1
      WAITMS(50)
      LCLICK(516,460)
   Else
      WAITMS(100)
   END_IF
END_CYC


WAIT(1)
LCLICK(520,32)
WAIT(2)

$time = $_time_t + 15
GETSCREEN
$hash1 = PXLCRC(50,91, 135,363)
$hash2 = $hash1
WHILE(($hash1 = $hash2)&($time > $_time_t))
   WAITMS(50)
   GETSCREEN
   $hash1 = PXLCRC(50,91, 135,363)
END_CYC
IF($hash1 = $hash2)
$check = 0
  WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "a1.bmp")
      $check = 1
      WAITMS(50)
      $check = 0         // прохождение апи (картинка)
WHILE($check = 0)
    GETSCREEN
    IF_PICTURE_IN(0,0, $_xmax,$_ymax, "n1.bmp")  // апи
      $check = 1
      WAITMS(50)
      LCLICK(126,208)
   Else
      WAITMS(50)
   END_IF
END_CYC
   Else
      WAITMS(100)
   END_IF
END_CYC
END_IF
 END_SUB
 

SUB(checkp)
   EXECUTE("strok.txt")
   WAIT(2)
   $hwnd2 = wndfind("strok.txt — Блокнот")
   WAITMS(50)
   
   WNDBUMP($hwnd2)
   
   WAITMS(50)
   HSET($hwnd2,1)
   WAITMS(50)
   LCLICK(360,140)
   WAITMS(50)
   HSET(0,0)
 
 
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#UP)
   WAITMS(50)
   KEYUP(#WIN)
   WAITMS(50)
   
   A()
   WAITMS(50)
   V()
   WAITMS(50)
   G()
   WAITMS(50)
   TOCLIP("9999")
WAITMS(50))
V()
   WAITMS(50)
   KEYPRESS(#ENTER)
   WAITMS(50)
KEYPRESS(#ENTER)
WAITMS(50)
   C()
   WAITMS(50)
LOGWRITE(FROMCLIP())
WAITMS(50)
   KEYPRESS(#ESC)
   WAITMS(50)
   S()
   WAITMS(50)
   HSET($hwnd2,1)
   WAITMS(50)
   SENDMESSAGE($hwnd2,0x0010,0,0)
WAITMS(50)
   HSET(0,0)
   WAITMS(50)
END_SUB
 
 

SUB(addnew)
   WAITMS(50)
   EXECUTE("CDII")
   WAIT(5)
   $hwnd3 = wndfind("CDII")
   WAITMS(50)
   HSET(0,0)
   WNDBUMP($hwnd3)
   WAITMS(50)
   LCLICK(21,28)
   WAITMS(50)
   LCLICK(21,48)
   WAITMS(50)
   DBLCLICK(203,183)
   
   WAIT(2)
   KEYPRESS(#F5)
   WAITMS(50)
   
$check = 0   
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(1,706, 169,727, "fp1.bmp")
      $check = 1
      WAITMS(50)
      A()
   Else
      WAITMS(100)
   END_IF
END_CYC   

   
   WAITMS(50)
   C()
   WAITMS(50)
   
   HSET($hwnd3,1)
   WAITMS(50)
   SENDMESSAGE($hwnd3,0x0010,0,0)
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   WNDBUMP($hwnd1)
   WAITMS(50)
   LCLICK(408,167) 
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
   A()
   WAITMS(50)
LOGWRITE("ANP")
WAITMS(50)
   V()
WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(700,30)
   WAIT(2)

   GETSCREEN   
   $hash1 = PXLCRC(150,88, 400,363)
   $hash2 = $hash1
   WHILE($hash1 = $hash2)
      WAITMS(50)
      GETSCREEN
      $hash2 = PXLCRC(150,88, 400,363)
   END_CYC
   
    WAITMS(50)
        LCLICK(519,461)
    WAITMS(50)
    HSET(0,0)
    WAITMS(50)
END_SUB
 
 
SUB(promooo)
   $LOGWRITE("CHECK")
WAITMS(50)
$pp = FROMCLIP ()
   IF($pp < 300)
      addnew()
   ELSE
      WAITMS(50)
      HSET($hwnd1,1)
      WAITMS(50)
      WNDBUMP($hwnd1)
      WAITMS(50)
      LCLICK(521,459) 
      WAITMS(50)
   END_IF
END_SUB

 
 
 
SUB(putinprice)
   LOGWRITE("CONFIG_PUT")
WAIT(2)
   HSET($hwnd1,1)
   LCLICK(367,29)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
A()
WAITMS(50)
   TOCLIP(500)
   WAITMS(50)
   V()
WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(50)
   TOCLIP(50)
   WAITMS(50)
   V()
WAITMS (50)
   KEYPRESS(#TAB) 
   WAITMS(50)
   KEYPRESS(#SPACE)
   WAITMS(50)
HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(524,461)
   WAITMS(50)
HSET(0,0)
END_SUB
 
 
SUB(totscu)
   LOGWRITE("CONFIG_FILT")
   WAIT(2)
   HSET($hwnd1,1)
   WAITMS(50)
LCLICK(135,107)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
A()
   WAITMS(50)
   TOCLIP(2016)
   WAITMS(50)
   V()
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(50)
   TOCLIP(2017)
   WAITMS(50)
   V()
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(50)
   TOCLIP(5)
   WAITMS(50)
   V()
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(50)
   TOCLIP(1)
   WAITMS(50)
   V()
   WAITMS (50)
   HSET($hwnd1,1)
   LCLICK(428,400) 
   WAITMS (50)
   HSET(0,0)
   KEYDOWN(#SHIFT)   
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYUP(#SHIFT)
   WAITMS(50)
   KEYPRESS(#SPACE)
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(692,106)
   WAITMS(50)
   HSET(0,0)
   A()
   WAITMS(50)
   pastenter("$1")
   WAITMS (50)
   pastenter("$2")
   WAITMS (50)
   pastenter("$3")
   WAITMS (50)
   pastenter("$4")
   WAITMS (50)
   pastenter("$5")
   WAITMS (50)
   pastenter("$6")
   WAITMS (50)
   pastenter("$7")
   WAITMS (50)
   pastenter("$8")
   WAITMS (50)
   pastenter("$9")
   WAITMS (50)
   pastenter("$10")
   WAITMS (50)
   HSET($hwnd1,1)
   WAITMS(50)
   HSET(0,0)
END_SUB
 
 
SUB(hii, $_price)
    LOGWRITE("CONFIG_HII")
   HSET($HWND1,1)
   WAIT(2)
   LCLICK(135,30)
   WAITMS(50)
   LCLICK(154,136)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
   A()
   WAITMS(50)
   TOCLIP(1)
   WAITMS(50)
   V()
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   A()
   WAITMS(50)
   TOCLIP(900)
   WAITMS(50)
   V()
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(472,135)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
   A()
   WAITMS(50)
   TOCLIP(10)
   WAITMS(50)
   V()
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   KEYPRESS(#SPACE)
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(234,29)
   WAITMS(50)
   LCLICK(163,330) 
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   KEYPRESS(#SPACE)
   WAITMS(50)
   KEYPRESS(#TAB)
   WAITMS(50)
   KEYPRESS(#SPACE)
   WAITMS(50)
   LCLICK(275,30) 
   WAITMS(50)
   LCLICK(169,107)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
A()
   WAITMS(50)
   TOCLIP(1)
   WAITMS(50)
   V()
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(158,147)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
   A()
   WAITMS(50)
   TOCLIP($_price)
   WAITMS(50)
   V()
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(10)
   LCLICK(514,458)
   WAITMS(50)
HSET(0,0)
END_SUB
 
 
SUB(sct)
   WAITMS(50)
LOGWRITE("ADD_SCT")
   WAIT(50)
   EXECUTE("s1.bat")
   WAIT(2)
   $s1bat = FROMCLIP()
   WNDBUMP($hwnd1)
   WAITMS(500)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(62,161) 
   WAITMS(50)
   HSET(0,0)
   pastenter($s1bat) // ctrl+V + Enter
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   KEYPRESS(#ENTER)
END_SUB
 
 
SUB(s1to5)
LOGWRITE("ADD_NP+")
WAIT(2)
HSET($hwnd1,1)
WAITMS(50)
   EXECUTE("s2.bat")
   WAIT(2)
   HSET(0,0)
   WNDBUMP($hwnd1)
   WAITMS(50)
   KEYPRESS (#ENTER)
WAITMS(50)
   V()
   WAITMS(50)
   KEYPRESS(#ENTER)
   WAIT(1)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(502,401) 
   WAITMS(50)
   LCLICK(521,459)
   WAITMS(1)
   HSET(0,0)
END_SUB
 
 

SUB(waitfin)
   HSET($hwnd1,1)
   $check = 0       
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN(429,184, 838,322, "next.bmp") 
         $check = 1
         WAITMS(50)
         LCLICK(504,261) 
      Else
         WAITMS(100)
      END_IF
   END_CYC
END_SUB
 
 
 
SUB(addtobl)
WAIT(3)
   HSET($hwnd1,1)
   WAIT(1)
   WNDBUMP($hwnd1)
   WAITMS(50)
   HSET(0,0)
   WAITMS(50)
   A()
   WAITMS(50)
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#UP)
   WAITMS(50)
   KEYUP(#WIN)
   WAIT(1)
   RCLICK(388,160)
   WAITMS(500)
   KEYPRESS(#DOWN)
WAITMS(500)
   KEYPRESS(#RIGHT)
WAITMS(500)
   LCLICK(540,476)
   WAITMS(1)
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#DOWN)
   WAITMS(50)
   KEYUP(#WIN)
   WAIT(1)
END_SUB
 
SUB(cNBL)
EXECUTE("brlist.txt")
   WAIT(5)
   $hwndx = wndfind("brlist.txt — Блокнот")
   WAITMS(500)
   WNDBUMP($hwndx)
   WAITMS(500)
   HSET($hwndx,1)
   WAITMS(500)
   LCLICK(360,140)
   WAITMS(500)
   HSET(0,0)


   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#UP)
   WAITMS(50)
   KEYUP(#WIN)
   WAITMS(500)

   A()
WAITMS(500)
V()
WAITMS(500)

   S()
   WAITMS(500)
HSET($hwndx,1)
   WAITMS(50)
   SENDMESSAGE($hwndx,0x0010,0,0)
   WAITMS(50)
HSET(0,0)
   WAITMS(50)
   EXECUTE("dBL.bat")
   WAIT(2)
END_SUB
 

SUB(skryp, $_txt_)
TFREADARR("brlist.txt", $arr)
WAITMS(50)
FOR($a=0,$a<ARRSIZE($arr))
WAITMS(50)
   $arr[$a] = STRCONCAT("$$1-100", $arr[$a])
   WAITMS(50)
END_CYC
WAITMS(50)
TFWRITEARR($_txt_, $arr)
WAITMS(50)
UNDEFINE($arr)
END_SUB
 
 
SUB(bkS)
LOGWRITE("btosc")
WNDBUMP($hwnd1)
WAITMS(500)
HSET(0,0)
  WAITMS(50)
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#UP)
   WAITMS(50)
   KEYUP(#WIN)
WAITMS(500)
RCLICK(199,161)
WAITMS(50)
KEYPRESS(#DOWN)
WAITMS(50)
KEYPRESS(#DOWN)
WAITMS(50)
KEYPRESS(#DOWN)
WAITMS(50)
KEYPRESS(#RIGHT)
WAITMS(50)
KEYPRESS(#DOWN)
WAITMS(50)
KEYPRESS(#ENTER) 
   WAITMS(500)
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#DOWN)
   WAITMS(50)
   KEYUP(#WIN)
   WAITMS(50)
   HSET($hwnd1,1)
   WAITMS(50)
   LCLICK(26,464)
WAITMS(50)
END_SUB
 
 
SUB(o500)
 LOGWRITE("FORM_500")
 EXECUTE("s499.bat")
WAITMS(50)
   EXECUTE("500.txt")
   WAIT(3)
   $hwnd7 = wndfind("500.txt — Блокнот")
   WAITMS(50)
   
   WNDBUMP($hwnd7)
   
   WAITMS(50)
   HSET($hwnd7,1)
   WAITMS(50)
   LCLICK(360,140)
   WAITMS(50)
   HSET(0,0) //
 
   KEYDOWN(#WIN)
   WAITMS(50)
   KEYPRESS(#UP)
   WAITMS(50)
   KEYUP(#WIN)
   WAITMS(50)

   V()
   WAITMS(50)
   G()
WAITMS(50)
A()
WAITMS(50)

TOCLIP(9999)
   WAITMS(50)
V()
WAITMS(50)
   KEYPRESS(#ENTER)
WAITMS(50)
KEYPRESS(#ESC)
WAITMS(50)
   
   C()
   WAITMS(50)

   KEYPRESS(#ESC)
WAITMS(50)
   S()
   WAITMS(50)
HSET($hwnd7,1)
   WAITMS(50)
   SENDMESSAGE($hwnd7,0x0010,0,0)
   WAITMS(50)
HSET(0,0)
WAITMS(50)
LOGWRITE(FROMCLIP())
END_SUB
 
SUB(WORK)
WAITMS(50)
start1() 
WAITMS(50)
checkp() 
WAITMS(50)
promooo()
WAITMS(50)
putinprice()
WAITMS(50)
totscu()   
WAITMS(50)
hii("100")
WAITMS(50)
sct() 
WAITMS(50)
s1to5()   
WAITMS(50)
waitfin() 
WAITMS(50)
addtobl()
WAITMS(50)
EXECUTE("dFriW.bat")
WAITMS(50)
addtobl()
WAITMS(50)
EXECUTE("nircmd.exe", "clipboard readfile brandlist.txt")
WAITMS(50)
cNBL()   
WAITMS(50)
skryp("100.txt")
WAITMS(50)
EXECUTE("rRi.bat")
WAIT(2)
bkS()     
WAITMS(50)
////////////////////////////////////////////
start1()   
WAITMS(50)
checkp() 
WAITMS(50)
promooo()
WAITMS(50)
putinprice()   
WAITMS(50)
totscu()     
WAITMS(50)
hii("300")
WAITMS(50)
s1to5()   // тут
WAITMS(50)
waitfin() 
WAITMS(50)
addtobl()
EXECUTE("dFriR.bat")
WAITMS(50)
addtobl()
WAITMS(50)
EXECUTE("nircmd.exe", "clipboard readfile brandlist.txt")  // ПРОБЛЕМЫ С ЭТОЙ ТОЧКИ. в cNBL не передается значение скопированного текста из файла. В буфере остается значение взятое из  s1to5
WAITMS(50)
cNBL() // соответственно сюда вставляется уже инфомусор, и все на перекосяк
WAITMS(50)
skryp("499.txt")
WAITMS(50)
o500()
WAITMS(50)
EXECUTE("rWi.bat")
WAITMS(50)
bkS()
WAITMS(50)
END_SUB
/////////////////////////////////////////

HSET($hwnd1,1)
WAITMS(50)
WNDBUMP($hwnd1)
WAITMS(50)
 
start()

WORK()


WAITMS(50)
HSET(0,0)
   WAITMS(50)
   $ftst = FROMCLIP ()
   IF($ftst < 1)
   WAITMS(50)
      WORK()
   ELSE
      WAITMS(50)
      LOGWRITE("DONE")
   END_IF


HALT

3
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 13, 2017, 11:36:23 PM »
Опробовал, подвох не в этом. Но вариант мне нравится)
Дело в массиве. При повторение он не использует данные из обновленного файла, а берет те, что были вложены в массив прежде. Добавляет к ним вставку и таким образом я получаю следующее:

на 1м кругу: $$1-100A
на 2м кругу: $$1-100$$1-100A
на 3м кругу: $$1-100$$1-100$$1-100A

Как это исправить??

Code: (clickermann) [Select]
SUB(skryp, $_txt_)
LOGWRITE("ADD_$$1-100")
TFREADARR("brandlist.txt", $arr)
FOR($a=0,$a<ARRSIZE($arr))
   $arr[$a] = STRCONCAT("$$1-100", $arr[$a])
END_CYC
TFWRITEARR($_txt_, $arr) 
END_SUB

4
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 13, 2017, 08:37:35 PM »
1) Спасибо.
2)Двойные скобки - Случайно скопировано, в скрипте везде по госту.
3) Про раскладку +, дельно.
4) зачем ты привязываешься к окну (Sendmessage) - Альт+ф4 не реагирует вообще, сенд- реагирует только с привязкой. Не знаю почему так.

И еще вопрос,
скажите пожалуйста, а почему *.bat один раз срабатывает а при повторение скрипта (во 2й раз/ по кругу) уже нет??
Получается так, что в буфер не обновляется и работа идет со старыми данными.

Как исправить ситуацию, подскажите прошу.

cNBL.bat
@echo off
clip < "E:\project\brlist.ini"


5
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 13, 2017, 12:29:35 AM »
2 вопроса.

1) Как дописать если по истечению 15 сек изменений не будет, перейти к действию:
Code: (clickermann) [Select]
$time = $_time_t + 15
GETSCREEN 
$hash1 = PXLCRC(50,91, 135,363)
$hash2 = $hash1
WHILE($hash1 = $hash2)
   WAITMS(50)
   GETSCREEN
  WHILE($time < $_time_t) & $hash2 = PXLCRC(50,91, 135,363)
END_CYC
END_CYC
2)Когда в конце сравнивая значения скрипт переходит на 2-й круг начинаются ошибки. Особенно sub skryp("499.txt")
По задумке он должен брать из файла данные, и в начале каждой строки добавлять указанное значение.
Но на втором кругу он добавляет это значение дважды.
Когда отдельно проверяешь - саб как саб, вставляет как положено.
Как исправить?



Code: (clickermann) [Select]
EXECUTE("h.bat - Ярлык")
WAIT(3)
$hwnd1 = wndfind("h")
WAITMS(500))

 //
SUB(start)
   WAIT(3)
   HSET($hwnd1,1)
   LCLICK(500,283)
   WAIT(2)
   KEYPRESS(#SPACE)
   WAITMS(500))
   LCLICK(500,283)
   WAITMS(500))
END_SUB

SUB(start1)
KEYPRESS(#TAB)
KEYPRESS(#SPACE)
WAITMS(500))
LCLICK(500,283)
WAITMS(500))
LCLICK(840,30)
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(6,406, 1007,444, "appp.bmp")
      $check = 1
      WAITMS(500))
      LCLICK(516,460)
   Else
      WAITMS(100)
   END_IF
END_CYC   
WAITMS(500))
LCLICK(520,32)
WAIT(2)


GETSCREEN   // ??????????? (?? ?????? ???????)
$hash1 = PXLCRC(50,91, 135,363)
$hash2 = $hash1
WHILE($hash1 = $hash2)
   WAITMS(500))
   GETSCREEN
   $hash2 = PXLCRC(50,91, 135,363)
END_CYC
LCLICK(126,208)

WAITMS(500))
HSET(0,0) // ???????
WAITMS(100)
KEYDOWN(#CTRL) // ????????? ????????? ?????
WAITMS(500))
KEYPRESS(#A)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))
KEYDOWN(#CTRL) // ??????????? ?????
WAITMS(500))
KEYPRESS(#C)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))                               
LCLICK(387,281)
END_SUB

   SUB(start2)
KEYPRESS(#TAB)
KEYPRESS(#SPACE)
WAITMS(500))
HSET($hwnd1,1)
WAITMS(500))
LCLICK(500,283)
WAITMS(500))
LCLICK(840,30)
$check = 0   
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(6,406, 1007,444, "appp.bmp")
      $check = 1
      WAITMS(500))
      LCLICK(516,460)
   Else
      WAITMS(100)
   END_IF
END_CYC           // ??????? ? ??????
WAITMS(500))
LCLICK(161,206)
WAITMS(500))
HSET(0,0)
WAITMS(500))
KEYDOWN(#CTRL) // ????????? ????????? ?????
WAITMS(500))
KEYPRESS(#A)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))
KEYDOWN(#CTRL) // ??????????? ?????
WAITMS(500))
KEYPRESS(#C)
WAITMS(500))
KEYUP(#CTRL)
END_SUB

//???????? ??????? (?????)
SUB(checkp)
   EXECUTE("strok.txt") // ???????? ????? ?????
   WAIT(5)
   $hwnd2 = wndfind("strok.txt — ???????") //  ????????
   WAITMS(500))
   WNDBUMP($hwnd2) // ?????? ???? ???? (???????? ????)
   WAITMS(500))
   HSET($hwnd2,1)
   WAITMS(500))
   LCLICK(360,140)
   WAITMS(500))
   HSET(0,0) // ???????


   KEYDOWN(#WIN) // ?? ???? ?????
   WAITMS(500))
   KEYPRESS(#UP)
   WAITMS(500))
   KEYUP(#WIN)
   WAITMS(500))
   KEYDOWN(#CTRL)  // ?????????
   WAITMS(500))
   KEYPRESS(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ???????
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ??????? ? ????? ?????
   WAITMS(500))
   KEYPRESS(#G)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ??????????? ????????
   WAITMS(500))
   KEYPRESS(#C)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYPRESS(#ESC)

   WAITMS(500))
   LCLICK(22,30)
   WAITMS(500))
   LCLICK(70,101)
   WAITMS(500))
   HSET($hwnd2,1)
   WAITMS(500))
   SENDMESSAGE($hwnd2,0x0010,0,0)
   HSET(0,0)
END_SUB


//?????????? ????? ?????//
SUB(addnew)
   WAITMS(500))
   EXECUTE("CDII") // ???????? ???
   WAIT(5)
   $hwnd3 = wndfind("CDII")
   WAITMS(500))
   HSET(0,0)
   WNDBUMP($hwnd3)
   WAITMS(500))
   LCLICK(21,28)
   WAITMS(500))
   LCLICK(21,48)
   WAIT(1,5)
   DBLCLICK(203,183)
   WAITMS(500))
   KEYPRESS(#F5)
   WAIT(5)

   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#C)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   $prx = TOCLIP()

   HSET($hwnd3,1)
   WAITMS(500))
   SENDMESSAGE($hwnd3,0x0010,0,0)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   WNDBUMP($hwnd1)
   WAITMS(500))
   LCLICK(408,167)  // 16777215
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)  // ?????????
   WAITMS(500))
   KEYPRESS(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ???????
   WAITMS(500))
   KEYPRESS(#v)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   HSET($hwnd1,1)
   LCLICK(700,30)
   WAIT(2)

   GETSCREEN   // ??????????? ????? (?? ?????? ???????)
   $hash1 = PXLCRC(150,88, 400,363)
   $hash2 = $hash1
   WHILE($hash1 = $hash2)
      WAITMS(500))
      GETSCREEN
      $hash2 = PXLCRC(150,88, 400,363)
   END_CYC

   WAITMS(500))
   
   LCLICK(519,461)
   HSET(0,0)
END_SUB


// ???????? 1000 ??? ??????
SUB(promooo)
   $pp = FROMCLIP ()
   IF($pp < 1000)
      addnew()
   ELSE
      WAITMS(500))
      HSET($hwnd1,1)
      WAITMS(500))
      WNDBUMP($hwnd1)
      WAITMS(500))
      LCLICK(521,459) 
      WAITMS(500))
   END_IF
END_SUB




SUB(pastenter, $_hh)
   WAITMS(500))
   TOCLIP($_hh)
   WAITMS(500))
   KEYPRESS (#ENTER)
   WAITMS (50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS(500))
   KEYPRESS(#ENTER)
   WAITMS(500))
END_SUB



SUB(putinprice)
   WAIT(2)
   HSET($hwnd1,1)
   LCLICK(367,29)
   WAITMS(500))
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(500)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(500))
   TOCLIP(50)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)   
   WAITMS(500))
   KEYPRESS(#SPACE)
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(524,461) 
   HSET(0,0)
END_SUB


SUB(totscu)
   WAIT(2)
   HSET($hwnd1,1)
   LCLICK(135,107)
   WAITMS(500))
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(2016)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(500))
   TOCLIP(2017)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(500))
   TOCLIP(5)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS(500))
   TOCLIP(1)
   WAITMS(500))
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   HSET($hwnd1,1)
   LCLICK(428,400) 
   WAITMS (50)
   HSET(0,0)
   KEYDOWN(#SHIFT) 
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYUP(#SHIFT)
   WAITMS(500))
   KEYPRESS(#SPACE)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(692,106) 
   WAITMS(500))
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAITMS(500))
   pastenter("$1")
   WAITMS (50)
   pastenter("$2")
   WAITMS (50)
   pastenter("$3")
   WAITMS (50)
   pastenter("$4")
   WAITMS (50)
   pastenter("$5")
   WAITMS (50)
   pastenter("$6")
   WAITMS (50)
   pastenter("$7")
   WAITMS (50)
   pastenter("$8")
   WAITMS (50)
   pastenter("$9")
   WAITMS (50)
   pastenter("$10")
   WAITMS (50)
   HSET($hwnd1,1)
   WAITMS(500))
   HSET(0,0)
END_SUB


SUB(hii, $_price)
   HSET($HWND1,1)
   WAIT(2)
   LCLICK(135,30)
   WAITMS(500))
   LCLICK(154,136)
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(1)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(900)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(472,135) 
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(10)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYPRESS(#SPACE)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(234,29) 
   WAITMS(500))
   LCLICK(163,330)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYPRESS(#SPACE)
   WAITMS(500))
   KEYPRESS(#TAB)
   WAITMS(500))
   KEYPRESS(#SPACE)
   WAITMS(500))
   LCLICK(275,30)
   WAITMS(500))
   LCLICK(169,107)
   WAITMS(500))
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP(1)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(158,147)
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   TOCLIP($_price)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   HSET($hwnd1,1) 
   WAITMS(10)
   LCLICK(514,458)
   WAITMS(500))
HSET(0,0)
END_SUB



// ??? ??? ?????????? ????????. ?? ?????? ???????????.
SUB(sct)
   WAIT(2)
   EXECUTE("s1.bat")
   WAIT(2)
   $s1bat = TOCLIP()
   WAITMS(500))
   WNDBUMP($hwnd1)
   WAITMS(500))
   HSET($hwnd1,1)
   WAIT(0,05)
   LCLICK(62,161)
   WAIT(0,05)
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
END_SUB


  /// ?????????? ?????? ????? ??????? ?? $1
SUB(s1to5)
WAIT(2)
   EXECUTE("s2.bat")
   WAITMS(500))
   LCLICK(21,95)  // 16053492
   WAITMS(500))
   KEYPRESS(#ENTER)
   WAITMS(500))
   LCLICK(21,95)  // 16053492
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)  // ???????
   WAITMS(500))
   KEYPRESS(#v)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   LCLICK(502,401)  // 16777215
   WAITMS(500))
   LCLICK(521,459)
   WAITMS(1)
   HSET(0,0)
END_SUB


 // ???????? ????????? ?????
SUB(waitfin)
   HSET($hwnd1,1)
   $check = 0         // ?? ????????
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN(429,184, 838,322, "next.bmp")  // ????? ? ??????
         $check = 1
         WAITMS(500))
         LCLICK(504,261)  // 13487565
      Else
         WAITMS(100)
      END_IF
   END_CYC
END_SUB

/// ??? ???? ?? ?????? ???????????
  // ?????????? ? ?????????
SUB(addtobl)
WAITMS(500))
   HSET($hwnd1,1)
   WAITMS(500))
   WNDBUMP($hwnd1)
   WAITMS(500))
   HSET(0,0)
   WAITMS(500))
   KEYDOWN(#CTRL)
   WAITMS(500))
   KEYDOWN(#A)
   WAITMS(500))
   KEYUP(#A)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
   KEYDOWN(#WIN)
   WAITMS(500))
   KEYPRESS(#UP)
   KEYUP(#WIN)
   WAIT(10)
   RCLICK(388,160)
   WAITMS(500))
   KEYPRESS(#DOWN)
WAITMS(500))
   KEYPRESS(#RIGHT)
WAITMS(500))
   LCLICK(540,476)
   WAITMS(500))
   KEYDOWN(#WIN)
   WAITMS(500))
   KEYPRESS(#DOWN)
   KEYUP(#WIN)
   WAITMS(500))
END_SUB

SUB(cNBL)
EXECUTE("cNBL.bat")
WAITMS(500))
   EXECUTE("brlist.txt") // ???????? ????? ???????
   WAIT(5)
   $hwndx = wndfind("brlist.txt — ???????") //  ????????
   WAITMS(500))
   WNDBUMP($hwndx) // ?????? ???? ???? (???????? ????)
   WAITMS(500))
   HSET($hwnd7,1)
   WAITMS(500))
   LCLICK(360,140)
   WAITMS(500))
   HSET(0,0) // ???????


   KEYDOWN(#WIN) // ?? ???? ?????
   WAITMS(500))
   KEYPRESS(#UP)
   WAITMS(500))
   KEYUP(#WIN)
   WAITMS(500))

   KEYDOWN(#CTRL)
WAITMS(500))
KEYPRESS(#A)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))
KEYDOWN(#CTRL)
WAITMS(500))
KEYPRESS(#V)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))

   KEYDOWN(#CTRL)  // ??????????? ????????
   WAITMS(500))
   KEYPRESS(#S) 
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
HSET($hwndx,1)
   WAITMS(500))
   SENDMESSAGE($hwndx,0x0010,0,0)
   HSET(0,0)
   WAITMS(500))
   EXECUTE("dBL.bat")
   WAITMS(500))
END_SUB

// ?????????? ?????? ????? (1??????)
SUB(skryp, $_txt_)
TFREADARR("brlist.txt", $arr) // ?????? ???? ? ??????
FOR($a=0,$a<ARRSIZE($arr)) // ????????????
   $arr[$a] = STRCONCAT("$$1-100", $arr[$a])
END_CYC
TFWRITEARR($_txt_, $arr) // ?????????? ?????? ? ????? ????
END_SUB




SUB(bkS)
WNDBUMP($hwnd1)
WAITMS(500))
HSET(0,0)
WAITMS(500))
KEYDOWN(#WIN)
   WAITMS(500))
   KEYPRESS(#UP)
   KEYUP(#WIN)
   WAITMS(500))
HSET($hwnd1,1)    // 16777215
RCLICK(438,259)  // 16777215
WAITMS(500))
KEYPRESS(#DOWN) // 16382457
WAITMS(500))
KEYPRESS(#DOWN)
WAITMS(500))
KEYPRESS(#DOWN)
WAITMS(500))
KEYPRESS(#RIGHT)
WAITMS(500))
KEYPRESS(#DOWN)
WAITMS(500))
KEYPRESS(#ENTER)  // 16777215
   WAITMS(500))
LCLICK(25,682)  // 16053492
  WAITMS(500))
HSET(0,0)
WAITMS(500))
   KEYDOWN(#WIN)
   WAITMS(500))
KEYPRESS(#DOWN)
   KEYUP(#WIN)
WAITMS(500))
END_SUB


SUB(o500)
 EXECUTE("s499.bat")
WAITMS(500))
   EXECUTE("500.txt") // ???????? ????? ???
   WAIT(5)
   $hwnd7 = wndfind("500.txt — ???????") //  ????????
   WAITMS(500))
   WNDBUMP($hwnd7) // ?????? ???? ???? (???????? ????)
   WAITMS(500))
   HSET($hwnd7,1)
   WAITMS(500))
   LCLICK(360,140)
   WAITMS(500))
   HSET(0,0) // ???????


   KEYDOWN(#WIN) // ?? ???? ?????
   WAITMS(500))
   KEYPRESS(#UP)
   WAITMS(500))
   KEYUP(#WIN)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ???????
   WAITMS(500))
   KEYPRESS(#V)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYDOWN(#CTRL)  // ??????? ? ????? ?????
   WAITMS(500))
   KEYPRESS(#G)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

KEYDOWN(#CTRL)
WAITMS(500))
KEYPRESS(#A)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))
TOCLIP(9999)
   WAITMS(500))
KEYDOWN(#CTRL)
WAITMS(500))
KEYPRESS(#V)
WAITMS(500))
KEYUP(#CTRL)
WAITMS(500))
   KEYPRESS(#ENTER)
WAITMS(500))
KEYPRESS(#ESC)
WAITMS(500))
KEYDOWN(#CTRL)
WAITMS(500))

   KEYDOWN(#CTRL)  // ??????????? ????????
   WAITMS(500))
   KEYPRESS(#C)
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))

   KEYPRESS(#ESC)

   KEYDOWN(#CTRL)  // ??????????? ????????
   WAITMS(500))
   KEYPRESS(#S) 
   WAITMS(500))
   KEYUP(#CTRL)
   WAITMS(500))
HSET($hwnd7,1)
   WAITMS(500))
   SENDMESSAGE($hwnd7,0x0010,0,0)
   WAITMS(500))
HSET(0,0)
END_SUB
 
 
SUB(test410)
HSET(0,0)
   WAITMS(500))
   $ftst = FROMCLIP()
   IF($ftst < 1)
      GOTO(WORK)
   ELSE
      WAITMS(500))
      LOGWRITE("DONE")
   END_IF
END_SUB


HSET($hwnd1,1)
WAITMS(500))
WNDBUMP($hwnd1)
WAITMS(500))

start()
SUB(WORK)
WAITMS(500))
start1() 
WAITMS(500))
checkp() 
WAITMS(500))
promooo()
WAITMS(500))
putinprice()
WAITMS(500))
totscu()   
WAITMS(500))
hii("100")
WAITMS(500))
sct() 
WAITMS(500))
s1to5()   
WAITMS(500))
waitfin() 
WAITMS(500))
addtobl()
WAITMS(500))
EXECUTE("dFriW.bat")
WAITMS(500))
addtobl()
WAITMS(500))
cNBL()   
WAITMS(500))
skryp("100.txt")
WAITMS(500))
EXECUTE("rRi.bat")
WAIT(2)
bkS()     
WAITMS(500))
////////////////////////////////////////////
start2()   
WAITMS(500))
checkp() 
WAITMS(500))
promooo()
WAITMS(500))
putinprice()   
WAITMS(500))
totscu()     
WAITMS(500))
hii("500")
WAITMS(500))
s1to5()   
WAITMS(500))
waitfin() 
WAITMS(500))
addtobl()
EXECUTE("dFriR.bat")
WAITMS(500))
addtobl()
WAITMS(500))
cNBL()
WAITMS(500))
skryp("499.txt")
WAITMS(500))
o500()
WAITMS(500))
EXECUTE("rWi.bat")
////////////////////////////////////////////
test410()
WAITMS(500))
END_SUB

WORK()
HSET(0,0)
   WAITMS(500))
   $ftst = FROMCLIP()
   IF($ftst < 1)
      WORK()
   ELSE
      WAITMS(500))
      LOGWRITE("DONE")
   END_IF
END_SUB

HALT[/quote][/code]

6
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 12, 2017, 08:55:19 AM »
Quote from: Oraven on May 11, 2017, 09:38:52 PM
Что за код в "s2.bat" ?

Обычное копирование
@echo off
clip < 100.txt

7
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 11, 2017, 08:31:03 PM »
kiril, вот как раз и прописал логи, недооценил эту вещь изначально)
комы все заменены на точки.

такой вопрос. В первом кругу работы саба, у меня заносится значение в $2bat. При повторном когда через s2.bat копирую значение из тхт файла (значения новые), $s2bat не берет их из FROMCLIP(). То есть переменная уже изменятся не будет в ходе процесса и будет константой?

Code: (clickermann) [Select]
SUB(s1to5)
WAIT(2)
HSETN($hwnd1,1)
WAITMS(50)
   EXECUTE("s2.bat")
   WAIT(2)
   $s2bat = FROMCLIP()
   WAIT(0.5)
   HSET(0,0)
   WNDBUMP($hwnd1)
   WAITMS(50)
   pastenter($s2bat)
   WAIT(1)
   HSET($hwnd1,1)
   WAIT(0.5)
   LCLICK(502,401)  // 16777215
   WAIT(0.5)
   LCLICK(521,459)
   WAITMS(1)
   HSET(0,0)
END_SUB

8
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 11, 2017, 06:05:52 PM »
Не правильно выразился. Саб раз срабатывает раз не срабатывает.

9
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 11, 2017, 04:27:16 PM »
Quote
Ещё разбирает любопытство, всё таки о каком условии шла речь. Где оно?

когда идет второй круг Work()

////////////////////////////////////////////
...
WAIT(0,5)
s1to5()   
WAIT(0,5)

Поправка (0,5) на (0.5) учтена
Code: (clickermann) [Select]
/// добавление списка новых позиций от $1
SUB(s1to5)
WAIT(2)
   EXECUTE("s2.bat")
   WAIT(0,5)
   LCLICK(21,95)  // 16053492
   WAIT(0,5)
   KEYPRESS(#ENTER)
   WAIT(0,5)
   LCLICK(21,95)  // 16053492
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)  // вставка
   WAIT(0,5)
   KEYPRESS(#v)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(502,401)  // 16777215
   WAIT(0,5)
   LCLICK(521,459)
   WAITMS(1)
   HSET(0,0)
END_SUB

10
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 11, 2017, 02:12:07 PM »
Quote
зачем? Окно и так открывается на переднем плане. Ну может конечно там на экране вакханалия открытых окон которые тут же перекрывают? Не верю.

У меня одновременно открыто 2-3 окна с которыми я работаю. Собственно для этого и нужно.

Quote
Дальше: привязались, один раз кликнули по координатам, отвязались  :o. В открытом окне. На переднем плане.
Это видать для того, чтобы ловить окно в любом месте экрана. Ну так получи его координаты и кликай без привязки.
Quote
И сразу ответ на вопрос как это сделать
Code: (clickermann) [Select]
WNDGETINFO(WNDFIND("- Блокнот", 0), $poz1, $poz2, $siz1, $siz2) // получаем информацию, положение, размер
LCLICK($poz1+85,$poz2+87)  // к координатам полученным в оконном режиме прибавляем положение окна
Спасибо
Да, чтоб ловить окно. Попытался - не получается у меня, тык в совсем другое место. И вопрос по циклах - переходит к следующему действию преждевременно.

Code: (clickermann) [Select]
EXECUTE("h.bat - Ярлык"")
WAITMS(50)
$hwnd1 = wndfind("h")
WAITMS(50)
WHILE(wndfind($hwnd1) = 0)
    WAITMS(50)
END_CYC
WAITMS(50)
WNDGETINFO(WNDFIND("h", 0), $poz1, $poz2, $siz1, $siz2
WAITMS(50)
LCLICK($poz1+500,$poz2+283)
WAITMS(50)

HALT
Quote
Строка 882 переход GOTO(WORK) есть а метки WORK: чето не наблюдаю.
И напоминаю выпрыгивать из подпрограмм это путь к непредсказуемым глюкам.

а разве строка 964: WORK() ну или точнее 896 не отвечает на данный запрос?

Quote
И чтоб два раза не вставать. Ты ведь используешь подпрограммы, так почему куски вида

   
Code: (clickermann) [Select]
KEYDOWN(#WIN) // на весь екран
    WAIT(0,5)
    KEYPRESS(#UP)
    WAIT(0,5)
    KEYUP(#WIN)
    WAIT(0,5)
и им подобные (выделить всё, копировать, втавить) рамножились по всему скрипту в неприличном количестве.
Если я правильно понимаю, то идея прописать вечные К+Ц К+В К+А как этакие мини подпрограммы к успеху шла?! Сделаю.

Quote
Делаем непонятные движения в виде выделить всё, заменить новым (не проще файл удалить и писать заново).
Quote
У тебя там все тексты многострочные и поэтому все манипуляции через блокнот, а не напрямую?
Почему я вообще запариваюсь таким - я перевожу в файл строки для подсчета их кол-ва, и последующего анализа. Те есть имеется энное колво, я откр файл, заменяю его, дальше Ctrl+G, вытягиваю значение, анализирую его и провожу последующие действия. Все ради кол-ва строк, если есть способ адекватнее подскажите, прошу.

Quote
И в конце опять привязка, закрытие, отвязка. Хм. Почему не нажать Alt+F4.
Вот как к примеру вчера, сегодня аналогичная ситуация. Тайминг проставлен, вопрос с (WAITMS(500)) решен, а F5 ( пробовал также заменять на другие F-ки) - не откликается. Я еще неделю назад об этом говорил. Найти корень проблемы не смог.

Quote
И в версии, кажись до 4.12 был баг с утечкой памяти при привязке HSET. Проявляется если вызывать HSET тысячами в циклах.
Например, без проверок просто привязываемся, вдруг другой поток/подпрограмма отвязал.
Соответственно, через некоторое время начинаются тормоза.

И вот тут кажись пришел час менять версию. У меня мигало какое-то обновление, но я не придал этому значения(
Качаю новую.

11
Общие вопросы / Re: Товарищи - суть в том... (срочное)
« on: May 11, 2017, 11:12:37 AM »
Годно)

12
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 11, 2017, 12:12:29 AM »
Да, помогло. Заострил внимание на процессе задержек. Увеличил их в данном месте и заиграло. Господи, этож сколько высчитывать вручную(

13
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 10, 2017, 11:53:40 PM »
Заметил еще один нюанс. Sub(addnew) ... KEYPRESS(#F5)
все работало, а теперь не реагирует. F5 не нажимается, в чем моя ошибка?

14
Общие вопросы / Re: Помогите новичку)
« on: May 10, 2017, 11:04:17 PM »
Открываешь скрипт, наводишь курсор на окно, нажимаешь Alt+W, запускаешь скрипт.

ну или добавь вначале скрипта

Code: (clickermann) [Select]
$hwnd1 = wndfind("название окна") // можно скопировать из манагера окон
WAITMS(50)
HSET ($hwnd1, 1) // привязка к онку

15
Общие вопросы / Re: Почему одно и тоже условие один раз срабатывает а раз нет?
« on: May 10, 2017, 10:59:02 PM »
Снимаю гриф секретности. Ошибки скорее всего, заметил что программа после обработки 150-200К элементов(товары, цены, картинки и т.п.) начинает тормозить, может чуток поблекнуть окно. Возможно ли что К-Ман идет дальше? Как можно стабилизировать работу программ на пк?



Code: (clickermann) [Select]
EXECUTE("h.bat - Ярлык")
WAIT(3)
$hwnd1 = wndfind("h")
WAIT(0,5)

 //
SUB(start)
   WAIT(3)
   HSET($hwnd1,1)
   LCLICK(500,283)
   WAIT(2)
   KEYPRESS(#SPACE)
   WAIT(0,5)
   LCLICK(500,283)
   WAIT(0,5)
END_SUB

SUB(start1)
KEYPRESS(#TAB)
KEYPRESS(#SPACE)
WAIT(0,5)
LCLICK(500,283)
WAIT(0,5)
LCLICK(840,30)
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(6,406, 1007,444, "appp.bmp")
      $check = 1
      WAIT(0,5)
      LCLICK(516,460)
   Else
      WAITMS(100)
   END_IF
END_CYC   
WAIT(0,5)
LCLICK(520,32)
WAIT(2)


GETSCREEN   // прохождение (по любому пикселю)
$hash1 = PXLCRC(50,91, 135,363)
$hash2 = $hash1
WHILE($hash1 = $hash2)
   WAIT(0,5)
   GETSCREEN
   $hash2 = PXLCRC(50,91, 135,363)
END_CYC
LCLICK(126,208)

WAIT(0,5)
HSET(0,0) // отвязка
WAITMS(100)
KEYDOWN(#CTRL) // выделение найденных промо
WAIT(0,5)
KEYPRESS(#A)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)
KEYDOWN(#CTRL) // копирование промо
WAIT(0,5)
KEYPRESS(#C)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)                               
LCLICK(387,281)
END_SUB

   SUB(start2)
KEYPRESS(#TAB)
KEYPRESS(#SPACE)
WAIT(0,5)
HSET($hwnd1,1)
WAIT(0,5)
LCLICK(500,283)
WAIT(0,5)
LCLICK(840,30)
$check = 0   
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN(6,406, 1007,444, "appp.bmp")
      $check = 1
      WAIT(0,5)
      LCLICK(516,460)
   Else
      WAITMS(100)
   END_IF
END_CYC           // переход к прокси
WAIT(0,5)
LCLICK(161,206)
WAIT(0,5)
HSET(0,0)
WAIT(0,5)
KEYDOWN(#CTRL) // выделение найденных промо
WAIT(0,5)
KEYPRESS(#A)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)
KEYDOWN(#CTRL) // копирование промо
WAIT(0,5)
KEYPRESS(#C)
WAIT(0,5)
KEYUP(#CTRL)
END_SUB

//Проверка тескста (промо)
SUB(checkp)
   EXECUTE("strok.txt") // проверка колва промо
   WAIT(5)
   $hwnd2 = wndfind("strok.txt — Блокнот") //  привязка
   WAIT(0,5)
   WNDBUMP($hwnd2) // поверх всех окон (передний план)
   WAIT(0,5)
   HSET($hwnd2,1)
   WAIT(0,5)
   LCLICK(360,140)
   WAIT(0,5)
   HSET(0,0) // отвязка


   KEYDOWN(#WIN) // на весь екран
   WAIT(0,5)
   KEYPRESS(#UP)
   WAIT(0,5)
   KEYUP(#WIN)
   WAIT(0,5)
   KEYDOWN(#CTRL)  // выделение
   WAIT(0,5)
   KEYPRESS(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // вставка
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // переход к колву строк
   WAIT(0,5)
   KEYPRESS(#G)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // копирование значения
   WAIT(0,5)
   KEYPRESS(#C)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYPRESS(#ESC)

   WAIT(0,5)
   LCLICK(22,30)
   WAIT(0,5)
   LCLICK(70,101)
   WAIT(0,5)
   HSET($hwnd2,1)
   WAIT(0,5)
   SENDMESSAGE($hwnd2,0x0010,0,0)
   HSET(0,0)
END_SUB


//Добавление новых промо//
SUB(addnew)
   WAIT(0,5)
   EXECUTE("CDII") // открываю бат
   WAIT(5)
   $hwnd3 = wndfind("CDII")
   WAIT(0,5)
   HSET(0,0)
   WNDBUMP($hwnd3)
   WAIT(0,5)
   LCLICK(21,28)
   WAIT(0,5)
   LCLICK(21,48)
   WAIT(1,5)
   DBLCLICK(203,183)
   WAIT(0,5)
   KEYPRESS(#F5)
   WAIT(5)

   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#C)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   $prx = TOCLIP()

   HSET($hwnd3,1)
   WAIT(0,5)
   SENDMESSAGE($hwnd3,0x0010,0,0)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   WNDBUMP($hwnd1)
   WAIT(0,5)
   LCLICK(408,167)  // 16777215
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)  // выделение
   WAIT(0,5)
   KEYPRESS(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // вставка
   WAIT(0,5)
   KEYPRESS(#v)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   HSET($hwnd1,1)
   LCLICK(700,30)
   WAIT(2)

   GETSCREEN   // прохождение промо (по любому пикселю)
   $hash1 = PXLCRC(150,88, 400,363)
   $hash2 = $hash1
   WHILE($hash1 = $hash2)
      WAIT(0,5)
      GETSCREEN
      $hash2 = PXLCRC(150,88, 400,363)
   END_CYC

   WAIT(0,5)
   
   LCLICK(519,461)
   HSET(0,0)
END_SUB


// ПРОВЕРКА 1000 или меньше
SUB(promooo)
   $pp = FROMCLIP ()
   IF($pp < 1000)
      addnew()
   ELSE
      WAIT(0,5)
      HSET($hwnd1,1)
      WAIT(0,5)
      WNDBUMP($hwnd1)
      WAIT(0,5)
      LCLICK(521,459) 
      WAIT(0,5)
   END_IF
END_SUB




SUB(pastenter, $_hh)
   WAIT(0,5)
   TOCLIP($_hh)
   WAIT(0,5)
   KEYPRESS (#ENTER)
   WAITMS (50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAIT(0,5)
   KEYPRESS(#ENTER)
   WAIT(0,5)
END_SUB



SUB(putinprice)
   WAIT(2)
   HSET($hwnd1,1)
   LCLICK(367,29)
   WAIT(0,5)
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(500)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAIT(0,5)
   TOCLIP(50)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)   
   WAIT(0,5)
   KEYPRESS(#SPACE)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(524,461) 
   HSET(0,0)
END_SUB


SUB(totscu)
   WAIT(2)
   HSET($hwnd1,1)
   LCLICK(135,107)
   WAIT(0,5)
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(2016)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAIT(0,5)
   TOCLIP(2017)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAIT(0,5)
   TOCLIP(5)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAIT(0,5)
   TOCLIP(1)
   WAIT(0,5)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   HSET($hwnd1,1)
   LCLICK(428,400) 
   WAITMS (50)
   HSET(0,0)
   KEYDOWN(#SHIFT) 
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYPRESS(#TAB)
   WAITMS (50)
   KEYUP(#SHIFT)
   WAIT(0,5)
   KEYPRESS(#SPACE)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(692,106) 
   WAIT(0,5)
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#A)
   KEYUP(#CTRL)
   WAIT(0,5)
   pastenter("$1")
   WAITMS (50)
   pastenter("$2")
   WAITMS (50)
   pastenter("$3")
   WAITMS (50)
   pastenter("$4")
   WAITMS (50)
   pastenter("$5")
   WAITMS (50)
   pastenter("$6")
   WAITMS (50)
   pastenter("$7")
   WAITMS (50)
   pastenter("$8")
   WAITMS (50)
   pastenter("$9")
   WAITMS (50)
   pastenter("$10")
   WAITMS (50)
   HSET($hwnd1,1)
   WAIT(0,5)
   HSET(0,0)
END_SUB


SUB(hii, $_price)
   HSET($HWND1,1)
   WAIT(2)
   LCLICK(135,30)
   WAIT(0,5)
   LCLICK(154,136)
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(1)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(900)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(472,135) 
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(10)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYPRESS(#SPACE)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(234,29) 
   WAIT(0,5)
   LCLICK(163,330)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYPRESS(#SPACE)
   WAIT(0,5)
   KEYPRESS(#TAB)
   WAIT(0,5)
   KEYPRESS(#SPACE)
   WAIT(0,5)
   LCLICK(275,30)
   WAIT(0,5)
   LCLICK(169,107)
   WAIT(0,5)
   HSET(0,0)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP(1)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(158,147)
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   TOCLIP($_price)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1) 
   WAITMS(10)
   LCLICK(514,458)
   WAIT(0,5)
HSET(0,0)
END_SUB



// Вот тут начинаются проблемы. Не всегда срабатывает.
SUB(sct)
   WAIT(2)
   EXECUTE("s1.bat")
   WAIT(2)
   $s1bat = TOCLIP()
   WAIT(0,5)
   WNDBUMP($hwnd1)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,05)
   LCLICK(62,161)
   WAIT(0,05)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
END_SUB


  /// добавление списка новых позиций от $1
SUB(s1to5)
WAIT(2)
   EXECUTE("s2.bat")
   WAIT(0,5)
   LCLICK(21,95)  // 16053492
   WAIT(0,5)
   KEYPRESS(#ENTER)
   WAIT(0,5)
   LCLICK(21,95)  // 16053492
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)  // вставка
   WAIT(0,5)
   KEYPRESS(#v)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   LCLICK(502,401)  // 16777215
   WAIT(0,5)
   LCLICK(521,459)
   WAITMS(1)
   HSET(0,0)
END_SUB


 // ожидание окончания скана
SUB(waitfin)
   HSET($hwnd1,1)
   $check = 0         // по картинке
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN(429,184, 838,322, "next.bmp")  // перех к списку
         $check = 1
         WAIT(0,5)
         LCLICK(504,261)  // 13487565
      Else
         WAITMS(100)
      END_IF
   END_CYC
END_SUB

/// тут тоже не всегда срабатывает
  // добавление в брендлист
SUB(addtobl)
WAIT(0,5)
   HSET($hwnd1,1)
   WAIT(0,5)
   WNDBUMP($hwnd1)
   WAIT(0,5)
   HSET(0,0)
   WAIT(0,5)
   KEYDOWN(#CTRL)
   WAIT(0,5)
   KEYDOWN(#A)
   WAIT(0,5)
   KEYUP(#A)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
   KEYDOWN(#WIN)
   WAIT(0,5)
   KEYPRESS(#UP)
   KEYUP(#WIN)
   WAIT(10)
   RCLICK(388,160)
   WAIT(0,5)
   KEYPRESS(#DOWN)
WAIT(0,5)
   KEYPRESS(#RIGHT)
WAIT(0,5)
   LCLICK(540,476)
   WAIT(0,5)
   KEYDOWN(#WIN)
   WAIT(0,5)
   KEYPRESS(#DOWN)
   KEYUP(#WIN)
   WAIT(0,5)
END_SUB

SUB(cNBL)
EXECUTE("cNBL.bat")
WAIT(0,5)
   EXECUTE("brlist.txt") // проверка колва товаров
   WAIT(5)
   $hwndx = wndfind("brlist.txt — Блокнот") //  привязка
   WAIT(0,5)
   WNDBUMP($hwndx) // поверх всех окон (передний план)
   WAIT(0,5)
   HSET($hwnd7,1)
   WAIT(0,5)
   LCLICK(360,140)
   WAIT(0,5)
   HSET(0,0) // отвязка


   KEYDOWN(#WIN) // на весь екран
   WAIT(0,5)
   KEYPRESS(#UP)
   WAIT(0,5)
   KEYUP(#WIN)
   WAIT(0,5)

   KEYDOWN(#CTRL)
WAIT(0,5)
KEYPRESS(#A)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)
KEYDOWN(#CTRL)
WAIT(0,5)
KEYPRESS(#V)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)

   KEYDOWN(#CTRL)  // копирование значения
   WAIT(0,5)
   KEYPRESS(#S) 
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
HSET($hwndx,1)
   WAIT(0,5)
   SENDMESSAGE($hwndx,0x0010,0,0)
   HSET(0,0)
   WAIT(0,5)
   EXECUTE("dBL.bat")
   WAIT(0,5)
END_SUB

// добавление первой части (1скрипт)
SUB(skryp, $_txt_)
TFREADARR("brlist.txt", $arr) // читаем файл в массив
FOR($a=0,$a<ARRSIZE($arr)) // обрабатываем
   $arr[$a] = STRCONCAT("$$1-100", $arr[$a])
END_CYC
TFWRITEARR($_txt_, $arr) // записываем массив в новый файл
END_SUB




SUB(bkS)
WNDBUMP($hwnd1)
WAIT(0,5)
HSET(0,0)
WAIT(0,5)
KEYDOWN(#WIN)
   WAIT(0,5)
   KEYPRESS(#UP)
   KEYUP(#WIN)
   WAIT(0,5)
HSET($hwnd1,1)    // 16777215
RCLICK(438,259)  // 16777215
WAIT(0,5)
KEYPRESS(#DOWN) // 16382457
WAIT(0,5)
KEYPRESS(#DOWN)
WAIT(0,5)
KEYPRESS(#DOWN)
WAIT(0,5)
KEYPRESS(#RIGHT)
WAIT(0,5)
KEYPRESS(#DOWN)
WAIT(0,5)
KEYPRESS(#ENTER)  // 16777215
   WAIT(0,5)
LCLICK(25,682)  // 16053492
  WAIT(0,5)
HSET(0,0)
WAIT(0,5)
   KEYDOWN(#WIN)
   WAIT(0,5)
KEYPRESS(#DOWN)
   KEYUP(#WIN)
WAIT(0,5)
END_SUB


SUB(o500)
 EXECUTE("s499.bat")
WAIT(0,5)
   EXECUTE("500.txt") // проверка колва топ
   WAIT(5)
   $hwnd7 = wndfind("500.txt — Блокнот") //  привязка
   WAIT(0,5)
   WNDBUMP($hwnd7) // поверх всех окон (передний план)
   WAIT(0,5)
   HSET($hwnd7,1)
   WAIT(0,5)
   LCLICK(360,140)
   WAIT(0,5)
   HSET(0,0) // отвязка


   KEYDOWN(#WIN) // на весь екран
   WAIT(0,5)
   KEYPRESS(#UP)
   WAIT(0,5)
   KEYUP(#WIN)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // вставка
   WAIT(0,5)
   KEYPRESS(#V)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYDOWN(#CTRL)  // переход к колву строк
   WAIT(0,5)
   KEYPRESS(#G)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

KEYDOWN(#CTRL)
WAIT(0,5)
KEYPRESS(#A)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)
TOCLIP(9999)
   WAIT(0,5)
KEYDOWN(#CTRL)
WAIT(0,5)
KEYPRESS(#V)
WAIT(0,5)
KEYUP(#CTRL)
WAIT(0,5)
   KEYPRESS(#ENTER)
WAIT(0,5)
KEYPRESS(#ESC)
WAIT(0,5)
KEYDOWN(#CTRL)
WAIT(0,5)

   KEYDOWN(#CTRL)  // копирование значения
   WAIT(0,5)
   KEYPRESS(#C)
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)

   KEYPRESS(#ESC)

   KEYDOWN(#CTRL)  // копирование значения
   WAIT(0,5)
   KEYPRESS(#S) 
   WAIT(0,5)
   KEYUP(#CTRL)
   WAIT(0,5)
HSET($hwnd7,1)
   WAIT(0,5)
   SENDMESSAGE($hwnd7,0x0010,0,0)
   WAIT(0,5)
HSET(0,0)
END_SUB
 
 
SUB(test410)
HSET(0,0)
   WAIT(0,5)
   $ftst = FROMCLIP()
   IF($ftst < 1)
      GOTO(WORK)
   ELSE
      WAIT(0,5)
      LOGWRITE("DONE")
   END_IF
END_SUB


HSET($hwnd1,1)
WAIT(0,5)
WNDBUMP($hwnd1)
WAIT(0,5)

start()
SUB(WORK)
WAIT(0,5)
start1() 
WAIT(0,5)
checkp() 
WAIT(0,5)
promooo()
WAIT(0,5)
putinprice()
WAIT(0,5)
totscu()   
WAIT(0,5)
hii("100")
WAIT(0,5)
sct() 
WAIT(0,5)
s1to5()   
WAIT(0,5)
waitfin() 
WAIT(0,5)
addtobl()
WAIT(0,5)
EXECUTE("dFriW.bat")
WAIT(0,5)
addtobl()
WAIT(0,5)
cNBL()   
WAIT(0,5)
skryp("100.txt")
WAIT(0,5)
EXECUTE("rRi.bat")
WAIT(2)
bkS()     
WAIT(0,5)
////////////////////////////////////////////
start2()   
WAIT(0,5)
checkp() 
WAIT(0,5)
promooo()
WAIT(0,5)
putinprice()   
WAIT(0,5)
totscu()     
WAIT(0,5)
hii("500")
WAIT(0,5)
s1to5()   
WAIT(0,5)
waitfin() 
WAIT(0,5)
addtobl()
EXECUTE("dFriR.bat")
WAIT(0,5)
addtobl()
WAIT(0,5)
cNBL()
WAIT(0,5)
skryp("499.txt")
WAIT(0,5)
o500()
WAIT(0,5)
EXECUTE("rWi.bat")
////////////////////////////////////////////
test410()
WAIT(0,5)
END_SUB

WORK()


HALT

Pages: [1] 2 3