很久之前写过一个浏览器的User Agent模拟工具，但是比较粗糙。没有进度，也没有单独的线程处理下载。在下载大文件的时候就卡死了。今天重新修改了一下，至于模拟User Agent干嘛就不用明说了吧？嘻嘻

反正是想干点什么坏事还不想让人知道那么最简单的方法就是模拟User Agent了。这次也没有准备什么文本模式，感觉没有必要，下载的页面或者文件会保存在程序的当前目录下。至于叫什么名字一看就知道了。对于post数据测试的比较少，如果有什么问题在后面留言吧。猛击此处下载程序！ 

相关文章

• 蛋疼的挂掉360云查杀的小玩意儿( 3 )
• 大家注意一下这个【病毒】 ，专门针对delphi的，嵌入源码的病毒。( 0 )
• DynamicSkinForm VCL SKINS( 0 )
• 破解专用记事本 【修正版】( 0 )
• DxSkin For Delphi 2010 Cracked( 0 )
• OD Unicode String Format Convert v0.1( 0 )
• 巨鲸音乐播放器 v3.0.1( 3 )
• Google Music Player Beta v1.0( 0 )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

void ExecutCmd()
{
	SECURITY_ATTRIBUTES sa;
	HANDLE hRead,hWrite;
	wchar_t * lpCommandLine =_T("ping.exe www.h4ck.org.cn ");
	sa.nLength = sizeof(SECURITY_ATTRIBUTES);
	sa.lpSecurityDescriptor = NULL;
	sa.bInheritHandle = TRUE;
 
	TCHAR temp[255] = {0};
	_tcscpy(temp,lpCommandLine);
	if (!CreatePipe(&hRead,&hWrite,&sa,0)) {
		MessageBox(_T("Error On CreatePipe()"));
		return;
	}
 
	STARTUPINFO si;
	PROCESS_INFORMATION pi;
	si.cb = sizeof(STARTUPINFO);
	GetStartupInfo(&si);
	si.hStdError = hWrite;
	si.hStdOutput = hWrite;
	si.wShowWindow = SW_HIDE;
	si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
	if (!CreateProcess(NULL,temp
		,NULL,NULL,TRUE,NULL,NULL,NULL,&si,&pi)) {
			MessageBox(_T("Error on CreateProcess()"));
			return;
	}
	CloseHandle(hWrite);
 
	char buffer[4096] = {0};
	DWORD bytesRead;
	while (true) {
 
		if (ReadFile(hRead,buffer,0x3FFu,&bytesRead,NULL) == NULL)
			break;
		outputstr += buffer;//m_outputstr is CString
		OutputDebugString(outputstr);
		UpdateData(false);
		Sleep(200);
 
	}
}

Delphi 代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

procedure CheckResult(b: Boolean); 
begin 
if not b then 
raise Exception.Create(SysErrorMessage(GetLastError)); 
end; 
 
function RunDOS(const CommandLine: string): string; 
var 
HRead, HWrite: THandle; 
StartInfo: TStartupInfo; 
ProceInfo: TProcessInformation; 
b: Boolean; 
sa: TSecurityAttributes; 
inS: THandleStream; 
sRet: TStrings; 
begin 
Result := ''; 
FillChar(sa, sizeof(sa), 0); 
//设置允许继承，否则在NT和2000下无法取得输出结果 
sa.nLength := sizeof(sa); 
sa.bInheritHandle := True; 
sa.lpSecurityDescriptor := nil; 
b := CreatePipe(HRead, HWrite, @sa, 0); 
CheckResult(b); 
 
FillChar(StartInfo, SizeOf(StartInfo), 0); 
StartInfo.cb := SizeOf(StartInfo); 
StartInfo.wShowWindow := SW_HIDE; 
//使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式 
StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; 
StartInfo.hStdError := HWrite; 
StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE); //HRead; 
StartInfo.hStdOutput := HWrite; 
 
b := CreateProcess(nil, //lpApplicationName: PChar 
PChar(CommandLine), //lpCommandLine: PChar 
nil, //lpProcessAttributes: PSecurityAttributes 
nil, //lpThreadAttributes: PSecurityAttributes 
True, //bInheritHandles: BOOL 
CREATE_NEW_CONSOLE, 
nil, 
nil, 
StartInfo, 
ProceInfo); 
 
CheckResult(b); 
WaitForSingleObject(ProceInfo.hProcess, INFINITE); 
 
inS := THandleStream.Create(HRead); 
if inS.Size > 0 then 
begin 
sRet := TStringList.Create; 
sRet.LoadFromStream(inS); 
Result := sRet.Text; 
sRet.Free; 
end; 
inS.Free; 
 
CloseHandle(HRead); 
CloseHandle(HWrite); 
end;

相关文章

• Delphi Read/Write REG_MULTI_SZ( 0 )
• C语言：字符串详解( 0 )
• QQ强行聊天器( 2 )
• MemLibrary 内存 加载DLL DELPHI( 0 )
• Delphi 记事本【有码有真相】( 4 )
• 蛋疼的 REG_MULTI_SZ( 4 )
• Google Music Player Beta v1.0( 0 )
• Moving to Windows x64【翻译】( 2 )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

unit dropfile;
 interface
 uses
   Windows, Messages, SysUtils, Classes,
   Graphics, Controls, Forms, Dialogs;
 type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
     // declare our DROPFILES message handler
     procedure AcceptFiles( var msg : TMessage );
     message WM_DROPFILES;
   end;
 var
   Form1: TForm1;
 implementation
 uses
   // this unit contains certain functions that we'll be using
   ShellAPI;
 {$R *.DFM}

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

 procedure TForm1.AcceptFiles( var msg : TMessage );
 const
   cnMaxFileNameLen = 255;
 var
   i,
   nCount     : integer;
   acFileName : array [0..cnMaxFileNameLen] of char;
 begin
   // find out how many files we're accepting
   nCount := DragQueryFile( msg.WParam,
                            $FFFFFFFF,
                            acFileName,
                            cnMaxFileNameLen );
   // query Windows one at a time for the file name
   for i := 0 to nCount-1 do
   begin
     DragQueryFile( msg.WParam, i,
                    acFileName, cnMaxFileNameLen );
     // do your thing with the acFileName
     MessageBox( Handle, acFileName, '', MB_OK );
   end;
   // let Windows know that you're done
   DragFinish( msg.WParam );
 end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   // tell Windows that you're accepting drag and drop files
   DragAcceptFiles( Handle, True );
   //< <<
 end;
 end.

link:http://www.chami.com/tips/delphi/111196D.html

相关文章

• Delphi中实现程序的延时的方法( 0 )
• DxSkin For Delphi 2010 Cracked( 0 )
• WebBrowserWithUI[支持设置滚动条]( 0 )
• DXScene v3.71 for Delphi/BCB/Lazarus Full.Source( 0 )
• Glass CMD For Win 7( 5 )
• 破解专用多功能记事本 Alpha 版( 0 )
• IP归属地查询器( 0 )
• 巨鲸音乐播放器 v3.0.1( 3 )

就像我们所熟知的那样，IDA对于Unicode和中文的串式参考并没有太好的处理，在这一方面不管是从插件还是ida自身的功能来看都要比OD的Unicode字符串搜索差得多。但是OD的字符串参考却不太好导入到IDA中于是就先是写了个idc的脚本，用来导入数据。今天又写了个小工具用来处理od解析出来的中文字符串参考。效果就是上面的样子，也许那天实在无聊了会改下OD的中文字符串搜索插件，让其可以直接导出数据。

今天又听到了一些不该听的事情，搞得我现在心情非常差劲。心里也非常的不舒服，有的时候事情就是这样，想躲都躲不过。当别人好心告诉你一些她认为是好事情的时候却不知道到了才知道tmd竟然是悲剧。

现实就是这样，于是与其遮遮掩掩，倒不如抛开胸膛让心在空气中燃烧！

相关文章

• Super turtle 内存清理 破解版( 0 )
• RegUtility 4.0 Cracked( 0 )
• Thunder (迅雷7)7.1.4.2100 去广告补丁( 0 )
• QQ强行聊天器( 2 )
• 金钻文件夹加密大师 2010[破解版]( 0 )
• 迅雷7 通用去广告补丁( 0 )
• 中文版( 0 )
• WinRar 4.01(64-bit) Cracked( 2 )

Download Link:http://dl.dbank.com/c00ygagrig

相关文章

• PE头移位工具 v1.0( 0 )
• 免费的图标资源( 2 )
• WebQQ 0.1(单文件版)( 0 )
• Delphi 7 优化精简全功能版 v7.3( 0 )
• 火星黑客研究院-论坛挂机工具( 0 )
• 笔记本War3全屏设置工具( 0 )
• User Agent Simulator v2.0( 0 )
• 蛋疼的挂掉360云查杀的小玩意儿( 3 )

Embarcadero.Delphi.XE2.RTM.v16.0.4256.43595.Lite.v5.0
——————————————————————————–

作者：lsuper
——————————————————————————–
发布历史：
2011.09.09 – v5.0
1、根据 RTM v16.0.4256.43595 原版制作
2011.08.08 – v5.0 Beta8
1、根据 beta8 v16.0.4223.41907 原版制作
2、为便于大家试用，写了一个 XE2Resetter 外挂
——————————————————————————–

主程序窗口：

关于窗口：

试用序列号申请：https://downloads.embarcadero.com/free/delphi

境内下载地址：http://115.com/file/dn163afm

境外下载地址：http://uploading.com/files/1bfea8a2/lsuper_Embarcadero.Delphi.XE2.RTM.v16.0.4256.43595.Lite.v5.0.rar/

——————————————————————————–

已知问题：

1、在 Windows 2003 x64 下 Debug x64 程序会报 Unable to scan program’s header. 或者 Debugger Assertion Failure: “initProc” in ..\win32src\wmcevaldelphi.cpp at line 39 的错误，这是原版的问题，推荐还是用 Windows 7 x64 吧，这个没问题

——————————————————————————–

发布说明：

相对原始版本，这个 Lite 精简且只精简了原 RTM 的以下支持程序、第三方工具内容：

1、FireMonkey-iOS 目录下的 FireMonkey-iOS.dmg，这个是 FireMonkey 在 xcode 下配合 FPC 使用的支持库；详情参考：http://www.itwriting.com/blog/4841-hands-on-with-delphi-xe2-for-apple-ios.html
2、PAServer 目录下的 setup_paserver.exe/zip，用于 MacOSX 远程调试；详情参考：http://www.simonjstuart.com/2011/09/03/rad-studio-xe2-setting-it-up-for-a-mac-step-by-step-illustrated-guide/
3、InstallAware 目录下的 myahe_bds_web.exe，个人还是比较推荐完全免费的 Inno Setup ;>
4、AQTime、CodeSite Express、Documentation Insight、FastReport、FinalBuilder、RaveReports、SvnClient 等；

还有，原版依赖 300多兆的 .NET Framework 3.5 sp1，我把它依赖的文件提取出来整合到安装程序中了，所以还是与以往 lite 一样，仅依赖 .NET Framework 2.0。

其他的源码、支持库等都是绝对完整的。

——————————————————————————–

特别说明：

这个版本的来源于官方 Beta/RTM 正式试用版，版权归 Embarcadero 所有，请在下载后 24 小时内删除。
重新打包纯粹个人兴趣所致，希望能方便网友测试、交流。作为 Delphi 多年的 Fans，我们都希望 Delphi 能做得更好！
如果您觉得 Delphi XE2 不错，请购买正版，更好的支持 Embarcadero 的发展！

——————————————————————————–

特别感谢：

1、…

——————————————————————————–

FAQ：

1、现在 Embarcadero 的安装程序已经很快了，为啥还要 Lite/Repack？

相对 D2006/2007 的安装确实进步了不少。不过依然存在安装时间长，安装完遗留大量垃圾文件、卸载可能遗留垃圾等问题。这个 Lite 或者说是 Repack，就是为了方便 Delphier 们能方便的尝试 Delphi 的新功能，同时对系统的影响降到最小。至于用 Lite/Repack 还是原版，见人见智啦。

2、这个版本的来源？

这个版本的来源于官方 Beta/RTM 正式试用版，版权归 Embarcadero 所有，请在下载后 24 小时内删除。重新打包纯粹个人兴趣所致，希望能方便网友测试、交流。作为 Delphi 多年的 Fans，我们都希望 Delphi 能做得更好！如果您觉得 Delphi XE2 不错，请购买正版，更好的支持 Embarcadero 的发展！

3、这个 lite 版完整么？

说是 lite 版，其实就是原版 Delphi XE2 部分的 Repack，所有 Delphi XE2 的功能都是完整的。我所做的就是在一个绝对干净的 VMWware XP 中安装官方的版本，除了只安装 Delphi XE2，不包括 Rave 其他一切默认。安装出来的 Disk 文件与原始标准的对比，提取所有安装的文件、注册表啥的变化，然后用 Inno 重新封装。所以这个其实不是 lite 而是 repack。

4、不是 For Win32 的么？为什么还必须要求安装 .NET 2.0？

因为 Delphi 2007 起，Delphi IDE 的核心组件依赖于 .NET，诸如 asmview 等，如果没有 .NET 无法正常运行，而没有 asmview 调试时的 Hint 无法显示（个人认为这个功能绝对总要！这也是网上类似版本 BUG 的根源）。

5、怎么没有 Delphi For .NET？

Delphi 是做 Win32 的。

6、怎么没有 C++Builder ？

Lsuper 是做 Delphi 的。

7、怎么默认不安装 Together ？

因为 Together 组件需要 Microsoft Visual J# 2.0 的支持，而且 Together 使用者很少，经网友建议暂时把 Together 作为可选组件安装。

8、怎么软件中没有帮助？

这个软件中是单独安装的，我已经 Rip 了，有机会再发布吧 :>

9、可否增加某某某功能？

那多交流啊 …

A、出现 xxx 问题啦

欢迎到盒子、大富翁、B4A 等论坛上提出您的反馈

.o(∩_∩)o..

相关文章

• Glass CMD For Win 7( 5 )
• 文件夹智能同步工具1.0 （美化版）( 0 )
• Castalia 2011 for CodeGear Delphi( 0 )
• QQ强行聊天器( 2 )
• 蛋疼的挂掉360云查杀的小玩意儿( 3 )
• Delphi2010开发团队全家福( 0 )
• DxSkin For Delphi 7 Cracked {一个类似于QQ皮肤的控件}( 2 )
• WebQQ 0.1(单文件版)( 0 )

虽然firefox有模拟浏览器的东西，但是使用还是有很多弊端。有的信息没有办法模拟，于是就蛋疼的自己写了一个，应该是两个，还有一个txt版本，lol，就是下面的样子。

这个使用来显示源代码的，但是显示效果一般。虽然如此但是够用啦。lol

相关文章

• QQ强行聊天器( 2 )
• Delphi 7 优化精简全功能版 v7.3( 0 )
• OD Unicode String Format Convert v0.1( 0 )
• Delphi2010开发团队全家福( 0 )
• Delphi 2010產品技術發表會投影片和範例檔!( 0 )
• DxSkin For Delphi 7 Cracked {一个类似于QQ皮肤的控件}( 2 )
• Delphi 记事本【有码有真相】( 4 )
• DXScene v3.71 for Delphi/BCB/Lazarus Full.Source( 0 )

用笔记本玩过War3的都知道笔记本下War3可能无法全屏显示，周末的时候我就遇到了这个问题。于是自己写了一个小工具来测试了一下，效果还是可以了。

猛击此处下载程序！

文件校验信息：

文件名: F:\Delphi Project\War III FullScreen\War3 Screen.exe
文件大小: 723087 字节 (706.14 KB)
修改日期: 2011-07-04 11:09
版本: 1.0.0.0
MD5: bcd29e08c9b034edb789f2d662a4f409
SHA1: e49d6b02b1c7f2cd86565832e7ea00f2f7d43326
SHA256: 5e156bcfa8716b38cc4d6ad6cc7a2becbfe90bf3516468dd9de36357811d4400
CRC32: 69ea5d87

相关文章

• 字符转转换（汉字 Unicode Base64加密解密）( 0 )
• Google Music Player Beta v1.0( 0 )
• FTP my IP( 0 )
• 美化版的JvOutLookBar( 0 )
• Delphi中实现程序的延时的方法( 0 )
• IP Sender [IP 发送者 ] beta 2( 0 )
• 魔兽争霸【War3】显血显蓝改键工具+VS&浩方挤房间工具( 0 )
• Delphi Read/Write REG_MULTI_SZ( 0 )

这个是针对Google最新推出的Music Beta集成的，效果还可以。

下面是登录界面的样子：

猛击此处下载该程序！

另外在处理TwebBrowser的时候出现了一个什么Invalid floating point operation.的错误，后来找了一下解决方法，在FormCreate事件中加入如下代码就可以了：

1

Set8087CW(Longword($133f));

具体原理如下：

在Delphi2011中需要通过浮点单位控制指令设置浮点运算单位。浮点单位控制指令控制着浮点运算的精度、四舍五入的方式以及特定的浮点运算是否触发异常。可以参阅Intel处理器的详细文档。
在Delphi2011中有函数可以直接访问处理器的控制指令。比如，可以使用Set8087CW函数改变8087CW控制指令的值，从而改变程序浮点计算的行为。编程人员需要自己负责在程序结束时重置这个指令。

解决办法，就是直接禁用浮点异常，方法如下：
在在Delphi2011中，当使用OpenGL进行3D渲染时，推荐使用Set8087CW函数禁用浮点异常。可以在调用OpenGL函数之前，比如在mainForm的OnCreate的过程中写入:

1	Set8087CW(0x133f)

实例代码：
1.声明全局的变量保存原有的8087CW设置

1 2	var Saved8087CW: Word;

2.在mainForm的OnCreate过程中改变8087CW的值，改变之前先保存默认值

1 2	Saved8087CW := Default8087CW; Set8087CW($133f); { Disable all fpu exceptions }

3.在程序结束前，使用默认值重置8087CW指令值。在mainForm的OnClose过程中
Set8087CW(Saved8087CW);
4.还有一点需要注意，如果在程序中使用了SceneControl.LoadSxFile载入了3D文档，那么必须在程序退出时，在Set8087CW之前调用IScene的ClearLayers方法清除图层，否则程序在退出时会出现异常。
参考代码为：

1 2	SceneControl1.Scene.ClearLayers; Set8087CW(Saved8087CW);

5.还有在程序退出之前需要调用如下语句

1	(CoAoInitialize.Create as IAoInitialize).Shutdown

原始链接：http://blog.csdn.net/shuaihj/archive/2011/05/09/6406781.aspx

相关文章

• IP归属地查询器( 0 )
• Chrome OS传说中的Google操作系统( 0 )
• WebQQ 0.1(单文件版)( 0 )
• GoldWave v5.58 Patch( 0 )
• Embarcadero.Delphi.XE2.RTM.v16.0.4256.43595.Lite.v5.0( 0 )
• 关于搜索引擎 Google/百毒( 2 )
• 免费的图标资源( 2 )
• DxSkin For Delphi 7 Cracked {一个类似于QQ皮肤的控件}( 2 )

REG_MULTI_SZ    一个以空字符结束的字符串数组，被两个null字符结束。

看了半天也没发现到底信息后面写的是什么东西，看来是我太笨了！ 今天又遇到这个问题索性把注册表中的一个REG_MULTI_SZ   键值倒了出来，原来竟然是这么一串东东：

1
2
3
4
5
6
7
8
9
10
11
12

Windows Registry Editor Version 5.00
 
[HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System]
"Component Information"=hex:00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"Identifier"="AT/AT COMPATIBLE"
"Configuration Data"=hex(9):ff,ff,ff,ff,ff,ff,ff,ff,00,00,00,00,02,00,00,00,05,\
00,00,00,0c,00,00,00,00,00,00,00,00,00,00,00,80,00,ff,03,00,00,3f,00,fe,00,\
01,00,05,00,00,00,18,00,00,00,00,00,00,00,00,00,00,00,00,00,0c,00,00,de,00,\
00,00,00,0e,00,00,00,01,00,00,00,0f,00,00,00,01,00
"SystemBiosDate"="12/17/10"
"SystemBiosVersion"=hex(7):31,00,32,00,31,00,37,00,31,00,30,00,20,00,2d,00,20,\
00,32,00,30,00,31,00,30,00,31,00,32,00,31,00,37,00,00,00,00,00

结束的地方是00,00,00,00,00～ ，知道了是怎么结束的也就知道该怎么写回去了。擦，太蛋疼了～

相关文章

• C语言二维数组 打印方阵( 0 )
• 美化版的JvOutLookBar( 0 )
• FTP my IP( 0 )
• Let them drag and drop files on your program( 0 )
• Delphi中实现程序的延时的方法( 0 )
• WebBrowserWithUI[支持设置滚动条]( 0 )
• Delphi Read/Write REG_MULTI_SZ( 0 )
• 笔记本War3全屏设置工具( 0 )