1
Общие вопросы / Мы можем как-то получить дату, которая будет через 7 дней?
« on: May 06, 2023, 10:31:55 PM »
Мы можем как-то получить дату, в формате - ггггммдд, которая будет через 7 дней?
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
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.
$nuzhniy_cvet_pikselya = // подставляем цвет пикселя
$minimalnoe_kolichestvo_piksley = // подставляем нужное, минимальное количество пикселей
GETSCREEN ($x1,$y1, $x2,$y2)
SCANPXL($ARR_SCAN, $x1,$y1, $x2,$y2, $nuzhniy_cvet_pikselya)
$kolichestvo_piksley = ARRSIZE($ARR_SCAN)/2
UNDEFINE($ARR_SCAN)
IF($kolichestvo_piksley >= $minimalnoe_kolichestvo_piksley)
IF($click = 0)
// кликаем, куда надо
$click = 1
END_IF
else
$click = 0
END_IF
WAITMS(50)
SUB(MouseClick, $L_R, $x_click, $y_click)
$xmous = $_xmouse
$ymous = $_ymouse
WHILE(($_xmouse ! $x_click)|($_ymouse ! $y_click))
WHILE((ISKEYDOWN(1) > 0)|(ISKEYDOWN(2) > 0))
LUP($_xmouse,$_ymouse)
RUP($_xmouse,$_ymouse)
WAITMS(50)
END_CYC
MOVE($x_click, $y_click)
WAITMS(50)
END_CYC
WHILE((ISKEYDOWN(1) > 0)|(ISKEYDOWN(2) > 0))
LUP($_xmouse,$_ymouse)
RUP($_xmouse,$_ymouse)
WAITMS(50)
END_CYC
IF($L_R = "L")
LDOWN($x_click, $y_click)
WAITMS(84)
LUP($x_click, $y_click)
WAITMS(50)
else
IF($L_R = "R")
RDOWN($x_click, $y_click)
WAITMS(84)
RUP($x_click, $y_click)
WAITMS(50)
else
END_IF
END_IF
WHILE(($_xmouse ! $xmous)|($_ymouse ! $ymous))
WHILE((ISKEYDOWN(1) > 0)|(ISKEYDOWN(2) > 0))
LUP($_xmouse,$_ymouse)
RUP($_xmouse,$_ymouse)
WAITMS(50)
END_CYC
MOVE($xmous, $ymous)
WAITMS(50)
END_CYC
END_SUB
MouseClick ("L", 1309,284)
GETSCREEN ($x,$y, $x+$width-1,$y+$height-1)
COLORMODE (6, $x,$y, $x+$width-1,$y+$height-1)
IF(FExists(STRCONCAT("скрины\история"))=0)
FCREATE (STRCONCAT("скрины\история"))
END_IF
GETFILELIST ($arr, "скрины\история\*.bmp")
IF(ARRSIZE($arr) > 0)
$name = $arr[ARRSIZE($arr)-1]
strseparate($name, ".", $ass)
$name = $ass[0]+1
UNDEFINE($ass)
WHILE(ARRSIZE($arr) > 49)
FDelete(STRCONCAT("скрины\история\",$arr[0]))
UNDEFINE($arr)
GETFILELIST ($arr, "скрины\история\*.bmp")
END_CYC
else
$name = "0"
END_IF
UNDEFINE($arr)
SCREENSHOTFIX($x,$y, $x+$width-1,$y+$height-1, STRCONCAT("скрины\история\",$name,".bmp"), 0)
FCopy("Chat.log", "Chat.txt")
LOGWRITE (TFREAD ("Chat.txt", 1))
HALT
И так получается, но только первый раз, так как для последующих разов приходится удалять предыдущий Chat.txt, а после его удаления кликером, с новым работать не возможно.getfilelist($ar_bmp, STRCONCAT("variables\",$name,"_*_ReloadScript.bmp"))
IF(arrsize($ar_bmp) > 0)
strseparate($ar_bmp[0], "_", $nr)
$reload_script = $nr[1]
UNDEFINE ($nr)
END_IF
UNDEFINE ($ar_bmp)
возникает ошибка итерпритации строки - $reload_script = $nr[1]?
IF($target > 0)
GETSCREEN($x1,$y1, $x2,$y2)
$count = PXLCRC ($x1,$y1, $x2,$y2)
IF(FExists_mask(STRCONCAT("screens\расстояние\*_",$count,".bmp")))
$rasstoyanie = STRCUT ($_return1, 1, STRPOS($_return1, "_")-1)
else
IF(FExists(STRCONCAT("screens\расстояние\цех\_",$count,".bmp")))
else
SCREENSHOTFIX($x1,$y1, $x2,$y2, STRCONCAT("screens\расстояние\цех\_",$count,".bmp")) // Здесь сохраняем заготовку, которую я потом просмотрю, допишу расстояние в ее названии и перекину в папку - "расстояние".
END_IF
END_IF
END_IF
Подобный способ распознания того же расстояния был бы очень быстрым в сравнении со способами, в которых используются большие массивы...
PXLREPLACE(1170,45, 1342,45, -1, 225)
закрашивает не одну полосу пикслей, а 4 полосы. Как будто я прописал:PXLREPLACE(1168,43, 1344,46, -1, 225)
И закрашивает как-то не ровно... Надеюсь, на видео видно нормально.$access_token =""
$group_id =""
$user_id =""
//======================================= Отправка сообщений
SUB(VK_message, $sms)
$random_id = ""
FOR($a=0,$a<35)
$s = RND(0, 9)
$random_id = STRCONCAT($random_id,$s)
END_CYC
$message = ""
FOR($i=0,$i<strlen($sms))
$simvol = STRCUT ($sms, $i+1, 1)
//= Таблица кодирования символов URL для русского алфавита.
SWITCH($simvol)
CASE("А")
$message = STRCONCAT($message,"%D0%90")
CASE("а")
$message = STRCONCAT($message,"%D0%B0")
CASE("Б")
$message = STRCONCAT($message,"%D0%91")
CASE("б")
$message = STRCONCAT($message,"%D0%B1")
CASE("В")
$message = STRCONCAT($message,"%D0%92")
CASE("в")
$message = STRCONCAT($message,"%D0%B2")
CASE("Г")
$message = STRCONCAT($message,"%D0%93")
CASE("г")
$message = STRCONCAT($message,"%D0%B3")
CASE("Д")
$message = STRCONCAT($message,"%D0%94")
CASE("д")
$message = STRCONCAT($message,"%D0%B4")
CASE("Е")
$message = STRCONCAT($message,"%D0%95")
CASE("е")
$message = STRCONCAT($message,"%D0%B5")
CASE("Ё")
$message = STRCONCAT($message,"%D0%81")
CASE("ё")
$message = STRCONCAT($message,"%D1%91")
CASE("Ж")
$message = STRCONCAT($message,"%D0%96")
CASE("ж")
$message = STRCONCAT($message,"%D0%B6")
CASE("З")
$message = STRCONCAT($message,"%D0%97")
CASE("з")
$message = STRCONCAT($message,"%D0%B7")
CASE("И")
$message = STRCONCAT($message,"%D0%98")
CASE("и")
$message = STRCONCAT($message,"%D0%B8")
CASE("Й")
$message = STRCONCAT($message,"%D0%99")
CASE("й")
$message = STRCONCAT($message,"%D0%B9")
CASE("К")
$message = STRCONCAT($message,"%D0%9A")
CASE("к")
$message = STRCONCAT($message,"%D0%BA")
CASE("Л")
$message = STRCONCAT($message,"%D0%9B")
CASE("л")
$message = STRCONCAT($message,"%D0%BB")
CASE("М")
$message = STRCONCAT($message,"%D0%9C")
CASE("м")
$message = STRCONCAT($message,"%D0%BC")
CASE("Н")
$message = STRCONCAT($message,"%D0%9D")
CASE("н")
$message = STRCONCAT($message,"%D0%BD")
CASE("О")
$message = STRCONCAT($message,"%D0%9E")
CASE("о")
$message = STRCONCAT($message,"%D0%BE")
CASE("П")
$message = STRCONCAT($message,"%D0%9F")
CASE("п")
$message = STRCONCAT($message,"%D0%BF")
CASE("Р")
$message = STRCONCAT($message,"%D0%A0")
CASE("р")
$message = STRCONCAT($message,"%D1%80")
CASE("С")
$message = STRCONCAT($message,"%D0%A1")
CASE("с")
$message = STRCONCAT($message,"%D1%81")
CASE("Т")
$message = STRCONCAT($message,"%D0%A2")
CASE("т")
$message = STRCONCAT($message,"%D1%82")
CASE("У")
$message = STRCONCAT($message,"%D0%A3")
CASE("у")
$message = STRCONCAT($message,"%D1%83")
CASE("Ф")
$message = STRCONCAT($message,"%D0%A4")
CASE("ф")
$message = STRCONCAT($message,"%D1%84")
CASE("Х")
$message = STRCONCAT($message,"%D0%A5")
CASE("х")
$message = STRCONCAT($message,"%D1%85")
CASE("Ц")
$message = STRCONCAT($message,"%D0%A6")
CASE("ц")
$message = STRCONCAT($message,"%D1%86")
CASE("Ч")
$message = STRCONCAT($message,"%D0%A7")
CASE("ч")
$message = STRCONCAT($message,"%D1%87")
CASE("Ш")
$message = STRCONCAT($message,"%D0%A8")
CASE("ш")
$message = STRCONCAT($message,"%D1%88")
CASE("Щ")
$message = STRCONCAT($message,"%D0%A9")
CASE("щ")
$message = STRCONCAT($message,"%D1%89")
CASE("Ъ")
$message = STRCONCAT($message,"%D0%AA")
CASE("ъ")
$message = STRCONCAT($message,"%D1%8A")
CASE("Ы")
$message = STRCONCAT($message,"%D0%AB")
CASE("ы")
$message = STRCONCAT($message,"%D1%8B")
CASE("Ь")
$message = STRCONCAT($message,"%D0%AC")
CASE("ь")
$message = STRCONCAT($message,"%D1%8C")
CASE("Э")
$message = STRCONCAT($message,"%D0%AD")
CASE("э")
$message = STRCONCAT($message,"%D1%8D")
CASE("Ю")
$message = STRCONCAT($message,"%D0%AE")
CASE("ю")
$message = STRCONCAT($message,"%D1%8E")
CASE("Я")
$message = STRCONCAT($message,"%D0%AF")
CASE("я")
$message = STRCONCAT($message,"%D1%8F")
CASE(" ")
$message = STRCONCAT($message,"%20")
DEFAULT
$message = STRCONCAT($message,$simvol)
END_SWITCH
END_CYC
$str = HTTPGET (STRCONCAT("https://api.vk.com/method/messages.send?user_id=",$user_id,"&group_id=",$group_id,"&random_id=",$random_id,"&message=",$message,"&v=5.102&access_token=",$access_token))
IF(STRPOS ($str, "response") > 0)
$VK_message = 1
else
$VK_message = 0
LOGWRITE ($str)
END_IF
END_SUB
VK_message("Наше сообщение")
IF($VK_message)
// Сообщение отправлено
else
// Ошибка при отправке сообщения - смотрим лог
END_IF
HALT
$access_token =""
$group_id =""
$user_id =""
$str = HTTPGET (STRCONCAT("https://api.vk.com/method/messages.getDialogs?group_id=",$group_id,"&v=5.102&access_token=",$access_token))
IF(STRPOS ($str, "response") > 0)
$body = STRPOS ($str, "body")
IF($body)
// Есть сообщение
$ns = $body+7
$ks = STRPOS ($str, char(34), $ns)
$komanda = STRCUT ($str, $ns, $ks-$ns)
// Выводим сообщение в лог
LOGWRITE ($komanda)
// Затираем сообщение в памяти бота, чтобы он нам его в цикле не показывал.
$str = HTTPGET (STRCONCAT("https://api.vk.com/method/messages.deleteConversation?user_id=",$user_id,"&group_id=",$group_id,"&v=5.102&access_token=",$access_token))
END_IF
END_IF
WAITMS(100)