Talk.to chat in ActiveX

[ctoas]

Hello friends.

I'm trying to open a Talk.To chat page using ActiveX, but it has an error and I didn't find the solution.

Has anyone done this?

The error is this:
Error: tawk: Unable to get undefined or null reference 'prototype' property

Thanks

[Antonio Linares]

Christiano,

Please post here a self contained and small PRG to test it, thanks

[ctoas]

Hi Antonio, thanks for replying!

Follow the code.

Code: Select all  Expand view  RUN

#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
 

[karinha]

Code: Select all  Expand view  RUN

// 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
}

Regards, saludos.

[karinha]

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

[karinha]

cToas, tem alguma coisa neste servidor, que pode estar bloqueando a URL?

[ctoas]

Hello Karinha, thanks for replying!

Talk.to is a free chat support system that works on both PC and mobile. If you take the link and send a message, I get it online. (do the test)

[Otto]

Hello Christiano,
I saw that your website is just being created.
What do you use to create your new website.
Best regards,
Otto

[Otto]

In continuation of an email.

I ask you that because I'm currently working on converting a bootstrap template into a dynamic web site.
The data all come from DBF files.
I have just started with the mega menu. Maybe you could do your project with mod harbour, and we could work on it together.

https://www.modharbour.club/template_megamenu/megamenu.prg

Best regards,
Otto

[ctoas]

Hello Otto. I use WordPress and did not know ModHarbour.

Enviado de meu moto g(6) play usando o Tapatalk

[Otto]

Hello Christiano,

I used and still use WORDPRESS. too. But now I convert all to DBF databases and mod harbaur.
If you just start, it would be a great occasion to start with our loved HARBOUR.

Here is another page I made with mod harbour.

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


If you didn't invest too much time and effort in your WordPress web page and think to start with mod harbour,
I will help you set up your first test page with mod harbour, HTML/javascript and bootstrap.
If someone else is interested, please let me know.
Best regards,
Otto

[ctoas]

Otto, the development of the site is stopped, I will enjoy testing and learning ModHarbour. What would be the path of stones to start?

Enviado de meu moto g(6) play usando o Tapatalk

[Otto]

Hello Christiano,

May I ask what internet access you have?
I think using the full power from the point of a FIVEWIN user is best if you have your own web server.

One of our friends has published a link to download the complete APACHE server with all installed.
I did several tests, and all is working for mod harbour.

myself has made this installation routine: viewtopic.php?f=3&t=38018&p=227209&hilit=installation#p227209

But let me know how you access the web.

I have some mod harbour servers running over a SIM Card with a public IP. We pay ca. 30€ a month for ISP public IP and unlimited web traffic.

I search the link for the one-click installation and post it later.

If you have time, I can give you remote access to one of my LAB servers and show you how mod harbour works.

Best regards, Otto

[ctoas]

Hello Otto.

I use http://hostoo.io Cloud hosting

You must add some add-on to the server, right?

I'll see what you sent me.

[ctoas]

Hello guys

Regarding activex, would anyone have any ideas?

Thank you