이미 EmbeddedWB 에 Naver.com 또는 login 페이지에 접속이 된 상태에서
아래 소스를 사용하면 무용지물이네요...
보안 2등급에서도 들어가야 될텐데... 안되더군요... ㅡ_ㅡ;
<!--CodeS-->
var
tags: OleVariant;
i: Integer;
loID,loPW: String;
//ii: integer;
begin
if((cknum>=1) and (eID.GetTextLen>=3) and (ePW.GetTextLen>=3)) then begin
// 현재줄
//ii:=rmID.Perform(EM_LINEFROMCHAR, rmID.SelStart, 0);
loID:=eID.Text;
loPW:=ePW.Text;
tags := eWB.OleObject.Document.Body.getElementsByTagName('INPUT');
for i := 0 to tags.Length - 1 do
begin
if(rbtn1.Focused=True) then begin
tags.item(i).focus;//키보드 이벤트를 위해 포커스 지정
tags.Item(i).value := loID;
end else begin
if (tags.Item(i).NAME = 'id') then
begin
tags.Item(i).value := loID;
end;
end;
//<input type="hidden" name="pw" value="" title="비밀번호입력" />
//<input type="password" id="enpw" name="enpw" onfocus="focusPosition=this;clearbg('enpw');" tabindex="3" maxlength="32" value="" />
if (tags.Item(i).NAME = 'enpw') then
begin
tags.item(i).focus;//키보드 이벤트를 위해 포커스 지정
tags.Item(i).value := loPW;
//요기서 return key가 안먹네요.
//keybd_event(VK_RETURN, 0, 0, 0);
//keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
end;
//ShowMessage(tags.Item(i).NAME);
if (tags.Item(i).NAME = 'pw') then
begin
//tags.item(i).focus;//키보드 이벤트를 위해 포커스 지정
tags.Item(i).value := loPW;
//요기서 return key가 안먹네요.
//keybd_event(VK_RETURN, 0, 0, 0);
//keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
end;
//<input type="image" src="http://icon.daum-img.net/top/2008/btn_login.gif" tabindex="4" title="로그인" class="type_button" />
if (tags.Item(i).Type = 'image') and (tags.item(i).title='로그인') then
tags.Item(i).Click;
end;
end else begin
showMessage('사이트 접속 요망 또는 ID, 비밀번호 입력');
end;
end;
<!--CodeE-->
naver.com 로그인 정말 힘드네요...
어떻게 하면 좋을까요?