200分,谁来那?(200分)

  • 主题发起人 主题发起人 OopsWare
  • 开始时间 开始时间
O

OopsWare

Unregistered / Unconfirmed
GUEST, unregistred user!
1.急需 NiceMC 1.7 注册号!(WinAmp 的 PlugIns 可放 DVD)<br>2.取任意网卡序列号!
 
Inter 卡吗?!
 
包括Inter,还有3Com, Novell, Hp, D-Link,... All kinds of NetCard!<br>好象您已经拿到 0.000000000000001 分了!<br>&nbsp;祝贺你
 
这是C的,你应该很容易改为戴妃的!<br>#include &lt;windows.h&gt; &nbsp; <br>#include &lt;wincon.h&gt; &nbsp; <br>#include &lt;stdlib.h&gt;<br>#include &lt;stdio.h&gt; &nbsp; <br>#include &lt;time.h&gt; &nbsp; <br><br>typedef struct _ASTAT_ &nbsp; {<br>&nbsp; &nbsp; &nbsp; ADAPTER_STATUS adapt; &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; &nbsp; NAME_BUFFER &nbsp; &nbsp;NameBuff [30];<br>&nbsp; &nbsp;}ASTAT, * PASTAT; &nbsp; <br><br>ASTAT Adapter; &nbsp;<br>&nbsp;<br>void main (void) &nbsp; <br>{ &nbsp; &nbsp; &nbsp;<br> NCB Ncb;<br> UCHAR uRetCode;<br> char NetName[50];<br> LANA_ENUM &nbsp; lenum;<br> int &nbsp; &nbsp; &nbsp;i;<br> memset( &amp;Ncb, 0, sizeof(Ncb) );<br> Ncb.ncb_command = NCBENUM;<br> Ncb.ncb_buffer = (UCHAR *)&amp;lenum;<br> Ncb.ncb_length = sizeof(lenum);<br> uRetCode = Netbios( &amp;Ncb );<br> printf( "The NCBENUM return code is: 0x%x /n", uRetCode );<br> for(i=0; i &lt; lenum.length ;i++)<br> {<br> memset( &amp;Ncb, 0, sizeof(Ncb) );<br> Ncb.ncb_command = NCBRESET;<br> Ncb.ncb_lana_num = lenum.lana;<br> uRetCode = Netbios( &amp;Ncb );<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br> printf( "The NCBRESET on LANA %d return code is: 0x%x /n",<br> lenum.lana, uRetCode );<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br> memset( &amp;Ncb, 0, sizeof (Ncb) );<br> Ncb.ncb_command = NCBASTAT;<br> Ncb.ncb_lana_num = lenum.lana;<br> strcpy( Ncb.ncb_callname, &nbsp;"* &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " );<br> Ncb.ncb_buffer = (char *) &amp;Adapter;<br> Ncb.ncb_length = sizeof(Adapter);<br> uRetCode = Netbios( &amp;Ncb );<br> printf( "The NCBASTAT on LANA %d return code is: 0x%x /n",<br> lenum.lana, uRetCode );<br> if ( uRetCode == 0 )<br> {<br> printf( "The Ethernet Number on LANA %d is:"<br> "%02x%02x%02x%02x%02x%02x/n",<br> lenum.lana,<br> Adapter.adapt.adapter_address[0],<br> Adapter.adapt.adapter_address[1],<br> Adapter.adapt.adapter_address[2],<br> Adapter.adapt.adapter_address[3],<br> Adapter.adapt.adapter_address[4],<br> Adapter.adapt.adapter_address[5] );<br> }<br> }<br>}
 
2&gt;<br>Function NBGetAdapterAddress(a:integer) : String; <br>Implementation <br><br>{$R *.DFM} <br><br>Procedure TForm1.Button1Click(Sender : TObject); <br>Begin <br>&nbsp; &nbsp;label1.Caption:=NBGetAdapterAddress(StrtoInt(Edit1.Text)); <br>End; <br><br>Function NBGetAdapterAddress(a:Integer) : String; <br>Var <br><br>&nbsp; NCB : TNCB; // Netbios control block file://NetBios控制块 <br>&nbsp; ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态 <br>&nbsp; LANAENUM : TLANAENUM; // Netbios lana <br>&nbsp; intIdx : Integer; // Temporary work value//临时变量 <br>&nbsp; cRC : Char; // Netbios return code//NetBios返回值 <br>&nbsp; strTemp : String; // Temporary string//临时变量 <br><br>Begin <br>&nbsp; // Initialize <br>&nbsp; Result := ''; <br><br>&nbsp; Try <br>&nbsp; &nbsp; // Zero control blocl <br>&nbsp; &nbsp; ZeroMemory(@NCB, SizeOf(NCB)); <br><br>&nbsp; &nbsp; // Issue enum command <br>&nbsp; &nbsp; NCB.ncb_command := Chr(NCBENUM); <br>&nbsp; &nbsp; cRC := NetBios(@NCB); <br><br>&nbsp; &nbsp; // Reissue enum command <br>&nbsp; &nbsp; NCB.ncb_buffer := @LANAENUM; <br>&nbsp; &nbsp; NCB.ncb_length := SizeOf(LANAENUM); <br>&nbsp; &nbsp; cRC := NetBios(@NCB); <br>&nbsp; &nbsp; If Ord(cRC)&lt;&gt;0 Then <br>&nbsp; &nbsp; &nbsp; exit; <br><br>&nbsp; &nbsp; // Reset adapter <br>&nbsp; &nbsp; ZeroMemory(@NCB, SizeOf(NCB)); <br>&nbsp; &nbsp; NCB.ncb_command := Chr(NCBRESET); <br>&nbsp; &nbsp; NCB.ncb_lana_num := LANAENUM.lana[a]; <br>&nbsp; &nbsp; cRC := NetBios(@NCB); <br>&nbsp; &nbsp; If Ord(cRC)&lt;&gt;0 Then <br>&nbsp; &nbsp; &nbsp; exit; <br><br>&nbsp; &nbsp; // Get adapter address <br>&nbsp; &nbsp; ZeroMemory(@NCB, SizeOf(NCB)); <br>&nbsp; &nbsp; NCB.ncb_command := Chr(NCBASTAT); <br>&nbsp; &nbsp; NCB.ncb_lana_num := LANAENUM.lana[a]; <br>&nbsp; &nbsp; StrPCopy(NCB.ncb_callname, '*'); <br>&nbsp; &nbsp; NCB.ncb_buffer := @ADAPTER; <br>&nbsp; &nbsp; NCB.ncb_length := SizeOf(ADAPTER); <br>&nbsp; &nbsp; cRC := NetBios(@NCB); <br><br>&nbsp; &nbsp; // Convert it to string <br>&nbsp; &nbsp; strTemp := ''; <br>&nbsp; &nbsp; For intIdx := 0 To 5 Do <br>&nbsp; &nbsp; &nbsp; strTemp := strTemp + InttoHex(Integer(ADAPTER.adapter_address[in <br>tIdx]),2); <br>&nbsp; &nbsp; Result := strTemp; <br>&nbsp; Finally <br>&nbsp; End; <br>End; <br><br><br>End. <br><br><br>
 
感谢 LawrenceZhang,zyy04 <br>问题 (1) 继续<br><br><br>
 
千辛万苦找到的注册机,现发给你!
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
800
DelphiTeacher的专栏
D
D
回复
0
查看
742
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部