//---------------------------------------------------------------------------

#include <vcl.h>
#include <windows.h>
#include <winsock2.h>
#include <wininet.h>
#include "stdio.h"
#include "conio.h"
#include "SysUtils.hpp"
#pragma comment(lib, "wininet.lib")
#pragma hdrstop

//---------------------------------------------------------------------------

#pragma argsused
bool Scmp(char *str,char *sub);
int Spos(char *str,char *c,int n);
int main(int argc, char* argv[])
{
HINTERNET hNet = ::InternetOpen("IP138",
                                PRE_CONFIG_INTERNET_ACCESS,
                                NULL,
                                INTERNET_INVALID_PORT_NUMBER,
                                0) ;

HINTERNET hUrlFile = ::InternetOpenUrl(hNet,
                                "http://www.ip138.com/ips.asp",
                                NULL,
                                0,
                                INTERNET_FLAG_RELOAD,
                                0) ;

        char buffer[10*1024] ;
        char *p;
        DWORD dwBytesRead = 0;
        BOOL bRead = ::InternetReadFile(hUrlFile,
                                buffer,
                                sizeof(buffer),
                                &dwBytesRead);


        if (bRead)
        {
                int y=Spos(buffer,"IP:",0);
                p=buffer;
                p+=y+3;
                char Result[20];
                int z=0;
                while(*p!='<')
                {

                        Result[z]=*p ;
                        z++;
                        p++;
                }
                printf("你的IP是 %s",Result);
        }

::InternetCloseHandle(hUrlFile) ;

::InternetCloseHandle(hNet) ;
        getch();
        return 0;
}
//---------------------------------------------------------------------------
int Spos(char *str,char *c,int n)
{
    int y=0;
    
    char *temp=(char*)calloc(strlen(c)+1, sizeof(char));
    if ((int)StrLen(str)<n)   return 0;
    str=str+n;
    y+=n;
    while(*str!='\0')
    {

    memccpy(temp,str,'\0',strlen(c));

    if (Scmp(temp,c)) return y;
    str++;
    y++;
    }

    return 0;
}
bool Scmp(char *str,char *sub)
{
    if (strlen(str)!=strlen(sub)) return 0;

    while (*str!='\0')
    {
    if ((*str)!=(*sub)) return false;
    str++;
    sub++;
    }
    return true;
}