Code: Select all

   IF .NOT. IsInternet()

      aGrad := { { 0.30, CLR_BLACK, CLR_BLACK },{ 0.50, CLR_BLACK, CLR_BLACK } }

      DEFINE CURSOR oHand RESOURCE "Dedo"
      DEFINE ICON oIco  NAME "ICONE05"
      DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 0,  16 BOLD
      DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -16 BOLD

      DEFINE DIALOG oDlg  RESOURCE "DLG_SEM_INTERNET" ICON oIco GRADIENT aGrad

      oDlg:lHelpIcon := .F.

      For IDCor = 401 To 405 // Os ID's dos TEXTOS na DIALOG.
         REDEFINE SAY ID IDCor OF oDlg COLORS CLR_WHITE, CLR_WHITE UPDATE FONT oFont TRANSPARENT
      Next IDCor

      REDEFINE BITMAP oBtnImg ID 120 RESOURCE "EXPLORER32" OF oDlg TRANSPARENT

      REDEFINE BUTTONBMP oSaida ID 301 OF oDlg RESOURCE "154" TEXTRIGHT    ;
         ACTION( oDlg:End() ) CANCEL

      oSaida:cTooltip := { "Saida - Exit - Cancelar", ;
                           "Saida - Exit - Cancelar", 1, CLR_WHITE, CLR_HBLUE }

      oSaida:oCursor := oHand

      SET FONT OF oSaida TO oFont

      ACTIVATE DIALOG oDlg CENTERED

      oFnt:End()
      oFont:End()

   ELSE

      SendEmailLog( cErrorLog )  // ENVIA O LOG DE ERRO DA NFE TODOS OS .LOG

   ENDIF



FUNCTION IsInternet()

   LOCAL cIp, cVret := .F.

   WsaStartUp()

   cIp := GETHOSTBYNAME( "microsoft.com" )
   cIp := GETHOSTBYNAME( "microsoft.com" )

   WsaCleanUp()

   // Seguranca caso o provedor da microsoft esteja fora do ar...
   IF ( cIp <= "0.0.0.0" )

      WsaStartUp()

      cIp := GetHostByName( "google.com" )
      cIp := GetHostByName( "google.com" )

      WsaCleanUp()

   ENDIF

RETURN( cIp<>"0.0.0.0" )

/* // DIALOG - use google translator.
DLG_SEM_INTERNET DIALOG 201, 97, 210, 90
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE
FONT 10, "MS Sans Serif"

{
 PUSHBUTTON "&Saida", 301, 80, 71, 50, 14
 CTEXT "PLENOWIN: Modem Desconectado.", 401, 5, 4, 200, 12, SS_CENTER | NOT WS_GROUP
 LTEXT "___________________________________________________________________", 402, -1, 16, 211, 10, NOT WS_GROUP
 CTEXT "Verifique Sua Conexão de Internet", 403, 5, 33, 200, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "e Tente Novamente.", 404, 5, 45, 200, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "( Error Code: 277 )", 405, 5, 57, 200, 12, SS_CENTER | NOT WS_GROUP
 CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 5, 70, 25, 20
}
*/