|
EnableProxy As Long EnableDns As Long End Type Private Type DNS_HEADER qryID As Integer options As Byte response As Byte qdcount As Integer ancount As Integer nscount As Integer arcount As Integer End Type Private Type HostEnt h_name As Long h_aliases As Long h_addrtype As Integer h_length As Integer h_addr_list As Long End Type Private Const hostent_size = 16 Private Type servent s_name As Long s_aliases As Long s_port As Integer s_proto As Long End Type Private Function MakeQName(sDomain As String) As String Dim iQCount As Integer ' Character count (between dots) Dim iNdx As Integer ' Index into sDomain string Dim iCount As Integer ' Total chars in sDomain string Dim sQName As String ' QNAME string Dim sDotName As String ' Temp string for chars between dots Dim sChar As String ' Single char from sDomain string iNdx = 1 |
正在阅读：VB学习:MX记录获取组件VB学习:MX记录获取组件
2004-03-10 09:52
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
