欢迎来到天天文库
浏览记录
ID:38560260
大小:18.97 KB
页数:12页
时间:2019-06-14
《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.imaxsockets8、xsmsgendendifendfunctionsubsocketscleanup()昏暗的lreturn长lreturn=wsacleanup()如果lreturn<>0本插座错误”和装饰(
7、$(str$(hibyte(wsad.wversion)))slowbyte=trim$(str$(lobyte(wsad.wversion)))smsg="windowssockets版本"&slowbyte&":"&shighbytesmsg=smsg&"不被winsock.dll支持"msgboxsmsgendendififwsad.imaxsockets8、xsmsgendendifendfunctionsubsocketscleanup()昏暗的lreturn长lreturn=wsacleanup()如果lreturn<>0本插座错误”和装饰(
8、xsmsgendendifendfunctionsubsocketscleanup()昏暗的lreturn长lreturn=wsacleanup()如果lreturn<>0本插座错误”和装饰(
此文档下载收益归作者所有