« previous next »
Pages: 1 2 [3]

Author Topic: Товарищи - суть в том... (срочное)  (Read 8729 times)

0 Members and 2 Guests are viewing this topic.

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #30 on: May 11, 2017, 11:12:37 AM »
Годно)
Logged

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #31 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]
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #32 on: May 13, 2017, 09:44:57 AM »
1
Code: (clickermann) [Select]
$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)
  // Это условие определяет что зона не изменилась а время истекло
END_IF
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #33 on: May 13, 2017, 09:55:31 AM »
Почему у тебя двойные скобки везде?
Code: (clickermann) [Select]
WAITMS(500))
Строка 974 опять лишнее окончание END_SUB
А еще чтоб кодировка не ломалась при копировании кода, надо выбирать раскладку Ру.

Я вот не пойму зачем ты привязываешься к окну а потом его закрываешь?
Code: (clickermann) [Select]
   HSET($hwnd3,1)
   WAITMS(500))
   SENDMESSAGE($hwnd3,0x0010,0,0)
SENDMESSAGE к оконному режиму никак не относится, команда просто требует HWND чтобы знать какому окну слать команду
Logged

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #34 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"

Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #35 on: May 13, 2017, 10:06:20 PM »
Для копирования файла в буфер используй утилиту NirCmd v2.81
http://www.nirsoft.net/utils/nircmd.html

В самом конце страницы ссылки на скачивание.
Из архива тебе нужен только nircmd.exe помести программу в папку скрипта

Код кликера
Code: (clickermann) [Select]
EXECUTE("nircmd.exe", "clipboard readfile ИмяФайла.txt")
Logged

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #36 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
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #37 on: May 14, 2017, 06:00:11 PM »
Массив же нужно удалять
Code: (clickermann) [Select]
UNDEFINE($arr)
ты просто берешь и сам добавляешь данные к старым данным.
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #38 on: May 14, 2017, 06:11:44 PM »
Quote from: Loginow on May 13, 2017, 08:37:35 PM
2)Двойные скобки - Случайно скопировано, в скрипте везде по госту.
Интересный эффект  ;D
Хотелось бы узнать механизм такого "случайного" копирования. Как этого можно достичь.

У меня только одно предположение: никакого 'там всё нормально' не существует и )) на паузах в 500мс ты получил при неправильной замене неправильных запятых. И с которыми ты 2 раза уверял, что всё ok.

Не понятно, почему в этом не признаться никто не уволит.
Logged

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #39 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
« Last Edit: May 14, 2017, 09:49:43 PM by Loginow »
Logged

Атеист

  • Guest
Re: Товарищи - суть в том... (срочное)
« Reply #40 on: May 14, 2017, 09:17:23 PM »
Quote from: Loginow on May 14, 2017, 08:50:15 PM
Однозначно собака зарыта в другом месте.

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

Loginow

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
Re: Товарищи - суть в том... (срочное)
« Reply #41 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+. Все копирования и вставки сами по себе (отдельно от общего скрипта) проверены и работают правильно. Почему у меня в целом скрипт выдает ошибку я не понимаю(((
Никаких сверх сложных действий или функций нет. Я в замешательстве((
Дорогие профи, помогите пожалуйста((
Logged
Pages: 1 2 [3]
« previous next »