Talk.to chat in ActiveX

User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: Talk.to chat in ActiveX

Post by Otto »

Hello Christiano,
I don't think you can add mod Harbour on to any hosted service.

The only server offering hosted services is xBhosts.com

https://www.modharbour.club/mh_videogallery/index.prg

But don't you have the possibility to host a web server on your PC. It is an onclick installation.

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org

********************************************************************
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Talk.to chat in ActiveX

Post by karinha »

Code: Select all

#Include "FiveWin.Ch"

Static oWnd

Function Main()

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

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

   // Nao entendi o que faz isso, pelo menos, abre o Navegador(IE).
   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 )

   //-> Invisibilizo a Janela
   DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5

   ACTIVATE WINDOW oWnd                                                      ;
      ON INIT( ( MeuWinExec( "Start Iexplore.Exe " + cUrlFin, 0 ) ), oWnd:End() )

Return Nil

FUNCTION MeuWinExec( cParametro )

    LOCAL cExecute := GetPvProfString( "" )

    // NT, 2000 e XP
    IF  IsWinNT() .OR. IsWin2000()
        cExecute := GetEnv( "COMSPEC" ) + " /C "
    ENDIF

RETURN WinExec( cExecute + cParametro, 0 )

//-> Fim do programa
 
João Santos - São Paulo - Brasil
User avatar
ctoas
Posts: 103
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil
Contact:

Re: Talk.to chat in ActiveX

Post by ctoas »

Hello João.

This way I already do it and in a much simpler way.

Code: Select all

SHELLEXECUTE(GETACTIVEWINDOW(),"open","https://tawk.to/chat/590bc71f64f23d19a89b0d0d/default")
 
I would like to open it within a system dialog, it would be more professional. I've looked at a lot of ActiveX but for some detail it doesn't open.

Thank you.
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: Talk.to chat in ActiveX

Post by Otto »

Hello Christiano,
Thank you for showing us tawk.to.
I signed in and added the script to my test web page
https://www.modharbour.club/winhotelqr/index.prg
Do I understand you well that you want a customer to open a chat from your Fivewin program?
Can you please post a screenshot of how you imagine your input screen?
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org

********************************************************************
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: Talk.to chat in ActiveX

Post by Otto »

Christiano, where do you get the link from: https://tawk.to/chat/590bc71f64f23d19a89b0d0d/default? Would this also be the link you insert into an email.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org

********************************************************************
Post Reply