vb中从域名得到ip及从ip得到域名（Getting IP from domain name and getting domain name from IP in VB）

《vb中从域名得到ip及从ip得到域名（Getting IP from domain name and getting domain name from IP in VB）》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、vb中从域名得到ip及从ip得到域名（GettingIPfromdomainnameandgettingdomainnamefromIPinVB）privateconstws_version_reqd=&h101privateconstws_version_major=ws_version_reqd&h100and&hff&privateconstws_version_minor=ws_version_reqdand&hff&privateconstmin_sockets_reqd=1privateconstsocket_error=-

2、1privateconstwsadescription_len=256privateconstwsasys_status_len=128privatetypehostenthnameaslonghaliasesaslonghaddrtypeasintegerhlengthasintegerhaddrlistaslongendtypeprivatetypewsadatawversionasintegerwhighversionasintegerszdescription(0towsadescription_len)asbyteszsyste

3、mstatus(0towsasys_status_len)asbyteimaxsocketsasintegerimaxudpdgasintegerlpszvendorinfoaslongendtypeprivatedeclarefunctiongethostbyaddrlib"wsock32.dll(addrasany,byval_byteslenasinteger,addrtypeasinteger)aslongprivatedeclarefunctionwsagetlasterrorlib"wsock32.dll"()aslongpr

4、ivatedeclarefunctionwsastartuplib"wsock32.dll"(byval_wversionrequired&,lpwsadataaswsadata)aslongprivatedeclarefunctionwsacleanuplib"wsock32.dll"()aslongprivatedeclarefunctiongethostbynamelib"wsock32.dll"(byval_hostname$)aslongprivatedeclaresubrtlmovememorylib"kernel32"(hp

5、vdestasany,_byvalhpvsource&,byvalcbcopy&)functionhibyte(byvalwparamasinteger)注释:获得整数的高位hibyte=wparam&h100and&hff&endfunctionfunctionlobyte(byvalwparamasinteger)注释:获得整数的低位lobyte=wparamand&hff&endfunctionfunctionsocketsinitialize()dimwsadaswsadataireturnasintegerdimdimslow

6、byteasstring,shighbyteasstring,smsgasstringireturn=wsastartup(ws_version_reqd,wsad)ifireturn<>0thenmsgbox"winsock.dll没有反应."endendififlobyte(wsad.wversion)

7、$(str$(hibyte(wsad.wversion)))slowbyte=trim$(str$(lobyte(wsad.wversion)))smsg="windowssockets版本"&slowbyte&":"&shighbytesmsg=smsg&"不被winsock.dll支持"msgboxsmsgendendififwsad.imaxsockets

8、xsmsgendendifendfunctionsubsocketscleanup()昏暗的lreturn长lreturn=wsacleanup()如果lreturn<>0本插座错误”和装饰（