1)
Pour Firefox
PGM
DCL VAR(&CMD) TYPE(*CHAR) LEN(200)
DCL VAR(&PATH) TYPE(*CHAR) LEN(160)
STRPCO PCTA(*NO)
MONMSG IWS4010
CHGVAR VAR(&PATH) VALUE('"firefox.exe" URL')
CHGVAR VAR(&CMD) +
VALUE('rundll32 shell32,ShellExec_RunDLL ' *BCAT &PATH)
STRPCCMD PCCMD(&CMD) PAUSE(*NO)
ENDPGM
2)
Pour Internet Explorer
PGM
DCL VAR(&CMD) TYPE(*CHAR) LEN(200)
DCL VAR(&PATH) TYPE(*CHAR) LEN(160)
STRPCO PCTA(*NO)
MONMSG IWS4010
CHGVAR VAR(&PATH) VALUE('"iexplore.exe" URL')
CHGVAR VAR(&CMD) +
VALUE('rundll32 shell32,ShellExec_RunDLL ' *BCAT &PATH)
STRPCCMD PCCMD(&CMD) PAUSE(*NO)
ENDPGM
URL =
Adresse complète du site web, http:// y compris
Modifié 3 fois. Dernière modification le 08/02/11 16:22 par admin.
