DO decl



*| typedef struct _MIB_IPADDRTABLE { 

*|   DWORD         dwNumEntries;    // number of entries in the table 

*|   MIB_IPADDRROW table[ANY_SIZE]; // array of IP address entries 

*| } MIB_IPADDRTABLE, *PMIB_IPADDRTABLE; total bytes = 4 + undef



*| typedef struct _MIB_IPADDRROW { 

*|   DWORD   dwAddr;              // IP address           0:4 

*|   DWORD   dwIndex;             // interface index      4:4 

*|   DWORD   dwMask;              // subnet mask          8:4 

*|   DWORD   dwBCastAddr;         // broadcast address   12:4 

*|   DWORD   dwReasmSize;         // re-assembly size    16:4 

*|   unsigned short   unused1;    // not currently used 20:2 

*|   unsigned short   unused2;    // not currently used 22:2 

*| } MIB_IPADDRROW, *PMIB_IPADDRROW; total bytes = 24 

#DEFINE MIB_IPADDRROW_SIZE   24



PRIVATE lWinsockEnabled 

lWinsockEnabled = InitWinsock()



LOCAL lcBuffer, lnBufsize, lnEntries, lnIndex, lcEntryBuf 

* allocate a space large enough to keep the data 

lnBufsize = 8192



lcBuffer = Repli(Chr(0), lnBufsize) 

= GetIpAddrTable (@lcBuffer, @lnBufsize, 1) 

lnEntries = buf2dword(SUBSTR(lcBuffer, 1,4))



* resulting cursor 

CREATE CURSOR cs (ipaddr C(15), iindex N(3), smask C(15),; 

    bcast C(15), rsize N(12), hostname C(50))



FOR lnIndex = 1 TO lnEntries 

    lcEntryBuf = SUBSTR(lcBuffer, 5+(lnIndex-1)*MIB_IPADDRROW_SIZE,; 

        MIB_IPADDRROW_SIZE) 

    = AddEntry (lcEntryBuf) 

ENDFOR



IF lWinsockEnabled 

    = WSACleanup() 

ENDIF



*!*	GO TOP 

*!*	BROW NORMAL NOWAIT 

* end of main



PROCEDURE AddEntry (lcEntryBuf) 

    LOCAL lcIPAddrBuf, lcIPAddr, lcHostName, lnIndex,; 

        lcMask, lcBCast, lnRSize



    * IP address and the host name 

    lcIPAddrBuf = SUBSTR(lcEntryBuf, 1,4) 

    lcIPAddr    = inet_ntoa(buf2dword(lcIPAddrBuf)) 

    lcHostName = GetHostName(lcIPAddrBuf)



    * the index of the interface associated with this IP address 

    lnIndex = buf2dword(SUBSTR(lcEntryBuf, 5,4))



    * the subnet mask for the IP address 

    lcMask = inet_ntoa(buf2dword(SUBSTR(lcEntryBuf, 9,4)))



    * the broadcast address 

    lcBCast = inet_ntoa(buf2dword(SUBSTR(lcEntryBuf, 13,4)))



    * the maximum re-assembly size for received datagrams 

    lnRSize = buf2dword(SUBSTR(lcEntryBuf, 17,4)) 

     

    INSERT INTO cs valueS (lcIPAddr, lnIndex, lcMask, lcBCast,; 

        lnRSize, lcHostName) 

RETURN



FUNCTION GetHostName (lcAddrBuf) 

#DEFINE AF_INET        2 && internetwork: UDP, TCP, etc. 

#DEFINE HOSTENT_SIZE 16 

    LOCAL lcResult, lnHOSTENTptr, lcHOSTENT 

    lcResult = ""



    IF lWinsockEnabled 

        lnHOSTENTptr = gethostbyaddr(lcAddrBuf, 4, AF_INET) 

        IF lnHOSTENTptr <> 0 

            lcHOSTENT = GetMemBuf (lnHOSTENTptr, HOSTENT_SIZE) 

            lcResult = GetMemStr(buf2dword(SUBSTR(lcHOSTENT, 1,4))) 

        ENDIF 

    ENDIF 

RETURN lcResult



FUNCTION InitWinsock() 

* Initializing the Winsock service for the application 

#DEFINE WSADATA_SIZE 398 

#DEFINE WS_VERSION    514 && 0x0202 

    LOCAL lcWSADATAln, lnInitResult 

    lcWSADATA = Repli(Chr(0), WSADATA_SIZE) 

    lnInitResult = WSAStartup (WS_VERSION, @lcWSADATA) 

RETURN (lnInitResult = 0)



FUNCTION GetMemBuf (lnAddr, lnBufsize) 

* returning data from a memory block 

    LOCAL lcBuffer 

    lcBuffer = Repli(Chr(0), lnBufsize) 

    = Heap2Str (@lcBuffer, lnAddr, lnBufsize) 

RETURN lcBuffer



FUNCTION GetMemStr (lnAddr) 

* returning data from a memory block 

* before the first occurence of a zero byte 

    LOCAL lcBuffer 

    lcBuffer = GetMemBuf (lnAddr, 250) 

RETURN SUBSTR(lcBuffer, 1, AT(Chr(0),lcBuffer)-1)



FUNCTION buf2dword (lcBuffer) 

RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ; 

    Asc(SUBSTR(lcBuffer, 2,1)) * 256 +; 

    Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +; 

    Asc(SUBSTR(lcBuffer, 4,1)) * 16777216



PROCEDURE decl 

    DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr 

    DECLARE INTEGER WSACleanup IN ws2_32 

    DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING @lpWSAData



    DECLARE INTEGER gethostbyaddr IN ws2_32; 

        STRING addr, INTEGER len, INTEGER type



    DECLARE RtlMoveMemory IN kernel32 As Heap2Str; 

        STRING @Dest, INTEGER Src, INTEGER nLength



    DECLARE INTEGER GetIpAddrTable IN iphlpapi; 

        STRING @pIpAddrTable, INTEGER @pdwSize, INTEGER bOrder 

getip()

GO TOP 

cIp = '|'

FOR i = 1 TO RECCOUNT('cs')

	GO (i)

	IF LEFT(ALLTRIM(cs.ipaddr),3) != '127' &&本机保留ip地址不要，即127.0.0.1

		cIp = cIp + ALLTRIM(cs.ipaddr) + '|'

	ENDIF

NEXT

Windows Registry Editor Version 5.00 



[HKEY_CLASSES_ROOT\Licenses] 

@="Licensing: Copying the keys may be a violation of established copyrights." 



[HKEY_CLASSES_ROOT\Licenses\12B142A4-BD51-11d1-8C08-0000F8754DA1] 

@="aadhgafabafajhchnbchehfambfbbachmfmb" 



[HKEY_CLASSES_ROOT\Licenses\190B7910-992A-11cf-8AFA-00AA00C00905] 

@="gclclcejjcmjdcccoikjlcecoioijjcjnhng" 



[HKEY_CLASSES_ROOT\Licenses\1F3D5522-3F42-11d1-B2FA-00A0C908FB55] 

@="gcfjdjecpchcncdjpdejijgcrdoijjfcieod" 



[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d] 

@="mlrljgrlhltlngjlthrligklpkrhllglqlrk" 



[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905] 

@="kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun" 



[HKEY_CLASSES_ROOT\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905] 

@="gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj" 



[HKEY_CLASSES_ROOT\Licenses\4F86BADF-9F77-11d1-B1B7-0000F8753F5D] 

@="iplpwpnippopupiivjrioppisjsjlpiiokuj" 



[HKEY_CLASSES_ROOT\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905] 

@="aahakhchghkhfhaamghhbhbhkbpgfhahlfle" 



[HKEY_CLASSES_ROOT\Licenses\6FB38640-6AC7-11cf-8ADB-00AA00C00905] 

@="gdjkokgdldikhdddpjkkekgknesjikdkoioh" 



[HKEY_CLASSES_ROOT\Licenses\72E67120-5959-11cf-91F6-C2863C385E30] 

@="ibcbbbebqbdbciebmcobmbhifcmciibblgmf" 



[HKEY_CLASSES_ROOT\Licenses\73A4C9C1-D68D-11d0-98BF-00A0C90DC8D9] 



[HKEY_CLASSES_ROOT\Licenses\73A4C9C1-D68D-11d0-98BF-00A0C90DC8D9\11.0] 



[HKEY_CLASSES_ROOT\Licenses\73A4C9C1-D68D-11d0-98BF-00A0C90DC8D9\11.0\Retail] 

@="sbbcdcprktpjtapmmfdacmupasbhscddncgp" 



[HKEY_CLASSES_ROOT\Licenses\78E1BDD1-9941-11cf-9756-00AA00C00908] 

@="yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun" 



[HKEY_CLASSES_ROOT\Licenses\7C35CA30-D112-11cf-8E72-00A0C90F26F8] 

@="whmhmhohmhiorhkouimhihihwiwinhlosmsl" 



[HKEY_CLASSES_ROOT\Licenses\80E80EF0-DBBE-11D0-BCE2-00A0C90DCA10] 

@="qijimitpmpnpxplpvjnikpkpqoxjmpkpoivj" 



[HKEY_CLASSES_ROOT\Licenses\899B3E80-6AC6-11cf-8ADB-00AA00C00905] 

@="wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun" 



[HKEY_CLASSES_ROOT\Licenses\9E799BF1-8817-11cf-958F-0020AFC28C3B] 

@="uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun" 



[HKEY_CLASSES_ROOT\Licenses\B1EFCCF0-6AC1-11cf-8ADB-00AA00C00905] 

@="qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun" 



[HKEY_CLASSES_ROOT\Licenses\BC96F860-9928-11cf-8AFA-00AA00C00905] 

@="mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj" 



[HKEY_CLASSES_ROOT\Licenses\BEA2ED97-562A-4510-974C-C4F20AE429AD] 

"1"=hex:d2,00,57,01,18,01,7e,01,de,00,77,01,a5,00,9a,00,e1,00,16,01,9d,00,f1,\ 

00,4e,01,73,00,30,01,5c,00,23,01,c5,00 



[HKEY_CLASSES_ROOT\Licenses\CDE57A55-8B86-11D0-b3C6-00A0C90AEA82] 

@="ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe" 



[HKEY_CLASSES_ROOT\Licenses\CEDD4F80-B43C-11cf-837C-00AA00573EDE] 

@="gxwaezucfyqpwjgqbcmtsncuhwsnyhiohwxz" 



[HKEY_CLASSES_ROOT\Licenses\DC4D7920-6AC8-11cf-8ADB-00AA00C00905] 

@="iokouhloohrojhhhtnooiokomiwnmohosmsl" 



[HKEY_CLASSES_ROOT\Licenses\E32E2733-1BC5-11d0-B8C3-00A0C90DCA10] 

@="kmhfimlflmmfpffmsgfmhmimngtghmoflhsg" 



[HKEY_CLASSES_ROOT\Licenses\ED4B87C4-9F76-11d1-8BF7-0000F8754DA1] 

@="knlggnmntgggrninthpgmnngrhqhnnjnslsh