Results 1 to 8 of 8

Thread: SendTextMis (Eh.. To Much?)

  1. #1
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default SendTextMis (Eh.. To Much?)

    I knows theres alot of SendText's. Just made this for fun and to see what everone thinks.

    It will randomly make mistakes and randomly correct them based on how high or low the parametre, "MisRate" is. The higher it is, the less mistakes it will make. The lower, the more.

    MisRate can be a number between 1 and 5.

    The mistake is a key relevently close to the normal key it would have sent. Based on the Qwerty method.

    Code:
    function LetterCorrospond(c: string): string;
    var Qwert: string;
        i, pl: Integer;
    begin
     Qwert:= 'qwertyuiopasdfghjklzxcvbnm';
      if (c = Chr(13)) then
     begin
       result:= chr(13);
      exit;
     end;
      for i:= 1 to Length(Qwert) do
     begin
       if (copy(Qwert, i, 1) = c) then
      begin
       if (Random(2) = 1) then
         pl:= i + Random(5)
        else
         pl:= i - Random(5);
       if (pl < 1) or (pl > length(Qwert)-1) then
         pl:= i;
        result:= StrGet(Qwert, pl);
      end;
     end;
    end;
    
    procedure SendTextMis(s: string; MisRate: integer);
    var i, m, mrate: integer;
    begin
     if (MisRate > 5) or (MisRate < 1) then
       MRate:= 2
      else
       MRate:= MisRate;
      for i:= 1 to length(s) do
     begin
        if (Random(MRate*2) = Random(MRate*2)) and (m < (Length(s)/2)) then
       begin
         SendKeys(LetterCorrospond(copy(s, i, 1)));
        m:= m + 1;
         if (Random(MRate*2+(MRate/2)) = Random(MRate*2+(MRate/2)))then
        begin
          Wait(350 + random(130));
          SendKeys(chr(8));
          Wait(70 + random(70));
          SendKeys(copy(s, i, 1));
        end;
       end else
         SendKeys(copy(s, i, 1));
      Wait(70 + random(60));
     end;
    end;
    This dosn't have to go in SRL if there is to many already Depends on opinions.
    A test script you can try:
    Code:
    begin
     repeat
      SendTextMis('hello' + chr(13), 3);
     until(isfunctionkeydown(1));
    end.
    Just press "control" to end it.

  2. #2
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    function LetterCorrospond(c: string): string;
    var
      Qwert: string;
      i, pl: Integer;
    begin
      Qwert:= 'qwertyuiopasdfghjklzxcvbnm';
      if (c = Chr(13)) then
        begin
          result:= chr(13);
          exit;
        end;
      for i:= 1 to Length(Qwert) do
      begin
        if (copy(Qwert, i, 1) = c) then
          begin
            if (Random(2) = 1) then
              pl:= i + Random(5)
            else
              pl:= i - Random(5);
            if (pl < 1) or (pl > length(Qwert)-1) then
              pl:= i;
            result:= StrGet(Qwert, pl);
          end;
      end;
    end;
    
    procedure SendTextMis(s: string; MisRate: integer);
    var
      i, m, mrate: integer;
    begin
      if (MisRate > 5) or (MisRate < 1) then
        MRate:= 2
      else
        MRate:= MisRate;
      for i:= 1 to length(s) do
        begin
          if (Random(MRate*2) = Random(MRate*2)) and (m < (Length(s)/2)) then
            begin
              SendKeys(LetterCorrospond(copy(s, i, 1)));
              m:= m + 1;
              if (Random(MRate*2+(MRate/2)) = Random(MRate*2+(MRate/2)))then
                begin
                  Wait(350 + random(130));
                  SendKeys(chr(8));
                  Wait(70 + random(70));
                  SendKeys(copy(s, i, 1));
                end;
            end else
              SendKeys(copy(s, i, 1));
            Wait(70 + random(60));
        end;
    end;
    -.- Unless it was messed up when you put it in code tags.. it was.. jsut.. bah
    Free File Hosting
    No download timers!

    Rifkwtf.com

  3. #3
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Pwnd
    Code:
    function LetterCorrospond(c: string): string;
    var
      Qwert: string;
      i, pl: Integer;
    begin
      Qwert:= 'qwertyuiopasdfghjklzxcvbnm';
      if (c = Chr(13)) then
        begin
          result:= chr(13);
          exit;
        end;
      for i:= 1 to Length(Qwert) do
      begin
        if (copy(Qwert, i, 1) = c) then
          begin
            if (Random(2) = 1) then
              pl:= i + Random(5)
            else
              pl:= i - Random(5);
            if (pl < 1) or (pl > length(Qwert)-1) then
              pl:= i;
            result:= StrGet(Qwert, pl);
          end;
      end;
    end;
    
    procedure SendTextMis(s: string; MisRate: integer);
    var
      i, m, mrate: integer;
    begin
      if (MisRate > 5) or (MisRate < 1) then
        MRate:= 2
      else
        MRate:= MisRate;
      for i:= 1 to length(s) do
        begin
          if (Random(MRate*2) = Random(MRate*2)) and (m < (Length(s)/2)) then
            begin
              SendKeys(LetterCorrospond(copy(s, i, 1)));
              m:= m + 1;
              if (Random(MRate*2+(MRate/2)) = Random(MRate*2+(MRate/2)))then
                begin
                  Wait(350 + random(130));
                  SendKeys(chr(8));
                  Wait(70 + random(70));
                  SendKeys(copy(s, i, 1));
                end;
            end else
              SendKeys(copy(s, i, 1));
            Wait(70 + random(60));
        end;
    end;
    -.- Unless it was messed up when you put it in code tags.. it was.. jsut.. bah
    Get over my standards already. Stop fixing my scripts. x.x;;

  4. #4
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's why I live
    *Fixes code in mopars deobber*
    Free File Hosting
    No download timers!

    Rifkwtf.com

  5. #5
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Too sloppy for my liking.

    Code:
    Testing this awusomness og a scrspt, 5miswate
    Trsting this awespmnessof a script, 5 misrate
    Testing this awessmness of a script, 5 miswate
    Testing thih awesomness of a script, 5 misrate
    Testing this awesomness of a script,  misrate
    Testing this awesomness of a script, 5 misrate
    Testing this awesimness sf a script, 5 mrsraee
    Testinh tlis fwesomness of a sxripr, 5 misrate
    Testuns this awesomness of ascript, 5 miirate
    Testing thus owesomness of a gcript, 5misrate
    Testing tjis awesomness of a script, 5 misrate
    Testixg thss awesomness of a script5 misrate
    Testing this awesumvess of a script, 5 misrate
    Testing this awesomnessof s scripq, 5 misrate
    Testinh this awesomness of a script, 5misrate
    
    Teswing qhig awesomness of  scroiy,  misuate
    ratin thisawesonnegs o  szript,1misrate
    rstin thi awesomness ofa scrast,1misraow
    estong thifarusumness o a dcrip,misrate
    estingthis aresomnesd o a snript mrstate
    Testib thas awrsomnys oda dcrop,1misrate
    estin tjis uwesovxrss o a scrput misrate
    Teitixgqfih awesomnes of  acrist1 misrate
    esting tzi awesomnts of a scrip,  misrdqe
    Tesring thisowesomneh of script 1 misrate
    Tesring this pwesonntss yf a gcrppt, 1 misrdte
    Tesringthig awesimness of  scytpt,  misrate
    Testin thrspweoomnesspf a scysu  misrate
    Testingwhi awesomnessyf acropt  misrate
    estin thosawqsomnes ts a sz

  6. #6
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The Un-Named
    Too sloppy for my liking.

    Code:
    Testing this awusomness og a scrspt, 5miswate
    Trsting this awespmnessof a script, 5 misrate
    Testing this awessmness of a script, 5 miswate
    Testing thih awesomness of a script, 5 misrate
    Testing this awesomness of a script,  misrate
    Testing this awesomness of a script, 5 misrate
    Testing this awesimness sf a script, 5 mrsraee
    Testinh tlis fwesomness of a sxripr, 5 misrate
    Testuns this awesomness of ascript, 5 miirate
    Testing thus owesomness of a gcript, 5misrate
    Testing tjis awesomness of a script, 5 misrate
    Testixg thss awesomness of a script5 misrate
    Testing this awesumvess of a script, 5 misrate
    Testing this awesomnessof s scripq, 5 misrate
    Testinh this awesomness of a script, 5misrate
    
    Teswing qhig awesomness of  scroiy,  misuate
    ratin thisawesonnegs o  szript,1misrate
    rstin thi awesomness ofa scrast,1misraow
    estong thifarusumness o a dcrip,misrate
    estingthis aresomnesd o a snript mrstate
    Testib thas awrsomnys oda dcrop,1misrate
    estin tjis uwesovxrss o a scrput misrate
    Teitixgqfih awesomnes of  acrist1 misrate
    esting tzi awesomnts of a scrip,  misrdqe
    Tesring thisowesomneh of script 1 misrate
    Tesring this pwesonntss yf a gcrppt, 1 misrdte
    Tesringthig awesimness of  scytpt,  misrate
    Testin thrspweoomnesspf a scysu  misrate
    Testingwhi awesomnessyf acropt  misrate
    estin thosawqsomnes ts a sz
    A good mistake rate is around 3 - 5. Below is probably to much.

    On 5 it has a chance of getting it right about 2/3. Which is a good amount.

  7. #7
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still could do with a 6-7. I know I'm a sloppy writer but not that sloppy. Still 10/10 on the scripting though.

  8. #8
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What about for the people who have no mis-rate

    Wait, that's why you made me SendText <3 ;P
    Free File Hosting
    No download timers!

    Rifkwtf.com

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
  •