社区
Delphi
帖子详情
老问题:如何得到网卡号(必须以为例DELPHI)
east_sun
2000-02-16 06:44:00
我得到过大家的帮助但没有成功,VC等我知道可以现必须使用DELPHI。
请给出例子
谢谢!!!!
...全文
163
3
打赏
收藏
老问题:如何得到网卡号(必须以为例DELPHI)
我得到过大家的帮助但没有成功,VC等我知道可以现必须使用DELPHI。 请给出例子 谢谢!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Lin
2000-02-16
打赏
举报
回复
我有一个控件,要不要?
kxy
2000-02-16
打赏
举报
回复
Function NBGetAdapterAddress(a:integer) : String;
Implementation
{$R *.DFM}
Procedure TForm1.Button1Click(Sender : TObject);
Begin
label1.Caption:=NBGetAdapterAddress(StrtoInt(Edit1.Text));
End;
Function NBGetAdapterAddress(a:Integer) : String;
Var
NCB : TNCB; // Netbios control block //NetBios控制块
ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态
LANAENUM : TLANAENUM; // Netbios lana
intIdx : Integer; // Temporary work value//临时变量
cRC : Char; // Netbios return code//NetBios返回值
strTemp : String; // Temporary string//临时变量
Begin
// Initialize
Result := '';
Try
// Zero control blocl
ZeroMemory(@NCB, SizeOf(NCB));
// Issue enum command
NCB.ncb_command := Chr(NCBENUM);
cRC := NetBios(@NCB);
// Reissue enum command
NCB.ncb_buffer := @LANAENUM;
NCB.ncb_length := SizeOf(LANAENUM);
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then
exit;
// Reset adapter
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[a];
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then
exit;
// Get adapter address
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBASTAT);
NCB.ncb_lana_num := LANAENUM.lana[a];
StrPCopy(NCB.ncb_callname, '*');
NCB.ncb_buffer := @ADAPTER;
NCB.ncb_length := SizeOf(ADAPTER);
cRC := NetBios(@NCB);
// Convert it to string
strTemp := '';
For intIdx := 0 To 5 Do
strTemp := strTemp + InttoHex(Integer(ADAPTER.adapter_address[in
tIdx]),2);
Result := strTemp;
Finally
End;
End;
End.
欢迎去http://kangxinyong.spedia.net
radish
2000-02-16
打赏
举报
回复
我有c++BUILDER的辕马(radsworld.yeah.net),是把从http://forum.coolhot.com/forum/borland/main.html搜来的DELPHI代码改的(不好意思,原码没留)你去那里搜一搜,发表人是“王发军”,你也可到他的网页(wangfajun.163.net)找找
Linux驱动程序之
网卡
先讲框架,在编写一个虚拟
网卡
驱动
使用
DELPHI
制做外挂
KeyLife富翁笔记 (此作品参加“Borland ALM 产品开发者竞赛参赛”,请大家给他打分。) 作者: 微程标题:
Delphi
深度之旅——网络游戏外挂制作 关键字: 外挂,API,
Delphi
,游戏 分类: 开发经验 密级: 参赛 (评分:★★★★★ , 回复: 37, 阅读: 8595) ?? 昆明 刘悦 在几年前我看到别人玩网络游戏用上了外挂,做为程序员的我心里实在是不爽,
转:
DELPHI
外挂
来自: http://hi.baidu.com/%D0%A1%D5%D1persist/blog/item/e007cafda5af4a1508244dce.html 在几年前我看到别人玩网络游戏用上了外挂,做为程序员的我心里实在是不爽,想搞清楚这到底是怎么回事。就拿了一些来研究,小有心得,拿出来与大家共享,外挂无非就是分几种罢了(依制作难度): 1、动作式,所谓动作式,就是指用...
delphi
外挂制作
KeyLife富翁笔记 (此作品参加“Borland ALM 产品开发者竞赛参赛”,请大家给他打分。) 作者: 微程标题:
Delphi
深度之旅——网络游戏外挂制作 关键字: 外挂,API,
Delphi
,游戏 分类: 开发经验 密级: 参赛 (评分:★★★★★ , 回复: 37, 阅读: 8595) »»昆明 刘悦 在几年前我看到别人玩网络游戏用上了外挂,做为程序员的我心里实在是不爽,想搞
转载:
Delphi
中制作外挂心得
在几年前我看到别人玩网络游戏用上了外挂,做为程序员的我心里实在是不爽,想搞清楚这到底是怎么回事。就拿了一些来研究,小有心得,拿出来与大家共享,外挂无非就是分几种罢了(依制作难度):1、动作式,所谓动作式,就是指用API发命令给窗口或API控制鼠标、键盘等,使游戏里的人物进行流动或者攻击,最早以前的“石器”外挂就是这种方式。2、本地修改式,这种外挂跟传统上的一些游戏修改器没有两样,做这种外挂...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章