Announcement

**Mike Doty** · 9 Sep 2023, 12:24 PM

Get public address from any or all of 8-sites in an array.
This demo only uses site 1 that allows unlimited checks per minute https://api.ipify.org
Have no intention to quickly check for changes, but did try it and it works.

Code:

#PBFORMS CREATED V2.01
#COMPILE EXE  'Jose Roca includes 9/9/23  by Mike Doty
#DIM ALL
#INCLUDE  "\roca\MSXML.INC"

GLOBAL ghDlg,gEndFlag,gCounter AS DWORD

$DNSCheckerProgram = "C:\Program Files (x86)\No-IP\DUC40.exe"
%RecheckInMilliseconds = 60000
%BeepBeforeEveryCheck  = 1

#PBFORMS BEGIN INCLUDES
#PBFORMS END INCLUDES

#PBFORMS BEGIN CONSTANTS
#PBFORMS END CONSTANTS
#PBFORMS DECLARATIONS

FUNCTION PBMAIN()
  ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
'=====================================================================
CALLBACK FUNCTION ShowDIALOG1Proc()

  SELECT CASE AS LONG CB.MSG

    CASE %WM_INITDIALOG
      LOCAL hThread AS LONG
      ghDlg = CB.HNDL
      screensettings 0
      THREAD CREATE Checker(0) TO hThread
      THREAD CLOSE hThread TO hThread

    CASE %WM_COMMAND
      SELECT CASE AS LONG CB.CTL
      END SELECT

    CASE %WM_CLOSE
     screensettings  1 'save screen settings
     gEndFlag = 1
     LOCAL x AS LONG
     OPEN "CurrentIp.txt" FOR OUTPUT AS #x
     PRINT #x, GetIp("https://api.ipify.org")
     CLOSE #x
     postquitmessage 0 'use with Jose Roca includes

  END SELECT
END FUNCTION
'=====================================================================
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
  LOCAL lRslt AS LONG

#PBFORMS BEGIN DIALOG %IDD_DIALOG1->->
  LOCAL hDlg  AS DWORD

  DIALOG NEW hParent, "", 69, 73, 179, 83, %WS_POPUP OR %WS_THICKFRAME OR _
    %WS_CAPTION OR %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_CLIPSIBLINGS OR _
    %WS_VISIBLE OR %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR _
    %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_TOOLWINDOW OR %WS_EX_LEFT OR _
    %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
#PBFORMS END DIALOG
  'DIALOG SHOW STATE hDlg, %SW_MINIMIZE  'optional start minimized
  DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc TO lRslt
  FUNCTION = lRslt
END FUNCTION
'=====================================================================
FUNCTION GetRemoteData(wsUrl AS WSTRING) AS WSTRING
  DIM sMethod AS WSTRING
  DIM oXml AS IServerXMLHTTPRequest2
  SET oXml = NEWCOM "MsXml2.ServerXMLHTTP.6.0"
  sMethod = "GET"
  IF ISTRUE(ISOBJECT(oXml)) THEN
      oXml.Open(sMethod, wsURL, %FALSE)
      oXml.Send()
      DO WHILE oXml.ReadyState<>4
       SLEEP 0
       EXIT FUNCTION
      LOOP
      FUNCTION= oXml.ResponseText
  ELSE
      ? "Unable to get oXml version",%MB_SYSTEMMODAL,FUNCNAME$
  END IF
END FUNCTION
'=====================================================================
FUNCTION ScreenSettings(Read0_Write1 AS LONG) AS LONG
  'read  0 called from %WM_INITDIALOG
  'write 1 called from %WM_SYSCOMMAND

  LOCAL x,y,nWide,nHigh,ShowState,  h AS LONG, sFileName AS STRING
  sFileName = EXE.FULL$ + "." + LCASE$(ComputerName2) + ".txt"

  'READ SETTINGS PUT IN WM_INITDIALOG
  IF Read0_Write1 = 0 THEN                  'read from disk
    IF ISFILE(sFileName) THEN               'file found
      h = FREEFILE                          'get handle
      OPEN sFileName FOR INPUT SHARED AS #h 'open for input
      INPUT #h, x,y,nWide,nHigh             'read location/size
      CLOSE #h                              'close parameter file
      DIALOG SET LOC  ghDlg, x,y             'locate dialog                  'mike august 2019
      DIALOG SET SIZE ghDlg,nWide,nHigh      'size dialog                    'mike august 2019
    END IF
    EXIT FUNCTION
  END IF
  'SAVE SETTINGS

  'IF ISFALSE(IsIconic(ghDlg) OR IsZoomed(ghDlg)) THEN
    '-------   Save location, size and other parameters  --------
    DIALOG GET SIZE ghDlg TO nWide, nHigh      'get last size
    DIALOG GET LOC ghDlg TO x&, y&             'get last location
    h = FREEFILE                              'get file handle
    OPEN sFileName FOR OUTPUT AS #h           'open parameter file
    WRITE #h, x,y,nWide,nHigh                 'write location/size
    CLOSE #h                                  'close file

END FUNCTION
'=====================================================================
FUNCTION ComputerName2 AS STRING
  LOCAL zBuffer AS ASCIIZ * 16
  GetComputerNameA zBuffer,%MAX_COMPUTERNAME_LENGTH
  FUNCTION = zBuffer
END FUNCTION

SUB StartAbyss
 LOCAL pid AS DWORD
 LOCAL sServer AS STRING
 sServer = "C:\abyss\abyssws.exe"
 pid = SHELL(sServer,0)
END SUB

SUB UPDATEDDNS_THEN_KILLTASK
 LOCAL s AS STRING
 LOCAL pid AS DWORD
 pid = SHELL($DNSCheckerProgram)
 s = STR$(pid)
 SLEEP 5000
 pid = SHELL(ENVIRON$("COMSPEC") + " /C taskkill.exe /f /pid " + s,0)
END SUB

SUB Beeper(NumberOfTimes AS LONG)
 LOCAL x AS LONG
 FOR x = 1 TO NumberOfTimes:BEEP:SLEEP 1000:NEXT
END SUB

FUNCTION GetIP(sPage AS STRING) AS STRING
 LOCAL wsFind,wsResult AS WSTRING
 LOCAL pid AS DWORD, x AS LONG
 wsFind = sPage
 FUNCTION = GetRemoteData(wsFind)
END FUNCTION

THREAD FUNCTION Checker(BYVAL NotUsed AS LONG) AS LONG

 LOCAL x AS LONG,sIP,sIPOld AS STRING

 REDIM Site(1 TO 8) AS STRING
 Site(1) = "https://api.ipify.org"  '* allows unlimited per minute
 Site(2) = "https://icanhazip.com"
 Site(3) = "https://ip4only.me/api" 'comma delimited, ip in column 2
 Site(4) = "https://checkip.amazonaws.com"
 Site(5) = "https://ipecho.net/plain"
 Site(6) = "https://ipinfo.io/ip"
 Site(7) = "https://wtfismyip.com/text"
 Site(8) = "https://trackip.net/ip"

 x = FREEFILE 'ip from last run
 OPEN "CurrentIp.txt" FOR INPUT AS #x
 LINE INPUT #x, sIpOld
 CLOSE #x

 x = 0
 DO
  x = 1  'INCR x 'or INCR x to use different sites
  INCR gCounter
  IF x > UBOUND(Site) THEN x = LBOUND(Site) 'start over
  IF gEndFlag THEN EXIT DO

  sIp = GetIP(Site(x))   'get current ip from site$(x)
  sIp = REMOVE$(sIp,$LF) 'some have a trailing $LF
  IF x = 3 THEN sIp = PARSE$(sIp,2) 'https://ip4only.me/api"

  DIALOG SET TEXT ghDlg, USING$("(#) &",gCounter,sIp)
  IF %BeepBeforeEveryCheck THEN BEEP

  IF LEN(sIP) THEN
   IF sIP <> sIPOld THEN
    sIpOld = sIP
    UpdateDDNS_THEN_KILLTASK
   END IF
  ELSE  'major problem: (no connection or blocked)
   Beeper 10 '10-seconds of beeps
   'UpdateDDNS_THEN_KILLTASK  '?
  END IF
  SLEEP %RecheckInMilliseconds
 LOOP
 DIALOG SEND ghDlg, %WM_SYSCOMMAND, %SC_CLOSE, 0

END FUNCTION

Announcement

Set Public IP address helper

Set Public IP address helper

Comment