AcitiveX把訊息傳給網頁的問題(50分)

  • 主题发起人 主题发起人 NextTime
  • 开始时间 开始时间
N

NextTime

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟製作一個ActiveX放在IE上,當ActiveX收到訊息時
要將訊息傳出給網頁上的VBScript,並由VBScript處理其他的動作
應該要如何做呢
 
用com事件估计可以实现

----
http://www.8421.org
 
procedure TForm1.Button5Click(Sender: TObject);
var
sw:IShellWindows;
n,x:integer;
disp:IDispatch;
i:integer;
vi,v:OleVariant;
ie1:IWebBrowser2;
idoc1:IHTMLDocument2;

begin
sw:=CoShellWindows.Create;
n:=sw.count;
for i:=0 to n-1 do
begin
vi:=i;
disp:=sw.item(vi);
disp.QueryInterface(IWebBrowser2,ie1);
if ie1 <> nil then
begin
memo1.lines.add('Location:'+ie1.LocationName);
ie1.Document.QueryInterface(IHTMLDocument2,idoc1);
if idoc1 <> nil then
begin
//if idoc1.activeElement.isTextEdit then
if idoc1.title = '友邦网站管理系统' then
begin
v := idoc1.all.item('UserName',0);
v.value := 'admin';
v := idoc1.all.item('Passwd',0);
v.value := 'admin';
v := idoc1.all.item('Submit',0);
v.click;

// idoc1.activeElement.innerHTML := 'test';
// idoc1.activeElement.innertext:='Hello,I GOT YOU!';
// keybd_event(VK_RETURN,0,0,0)
// 送回车
//当然也是可以找到具体的submit按钮的,调用submit好象安全一点。
end;
memo1.lines.add('Title:'+idoc1.Title);
memo1.lines.add('URL:'+idoc1.url);
end;
end;
end;
end;
 
接受答案了.
 
接受答案也不给分啊[:(!]
 

Similar threads

后退
顶部