FiveTech Software tech support forums

by **AIDA** » Tue Jan 18, 2022 4:41 am

AIDA wrote:
AIDA wrote:Ya encontré lo que atora al programa es esto que uso para sacar la IP

ippub:= PublicIP()

si quito el PublicIP() ya no se atora

por que pasara esto y como remediarlo?

sera culpa del windos 11

Code: Select all Expand view RUN
//************************************************************** Function PublicIP() Local cBuffer, cRequest, cResponse, nBytes, pSocket INetInit() pSocket := INetConnect( "checkip.dyndns.org", 80 ) IF INetErrorCode( pSocket ) <> 0 ? "Socket error:", INetErrorDesc( pSocket ) INetCleanUp() QUIT ENDIF nBytes := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF ) cBuffer := Space(512) cResponse:= "" WHILE ( nBytes > 0 ) nBytes := INetRecv( pSocket, @cBuffer ) cResponse += Left( cBuffer, nBytes ) cBuffer := Space(512) ENDDO INetClose( pSocket ) INetCleanUp() Return( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )

by **AIDA** » Tue Jan 18, 2022 5:00 am

el problema sera lo que comenta Rick Lipkin :?:

Una respuesta un poco remota... muchas aplicaciones en la nube, Att.net, Google.cm... consideran ciertas aplicaciones como "menos seguras" y tienes que generar una contraseña segura especial antes de que tu aplicación se conecte...

https://support.google.com/accounts/ans ... 0255?hl=es

by **AIDA** » Tue Jan 18, 2022 5:16 am

Hello Rick Lipkin

I did what you recommended and if you were right I generated a key with the name of my application and it finally works correctly

but this will have to be done by each user who acquires my program :shock:

https://support.google.com/accounts/answer/185833?hl=es-419

Rick Lipkin wrote:Aida

Kinda a long shot answer ... many cloud applications, Att.net, Google.cm .. consider certain apps as "less secure" and you have to generate a special secure password before your application will connect ..

https://support.google.com/accounts/ans ... 0255?hl=en

Just my 2 cents worth ..

Rick Lipkin

by **Antonio Linares** » Tue Jan 18, 2022 7:39 am

Aida,

Para obtener tu IP pública llama a esta URL:

https://www.fivetechsoft.com/getip.php

by **Antonio Linares** » Tue Jan 18, 2022 7:50 am

En este ejemplo de mod_harbour tienes el código que necesitas. Posiblemente hay formas aún más sencillas de hacerlo :-)

callphp.prg

Code: Select all Expand view RUN: #ifdef __PLATFORM__WINDOWS #include "c:\harbour\contrib\hbcurl\hbcurl.ch" #else #include "/usr/include/harbour/hbcurl.ch" #endif function Main() curl_global_init() ? "Hello world" ? callPHP( "www.fivetechsoft.com/getip.php" ) curl_global_cleanup() return nil function callPHP( cUrl ) local hCurl, uValue if ! empty( hCurl := curl_easy_init() ) curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl ) curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP ) if curl_easy_perform( hCurl ) == 0 uValue = curl_easy_dl_buff_get( hCurl ) endif endif return uValue

by **Antonio Linares** » Tue Jan 18, 2022 7:59 am

Aida,

Más simple:

Code: Select all Expand view RUN: function Main() MsgInfo( WebPageContents( "http://www.fivetechsoft.com/getip.php" ) ) return nil

by **AIDA** » Tue Jan 18, 2022 7:59 pm

Super

si funciona y el malvado :evil:

google ya no bloquea la aplicación :mrgreen:

Code: Select all Expand view RUN: ippub:= WebPageContents( "http://www.fivetechsoft.com/getip.php" )

Muchas gracias

seguimos en contacto y dando lata :mrgreen:

Saluditos

Antonio Linares wrote:Aida,

Más simple:
Code: Select all Expand view RUN
function Main() MsgInfo( WebPageContents( "http://www.fivetechsoft.com/getip.php" ) ) return nil

by **Antonio Linares** » Tue Jan 18, 2022 8:35 pm

Code: Select all Expand view RUN: function FW_PublicIP() return WebPageContents( "http://www.fivetechsoft.com/getip.php" )

by **cnavarro** » Tue Jan 18, 2022 11:57 pm

Code: Select all Expand view RUN: function GetWebIp local cReturn local xmlhttp xmlhttp := win_oleCreateObject( "MSXML2.ServerXMLHTTP" ) xmlhttp:Open( "GET", "http://dynupdate.no-ip.com/ip.php", .F. ) Try xmlhttp:Send() cReturn := xmlhttp:responseBody Catch cReturn := "0.0.0.0" End xmlhttp := nil return cReturn

FiveTech Software tech support forums

Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Re: Aviso que el servidor de SQL esta caído

Who is online