|
|
|
|
|
 |
delphi 学习WinSocket的编程 |
| |
日期：2007-06-29 11:01:25
点击：171 评论：0  |
|
socket英文意思是插座，在计算机术语中，称为是套接字。它是一个把一些网络通信协议封装以便使用的组件。它最主要就是用来封装TCP/IP协议。在WinSocket的基础上，我们可以开发出许多的网络应用程序。比如说QQ，ICO等网络寻呼机，琅玛UC（一种P2P的软件）。 |
|
|
delphi Modem的指令 |
| |
日期：2007-06-29 10:25:34
点击：23 评论：0 |
|
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 |
|
|
delphi 监测TCP IP协议是否安装了 |
| |
日期：2007-06-29 10:24:50
点击：29 评论：0 |
|
result := true;
case Winsock.WSAStartup($0101,wsaData) of
WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: result := false;
else Winsock.WSACleanup;
end;
|
|
|
delphi 获得连接类型 |
| |
日期：2007-06-29 10:23:59
点击：16 评论：0 |
|
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 |
|
|
delphi 木马DIY |
| |
日期：2007-06-29 10:23:00
点击：85 评论：0 |
|
UDP协议用处多多，现在让我们用它来搞一个木马，一个简单的搞恶作剧的木马。首先，我们列举一下应该实现的功能，能对目标机进行关闭重启动；能让对方两眼一抹黑，黑屏，并且能解除；给对方弹点调侃的消息框；能把对方的鼠标锁定在某个区域内；能隐藏或者显示对方桌面； |
|
|
delphi 获取BIOS信息 |
| |
日期：2007-06-29 10:21:39
点击：36 评论：0 |
|
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_ |
|
|
delphi 用Delphi实现远程控制 |
| |
日期：2007-06-29 10:20:40
点击：86 评论：0 |
|
WinSock是一组API，用于在网络上传输数据和交换信息。虽然现在有很多工具如FTP程序可以在网络上传输数据和文件，但是通过WinSock编程有更大的灵活性，它不需要关心网络连接的细节，然而用WinSock编程却很复杂，但是在Delphi中我们并不需要直接与WinSock的API打交道，因 |
|
|
delphi 判断协议是否安装 |
| |
日期：2007-06-29 10:18:16
点击：18 评论：0 |
|
Result:=true;
if WSAStartup(MakeWord(1,1),WSData)=0 then
begin
ppe:=GetProtoByName('IP');
if ppe=nil then
Result:=false;
end;
WSACleanup; |
|
|
delphi 网络计算机信息 |
| |
日期：2007-06-29 10:17:06
点击：17 评论：0 |
|
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);
|
|
|
delphi 编写上网计费软件 |
| |
日期：2007-06-29 10:15:45
点击：29 评论：0 |
|
现在一般个人上网，都是运行Windows 平台，采用Modem拨号上网方式，在Windows 中，配置“拨号服务器”时，拨号服务器有一个属性，就是是否记录日志文件，其默认值是“否”。对于它，平常我们可能都没太注意。我们把它改成“是”，这样，在每次上网后，Windows 就会在其 |
|
|
delphi 利用“侦听-转发”程序破译网管协议 |
| |
日期：2007-06-29 10:14:27
点击：22 评论：0 |
|
---- 本公司在产品开发过程中，需要研究多种以太网交换机（又称智能集线器）的内部网管信息结构，为此，必须编写出一个“窃听”程序，把网管程序和交换机的通讯内容记录下来加以分析。本人在Visual C++ 6.0下用MFC Socket类编出程序，成功地实现了上述目的。 |
|
|
delphi Base64编码转换 |
| |
日期：2007-06-29 10:13:28
点击：36 评论：0 |
|
{ 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; |
|
|
delphi 网络映射驱动器 |
| |
日期：2007-06-29 10:12:06
点击：22 评论：0 |
|
----在Windows 环 境 下， 应 用 程 序 使 用Windows 网 络 函 数（WNet） 来 实 现 网 络 功 能 而 不 用 关 心 网 络 的 供 应 商 及 具 体 实 现， 因 为WNet 函 数 是 独 立 于 网 络 的。 |
|
|
delphi 由域名获IP |
| |
日期：2007-06-29 10:11:04
点击：12 评论：0 |
|
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; |
|
|
delphi 相关网络的API |
| |
日期：2007-06-29 10:10:04
点击：15 评论：0 |
|
WNetAddConnection 重定向本地设备网络资源
WNetAddConnection2 重定向本地设备网络资源
WNetCancelConnection 断开网络连接
WNetCancelConnection2 断开网络连接
WNetCloseEnu |
|
|
|
|
|
|
|
