yo realizo lo siguiente:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*Usa WININET.LIB
*recuerda usar ALPHAL(WORD)
01 WInternet_St pic s9(9) comp-5.
01 whttp pic x(21) value "http://www.google.com".
PROCEDURE DIVISION.
call "InternetCheckConnectionA" with stdcall linkage using
by reference whttp *>
by value 1
by value 0
returning WInternet_St *>
if WInternet_St equal to zero
INVOKE POW-SELF "Alarm" USING POW-MBEXCLAMATION
move "No existe conexion a internet" to "Caption" of LabMsg
end-if
exit program.