Results 1 to 10 of 10

Thread: random text? click color?

  1. #1
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default random text? click color?

    EDIT: I DONT NEED ANYTHING FOR THE TEXT NOW! FER0CITY HELPED ME WITH THAT! JUST NEED COLOURS HELP!


    hey so i am writing a script (almost done except for this) that gets swag-bucks on swagbucks.com which can be traded in for gift cards. ok heres my problem: who the hell searches "Dogs" over and over? so i want to write a list of possibile (say, 20) things to type. here is my typeSearch procedure so far:
    Code:
    procedure typeSearch;
     begin
      SendKeysVB('Dogs', True); //put what you want to put inside the 's
     end;
    would i put

    Code:
    procedure typeSearch;
     begin
      SendKeysVB(random(20), True); //put what you want to put inside the 's
     end;
    and then for each possibility (0, 1, 2, 3, 4, 5, 6, 7...) declare something to search?

    also, i need help on clicking a color :]

    i want it to find and click the color, so that when the screen comes up saying you get a swagbuck the coord. isn't in the wrong place.

    all helpers who actually helped will get the script free(it's a private release :P)
    Last edited by TomTuff; 07-07-2009 at 05:22 AM.

  2. #2
    Join Date
    Feb 2008
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    case random(1) of
      0:  SendKeysVB('dog', True);
      1:  SendKeysVB('cat', True);
      end;

  3. #3
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  4. #4
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    Feroc1ty:

    thanks a million, you for sure get script

    any help with the color finding?

    E: sorry shut, ferocity beat you to it, but i'll give it to you cuz ur cool
    Last edited by TomTuff; 07-07-2009 at 05:11 AM.

  5. #5
    Join Date
    Jul 2008
    Location
    England
    Posts
    763
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Heres a random text function i made:

    SCAR Code:
    function RandomText: String;
    var
      i: Integer;

    begin
      for i := 0 to Random(25) do
        if Random(2) = 1 then
          Result := Result+Chr(RandomRange(65, 91))
        else
          Result := Result+Chr(RandomRange(48, 58));
         
      Result := Lowercase(Result);
    end;

    Outputs letters and numbers.
    Last edited by Quickmarch; 07-07-2009 at 02:35 PM.
    lol

  6. #6
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  7. #7
    Join Date
    Jul 2009
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TomTuff View Post
    Feroc1ty:

    thanks a million, you for sure get script

    any help with the color finding?

    E: sorry shut, ferocity beat you to it, but i'll give it to you cuz ur cool
    ShuttleU's is way easier.

    SCAR Code:
    var
    words : tstringarray;

    procedure typess;
    begin
      setlength(words,4); // Or how ever many
      words := ['hi','dog','cat','zoo'];
      SendKeysVB(words[random(high(words))], True); // so you dont have to change this to 4.
    end;

  8. #8
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    Quote Originally Posted by tehrealzasz View Post
    ShuttleU's is way easier.

    Code:
    var
    words : tstringarray;

    procedure typess;
    begin
    setlength(words,4); // Or how ever many
    words := ['hi','dog','cat','zoo'];
    SendKeysVB(words[random(high(words))], True); // so you dont have to change this to 4.
    end;
    hmm but the otherway makes my script look so much cooler ^.^;

    jk, i didn't realize how easy it is. thanks :]

  9. #9
    Join Date
    Nov 2008
    Posts
    73
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    .
    Everytime I post on a Thread It Dies

    http://www.funnytreat.com/pictures/a...ictures_25.gif http://img27.imageshack.us/img27/4518/lolmi1.png



    Favorit Post:
    GoodPeople = PHAILED NOOB
    Thanks Smarterchild

  10. #10
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    Quote Originally Posted by Goodpeople View Post
    .
    spam much? geez, someone ban this guy

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •