1
Общие вопросы / Re: Вставка из текста рандом строки
« on: September 26, 2016, 10:24:39 AM »
Пробовал, у меня без привязки рандом строка не пишется в текстовое поле
Добавлена тема оформления "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.
LCLICK(194,616)
WAITMS(50)
HSET(HGET(194,616),1)
WAITMS(50)
KEYSTRING(TFREAD("1.txt", RND(1,TFCOUNT("1.txt"))))
WAITMS(50)
HSET(0,0)
WAIT(1)
////////////////////////////Скайп
HSET(HGET(170,356),1)
SCREENSHOTEX(170,659,356,703, "capcha")
HSET(0,0)
WAITMS(700)
#include("svernut.cms")
WAITMS(700)
#include("Skype.cms")
WAITMS(700)
//==============================================================================
SUB(close) //-------------------------------------------------------------------
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#W)
WAITMS (50)
KEYUP (#W)
KEYUP (#CTRL)
WAITMS(500)
END_SUB
SUB(open_find) //---------------------------------------------------------------
$zapros = STRREPLACE ($zapros, " ", "%20") // лечение пробелов
$param = STRCONCAT("yandex.ru/yandsearch?rpt=rad&text=", $zapros)
EXECUTE($brawser, $param)
WAITMS(10000)
END_SUB
SUB(zaprosi_ini) //-------------------------------------------------------------
// заполняем массив номерами строк
$count1 = 1
$count2 = TFCOUNT("1.txt")
WHILE($count1 < $count2+1)
ARRPUSH($ARR, $count1)
INC($count1, 1)
END_CYC
// перемешиваем
$ARR_SIZE = ARRSIZE($ARR)
FOR ($i, $i<$ARR_SIZE*2)
$n1 = RND(0,$ARR_SIZE-1)
$n2 = RND(0,$ARR_SIZE-1)
$R = $ARR[$n1]
$ARR[$n1] = $ARR[$n2]
$ARR[$n2] = $R
END_CYC
END_SUB
//==============================================================================
$brawser = "Firefox.exe"
$max_count = 50 // столько страниц ищем
zaprosi_ini()
FOR($iter=0, $iter < 10)
$zapros = TFREAD("2.txt", ARRPOP($ARR)) // читаем строку
WAITMS(100)
open_find() // ищем в Яндексе
WAIT(5)
GETSCREEN
IF_PIXEL_IN(3,101,15,108, 3667543)
ELSE
KEYPRESS(#PRINTSCREEN)
LCLICK(1013,14)
WAITMS(700)
#include "skype.cms"// скайп
END_IF
$find_count = 0
WHILE($find_count < $max_count)
INC($find_count)
FOR($i=0, $i < 5)
LCLICK(52,482)
GETSCREEN
IF_PICTURE_IN(46,159,174,737, "logo_shevrons.bmp")
$find_count = $max_count + 100
$i = 10
LCLICK($_return1 + RND(27,200), $_return2 + RND(3,10))
WAITMS(500)
#include "Shevrons_xp_firefox_sokr.cms"//Заходит на сайт и делает определённые действия
ELSE
WHEELDOWN(7)
WAITMS(700)
END_IF
END_CYC
IF($find_count < $max_count)
GETSCREEN
IF_PICTURE_IN(6,155,1003,734, "dalee.bmp")
LCLICK(RND($_return1,$_return1+50),RND($_return2,$_return2+10))
WAIT(7)
END_IF
END_IF
END_CYC
close() // закрываем вкладку
END_CYC
HALT