VB는 IE의 입력 상자를 채우고 이를 제출합니다.
로그인 페이지의 HTML 코드가 다음과 같다고 가정합니다.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<머리>
<title>테스트페이지</title>
</head>
<본문>
<FORM 이름=chh 방법 = "POST" 작업 = "login.asp">
<테이블 셀 간격="0" cellpadding="2">
<tr>
<td align="center">사용자:</td>
<td 정렬="왼쪽">
<input name="로그인 이름" type="text" id="로그인 이름" size="12">
</td>
</tr>
<tr>
<td align="center">비밀번호:</td>
<td 정렬="왼쪽">
<input name="LoginPassword" type="password" id="로그인비밀번호" size="12">
</td>
</tr>
</table>
<입력 유형 = "제출" id = "clickme" 값 = "제출">
</FORM>
</body>
</html>
로그인 양식, 사용자 이름 입력 상자 LoginName, 비밀번호 입력 상자 LoginPassword 및 제출 버튼 clickme가 포함된 매우 간단한 페이지
그런 다음 IE로 이 페이지를 열고 페이지 제목이 testPage로 설정되어 있는지 확인하세요.
그런 다음 VB를 열고 프로젝트에서 Microsoft 인터넷 컨트롤을 참조합니다.
개인 하위 Command1_Click()
Dim IEList를 새로운 ShellWindows로 사용
희미한 브라우저
딤닥
오류 발생 시 다음 재개
'현재 브라우저 창을 탐색합니다.
IEList의 각 브라우저에 대해
'필요한 IE 창 찾기
browser.Document.Title = "testPage"인 경우
'브라우저 문서 개체를 가져옵니다
문서 설정 = browser.Document
'사용자 이름 필드를 입력하세요.
Doc.body.All("LoginName").Value = "에디"
'비밀번호 필드를 입력하세요.
Doc.body.All("LoginPassword").Value = "123456"
'제출하다
Doc.body.All("clickme").클릭
종료 조건
다음
서브 끝