 |
网站建设 |
 |
|
最新客户 |
|
|
网站推广 |
|
|
推广知识 |
|
|
 |
建站技术知识 |
 |
| |
|
|
| |
利用Whois服务查询域名注册信息
|
| 任何一个国际域名的信息都记录在dns(域名服务器)上，如何查询关于某个域名的注册信息呢？象pop3是用于接收电子邮件一样，whois服务是用于查询域名信息的。在美国这个服务由internic提供。当你想确定一个域名是否存在,或者想获得该域名注册信息时，这个服务很有用。一、winsock控件能够提供执行whois查找所需要的所有信息。步骤如下： 1.连接到internic服务器的端口43。 2.发送域名。 3.读取来自服务器的答复。 4.从服务器上断开连接。 二、设计界面以及源程序： 源程序包括以上窗体和一个模块文件，模块中的代码用来判断计算机是否连网。 1、模块中的代码： public declare function rasenumconnections lib "rasapi32.dll" alias "rasenumconnectionsa" (lprascon as any, lpcb as long, lpcconnections as long) as long public declare function rasgetconnectstatus lib "rasapi32.dll" alias "rasgetconnectstatusa" (byval hrascon as long, lpstatus as any) as long public const ras95_maxentryname = 256 public const ras95_maxdevicetype = 16 public const ras95_maxdevicename = 32 public type rasconn95 dwsize as long hrascon as long szentryname(ras95_maxentryname) as byte szdevicetype(ras95_maxdevicetype) as byte szdevicename(ras95_maxdevicename) as byte end type public type rasconnstatus95 dwsize as long rasconnstate as long dwerror as long szdevicetype(ras95_maxdevicetype) as byte szdevicename(ras95_maxdevicename) as byte end type 自定义函数，判断是否连接到internet public function isconnected() as boolean dim trascon(255) as rasconn95 dim lg as long dim lpcon as long dim retval as long dim tstatus as rasconnstatus95 trascon(0).dwsize = 412 lg = 256 * trascon(0).dwsize retval = rasenumconnections(trascon(0), lg, lpcon) if retval <> 0 then exit function end if tstatus.dwsize = 160 retval = rasgetconnectstatus(trascon(0).hrascon, tstatus) if tstatus.rasconnstate = &h2000 then isconnected = true else isconnected = false end if end function 2、窗体中的代码： private sub form_load() 可供选择的whois服务器 with whois_server 第一条是查询国内域名的,其余可查询国际域名 .additem " whois.cnnic.net.cn " .additem " whois.opensrs.net " .additem " whois.networksolutions.com " .additem " whois.nic.gov " .additem " rs.internic.net " .additem " whois.ripe.net " .additem " whois.arin.net " .additem " whois.apnic.net " .additem " whois.aunic.net " .listindex = 0 end with end sub private sub send_query_button1_click() dim selected_whois_server as string if isconnected() = false then msgbox "没有连接到internet.", 64, "提示" else input_label.caption = "" whois_response = "" 初始化winsock winsock.close winsock.localport = 0 selected_whois_server = trim(whois_server.text) 连接到whois服务器数据库,端口号43 winsock.connect selected_whois_server, 43 end if end sub private sub winsock_connect() 连接winsock并发送域名查询请求 if trim(domain_name) = "" then whois_response = " no domain name was entered." beep exit sub end if winsock.senddata trim(domain_name) & vbcrlf end sub private sub winsock_dataarrival(byval bytestotal as long) 处理接收的winsock数据流 dim whois_data as string on error goto error_handler winsock.getdata whois_data input_label.caption = input_label.caption & whois_data whois_response = input_label.caption exit sub 错误处理 error_handler: whois_response = error end sub 三、本程序提供的功能既能查询国际域名，也能查询国内域名。如查询搜狐的结果如下所示。程序在win98,vb6.0下运行通过。
来源：
|
|
|
|
| |
|
|
|
 |
|
 |
在线咨询 |
 |
|
建站服务 |
|
经济型网站设计套餐 ￥2580 |
企业型网站设计套餐 ￥3980 |
豪华型网站设计套餐 ￥6580 |
商城型网站设计套餐 ￥7580 |
定制型网站设计套餐 ￥面 谈 |
智赢型ABC ￥1580/1980 |
|
|
|
 |
|
虚拟主机 |
|
普及型（电信）350元/年 |
经济型（电信）650元/年
|
普及A型（双线）500元/年 |
普及B型（双线）900元/年 |
外贸型（国外） 550元/年
|
企业型（国外） 1050元/年 |
我要订购主机>> |
|
|
|
域名注册 |
|
国际顶级域名.com 100元/年 |
国际顶级域名.net 100元/年 |
国际顶级域名.cc 380元/年 |
国际顶级域名.org 180元/年 |
中国顶级域名.cn 100元/年 |
中国顶级域名.com.cn 100元/年 |
中文域名.中国.公司 280元/年 |
我要注册域>> |
|
|
|
