강의 2: VB의 웹 브라우저를 사용하여 사용자 이름과 비밀번호가 포함된 웹 페이지를 제출하는 방법
지난번에는 웹페이지를 여는 방법을 알았는데, 오늘은 돈을 버는 첫 단계를 살펴보겠습니다.
여기에서 다음 단계를 시작합니다.
1. 먼저 VB를 열고 새 프로젝트를 만듭니다.
2. 도구 모음을 마우스 오른쪽 버튼으로 클릭하고 구성 요소(저는 중국어 버전의 VB를 사용하고 있습니다)를 선택하거나 프로젝트 메뉴를 선택하고 구성 요소를 클릭합니다.
3. Microsoft Internet Controls를 찾아서 선택하고 확인하면 도구 모음에 지구 모양의 아이콘이 추가로 표시됩니다.
4. Form1에 WebBrowser1을 추가한 다음 Form1에 command1을 추가합니다.
5. Form1에 다음 코드를 추가합니다. (위 내용은 이전 강의에서 모두 언급한 내용이므로 잘 알고 있어야 합니다.)
'----------시작-----------
개인 하위 Command1_Click()
희미한 vDoc, vTag
Dim i를 정수로 표시
vDoc = WebBrowser1.Document로 설정
For i = 0 To vDoc.All.length - 1 '모든 태그 감지
If UCase(vDoc.All(i).tagName) = "INPUT" Then '입력 태그 찾기
vTag = vDoc.All(i) 설정
vTag.Type = "text" 또는 vTag.Type = "password"인 경우 '필요한 것인지 확인하세요.
Case vTag.Name '을 선택하여 태그 이름에 따라 체크 표시 동작
케이스 'EMAILADD'
vTag.Value = "[email protected]" '여기에 이메일을 쓰세요
케이스 "PASSWD"
vTag.Value = "password" '여기에 비밀번호를 적어주세요
선택 종료
ElseIf vTag.Type = "submit" 및 vTag.Name = "SUB" 및 vTag.Value = "Subscribe" 그러면
'제출 버튼 찾기
vTag.Select '이것 없이도 할 수 있습니다
vTag.Click '제출하려면 클릭하세요. 모든 것이 정상입니다.
종료 조건
종료 조건
다음은 내가
서브 끝
비공개 하위 Form_Load()
WebBrowser1.Navigate "http://dhunter.51.net"
서브 끝
'----------마치다-----------
6. 물론 테스트입니다. 웹 브라우저에 http://dhunter.51.net이 열린 것을 볼 수 있습니다. 웹 페이지의 기본 다운로드가 완료될 때까지 기다렸다가 command1 버튼을 클릭합니다. 우리의 멋진 웹 브라우저가 방금 입력한 내용을 입력할 것입니다. 귀하의 이메일과 비밀번호가 웹페이지에 제출되었습니다. 구독이 성공한 것을 보셨나요? 그것이 승리의 징조입니다.
자, 일단 여기까지만 작성하겠습니다. 다음에는 웹페이지에서 돈 버는 링크에 해당하는 하이퍼링크를 찾기 위해 웹브라우저를 사용하는 방법을 살펴보겠습니다.
부록(관련 정보):
보시다시피 이번에는 http://dhunter.51.net의 구독 메일링 리스트를 사용하고 있습니다. 다음은 이 웹페이지의 소스 코드입니다.
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
이메일:
<input type="text" name="EMAILADD" value="귀하의 이메일">
<br>
비밀번호:
<input type="password" name="PASSWD" value="******">
<br>
</font><font size="2">
<input type="submit" value="구독" name="SUB">
<input type="submit" value="구독 취소" name="UNSUB">
</font></p>
</form>
내부에 입력이 있는 태그는 모두 입력을 허용합니다. 여기서 우리의 주요 임무는 태그를 찾아 조작하는 것입니다.