abap 程序调用程序 IE FUNTION

*****运行就会打开'http://www.google.com'

CALL FUNCTION 'WS_EXECUTE'
    EXPORTING
      PROGRAM        = 'C:\Program Files\Internet Explorer\IEXPLORE.EXE'
      COMMANDLINE    = 'http://www.google.com'
      INFORM         = ''
    EXCEPTIONS
      PROG_NOT_FOUND = 1.

*****读入 URL = ‘ http’ 数据，在alv上显示

CONSTANTS: CNTL_TRUE  TYPE I VALUE 1,
     CNTL_FALSE TYPE I VALUE 0.

TYPES: BEGIN OF TY_TAB,
       COL1 TYPE I,
       CLO2 TYPE I,
      END OF TY_TAB.

DATA: GT_TAB TYPE STANDARD TABLE OF TY_TAB WITH HEADER LINE.

DATA:
   H_PICTURE       TYPE REF TO CL_GUI_PICTURE,
   H_PIC_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA: OK_CODE TYPE SY-UCOMM.
DATA: GRAPHIC_URL(255),
      GRAPHIC_REFRESH(1),
      G_RESULT                     LIKE CNTL_TRUE.

START-OF-SELECTION.

  CALL SCREEN 100.

*  CALL FUNCTION 'WS_EXECUTE'
*    EXPORTING
*      PROGRAM        = 'C:\Program Files\Internet Explorer\IEXPLORE.EXE'
*      COMMANDLINE    = 'http://www.google.com'
*      INFORM         = ''
*    EXCEPTIONS
*      PROG_NOT_FOUND = 1.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'T01'.
*  SET TITLEBAR 'xxx'.
  CREATE OBJECT H_PIC_CONTAINER
    EXPORTING
      CONTAINER_NAME = 'TC_P'.                      "这个是自己定义的控件名称
  CREATE OBJECT H_PICTURE
    EXPORTING
      PARENT = H_PIC_CONTAINER.
  CALL METHOD H_PICTURE->LOAD_PICTURE_FROM_URL
    EXPORTING
      URL    = 'http://space.itpub.net/xthemes/bw7/images/header.jpg'
    IMPORTING
      RESULT = G_RESULT.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  CASE OK_CODE.
    WHEN 'BACK'.
      CLEAR OK_CODE.
      LEAVE TO SCREEN 0.
    WHEN 'EXLT'.
      LEAVE PROGRAM.
  endcase.
  ENDMODULE.                 " USER_COMMAND_0100  INPUT