#include
#include "shlwapi.h"

IHTMLDocument2 *document;
IHTMLElement *body;
(void *)document=CWB->Document;
IHTMLElementCollection *collection;

//1
IHTMLDocument2 *document;
IHTMLElement *body;
(void *)document=CWB->Document;
IHTMLElementCollection *collection;
document->get_all(&collection);
long count_links;

网络上资料好象混乱了，留个备份
TVariant *UR,*PD;
UR=URL;PD=PostData;
Variant v=UR;
Memo2->Lines->Add(v.AsType(varString));
if (PD!=NULL&&PD->vt==(VT_VARIANT|VT_BYREF)&&PD->pvarVal->vt!=VT_EMPTY)
{
char *szTemp=NULL,*szPostData;
long plLbound, plUbound;
SAFEARRAY *parrTemp=PD->pvarVal->parray;
SafeArrayAccessData(parrTemp,(void HUGEP **)&szTemp);
SafeArrayGetLBound(parrTemp , 1, &plLbound);
SafeArrayGetUBound(parrTemp , 1, &plUbound);
szPostData=new char[plUbound-plLbound+2];
StrCpyN(szPostData,szTemp,plUbound-plLbound+1);
szPostData[plUbound-plLbound] = '\0';
SafeArrayUnaccessData(parrTemp);
Memo2->Lines->Add(szPostData);
delete szPostData;
}

代码如下，看不懂的华丽的一脚揣飞
$t_url=$_SERVER['REQUEST_URI'];
$t_ip=$_SERVER['REMOTE_ADDR'];
$t_count=0;
$t_url=strtolower($t_url);

真是人在屋檐下，不得不低头，本来还想把扒来的代码改下的，结果死活运行失败，看来用微软的东西就得原样照抄才行哎。
包含的库文件#include "Iphlpapi.h"
添加Iphlpapi.lib 通常在PSDK目录里面
定义函数 必须的 其他方式使用该代码没反应
typedef bool (WINAPI *DHCPNOTIFYCONFIGCHANGE)(LPWSTR, LPWSTR, BOOL, DWORD, DWORD, DWORD, int);
bool MyNotifyIPChange(LPCTSTR lpszAdapterName,LPCTSTR pIPAddress,LPCTSTR NetMask)
{
bool bResult;
HINSTANCE hDhcpDll;
DHCPNOTIFYCONFIGCHANGE DhcpNotifyConfigChange;
WideString s;
s=WideString(lpszAdapterName);
if((hDhcpDll = LoadLibrary("dhcpcsvc.dll")) == NULL)
return FALSE;

最近实在没什么玩的了，某人给我的电脑装了个仙剑3，结果第一关就被小怪砍死了，就再也没玩了，那么大一个游戏，放着太浪费空间，就决定把它打穿了删掉。
游戏不能呼出修改工具，只能改存档了，把自己的成果收集下来，免得消失了。以pal00.arc为例。
景天：一号人物数据，战斗中始终存在，所以改他一个人就可以了。
一下数据地址均为16位地址
698 生命 5B0 经验 554武力 558防 55C运 560速 544等级
然后买一堆法术攻击无效的道具就可以横着走啦！

Windows提供了虚拟的鼠标键盘动作
keybd_event(VK_F4,0,0,0);
键盘F4按下
keybd_event(VK_F4,0,KEYEVENTF_KEYUP,0);
键盘F4抬起
正常的按键方式是键盘被按下，然后等几个ms抬起，所以要用Sleep函数将按键操作隔开

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
鼠标左键按下
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
鼠标左键抬起
操作同键盘

function custom_url_rewrite_outbound(&$path, &$options, $original_path) {
if (preg_match('|^admin(/.*)|', $path, $matches)) {
$path = 'config' . $matches[1];
}
}
function custom_url_rewrite_inbound(&$result, $path, $path_language) {
if (preg_match('|^config(/.*)|', $path, $matches)) {
$result = 'admin' . $matches[1];
}
}

#include “Iphlpapi.h” add lib to Project
#ifndef WIN32
#define WIN32
#endif
#include “pcap.h”
pcap_t* pAdaptHandle;
unsigned char* arp_packet_for_self;
//—————————————————————————
pcap_if_t *alldevs;pcap_if_t *d;int i=0;
char errbuf[PCAP_ERRBUF_SIZE+1];
/* 获取本地机器设备列表 */
if(pcap_findalldevs(&alldevs, errbuf) == -1)
{ShowMessage(”列表加载错误”); }
WL->Clear();String S;
for(d= alldevs; d != NULL; d= d->next)
{
S+=String(d->name);//String(i)+”.”+
i++;
if (d->description) {}
// S+=String(d->description)+”\n”;
else {}
// S+=” (No description available)\n”;
WL->Items->Add(S); S=”";

带新建文件夹的目录选择对话框
#define NO_WIN32_LEAN_AND_MEAN
#include
#include
BROWSEINFO bf;
LPITEMIDLIST lpitem;
memset(&bf,0,sizeof(BROWSEINFO));
bf.hwndOwner=Handle;
bf.lpszTitle="选择路径";
bf.ulFlags=BIF_NEWDIALOGSTYLE;
lpitem=SHBrowseForFolder(&bf);
char pBuffer[1000];
if(lpitem!=NULL){
SHGetPathFromIDList(lpitem,pBuffer);
E2->Text=pBuffer;
}

获得进程路径的方法
#include "psapi.h" add to project "psapi.lib"
OpenProcess(PROCESS_QUERY_INFORMATION|PROCESS_VM_READ)GetModuleFileNameEx()

如何获取当前窗口句柄
GetForegroundWindow()