局域网监控(200分)

  • 主题发起人 主题发起人 wjguang
  • 开始时间 开始时间
W

wjguang

Unregistered / Unconfirmed
GUEST, unregistred user!
本人现在做一个“局域网监控系统”的毕业设计，其中要实现象“冰河”中查看受控机屏幕的功能。望各位大侠赐教！急！急！急！200分全部奉送！
 
用WinSocket很容易实现
受控机和主控机通过TCP协议连接
受控机用GetDesktopWindow取得桌面句柄，
再用Bitblt等API可将桌面的图像截取下来，
通过TCP连接发送到主控机，
网上这方面的例子应该有不少，
看过就忘了，手上有一个，不过不是很完善，
要的话，给你发过去吧。
 
看我的“我要杀人”吧，有全部原程序。要编译后的程序请到delphisoft@21cn.com下载,密码为8.
DP(User Datagram Protocol，意为用户报文协议)是Internet上广泛采用
的通信协议之一。与TCP协议不同，它是一种非连接的传输协议，没有确认机制，
可靠性不如TCP，但它的效率却比TCP高，用于远程屏幕监视还是比较适合的。同
时，UDP控件不区分服务器端和客户端，只区分发送端和接收端，编程上较为简单
，故选用UDP协议，使用Delphi 4.0提供的TNMUDP控件。 当然，如果您想在
Internet上用，可改用WinSocket.
 
各位大虾，
本人急需此类源码，可否速寄予我，
谢谢了。我的邮箱为xujjun@163.net
 
此类程序，如有源程序能否也给我一份？
THANKS！
 
jingtao:你的delphisoft@21cn.com用密码8.dp打不开！
能否EMAIL给我
maybeone@netease.com
 
哪位大侠能给我一份源码，非常感谢！
mengfc@drc.dq.cnpc.com.cn
 
对不起,密码为8
 
jingtao:
你的发射器程序中IconHide1，Stealth1，
MyRegistry1这按各空间从何而来，告诉我，ok?
 
danceofwind:
可否将你手头的监控例子和程序发给我，xujjun@163.net,
Thank you.
 
这些控件的功能可分别用下列代码来实现：
IconHide1：功能，程序不出现在任务栏
uses windows
var
ExtendedStyle : Integer;

begin
Application.Initialize;

//==============================================================
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);

SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
//===============================================================

Application.CreateForm(TForm1, Form1);
Application.Run;
end.

2.Stealth1,功能：程序不出现在ALT+CTRL+DEL
在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
RegisterServiceProcess(GetCurrentProcessID, 0);//显示
用ALT+DEL+CTRL看不见
3:MyRegistry1:让程序会自动运行，用注册表函数即可
 
jingtao:
谢谢你
可否进行局域网中的ip查询，并列表
 
用一个DOS命令就可以了：PING CJT,就会返回CJT的ip
 
做个DCOM
很容易的
 
能不能BTY给我一份：lycwg@cqnu.edu.cn
谢谢！！！
我也有相应的远端控制例程，谁愿与我交换？
 
用BITBMP格式，好慢的，客户机会有很的影响。
应该还有比较好的办法。
 
在计算机世界网站上就有详细的介绍
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

D
[原]2016-08-23：发布OrangeUI 1.64 Beta
回复
0
查看
812
DelphiTeacher的专栏
D
D
[原]2016-08-23：发布OrangeUI 1.64 Beta
回复
0
查看
758
DelphiTeacher的专栏
D
D
[原]2016-08-23：发布OrangeUI 1.64 Beta
回复
0
查看
708
DelphiTeacher的专栏
D
S
[原]Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部