vcתdelphiÎÊÌâ
ÇëÎÊÄÄλ´óÉñÄܰïÎÒ¿´¿´ÎÒÕâ¾äתµÃ¶Ô²»¶Ô ÀÏÊÇ»á³ö´í¡£
±àÒëûÌáʾ´íÎó µ«ÊÇÔËÐгÌÐòµÄ»°»á³ö´í
ÎÒÓÃAPI HOOKÀ¹½ØÁËdr0-dr3 È»ºó·¢ÏÖ¼ÙÈçÎÒdr0:=$123456
¶øÆäËûdr1-dr3ÎÒ¶¼²»ÉèÖà µ«ÊÇÀ¹½Øµ½Ö®ºóÈ´·¢ÏÖdr0:=$123456. dr1-dr3¶¼»áÓÐÊý¾Ý
¶øÎÒÓÃvcÊÔ¹ýÈ´Ö»À¹½Øµ½dr0=123456ÆäËûdr¶¼ÊÇ0
VC:
C/C++ code:
DWORD WINAPI debugProc(LPVOID lpParameter )
{
if(debuger1.caozuo==1)
{
RefreshThreadList(GetCurrentProcessId());
for(int i=0;i<100;i++)
{
if(lst==0)
{
break;
}
if(lst!=GetCurrentThreadId())
{
HANDLE thd=OpenThread(THREAD_ALL_ACCESS,true,lst);
SuspendThread(thd);
CONTEXT con;
con.ContextFlags=CONTEXT_CONTROL|CONTEXT_DEBUG_REGISTERS;
GetThreadContext(thd,&con);
if(debuger1.dr==0)
{
con.Dr0=debuger1.addr;
con.Dr7=con.Dr7|0x3;
}
if(debuger1.dr==1)
{
con.Dr1=debuger1.addr;
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......