資源描述：
《純真IP數(shù)據(jù)庫查詢IP地理位置代碼.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、純真IP數(shù)據(jù)庫查詢IP地理位置代碼'使用該函數(shù)查詢PublicFunctionGetAddress(sip)????IfLen(sip)<5Then????????GetAddress="輸入IP錯誤！"????????ExitFunction????EndIf????OnErrorResumeNext????DimWry,IPType????SetWry=NewShowIp????IfNotWry.IsIp(sip)Then????????GetAddress="輸入IP錯誤！"????????ExitFunction????EndIf????IP
2、Type=Wry.QQWry(sip)????GetAddress=Wry.Country&""&Wry.LocalStrEndFunction'類模塊,命名為ShowIp'============================================????'變量聲名????'============================================????PublicCountry,LocalStr,Buf,OffSet????PrivateStartIP,EndIP,CountryFlag????PublicQQWryF
3、ile????PublicFirstStartIP,LastStartIP,RecordCount????PrivateStream,EndIPOff????'============================================????'類模塊初始化????'============================================????PrivateSubClass_Initialize()????????OnErrorResumeNext????????Country=""????????LocalStr=""
4、????????StartIP=0????????EndIP=0????????CountryFlag=0????????FirstStartIP=0????????LastStartIP=0????????EndIPOff=0????????QQWryFile="QQWry.Dat"'QQIP庫路徑????EndSub????'============================================????'IP地址轉(zhuǎn)換成整數(shù)????'============================================????F
5、unctionIptoint(IP)AsSingle????????DimIPArray,i,Iptoint1AsSingle,Iptoint2AsSingle,Iptoint3AsSingle,Iptoint4AsSingle????????IPArray=Split(IP,".",-1)????????Fori=0To3????????????IfNotIsNumeric(IPArray(i))ThenIPArray(i)=0????????????IfCInt(IPArray(i))<0ThenIPArray(i)=Abs(CInt(IPArr
6、ay(i)))????????????IfCInt(IPArray(i))>255ThenIPArray(i)=255????????Next????????Iptoint1=CInt(IPArray(3))????????Iptoint2=CInt(IPArray(2)):Iptoint2=Iptoint2*256????????Iptoint3=CInt(IPArray(1)):Iptoint3=Iptoint3*256:Iptoint3=Iptoint3*256????????Iptoint4=CInt(IPArray(0)):Iptoint4
7、=Iptoint4*256:Iptoint4=Iptoint4*256:Iptoint4=Iptoint4*256????????Iptoint=Iptoint1+Iptoint2+Iptoint3+Iptoint4????????'這個算法在VB中會有溢出?不知道什么原因Iptoint=((CInt(IPArray(0))*256*256+CInt(IPArray(1))*256+CInt(IPArray(2)))*Iptoint+CInt(IPArray(3))????EndFunction????'=======================
8、=====================????'整數(shù)逆轉(zhuǎn)IP地址????'===============
