Site script help

[gilg]

hi

 

it is possible to repeated 100 times in 100 different const without rewriting the script 100 times.?

it is possible to stop the script if it finds the color red?

 

this is that I have done so far

1.scar

 

thx

[FHannes]

A better question is, why do you need 100 constants in the first place?

[gilg]

I have to write 100 or more different words in a box on a site, I thought to do with const.

Then I do not know how right

[shadowrecon]

Do a TStringArray

 

[scar]

program New;

var

WORDS: TStringArray;

 

begin

SetLength(WORDS, 100);

WORDS[0] := 'Hello';

WORDS[1] := 'There!';

//.....

//.... ect.

 

end.

[/scar]

[gilg]

I am unable to implement the new script in the old:o

 

begin

ClickMouseBox(465, 263, 1233, 292, true);
wait(2000 + Random(5000));
typekeys(const + Chr(13));
wait(500);
KeyDown(VK_CONTROL);
SendKeys('w');
KeyUp(VK_CONTROL);
wait(500 + random(100));
ClickMouseBox(465, 263, 1233, 292, true);
wait(500 + random(100));
KeyDown(VK_CONTROL);
SendKeys('a');
KeyUp(VK_CONTROL);

end.

[LordJashin]

I have to write 100 or more different words in a box on a site, I thought to do with const.

Then I do not know how right

 

Explain to us what you are trying to do in greater detail. What website, and why? Why do you have to make a script "to write 100 or more different words in a box on a site"? Can't you just copy and paste?

 

Give us more to go off of.

[gilg]

Explain to us what you are trying to do in greater detail. What website, and why? Why do you have to make a script "to write 100 or more different words in a box on a site"? Can't you just copy and paste?

 

Give us more to go off of.

 

every word is 1 point, copy and paste 100 words every day is too much.

then I thought of creating a script to copy and paste 100 words and stops when the site says stop in red

 

site= blurum.it

[LordJashin]

every word is 1 point, copy and paste 100 words every day is too much.

then I thought of creating a script to copy and paste 100 words and stops when the site says stop in red

 

site= blurum.it

Alright so...lets say one day you do the 100 words, does the next day you do it have to be 100 words different from the ones you did the day before?

 

I looked at the website. You search on different search engines to earn points, can you just use the same search engine, and search 100 different times with 100 different words?

 

Steps to recreate this:

 

1. Word bank

2. Color finding, ( red )

3. Mouse clicking, keyboard input

[gilg]

Alright so...lets say one day you do the 100 words, does the next day you do it have to be 100 words different from the ones you did the day before?

 

I looked at the website. You search on different search engines to earn points, can you just use the same search engine, and search 100 different times with 100 different words?

 

I retested the site, 1 word can be written only once for accout.

the various search engine just to choose your most favorite

 

I think it is very difficult and impracticable to create such a database.

 

other ideas?

[LordJashin]

I retested the site, 1 word can be written only once for accout.

the various search engine just to choose your most favorite

 

I think it is very difficult and impracticable to create such a database.

 

other ideas?

 

For all time...one word can only be used once? Can you combine words? Maybe try to find a website that has a random word generator, and a big word database behind it.

 

Can it be ANY search. Does it have to be words? You could just make a random string generator and plug it into the search.

[gilg]

For all time...one word can only be used once? Can you combine words? Maybe try to find a website that has a random word generator, and a big word database behind it.

 

Can it be ANY search. Does it have to be words? You could just make a random string generator and plug it into the search.

 

only once for all time, yes can combine words.

research must be makes sense.

good idea of automatically generated keywords, try tomorrow

[gilg]

ok i find generetor but I do not know how or which the script is correct to use. I tried with GetTextAtEx and IsTextInAreaEx but are too complicated for me

[LordJashin]

ok i find generetor but I do not know how or which the script is correct to use. I tried with GetTextAtEx and IsTextInAreaEx but are too complicated for me

 

Alright, what is the website for the generator, and then I'll whip you up a script for this. You can use file handling, rather than OCR ( getTextAt ).

[gilg]

thx

Anime Title Generator, http://www.lanceandeskimo.com/cgi-bin/anime2.cgi

or

generator words, http://watchout4snakes.com/creativitytools/RandomWord/RandomWordPlus.aspx

 

 

 

the first allows a more sense research, but I think it's "limited"

the second allows a search less sense, but with more choices

the choice is yours.

 

I try other generators they do well these?

[LordJashin]

Alright I got super bored, here it is -

 

How this Works:

 

1. Make sure Scar's firewall is off or allow the connection to the random word site when it pops up in Scar for always

2. Open up firefox, open up Blurum.it, the first tab is all the way on the left on Firefox. Find out what tab number blurum.it is

3. Change FirefoxTab = 3; change the 3 to whatever tab number blurum.it is on Your Firefox in the script.

4. Make sure every time you search with Blurum.it, it goes and opens a new tab.

5. Make sure when the script is using tab it goes into Blurum.it's search box.

6. Run script

 

if you need help contact me on skype we could do team viewer or something ~

 

[sCAR]

// v0.1

// You need to have the blurim.it page loaded already

// Also disable SCAR's firewall, or hit allow always on first run

// Whatever firefox tab it is in, put in the constant FirefoxTab

 

program KeelsBot;

 

var

i: Integer;

Generator: TStringArray;

 

const

 

// Change FirefoxTab to the tab number Blurum.it is on

 

FirefoxTab = 3;

 

Generators = 1;

 

 

procedure MoveBackToFireTab;

begin

KeyDown(VK_CONTROL);

wait(300);

 

case FirefoxTab of

0 : RaiseException(erCustomError, '1, 2, 3, 4, 5, no 0 for firefox tabs');

1 :

begin

KeyDown(49);

wait(250);

KeyUp(49);

end;

2 :

begin

KeyDown(50);

wait(250);

KeyUp(50);

end;

3 :

begin

KeyDown(51);

wait(250);

KeyUp(51);

end;

4 :

begin

KeyDown(52);

wait(250);

KeyUp(52);

end;

5 :

begin

KeyDown(53);

wait(250);

KeyUp(53);

end;

end;

 

wait(300);

KeyUp(VK_CONTROL);

end;

 

procedure SetupGenerators;

begin

if Generators <= 0 then

begin

WriteLn('You cannot setup the generators if the number of generators is set to 0');

Exit;

end;

SetLength(Generator, Generators);

 

// Put new generators here, and keep the Generators constant in accordance

 

Generator[0] := 'http://watchout4snakes.com/creativitytools/RandomWord/RandomWordPlus.aspx';

 

wait(1000);

end;

 

function GetARandomWord: String;

var

TSA: TStringArray;

begin

if Generators <= 0 then

begin

WriteLn('You cannot get a random word with generators set to 0');

Exit;

end;

SetLength(TSA, Generators);

for i := 0 to (Generators - 1) do

TSA := GetPage(Generator);

 

// Here use methods according to pages SOURCE to extract the changing word

 

TSA[0] := Copy(TSA[0], Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48, PosEx('</s', TSA[0], (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0])) + 48) - (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48));

 

 

if Generators = 1 then

Result := TSA[0];

if (Generators <> 1) and (Generators < 3) then

begin

for i := 0 to (Generators - 1) do

Result := Implode(' ', TSA);

end;

end;

 

procedure TargetFirefox;

begin

FindWindowTitlePart('firefox', false);

ActivateClient;

end;

 

procedure RandomWordIntoFirstTab;

begin

wait(500);

KeyDown(VK_TAB);

wait(300);

KeyUp(VK_TAB);

wait(1000);

SendKeys(GetARandomWord);

wait(2000);

KeyDown(VK_RETURN);

KeyUp(VK_RETURN);

wait(1000);

KeyDown(VK_CONTROL);

wait(300);

KeyDown(87);

wait(200);

KeyUp(87);

wait(300);

KeyUp(VK_CONTROL);

end;

 

begin

SetupGenerators;

TargetFirefox;

Repeat

RandomWordIntoFirstTab;

wait(400 + random(5000));

MoveBackToFireTab;

until (false);

end.

[/sCAR]

Edited June 8, 2012 by LordJashin

[gilg]

thanks a lot :)

doing a compile find error on line 95, invalid number of parameters.

 

TSA[0] := Copy(TSA[0], Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48, PosEx('', TSA[0])) + 48) - (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48)); 

[LordJashin]

What Scar-Divi version are you using? It works fine on mine. Maybe the quotes are throwing it off.

 

Replace that line of code with this new one.

 

[sCAR]

// Try this one maybe, make sure it is all on one line. Double Click on the compile error and tell me where it goes to exactly. I'm using Scar-Divi 3.34

TSA[0] := Copy(TSA[0], Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48, PosEx('</s', TSA[0], (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48) - (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48)));

[/sCAR]

[gilg]

not work, i use 3.34

 

TSA[0] := Copy(TSA[0], Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48, PosEx('', TSA[0]) HERE + 48) - (Pos('<span id="tmpl_main_lblWord" class="randomWord">', TSA[0]) + 48)));

</span></span>

[LordJashin]

not work, i use 3.34

 

My bad, cant have </s in the posts on here for some reason. So I attached it below.

 

This should work.

KeelsBot.scar

Edited June 9, 2012 by LordJashin

[gilg]

ok work but not working properly. close after 5sec tabs bluru and after closes the generator

[LordJashin]

Are you using Firefox? Did you follow the directions I gave earlier? It closes the new tab it opens so it can search again off bluru.

[gilg]

i follows this on firefox:

 

// You need to have the blurim.it page loaded already

// Also disable SCAR's firewall, or hit allow always on first run

// Whatever firefox tab it is in, put in the constant FirefoxTab

 

// Change FirefoxTab to the tab number Blurum.it is on

FirefoxTab = 1;

 

Generators = 2;

[LordJashin]

For some reason when SCAR switchs to the page, it tabs into the Complete button or w/e. So you have to click in the upper left corner of the web page, in the white space, and that made it work for me. So when SCAR pulls up the firefox quickly click in the left corner somewhere in the whitespace.

 

Use the script I attached, leave Generators alone, change firefox tab to w/e tab blurum.it is on.

 

Edit: This was designed for use with Firefox, but I think using APPA would be much easier.

[gilg]

5 sec after start = runtime error- line 102- type mismacht

HERE result := Implode(' ', TSA);

 

APPA??

[LordJashin]

5 sec after start = runtime error- line 102- type mismacht

 

Make sure you click in whitespace when the script switchs to firefox.

 

 

APPA??

 

APPA, try this script, make sure you have Generators set to 1.

KeelsBot.scar