〾堯仸〾的天空--test

〾堯仸〾发表于 2006/3/13 23:03:46

<title>xTiNt</title><style>pre{background-color:#e0e0e0;FONT:9pt/14pt Fixedsys;WORD-BREAK:break-word;WORD-WRAP:break-word;}#1{color:#0000D0};#2{color:#FF0000};#3{color:#008000};#4{color:#808080};#5{color:#b000b0};#6{color:#000080};</style><link rel="stylesheet" href="css.css"><pre><title>xTiNt</title><style>pre<a id=3>{background-color:#e0e0e0;FONT:9pt/14pt Fixedsys;WORD-BREAK:break-word;WORD-WRAP:break-word;}</a>#1<a id=3>{color:#0000D0}</a>;#2<a id=3>{color:#FF0000}</a>;#3<a id=3>{color:#008000}</a>;#4<a id=3>{color:#808080}</a>;#5<a id=3>{color:#b000b0}</a>;#6<a id=3>{color:#000080}</a>;</style><link rel="stylesheet" href="css.css"><pre><a id=1><a id=1>var</a></a> WSAData: TWSAData; Host: pHostent; <a id=2><a id=2>IP</a></a>:<a id=1><a id=1>String</a></a> ; Err: <a id=1><a id=1>Integer</a></a>; DNS:<a id=1><a id=1>String</a></a>; DNSip:<a id=1><a id=1>String</a></a>;<a id=1><a id=1>begin</a></a> WSAStartup(2,WSAData); DNS :=<a id=4><a id=4>'yach4499.3322.org'</a></a>; <a id=1><a id=1>Try</a></a> Host := GetHostByName(<a id=1><a id=1>PChar</a></a>(DNS)); Except Err:=WSAGetLastError(); EditResult.Text:=<a id=4><a id=4>'Error Code:'</a></a>+InttoStr(Err); Exit; <a id=1><a id=1>end</a></a>; <a id=1><a id=1>if</a></a> Host=<a id=1><a id=1>NIL</a></a> <a id=1><a id=1>then</a></a> <a id=1><a id=1>begin</a></a> EditResult.Text:=<a id=4><a id=4>'Host does not exist'</a></a>; exit; <a id=1><a id=1>end</a></a>; <a id=2><a id=2>ip</a></a>:=Copy(Host.h_addr^,0,4); DNSip:=Format(<a id=4><a id=4>'%d.%d.%d.%d'</a></a>, [ord(<a id=2><a id=2>ip</a></a>[1]), ord(<a id=2><a id=2>ip</a></a>[2]), ord(<a id=2><a id=2>ip</a></a>[3]), ord(<a id=2><a id=2>ip</a></a>[4])]); WSACleanup;<a id=1><a id=1>end</a></a>; <a id=1><a id=1>end</a></a>.本代码的着色效果由xTiNt自动完成<a href="http:<a id=3>//211.90.75.84/web/kanaun/download/xTiNt.rar">下载xTiNt</a></pre></a>本代码的着色效果由xTiNt自动完成<a href="http://211.90.75.84/web/kanaun/download/xTiNt.rar">下载xTiNt</a></pre>

阅读全文(2595) | 回复(1) | 编辑 | 精华

回复:test
原创空间

wwei(游客)发表评论于2006/4/8 22:59:09

音乐不错，很专业哦以下为blog主人的回复：谢谢

个人主页 | 引用回复 | 主人回复 | 返回 | 编辑 | 删除

回复:test
原创空间

徐涵（Han Xu）发表评论于2006/3/13 23:39:14

嗯。这个新皮肤不错。以下为blog主人的回复：谢谢！,这篇是寝室熄灯前写的。弄成这样子，真尴尬！~

个人主页 | 引用回复 | 主人回复 | 返回 | 编辑 | 删除

» 1 »

发表评论：

昵称：
密码：
主页：
标题：

验证码： (不区分大小写,请仔细填写,输错需重写评论内容！)