2019-04-25 鼠标滑动

procedure TForm1.Button1Click(Sender: TObject);

var  i:integer;

begin

  //ld.exe -s 1 input swipe 700.0 700.0 5.0  700.0 鼠标滑动

  //这是另外一种雷电模拟器-设置-关于平板-点击几次版本号(最下面）开启开发者模式

//开发者模式里打开指针位置，然后左键按住屏幕任何位置上面就会显示坐标了

//  for i:= 1 to strtoint(edit10.text)  do

    for i:= 1 to 5 do

    begin

      WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0  700.0')),SW_HIDE);

      sleep(500);

      WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0  700.0')),SW_HIDE);

      sleep(500);

      WinExec(PAnsiChar(AnsiString( 'cmd.exe ' + '/c '+'ld.exe -s '+inttostr(i)+ ' input swipe 700.0 700.0 5.0  700.0')),SW_HIDE);

    end;

end;