GetHostNames /scanner with PBFORMS

[Mike Doty]

Updated 1/1/09 Log file should be opened fpr append shared. Thanks, Scott Slater.

Check an IP address if valid or a range of IP addresses.

1) Portion of code might be used to test IP before using TCP OPEN
2) Now loads in PBForms.
3) Missing 2 ()'s in CALL statements in original source (might have been valid at some time?)
....This may have stopped some from viewing this excellent code by William Burns ....

Comments:
http://www.powerbasic.com/support/pb...720#post305720

Original source:
http://www.powerbasic.com/support/pb...ad.php?t=24059

'Original source by William Burns
'http://www.powerbasic.com/support/pbforums/showthread.php?t=24059
'GetHostNames2.Bas
'Reason: Allows loading into PBForms
'
'Reason:
'Ability to load into PBForms
'2 call statements missing () would not compile
'ghDlg can't be used to create a dialog in PbForms
'String variables can not be used while creating a form
'==========================================================
'Code has an excellent routine for checking if an
'IP address is valid which could be used before attempting
'to TCP OPEN! Perhaps newer PB versions have this?
'===========================================================
'
'Happy New Years! Mike Doty 12/29/08
#PBFORMS CREATED V1.52
'Original source by William Burns
'http://www.powerbasic.com/support/pbforums/showthread.php?t=24059
'GetHostNames2.Bas
'Reason: Allows loading into PBForms
'
'Reason:
   'Ability to load into PBForms
   'A of couple call statements missing () would not compile
   'ghDlg can't be used to create a dialog in PbForms
   'String variables can not be used while creating a form
 '==========================================================
  'Code has an excellent routine for checking if an
  'IP address is valid which could be used before attempting
  'to TCP OPEN!  Perhaps newer PB versions have this?
 '===========================================================
 '
 'Happy New Years!  Mike Doty   12/29/08
#PBFORMS CREATED V1.52
#COMPILE EXE
#DIM ALL
#PBFORMS BEGIN INCLUDES
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#PBFORMS END INCLUDES
#INCLUDE "wSock32.inc"
#INCLUDE "IpHlpAPI.inc"
#INCLUDE "LMACCESS.Inc"
#INCLUDE "LMERR.Inc"
#INCLUDE "comdlg32.inc"    'used for file save/open windows
 
'   ** Constants **
#PBFORMS BEGIN CONSTANTS
%IDD_DIALOG1 =  101
%IDUNUSED    = 1001
%PROGRESS    = 1002
%TXTFROM     = 1004
%TXTTO       = 1005
%BUTSTART    = 1006
%BUTABORT    = 1007
%TXTFILENAME = 1008
%LISTBOX1    = 1009
%BUTEXIT     = 1010
%BUTOPEN     = 1011
%CHKIP       = 1012
%CHKMULTI    = 1013
%OPTSPACE    = 1014
%OPTTAB      = 1015
%IDR_MENU1   =   -1
#PBFORMS END CONSTANTS
GLOBAL ghDlg         AS DWORD
GLOBAL gAbort        AS LONG
GLOBAL gHosts        AS LONG
GLOBAL gTimeOut      AS LONG
GLOBAL gThreadCount  AS LONG
GLOBAL gsFileName    AS STRING
 '------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowDIALOG1Proc()
DECLARE FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION AttachMENU1(BYVAL hDlg AS DWORD) AS DWORD
#PBFORMS DECLARATIONS
'==================================================
FUNCTION PBMAIN()
  gTimeOut = 500
  ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
FUNCTION MyMsg(sMyMsg AS STRING) AS LONG
   LOCAL iRet        AS LONG
   LOCAL ASZ         AS APISIZE
   LOCAL hCtl        AS LONG
   LOCAL hDC         AS LONG
   LOCAL hFont       AS LONG
   STATIC iLstWidth  AS LONG
   CONTROL HANDLE ghDlg, %LISTBOX1 TO hCtl
   CONTROL SEND ghDlg, %LISTBOX1, %WM_GETFONT, 0, 0 TO hFont
   sMyMsg = DATE$ + " " + TIME$ & "  " & sMyMsg
   hDC = GetDC(hCtl)   'get the DC for the listbox
   IF hDC THEN
      IF hFont THEN hFont = SelectObject(hDC, hFont) 'select font in to it
      GetTextExtentPoint32 hDC, BYCOPY sMyMsg + "M", LEN(sMyMsg) + 1, ASZ  'get text length
      IF ASZ.cx > iLstWidth THEN
         iLstWidth = ASZ.cx
         CONTROL SEND ghDlg, %LISTBOX1, %LB_SETHORIZONTALEXTENT, iLstWidth, 0
      END IF
      LISTBOX ADD ghDlg, %LISTBOX1, sMyMsg
      CONTROL SEND ghDlg, %LISTBOX1, %LB_GETCOUNT,0,0 TO iRet
      CONTROL SEND ghDlg, %LISTBOX1, %LB_SETCURSEL, iRet -1, 0
      FUNCTION = 1
   END IF
   DIALOG DOEVENTS
END FUNCTION
'==================================================
SUB AddMyFile(BYVAL sFileName AS STRING, BYVAL sText AS STRING)
   LOCAL iFile    AS LONG
   TRY
      iFile = FREEFILE
      OPEN sFileName FOR APPEND SHARED AS iFile  '1/1/09 Scott Slater
      PRINT #iFile, sText
      CLOSE iFile
   CATCH
      CLOSE iFile
   END TRY
END SUB
'==================================================
FUNCTION String2IP(sIP AS STRING) AS DWORD
   LOCAL dIP   AS DWORD
   LOCAL pIP   AS BYTE PTR
   pIP = VARPTR(dIP)
   @pIP = VAL(PARSE$(sIP,".",1))    '1st octet
   @pIP[1] = VAL(PARSE$(sIP,".",2)) '2nd octet
   @pIP[2] = VAL(PARSE$(sIP,".",3)) '3rd octet
   @pIP[3] = VAL(PARSE$(sIP,".",4)) '4th octet
   FUNCTION = dIP
END FUNCTION
'==================================================
FUNCTION IP2String(dRawAddr AS DWORD) AS STRING
   DIM pIP AS BYTE PTR
   pIP = VARPTR(dRawAddr)
   FUNCTION = USING$("#_.#_.#_.#", @pIP, @pIP[1], @pIP[2], @pIP[3])
END FUNCTION
'==================================================
FUNCTION IsValidIP(BYVAL sIP AS STRING) AS LONG
   LOCAL iCount AS LONG
   IF ISTRUE VERIFY(sIP, "0123456789.") THEN EXIT FUNCTION
   IF INSTR(1,sIP,"..") THEN EXIT FUNCTION
   IF PARSECOUNT(sIP, ".") <> 4 THEN EXIT FUNCTION
   FOR iCount = 1 TO 4
      IF VAL(PARSE$(sIP, ".", iCount)) > 255 THEN EXIT FUNCTION
   NEXT iCount
   FUNCTION = %TRUE
END FUNCTION
'==================================================
FUNCTION IncrIpRange(IP AS DWORD, ToIP AS DWORD) AS LONG 'increases to the next IP address
   LOCAL pIP   AS BYTE PTR
   LOCAL pToIP AS BYTE PTR
   LOCAL iRet  AS LONG
   pIP = VARPTR(IP)
   pToIP = VARPTR(ToIP)
   INCR @pIP[3]         '4th octet
   IF @pIP[3] = 0 THEN
      INCR @pIP[2]      '3rd octet
      IF @pIP[2] = 0 THEN
         INCR @pIP[1]   '2nd octet
         IF @pIP[1] = 0 THEN
            INCR @pIP   '1st octet
         END IF
      END IF
   END IF
   iRet = %TRUE   '%TRUE unless we find otherwise
   IF @pIP[3] > @pToIP[3] THEN iRet = %FALSE    '4th octet is greater so %FALSE
   IF @pIP[2] < @pToIP[2] THEN iRet = %TRUE     '3rd octet is lessthan so %TRUE even if 4th octet is greater
   IF @pIP[2] > @pToIP[2] THEN iRet = %FALSE    '3rd octet is greater so %FALSE
   IF @pIP[1] < @pToIP[1] THEN iRet = %TRUE     '2nd octet is lessthan so %TRUE even if 3rd or 4th octet is greater
   IF @pIP[1] > @pToIP[1] THEN iRet = %FALSE    '2nd octet is greater so %FALSE
   IF @pIP < @pToIP THEN iRet = %TRUE           '1st octet is lessthan so %TRUE even if 2nd or 3rd or 4th octet is greater
   IF @pIP > @pToIP THEN iRet = %FALSE          '1st octet is greater so %FALSE
   FUNCTION = iRet
   'returns %FALSE if new IP is past ToIP
END FUNCTION
'==================================================
FUNCTION PingOneThread(BYVAL dIp AS DWORD) AS LONG
   LOCAL iRet           AS LONG
   LOCAL iSize          AS LONG
   LOCAL sText          AS STRING
   LOCAL hFile          AS DWORD
   LOCAL zPingData      AS ASCIIZ * 21
   LOCAL sHostname      AS STRING
   LOCAL IECHOR         AS STRING
   LOCAL pIECHOR        AS ICMP_ECHO_REPLY PTR
   LOCAL IPOPTION       AS IP_OPTION_INFORMATION
   LOCAL iIncludeIP     AS LONG
   LOCAL sDelim         AS STRING
   IF gAbort THEN GOTO PingCleanup
   IF gTimeOut < 1 THEN gTimeOut = 2000  'set default timeout to 2 seconds
   zPingData = "1234567890abcdefghij"
   hFile = IcmpCreateFile()
   IPOPTION.Ttl = 64
   IPOPTION.Tos = 0
   IPOPTION.Flags = &H02         'DONT FRAGMENT
   IPOPTION.OptionsSize = 0
   IPOPTION.OptionsData = %NULL
   IECHOR = SPACE$(50)  'setup buffer size
   pIECHOR = STRPTR(IECHOR)
   @pIECHOR.Options = IPOPTION
   iSize = 48
   iRet = IcmpSendEcho(hFile, dIp, zPingData, BYVAL 20, BYVAL VARPTR(IPOPTION), BYVAL STRPTR(IECHOR), iSize, gTimeOut)
   IF gAbort THEN GOTO PingCleanup
   IF iRet > 0 THEN              'ping was successful so now check host name
      HOST NAME dIp TO sHostname 'get host name from DNS
      IF INSTR(1,sHostName,".") THEN sHostName = LEFT$(sHostName,INSTR(1,sHostName,".")-1)   'strip off things like .sc.domain.com
      sHostName = UCASE$(sHostName)
      IF LEN(sHostName) > 0 THEN
         MyMsg LSET$(IP2String(dIp),16) + " " + sHostName
         CONTROL GET CHECK ghDlg, %OPTTAB TO iRet
         IF iRet THEN
            sDelim = $TAB
         ELSE
            sDelim = " "
         END IF
         CONTROL GET CHECK ghDlg, %CHKIP TO iIncludeIP
         IF iIncludeIP THEN
            AddMyFile(gsFileName, IP2String(dIp) + sDelim + sHostName)
         ELSE
            AddMyFile(gsFileName, sHostName)
         END IF
         INCR gHosts
      ELSE
         MyMsg LSET$(IP2String(dIp),16) + " Device found, but has no host name. (may be a phone switch, sec system, ...)"
      END IF
   ELSE
      SELECT CASE @pIECHOR.STATUS
         CASE 11002 TO 11005
            MyMsg LSET$(IP2String(dIp),16) + " Destination unreachable"
         CASE 11010
            MyMsg  LSET$(IP2String(dIp),16) + " no device found."  'Request timed out
         CASE ELSE
            MyMsg  LSET$(IP2String(dIp),16) + " Unknown Error while sending ICMP Echo.  Ret=" + STR$(@pIECHOR.STATUS)
      END SELECT
   END IF
   PingCleanup:
   CALL IcmpCloseHandle(hFile)
   CALL InterlockedDecrement (gThreadCount)                   'placed gThreadCount within ()  12/29/08 MD
END FUNCTION
'==================================================
FUNCTION MultiScan(BYVAL sIpFrom AS STRING, BYVAL sIpTo AS STRING, BYVAL iMultiThread AS LONG) AS LONG
   LOCAL dRet           AS DWORD
   LOCAL iRet           AS LONG
   LOCAL WSAD           AS WSADATA
   LOCAL lVerNeeded     AS WORD
   LOCAL hThread        AS DWORD
   LOCAL dIpFrom        AS DWORD
   LOCAL dIpTo          AS DWORD
   lVerNeeded = MAKWRD(2,0)               'set the low byte to 2 and high byte to 0 (ver 2.0)
   iRet = WSAStartup(lVerNeeded, WSAD)    'start windows socket with min winsock version of 2.0
   'AddList " You have Winsock version" +  Str$(LoByt(WSAD.wHighVersion)) + "." + Str$(HiByt(WSAD.wHighVersion))
   IF iRet OR LOBYT(WSAD.wVersion) < 2 THEN
      MSGBOX " Error...   This function requires WinSock version 2 or latter." + $CRLF _
      + " You have version" +  STR$(LOBYT(WSAD.wHighVersion)) + "." + STR$(HIBYT(WSAD.wHighVersion)) + $CRLF _
      + " You can download this free update from Microsofts web page.",,"Need newer wsock version"
   ELSE
      dIpFrom = String2IP(sIpFrom)
      dIpTo = String2IP(sIpTo)
      CONTROL GET TEXT ghDlg, %TXTFILENAME TO gsFileName
      DO WHILE ISFALSE gAbort
         'MyMsg "Creating thread " + IP2String(dIpFrom)
         THREAD CREATE PingOneThread(dIpFrom) TO hThread
         THREAD CLOSE hThread TO iRet
         CALL InterlockedIncrement (gThreadCount)             'placed gThreadCount within () 12/29/08 MD
         SLEEP 0
         IF ISFALSE iMultiThread THEN
            DO WHILE gThreadCount > 0 AND gAbort = 0
               'MyMsg "Waiting for thread to close"
               SLEEP 20
            LOOP
         END IF
         IF gThreadCount > 25 THEN SLEEP 100  'a couple of secs to let things catch up
         IF ISFALSE IncrIPRange(dIpFrom, dIpTo) THEN EXIT LOOP
      LOOP
   END IF
   DO WHILE gThreadCount > 0     'wait here if multithreaded for threads to end before cleanup
      IF ISFALSE iMultiThread THEN EXIT LOOP
      SLEEP 100
      'If gAbort Then Exit Loop
   LOOP
   CALL WSACleanup()
END FUNCTION
'==================================================
FUNCTION Open_File(BYVAL hWin AS DWORD) AS LONG
   LOCAL hFile       AS LONG
   LOCAL iMulti      AS LONG
   LOCAL sOpenFile   AS STRING
   LOCAL sFilter     AS STRING
   LOCAL sTextFrom   AS STRING
   LOCAL sTextTo     AS STRING
   LOCAL sText       AS STRING
   gAbort = 0
   CONTROL DISABLE hWin, %BUTSTART
   CONTROL ENABLE hWin, %BUTABORT
   sFilter =    "Text Files (*.txt)" & CHR$(0) & "*.txt" & CHR$(0) & _
   "List Files (*.lst)" & CHR$(0) & "*.lst" & CHR$(0) & _
   "All Files (*.*)"    & CHR$(0) & "*.*" & CHR$(0) & CHR$(0)
   sOpenFile = "*.txt"
   CALL OpenFileDialog(hWin, "Choose your IP range list file", sOpenFile, "", sFilter, "TXT", %OFN_EXPLORER OR %OFN_LONGNAMES OR %OFN_PATHMUSTEXIST)
   sOpenFile = TRIM$(sOpenFile)
   IF sOpenFile <> "" AND LEFT$(sOpenFile,1) <> "*" THEN
      TRY
         SetTimer ghDlg, 101, 200, 0
         hFile = FREEFILE
         OPEN sOpenFile FOR INPUT AS #hFile
         MyMsg "--------  Processing Range List: " + sOpenFile + "   --------"
         DO WHILE ISFALSE EOF(hFile)
            IF gAbort THEN EXIT LOOP
            LINE INPUT #hFile, sText
            IF PARSECOUNT(sText,".") = 7 OR PARSECOUNT(sText,".") = 4 THEN  'valid range ex:  10.145.224.1-10.145.225.254  or single IP
               sTextFrom = PARSE$(sText,"-",1)
               IF PARSECOUNT(sText,".") = 7 THEN
                  sTextTo = PARSE$(sText,"-",2)
               ELSE
                  sTextTo = sTextFrom  'one IP address
               END IF
               IF INSTR(1,sText,"=") THEN          'does it have a location code?
                  sTextTo = PARSE$(sTextTo,"=",1)  'strip off loc code
               END IF
               IF IsValidIP(sTextFrom) AND IsValidIP(sTextTo) THEN
                  CONTROL GET CHECK ghDlg, %CHKMULTI TO iMulti
                  CALL MultiScan(sTextFrom, sTextTo, iMulti)
               ELSE
                  MyMsg "Invalid range entry: " + sText
               END IF
            ELSE
               MyMsg "Invalid range entry: " + sText
            END IF
         LOOP
         CLOSE hFile
         KillTimer ghDlg, 101
         CONTROL SET TEXT ghDlg, %PROGRESS, "."
      CATCH
         CLOSE hFile
         MSGBOX "Error opening file " + sOpenFile,,"Error " + STR$(ERR) + " " + ERROR$(ERR)
      END TRY
   END IF
   CONTROL DISABLE hWin, %BUTABORT
   CONTROL ENABLE hWin, %BUTSTART
   IF gAbort THEN
      MyMsg "Aborted by user."
   ELSE
      MyMsg "Done scanning."
   END IF
END FUNCTION
'==================================================
FUNCTION StartScan(BYVAL hWin AS DWORD) AS LONG
   LOCAL sTextFrom   AS STRING
   LOCAL sTextTo     AS STRING
   LOCAL sText       AS STRING
   LOCAL iMulti      AS LONG
   gAbort = 0
   gHosts = 0
   CONTROL DISABLE hWin, %BUTSTART
   CONTROL ENABLE hWin, %BUTABORT
   CONTROL GET TEXT hWin, %TXTFROM TO sTextFrom
   CONTROL GET TEXT hWin, %TXTTO TO sTextTo
   IF IsValidIP(sTextFrom) AND IsValidIP(sTextTo) THEN
      sText = INPUTBOX$("Enter scan timeout in miliseconds (1000 = 1 sec)" + $CRLF _
      + "Smaller value = faster scan." + $CRLF _
      + "Too small = find nothing at remote sites." + $CRLF _
      ,"Enter Scan TimeOut",STR$(gTimeOut))
      IF VAL(sText) > 0 THEN gTimeOut = VAL(sText)
      SetTimer ghDlg, 101, 100, 0
      CONTROL GET CHECK ghDlg, %CHKMULTI TO iMulti
      CALL MultiScan(sTextFrom, sTextTo, iMulti)
      IF gAbort THEN
         MyMsg "Aborted by user."
      ELSE
         MyMsg "Done scanning.  Found " + STR$(gHosts)
      END IF
      KillTimer ghDlg, 101
      CONTROL SET TEXT ghDlg, %PROGRESS, "."
   ELSE
      MyMsg "Invalid IP address range: " + sTextFrom + " - " + sTextTo
   END IF
   CONTROL DISABLE hWin, %BUTABORT
   CONTROL ENABLE hWin, %BUTSTART
END FUNCTION
'==================================================
CALLBACK FUNCTION Form1_DLGPROC
'CALLBACK FUNCTION ShowDIALOG1Proc (default)
   LOCAL hThread     AS DWORD
   LOCAL iRet        AS DWORD
   STATIC sStep      AS STRING
   STATIC iStep      AS LONG
   SELECT CASE CBMSG
      CASE %WM_INITDIALOG
         sStep   = "/=\|"  'or try "_<^>"  or  "/=\|" or "..oO"
      CASE %WM_CLOSE
         gAbort = 1
         SLEEP 500
      CASE %WM_TIMER
         iStep = (iStep + 1) MOD 4
         CONTROL SET TEXT ghDlg, %PROGRESS, MID$(sStep, iStep + 1, 1)
      CASE %WM_COMMAND
         SELECT CASE CBCTL
            CASE %BUTSTART
               THREAD CREATE StartScan(CBHNDL) TO hThread
               THREAD CLOSE hThread TO iRet
            CASE %BUTOPEN
               THREAD CREATE Open_File(CBHNDL) TO hThread
               THREAD CLOSE hThread TO iRet
            CASE %BUTABORT
               gAbort = 1
            CASE %BUTEXIT
               DIALOG END CBHNDL
            CASE ELSE
         END SELECT
      CASE ELSE
   END SELECT
END FUNCTION
'==================================================
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
  LOCAL lRslt AS LONG
#PBFORMS BEGIN DIALOG %IDD_DIALOG1->%IDR_MENU1->
    LOCAL hDlg  AS DWORD
    DIALOG NEW hParent, "Scan for Host Names   Ver 1.7  by William", 219, _
        168, 277, 178, %WS_POPUP OR %DS_MODALFRAME OR %WS_CAPTION OR _
        %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX OR %WS_SYSMENU OR %WS_THICKFRAME _
        OR %WS_VISIBLE OR %DS_3DLOOK OR %DS_NOFAILCREATE OR %DS_SETFONT, _
        %WS_EX_LEFT OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR OR _
        %WS_EX_CONTROLPARENT, TO hDlg
    CONTROL ADD FRAME,    hDlg, %IDUNUSED, "Processing Log:", 5, 64, 266, 71, _
        %WS_CHILD OR %WS_VISIBLE OR %BS_GROUPBOX, %WS_EX_TRANSPARENT
    CONTROL ADD FRAME,    hDlg, %IDUNUSED, "Save Host Names to file:", 5, 34, _
        189, 27, %WS_CHILD OR %WS_VISIBLE OR %BS_GROUPBOX, _
        %WS_EX_TRANSPARENT
    CONTROL ADD FRAME,    hDlg, %IDUNUSED, "IP address range:", 5, 2, 189, _
        30, %WS_CHILD OR %WS_VISIBLE OR %BS_GROUPBOX, %WS_EX_TRANSPARENT
    CONTROL ADD LABEL,    hDlg, %PROGRESS, ".", 200, 50, 16, 12, %WS_CHILD OR _
        %WS_VISIBLE OR %SS_CENTER OR %WS_BORDER, %WS_EX_LEFT OR _
        %WS_EX_LTRREADING
    CONTROL ADD LABEL,    hDlg, %IDUNUSED, "-", 91, 15, 16, 12, %WS_CHILD OR _
        %WS_VISIBLE OR %SS_CENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    CONTROL ADD TEXTBOX,  hDlg, %TXTFROM, "(see below) Text + .1", 11, 15, 77, 12
    CONTROL ADD TEXTBOX,  hDlg, %TXTTO, "(see below) sText + .255", 109, 15, 77, 12
    CONTROL ADD BUTTON,   hDlg, %BUTSTART, "&Scan", 205, 7, 53, 15, %WS_CHILD _
        OR %WS_VISIBLE OR %BS_PUSHBUTTON OR %WS_TABSTOP OR %BS_CENTER OR _
        %BS_VCENTER OR %BS_TEXT, %WS_EX_LEFT OR %WS_EX_LTRREADING
    CONTROL ADD BUTTON,   hDlg, %BUTABORT, "&Abort", 205, 27, 53, 15, _
        %WS_CHILD OR %WS_VISIBLE OR %BS_PUSHBUTTON OR %WS_TABSTOP OR _
        %BS_CENTER OR %BS_VCENTER OR %BS_TEXT, %WS_EX_LEFT OR _
        %WS_EX_LTRREADING
    CONTROL ADD TEXTBOX,  hDlg, %TXTFILENAME, "C:\HostsFound.txt", 11, 44, _
        176, 12
    CONTROL ADD LISTBOX,  hDlg, %LISTBOX1, , 11, 74, 254, 57, %WS_CHILD OR _
        %WS_VISIBLE OR %LBS_NOTIFY OR %LBS_NOINTEGRALHEIGHT OR %WS_VSCROLL _
        OR %WS_TABSTOP OR %WS_HSCROLL, %WS_EX_CLIENTEDGE
    CONTROL ADD CHECKBOX, hDlg, %CHKIP, "Include IP address in file delimited " + _
        "with:", 5, 140, 140, 10
    CONTROL ADD CHECKBOX, hDlg, %CHKMULTI, "Scan multiple IPs at a time.", 5, _
        152, 140, 10
    ' %WS_GROUP...
    CONTROL ADD OPTION,   hDlg, %OPTSPACE, "Spaces", 150, 145, 40, 10, _
        %WS_CHILD OR %WS_VISIBLE OR %BS_AUTORADIOBUTTON OR %WS_TABSTOP OR _
        %WS_GROUP, %WS_EX_LEFT OR %WS_EX_LTRREADING
    CONTROL ADD OPTION,   hDlg, %OPTTAB, "Tabs", 190, 145, 30, 10, %WS_CHILD _
        OR %WS_VISIBLE OR %BS_AUTORADIOBUTTON OR %WS_TABSTOP, %WS_EX_LEFT OR _
        %WS_EX_LTRREADING
    AttachMENU1 hDlg
#PBFORMS END DIALOG
   ghDlg = hDlg   'added this:   ghDlg can't be used in PBFORMS creating Dialog
 
   LOCAL iHost    AS LONG
   LOCAL sText    AS STRING
   HOST ADDR TO iHost
   IF iHost THEN
      sText = LEFT$(IP2String(iHost),INSTR(-1,IP2String(iHost),".")-1)
   ELSE
      sText = "10.123.123" 'DEFAULT ADDRESS
   END IF
   CONTROL SET TEXT hDlg,%TXTFROM,sText + ".1"
   CONTROL SET TEXT hDlg,%TXTTO,sText   + ".255"
   DIALOG SHOW MODAL hDlg, CALL Form1_DLGPROC TO lRslt
   'DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc  TO lRslt (default)
#PBFORMS BEGIN CLEANUP %IDD_DIALOG1
#PBFORMS END CLEANUP
  FUNCTION = lRslt
END FUNCTION
'==================================================
FUNCTION AttachMENU1(BYVAL hDlg AS DWORD) AS DWORD
#PBFORMS BEGIN MENU %IDR_MENU1->%IDD_DIALOG1
    LOCAL hMenu   AS DWORD
    LOCAL hPopUp1 AS DWORD
    MENU NEW BAR TO hMenu
    MENU NEW POPUP TO hPopUP1
    MENU ADD POPUP, hMenu ,"&File", hPopUp1, %MF_ENABLED
    MENU ADD STRING, hPopUp1, "&Open and Process IP Range list", _
                %BUTOPEN, %MF_ENABLED
    MENU ADD STRING, hPopUp1, "-", 0, 0
    MENU ADD STRING, hPopUp1, "E&xit", %BUTEXIT, %MF_ENABLED
    MENU ATTACH hMenu, hDlg
#PBFORMS END MENU
    FUNCTION = hMenu
END FUNCTION