小弟需要做WEB代填，第一次玩BHO，求指导

[shellfish567]

给个例子或者指导都很感谢

[缘中人]

cb例子很少
这个是delphi的
http://delphi.sharpplus.com/Delphi/bho.htm

[CppFile]

给你段代码，慢慢研究吧



void __fastcall TForm1::btn1Click(TObject *Sender)
{
web1->Quit();

String strUser = GetUser();
String strPWD = "12339489";
IHTMLDocument2 *Htmldoc = NULL;
web1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) & Htmldoc);
IHTMLElementCollection *elc = NULL;
IHTMLElement *pElement = NULL;

IDispatch *idp;
BSTR *obnm;
BSTR *obtype;
BSTR *obval;

long nCount, co;
IHTMLInputElement *input;
IHTMLFormElement *iform;
HRESULT rlt;
AnsiString txt;
obnm = new BSTR();
obtype = new BSTR();
obval = new BSTR();
Htmldoc->get_all(&elc);
elc->get_length(&nCount);
for (int i = 0; i < nCount; i++)
{
Variant X;
X = i;
elc->item(X, X, &idp);
rlt = idp->QueryInterface(IID_IHTMLInputElement, (void**) & input);
idp->Release();
if (rlt == S_OK)
{
input->get_name(obnm);
txt = AnsiString(*obnm).LowerCase();
mmo1->Lines->Add(txt);
if (txt == "regname")
{
*obval = WideString(strUser).c_bstr();
input->put_value(*obval);
}
if (txt == "regpwd")
{
*obval = WideString(strPWD).c_bstr();
input->put_value(*obval);
}
if (txt == "regpwdrepeat")
{
*obval = WideString(strPWD).c_bstr();
input->put_value(*obval);
}
if (txt == "regemail")
{
String em=strUser+"@sohu.com";
*obval = WideString(em).c_bstr();
input->put_value(*obval);
break;
}

}
}

// }
delete obnm;
delete obtype;
delete obval;
Htmldoc->Release();
}

[昨夜冷雨]

WEB代填 很简单呀 不就是模拟鼠标和键盘吗

[昨夜冷雨]

确定输入框的位置
SetCursorPos(x,y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
单击一下然后 把要填入的内容放到剪贴板
Clipboard()->Clear();
Clipboard()->AsText=IMEI;
接着黏贴
keybd_event(VK_CONTROL,0,0,0);
keybd_event('V','V',0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP, 0);
keybd_event('V','V',KEYEVENTF_KEYUP,0);
然后提交