액티브엑스(vb)로 웹을 띄웠는데 뒤로가기 버튼 구현을 어떻게 하나요?
글쓴이: 지수아비 / 작성시간: 금, 2008/03/14 - 11:50오전
<HTML>
<HEAD>
<TITLE>:: test ::</TITLE>
</HEAD>
<BODY>
<form name="frm">
<!-- If any of the controls on this page require licensing, you must
create a license package file. Run LPK_TOOL.EXE to create the
required LPK file. LPK_TOOL.EXE can be found on the ActiveX SDK,
<a href="http://www.microsoft.com/intdev/sdk/sdk.htm" rel="nofollow">http://www.microsoft.com/intdev/sdk/sdk.htm</a>. If you have the Visual
Basic 6.0 CD, it can also be found in the \Tools\LPK_TOOL directory.
The following is an example of the Object tag:
<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<PARAM NAME="LPKPath" VALUE="LPKfilename.LPK">
</OBJECT>
-->
<OBJECT ID="UserControl"
CLASSID="CLSID:68C16C3B-3558-4767-90E8-4EE73DB2CC76"
CODEBASE="http://www.xxx.xxx/MyWeb.CAB#version=1,0,0,0"
width='1200' height='700'>
</OBJECT>
</form>
</BODY>
</HTML>위처럼 액티브엑스롤 호출하여 웹브라우져를 띄웠습니다.
액티브엑스는 비주얼베이직을 이용했구요.
object 창안에 브라우져는 잘 뜨는데 상단에 있는 뒤로가기 버튼을 클릭하면
액티브엑스로 띄운 페이지가 뒤로가는게 아니라 전체브라우저가 뒤로갑니다.
액티브엑스 소스는 아래와 같습니다.
On Error Resume Next
WebBrowser1.Navigate (<a href="http://www.xxx.xxx" rel="nofollow">http://www.xxx.xxx</a>)
For x = 0 To WebBrowser1.Document.Forms.length - 1 '폼개수만큼 반복
For y = 0 To WebBrowser1.Document.Forms(x).length - 1 '폼의 엘리먼트 수만큼 반복
If WebBrowser1.Document.Forms(x).Item(y).Type = "text" Or WebBrowser1.Document.Forms(x).Item(y).Type = "password" Then
itemName = LCase(WebBrowser1.Document.Forms(x).Item(y).Name)
If itemName = "id" then
WebBrowser1.Document.Forms(x).Item(y).Value = varLoginID
End If
If itemName = "pw" then
WebBrowser1.Document.Forms(x).Item(y).Value = varLoginPW
End If
End If
Next
Next
WebBrowser1.Visible = True위 소스는 해당URL에 자동으로 ID와 패스워드를 입력한후 서브밋 하게 되어있습니다.
여기에 뒤로가기 버튼을 구현할수는 없을까요?
Forums:
...
아무래도 엑티브엑스 안의 프레임은 적용이 안되겠죠..
제 생각에는 이벤트 싱크를 하셔야 할것으로 생각이 듭니다.
BHO 및 이벤트 싱크 관련 자료는 데브피아에서 구하실수 있습니다.
댓글 달기