FiveTech Support Forums

#INCLUDE "FIVEWIN.CH"

***************************************************************************************************
FUNCTION TESTE() 
***************************************************************************************************

    PRIVATE oDlgSUPORTE, oActiveX

    PRIVATE cTITULO     := "Suporte"
    PRIVATE cPARAMETROS := "#hl=br&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40"
    PRIVATE cURL        := "https://tawk.to/chat/590bc71f64f23d19a89b0d0d/default"
    
    DEFINE DIALOG SUPORTE FROM 0,0 TO 0293,0370 PIXEL

    @ 0000,0000 ACTIVEX oActiveX PROGID "Shell.Explorer" OF SUPORTE SIZE 0420,0120
    
   ACTIVATE DIALOG SUPORTE CENTERED ON INIT (oActiveX:Do("Navigate2",cURL+cParametros))

RETURN NIL

// SAMPLES\CTOAS24.PRG

#Include "FiveWin.Ch"

STATIC oActiveX

FUNCTION cToas_Site24()

   LOCAL cUrl, cParam, cUrlFin, oDlg, oBtn, oFnt, oFont

   cUrl   := ( "https://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp" )

   // cUrl   := ( "https://tawk.to/chat/590bc71f64f23d19a89b0d0d/default" )

   cParam := ( "#hl=br&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40" )

   // cUrlFin := ( cUrl + cParam ) // Verifique essa URL, nao esta correta.
                                   // Quando correta, troque cUrl por cUrlFin

   // ? cUrlFin

   DEFINE FONT oFnt    NAME "Ms Sans Serif" SIZE 00, - 12 BOLD
   DEFINE FONT oFont   NAME "Ms Sans Serif" SIZE 00, - 14 BOLD

   DEFINE DIALOG oDlg RESOURCE "ACTIVEX" COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon    := .F.
   oDlg:Cargo        := .F.
   oDlg:lTransparent := .T.

   REDEFINE ACTIVEX oAcTiveX ID 101 OF oDlg PROGID "Shell.Explorer"

   REDEFINE BUTTON oBtn ID 520 OF oDlg PROMPT "&Saida" ACTION( oDlg:End() ) CANCEL

   oBtn:cToolTip := "Saida - Exit - Cancelar"

   SET FONT OF oBtn TO oFont

   ACTIVATE DIALOG oDlg CENTERED                              ;
      ON INIT MsgWait( ( oActiveX:Silent := .T.,              ;
                         oAcTiveX:Do("NAVIGATE", cUrl ) ),    ;
                         "AGUARDE UM MOMENTO POR FAVOR...", 2.0 )

   oFnt:End()
   oFont:End()

RETURN NIL

// CTOAS24.RC

/*
ACTIVEX DIALOG 8, 66, 592, 278
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Activex."
FONT 8, "MS Sans Serif"
{
 CONTROL "", 101, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 10, 24, 572, 248
 PUSHBUTTON "Button", 520, 532, 6, 50, 14
}