/html/network/index.html 网络通讯 zh-cn <a href='mailto:webmaster@delphichm.com'> Copyright@delphichm,</a>2006-2009.<br/>All Rights Reserved.<br/> <script language="javascript" type="text/javascript" src="http://js.users.51.la/1120570.js"></script> webmaster@delphichm.com /html/network/20070629/224.html socket英文意思是插座，在计算机术语中，称为是套接字。它是一个把一些网络通信协议封装以便使用的组件。它最主要就是用来封装TCP/IP协议。在WinSocket的基础上，我们可以开发出许多的网络应用程序。比如说QQ，ICO等网络寻呼机，琅玛UC（一种P2P的软件）。 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/215.html S18 Modem Test Timer S19 AutoSync Options S25 Detect DTD Change S26 RTS To CTS Delay Interval S30 Inactivity Timeout S31 XON Character S32 XOFF Character S36 Negotiation Failure TDeatment S37 Desired DCE Line Speed S38 Han 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/214.html result := true; case Winsock.WSAStartup($0101,wsaData) of WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: result := false; else Winsock.WSACleanup; end; 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/213.html Function ConnectionKind :boolean; var flags: dword; begin Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then begin showmessage 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/212.html UDP协议用处多多，现在让我们用它来搞一个木马，一个简单的搞恶作剧的木马。首先，我们列举一下应该实现的功能，能对目标机进行关闭重启动；能让对方两眼一抹黑，黑屏，并且能解除；给对方弹点调侃的消息框；能把对方的鼠标锁定在某个区域内；能隐藏或者显示对方桌面； 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/211.html function GetNetBIOSAddress : string; var ncb : TNCB; status : TAdapterStatus; lanenum : TLanaEnum; procedure ResetAdapter (num : char); begin fillchar(ncb,sizeof(ncb),0); ncb.ncb_command:=char(NCBRESET); ncb.ncb_lana_ 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/210.html WinSock是一组API，用于在网络上传输数据和交换信息。虽然现在有很多工具如FTP程序可以在网络上传输数据和文件，但是通过WinSock编程有更大的灵活性，它不需要关心网络连接的细节，然而用WinSock编程却很复杂，但是在Delphi中我们并不需要直接与WinSock的API打交道，因 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/209.html Result:=true; if WSAStartup(MakeWord(1,1),WSData)=0 then begin ppe:=GetProtoByName('IP'); if ppe=nil then Result:=false; end; WSACleanup; 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/208.html procedure ShowHostName; var wVersionRequested : WORD; wsaData : TWSAData; p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin {启动 WinSock} wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/207.html 现在一般个人上网，都是运行Windows 平台，采用Modem拨号上网方式，在Windows 中，配置“拨号服务器”时，拨号服务器有一个属性，就是是否记录日志文件，其默认值是“否”。对于它，平常我们可能都没太注意。我们把它改成“是”，这样，在每次上网后，Windows 就会在其 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/206.html ---- 本公司在产品开发过程中，需要研究多种以太网交换机（又称智能集线器）的内部网管信息结构，为此，必须编写出一个“窃听”程序，把网管程序和交换机的通讯内容记录下来加以分析。本人在Visual C++ 6.0下用MFC Socket类编出程序，成功地实现了上述目的。 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/205.html { Decode base-64 files, Arne de Bruijn, 1996, Released to the Public Domain } { Strip everything but the base-64 lines before feeding it into this program } uses dos; var Base64:array[43..122] of byte; 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/204.html ----在Windows 环 境 下， 应 用 程 序 使 用Windows 网 络 函 数（WNet） 来 实 现 网 络 功 能 而 不 用 关 心 网 络 的 供 应 商 及 具 体 实 现， 因 为WNet 函 数 是 独 立 于 网 络 的。 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/203.html WSAStartup(2, WSAData); HostEnt := gethostbyname(PChar(Name)); with HostEnt^ do Result := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]); WSACleanup; 2007-06-29 网络通讯 轶名 站内 /html/network/20070629/202.html WNetAddConnection 重定向本地设备网络资源 WNetAddConnection2 重定向本地设备网络资源 WNetCancelConnection 断开网络连接 WNetCancelConnection2 断开网络连接 WNetCloseEnu 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/201.html function GetNetWorkgroup : string; var Reg : TRegistry; begin Reg := TRegistry.create; Result := '(n/a)'; with Reg do try RootKey := HKEY_LOCAL_MACHINE; if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP', 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/200.html 需要打开拨号网络吗？需要调用拨号网络里的拨号程序来连接吗？看下面： 其中“连接Internet”为你创建的拨号程序名称 winexec('rundll32.exe rnaui.dll,RnaDial '+'连接Internet',9); 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/199.html 使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件， 一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协 议中的一个功能，即向所指定的计算机发送一个请求，收到请求的计算机返回一 个应答，借此来判断该计算机是否在网上 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/198.html 当前机器的设置可以从注册表 HKEY_LOCAL_MACHINE\System\CurrentControlSet\ Services\Class\NetTrans\中得到。 搜索从0001到000a,如果 DriverDesc =TCP/IP,则IPMask就是当前掩码 2007-06-29 网络通讯 轶名 站内 /html/network/20070629/197.html ---- 为了防止程序被非法调试从而泄露密码，必须将客户的登录信息在服务器端处理，也可以专门增加一个安全层负责客户的登录。客户的登录信息储存在客户资料表中，包括用户名、密码、权限等信息。 ---- 客户程序登录时，先调用服务器程序的接口获得密钥字串，并用此 2007-06-29 网络通讯 轶名 站内 /html/network/20070629/196.html 例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用： SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ; // 各地址之间用一个空格隔开 1. SetTCPIPDNSAddresses 定义如下： 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/195.html 在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/194.html NetR.dwScope := RESOURCE_GLOBALNET; NetR.dwType := RESOURCETYPE_DISK; NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE; 2007-06-29 网络通讯 bill 站内 /html/network/20070629/193.html if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then ShowMessage('Machine is attached to network') else ShowMessage('Machine is not attached to network'); 2007-06-29 网络通讯 bill 站内 /html/network/20070629/192.html 需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的， 并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来， 要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使 2007-06-29 网络通讯 轶名 站内 /html/network/20070629/191.html 如果你问如何能得到网络邻居的列表，那是一个非常复杂的任务 您将不得不和非常不友好的OLE对象打交道 下面两个过程可能会对你有用 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/190.html Function ICQPage(dwUIN: DWORD; szFrom, szFromEmail, szSubject, szMsg: String): Integer; {This procedure sends an ICQ page. It uses a raw winsock interface to do this 2007-06-29 网络通讯 秩名 笨鱼技术网 /html/network/20070629/189.html var WorkgroupCount : Integer; Workgroup: Array[1..500] of String[25]; Procedure FindAllWorkgroups; Var EnumHandle: THandle; EntireNetwork: TNetResource; Buf: Array[1..500] of TNetResource; BufSize: Integer; // 或DWORD; Entries: Integer; // 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/188.html procedure FormShow(Sender: TObject); Function GetServerList( var List : TStringList ) : Boolean; Function GetUsers( GroupName : string; var List : TStringList ) : Boolean; procedure BitBtn1Click(Sender: TObject); procedure Bit 2007-06-29 网络通讯 bill 站内 /html/network/20070629/187.html NetBIOS网络协议对于很多读者来说可能比较陌生，但其实它是由IBM开发的一个很古老的协议，当年在LAN上也风光一时。说它老，其实也不过10年光景，IT业的发展实在是太快。由于NetBIOS不具备路由功能，也就是说它的数据包无法跨网段传输，因此在广域网、城域网大行其道的今 2007-06-29 网络通讯 轶名 网络 /html/network/20070629/186.html EnumHandle : THandle; WorkgroupRS : TNetResource; Buf : Array[1..500] of TNetResource; BufSize : Integer; Entries : Integer; Result : Integer; 2007-06-29 网络通讯 bill 站内 /html/network/20070629/185.html 调用FindComputers，返回WinAPI错误代码（如果有的话）。这个函数将会在TStringList类型的Computers对象中填入计算机名称。 2007-06-29 网络通讯 bill 站内 /html/network/20070629/184.html 一些旧的Internet协议（如FTP）发送IP地址的端口号时使用一种6字节的格式，形如：XXX.XXX.XXX.XXX.XX.XXX。要将这种6字节地址转换为4段地址的端口号，你可以使用以下代码： 2007-06-29 网络通讯 bill 站内 /html/network/20070629/183.html 我们有很多种方法获取一台计算机的IP地址，但这里才是“正确”的方法：列出所有的地址、网络掩码、广播地址和连接状态等，包括环回点 127.0.0.1。需要使用到WinSock2。 2007-06-29 网络通讯 轶名 站内 /html/network/20070629/182.html 这个函数将会检查URL是否有效。唯一的先决条件就是你必须在线。 URL前可能有 http:// 前缀，却省情况也是 http:// 作前缀,函数 internetOpenUrl 对 FTP:// 和 gopher:// 前缀均提供支持。 2007-06-29 网络通讯 bill 站内 /html/network/20070629/181.html 下面给出一个通过自定义源IP地址和源端口演示如何发送UDP数据包的例子，或许对你了解有所帮助.你也可以设计自己的协议，如发送SYN 数据浪涌，或其它类型的自定义协议。 { Raw 数据包 Sender 使用：Delphi + Winsock 2 描述： 通过使用Raw sockets我们可以在internet上 2007-06-29 网络通讯 bill 站内 /html/network/20070629/180.html WSAStartup($101, GInitData); Result := ``; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do b 2007-06-29 网络通讯 bill 站内 /html/network/20070629/179.html delphi中的nmftp控件中Download函数只能下载一个文件，没有提供一个下载整个目录（包含子目录）的函数。 我编写了个实现目录下载功能的方法，需要用到该功能的用户可参考一下。 2007-06-29 网络通讯 轶名 网络