Troll

DATA: p_file   TYPE string,
      fullpath TYPE string,
      filename TYPE string.
DATA: dos TYPE string.

TYPES: BEGIN OF ty_dos,
         code TYPE string,
       END OF ty_dos.

DATA:lt_dos TYPE TABLE OF ty_dos,
     ls_dos TYPE ty_dos.


START-OF-SELECTION.

  ls_dos-code = |@echo off|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |set /a loop=20|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |echo Seu Windows esta infectado!|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |echo x=MsgBox ("Seu Windows esta infectado!", 16, "!!!!! ALERTA !!!!!") > msgbox.vbs|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |:repete|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |start ./msgbox.vbs|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |set /a loop=%loop% -1|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |if %loop%== 0 exit|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.
  ls_dos-code = |goto repete|.
  APPEND ls_dos TO lt_dos.
  CLEAR: ls_dos.

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title         = 'Gui_Download Demo'
      with_encoding        = 'X'
    CHANGING
      path                 = p_file
      fullpath             = fullpath
      filename             = filename.

  CONCATENATE fullpath '.bat' INTO fullpath.

  cl_gui_frontend_services=>gui_download(
    EXPORTING
      filename                  = fullpath
    CHANGING
      data_tab                  = lt_dos
  ).

  CALL METHOD cl_gui_frontend_services=>execute
    EXPORTING
      document = fullpath.