vb中从域名得到ip及从ip得到域名Getting IP from domain name and getting domain name from IP in VB.docx
- 文档编号:7069983
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:6
- 大小:15.72KB
vb中从域名得到ip及从ip得到域名Getting IP from domain name and getting domain name from IP in VB.docx
《vb中从域名得到ip及从ip得到域名Getting IP from domain name and getting domain name from IP in VB.docx》由会员分享,可在线阅读,更多相关《vb中从域名得到ip及从ip得到域名Getting IP from domain name and getting domain name from IP in VB.docx(6页珍藏版)》请在冰豆网上搜索。
vb中从域名得到ip及从ip得到域名GettingIPfromdomainnameandgettingdomainnamefromIPinVB
vb中从域名得到ip及从ip得到域名(GettingIPfromdomainnameandgettingdomainnamefromIPinVB)
privateconstws_version_reqd=&h101
privateconstws_version_major=ws_version_reqd\&h100and&hff&
privateconstws_version_minor=ws_version_reqdand&hff&
privateconstmin_sockets_reqd=1
privateconstsocket_error=-1
privateconstwsadescription_len=256
privateconstwsasys_status_len=128
privatetypehostent
hnameaslong
haliasesaslong
haddrtypeasinteger
hlengthasinteger
haddrlistaslong
endtype
privatetypewsadata
wversionasinteger
whighversionasinteger
szdescription(0towsadescription_len)asbyte
szsystemstatus(0towsasys_status_len)asbyte
imaxsocketsasinteger
imaxudpdgasinteger
lpszvendorinfoaslong
endtype
privatedeclarefunctiongethostbyaddrlib"wsock32.dll(addrasany,byval_
byteslenasinteger,addrtypeasinteger)aslong
privatedeclarefunctionwsagetlasterrorlib"wsock32.dll"()aslong
privatedeclarefunctionwsastartuplib"wsock32.dll"(byval_
wversionrequired&,lpwsadataaswsadata)aslong
privatedeclarefunctionwsacleanuplib"wsock32.dll"()aslong
privatedeclarefunctiongethostbynamelib"wsock32.dll"(byval_
hostname$)aslong
privatedeclaresubrtlmovememorylib"kernel32"(hpvdestasany,_
byvalhpvsource&,byvalcbcopy&)
functionhibyte(byvalwparamasinteger)注释:
获得整数的高位
hibyte=wparam\&h100and&hff&
endfunction
functionlobyte(byvalwparamasinteger)注释:
获得整数的低位
lobyte=wparamand&hff&
endfunction
functionsocketsinitialize()
dimwsadaswsadata
ireturnasintegerdim
dimslowbyteasstring,shighbyteasstring,smsgasstring
ireturn=wsastartup(ws_version_reqd,wsad)
ifireturn<>0then
msgbox"winsock.dll没有反应."
end
endif
iflobyte(wsad.wversion) shighbyte=trim$(str$(hibyte(wsad.wversion))) slowbyte=trim$(str$(lobyte(wsad.wversion))) smsg="windowssockets版本"&slowbyte&": "&shighbyte smsg=smsg&"不被winsock.dll支持" msgboxsmsg end endif ifwsad.imaxsockets smsg="这个系统需要的最少sockets数为" smsg=smsg&trim$(str$(min_sockets_reqd)) msgboxsmsg end endif endfunction subsocketscleanup() 昏暗的lreturn长 lreturn=wsacleanup() 如果lreturn<>0 本插座错误”和装饰(STR美元美元(lreturn))&”发生在清理” 终点 最后如果 端子 子form_load() 注释: 初始化插座 socketsinitialize 端子 私有子form_unload(取消为整数) 注释: 清除插座 socketscleanup 端子 私有函数getip(名称为字符串)字符串 昏暗的hostent_addr长 昏暗的主机hostent 昏暗的hostip_addr长 昏暗的temp_ip_address()字节 模糊i为整数 昏暗的ip_address作为字符串 hostent_addr=gethostbyname(名称) 如果hostent_addr=0 getip=“注释: 主机名不能被解释 退出功能 最后如果 rtlmovememory主机,hostent_addr,LenB(主持人) rtlmovememoryhostip_addr,host.haddrlist,4 ReDimtemp_ip_address(1主机。 hlength) rtlmovememorytemp_ip_address (1),hostip_addr,host.hlength 我host.hlength=1 ip_address=ip_address和temp_ip_address(我)和“。 ” 下一个 ip_address=美元中期(ip_address,1,Len(ip_address)-1) getip=ip_address 端功能 私有子command1_click() 将字符串作为字符串 STR=getip(text1文本) 如果“=” 正文文本=“主机名不能被解释”。 其他的 正文文本=str。 最后如果 端子 私有函数getName(addrstr字符串)字符串 昏暗的hostent_addr长 昏暗的主机hostent 昏暗的地址(0至50)字节 昏暗的地址字符串 昏暗的hname(1至50)字节 将字符串作为字符串 模糊i为整数,j为整数 昏暗的temp_int为整数 昏暗的BYT字节 STR=装饰$(addrstr) 我=0 J=0 做 temp_int=0 i=i+1 当中间$(STR,i,1)>“0”和中间$(STR,i,1)<=“9”和i=莱恩(STR)时执行 temp_int=temp_int*10+美元中期(STR,我,1) i=i+1 环 如果temp_int<=255 地址(j)=temp_int j=j+1 最后如果 循环直到中旬$(STR,I,1)<>”。 “我>len(str)或temp_int>255 如果temp_int>255 getName=“地址非法” 退出功能 最后如果 hostent_addr=gethostbyaddr(ADDR(0),J,2) 如果hostent_addr=0 getName=“此地址无法解析” 退出功能 最后如果 rtlmovememory主机,hostent_addr,LenB(主持人) RtlMoveMemoryhname (1),host.hname,50 J=51 对于我=1比50 如果hname(我)=0 J=我 最后如果 如果我 hname(我)=32 最后如果 下一个我 getName=装饰$(StrConv(hname,vbunicode)) 端功能 私有子command2_click() 将名称设为字符串 名称=getName(中文本) 如果名称“”然后 名称=“此地址没有域名” 最后如果 Text文本=名称。 端子
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb中从域名得到ip及从ip得到域名Getting IP from domain name and getting in VB 域名 得到
链接地址:https://www.bdocx.com/doc/7069983.html