Author Topic: Нужен совет!)  (Read 3335 times)

0 Members and 1 Guest are viewing this topic.

WildOneVL

  • Зашел в гости
  • *
  • Posts: 6
    • View Profile
Нужен совет!)
« on: March 02, 2014, 07:03:20 PM »
Создал свой первый рабочий сценарий бота для игры, задался вопросом о продаже этого сценария.
Появился такой вопрос, есть ли возможность как-нибудь ограничить доступ к скрипту от третьих лиц?
Т.е. открывать доступ к работе скрипта только с моего MAC адреса или же IP адреса? Т.е. прежде чем отправить человеку скрипт, я прописываю его MAC адрес или IP адрес в скрипте, после чего последний начинает работу.
Я видел в дальнейших планах разработчика введение возможности приватизации сценария для продажи, но вдруг есть возможность сделать это внутри самого скрипта не дожидаясь обновления?

aden

  • Оплот сообщества
  • ****
  • Posts: 363
    • View Profile
Re: Нужен совет!)
« Reply #1 on: March 03, 2014, 03:24:09 PM »
нет такой возможности, по крайней мере в данной версии программы.

Сами скрипты не шифруются и представляют из себя просто текстовые файлы, программа не обладает никакой криптозащитой и не умеет читать скрипты из зашифрованных файлов.

Tochka

  • Освоившийся
  • **
  • Posts: 67
  • Ищу, читаю, учусь...
    • View Profile
Re: Нужен совет!)
« Reply #2 on: September 14, 2016, 05:07:39 PM »
Вот в эту тему сегодня приземлюсь со своим интересом.

Может быть кому-то послужит в качестве образца. Но буду рада услышать замечания. Может быть можно как-то усовершенствовать. Например, вставлять дату не из буфера через копирование, а сразу, в требуемых замены, полях. Я почему то только сейчас об этом подумала... Должно же получиться?
Code: (clickermann) [Select]
#name "Новая дата в шаблоны"

// определить старт.корды
GETSCREEN
COLORMODE(6)
IF_PICTURE_IN (0,0, 300,300, "Банк6.bmp", -1, 100)
   $start_x=$_return1 // 33
   $start_y=$_return2 // 8
   WAITMS(100)
ELSE
   WAITMS(100)
   HALT
END_IF

// вывод текущей даты в лог
LOGSHOW (1, 200,300)
WAIT(1)
LOGCLEAR
WAITMS(50)
// прописать текущую дату в лог
$dd = $_date_d
$dm = $_date_m
$dy = $_date_y
LOGWRITE($dd,".",$dm,".",$dy)
WAITMS(500)
LCLICK($start_x+239,$start_y+353) // м/д временем и датой 272/361
// выделить дату в логе
WAITMS(500)
KEYDOWN(#SHIFT)
WAITMS(20)
KEYPRESS(#END)
WAITMS(20)
KEYUP(#SHIFT)
WAIT(1)
// скопировать в буфер обмена
KEYDOWN(#CTRL)
WAITMS(20)
KEYPRESS(#C)
WAITMS(20)
KEYUP(#CTRL)
WAITMS(20)
// закрыть лог
LCLICK($start_x+487,$start_y+305)
WAITMS(20)
// выбор иконки - создать документ по шаблону
WAIT(1)
LCLICK($start_x+383,$start_y+140) // 416/148
WAIT(5)

SUB(Data)
   LCLICK($start_x+367,$start_y+152)  // открыть документ  // 400/160
   WAIT(3)
   LCLICK($start_x+767,$start_y+397)  // переход на вкладку Расчетные документы  800/405
   WAIT(2)
   // выделить старую дату в программе
   LCLICK($start_x+807,$start_y+492) // окончание строки с датой
   WAITMS(100)
   KEYDOWN(#SHIFT)
   WAITMS(20)
   KEYPRESS(#HOME)
   WAITMS(20)
   KEYUP(#SHIFT)
   WAITMS(20)
   // вставить из буфера
   KEYDOWN(#CTRL)
   WAITMS(20)
   KEYPRESS(#V)
   WAITMS(20)
   KEYUP(#CTRL)
   WAIT(2)
   // сохранить изменение в шаблоне
   LCLICK($start_x+392,$start_y+122) // 425/130
   WAIT(5)
END_SUB

// открыть первый шаблон
LCLICK($start_x+487,$start_y+372)  // выделить 1-ую строку в таблице шаблонов  520/380
WAIT(3)
Data()

// открыть второй шаблон
LCLICK($start_x+487,$start_y+396)  // выделить 2-ую строку в таблице шаблонов  520/405
WAIT(3)
Data()

// открыть третий шаблон
LCLICK($start_x+487,$start_y+422)  // выделить 3-ую строку в таблице шаблонов  520/430
WAIT(3)
Data()

// открыть четвертый шаблон
LCLICK($start_x+487,$start_y+447)  // выделить 4-ую строку в таблице шаблонов  520/455
WAIT(3)
Data()

// открыть пятый шаблон
LCLICK($start_x+487,$start_y+472)  // выделить 5-ую строку в таблице шаблонов  520/480
WAIT(3)
Data()

// открыть шестой шаблон
LCLICK($start_x+487,$start_y+497)  // выделить 6-ую строку в таблице шаблонов  520/505
WAIT(3)
Data()

// открыть седьмой шаблон
LCLICK($start_x+487,$start_y+522)  // выделить 7-ую строку в таблице шаблонов  520/530
WAIT(3)
Data()

HALT
Сюда влетаю иногда... Возник вопрос и завелась метла

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Нужен совет!)
« Reply #3 on: September 14, 2016, 05:38:46 PM »
Не понятно, а зачем это всё через лог?
Напрямую формируем строку и в буфер
Code: (clickermann) [Select]
$dd = $_date_d
$dm = $_date_m
$dy = $_date_y

IF(STRLEN($dd) < 2)
    $dd = STRCONCAT ("0", $dd)
END_IF
IF(STRLEN($dm) < 2)
    $dm = STRCONCAT ("0", $dm)
END_IF
IF(STRLEN($dy) < 2)
    $dy = STRCONCAT ("0", $dy)
END_IF

TOCLIP(STRCONCAT($dd,".",$dm,".",$dy))
WAITMS(20)


Tochka

  • Освоившийся
  • **
  • Posts: 67
  • Ищу, читаю, учусь...
    • View Profile
Re: Нужен совет!)
« Reply #4 on: September 14, 2016, 05:47:16 PM »
Не понятно, а зачем это всё через лог?
Напрямую формируем строку и в буфер
Code: (clickermann) [Select]
$dd = $_date_d
$dm = $_date_m
$dy = $_date_y

IF(STRLEN($dd) < 2)
    $dd = STRCONCAT ("0", $dd)
END_IF
IF(STRLEN($dm) < 2)
    $dm = STRCONCAT ("0", $dm)
END_IF
IF(STRLEN($dy) < 2)
    $dy = STRCONCAT ("0", $dy)
END_IF

TOCLIP(STRCONCAT($dd,".",$dm,".",$dy))
WAITMS(20)

Спасибо, Vint, вы очарование  :)
Сюда влетаю иногда... Возник вопрос и завелась метла