2019-04-24 delphi 自动填入验证码

procedure TForm1.Button2Click(Sender: TObject);

begin

        if  strtoint(edit1.text)=5  then

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,4,1)),SW_HIDE);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit6.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit6.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit6.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit6.text,4,1)),SW_HIDE);

    end;

      if  strtoint(edit1.text)=4  then

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 4 --key call.input --value '+copy(edit5.text,4,1)),SW_HIDE);

    end;

      if  strtoint(edit1.text)=3  then

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 3 --key call.input --value '+copy(edit4.text,4,1)),SW_HIDE);

      end;


      if  strtoint(edit1.text)=2  then

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);

          WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 2 --key call.input --value '+copy(edit3.text,4,1)),SW_HIDE);

      end;

    if  strtoint(edit1.text)=2  then

    begin

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,1,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,2,1)),SW_HIDE);

        sleep(500);

      WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,3,1)),SW_HIDE);

        sleep(500);

        WinExec(PChar( 'cmd.exe ' + '/c '+'dnconsole.exe  action --index 1 --key call.input --value '+copy(edit2.text,4,1)),SW_HIDE);

    end;

end;

你可能感兴趣的:(2019-04-24 delphi 自动填入验证码)