강의 3: VB의 웹 브라우저를 사용하여 웹 페이지에서 하이퍼링크를 찾는 방법
우리는 이전에 웹페이지를 여는 방법과 웹페이지를 제출하는 방법에 대해 이미 이야기했습니다. 오늘은 웹페이지에서 URL과 기타 요소를 찾는 방법을 살펴보겠습니다.
1. 먼저 VB를 열고 새 프로젝트를 만듭니다.
2. 도구 모음을 마우스 오른쪽 버튼으로 클릭하고 구성 요소(저는 중국어 버전의 VB를 사용하고 있습니다)를 선택하거나 프로젝트 메뉴를 선택하고 구성 요소를 클릭합니다.
3. Microsoft Internet Controls를 찾아서 선택하고 확인하면 도구 모음에 지구 모양의 아이콘이 추가로 표시됩니다.
4. Form1에 WebBrowser1을 추가한 다음 Form1에 command1을 추가하고 form1에 list1을 추가합니다(이 list1은 약간 완화되어야 하며 여기에 있는 모든 정규 URL을 입력합니다).
5. Form1에 다음 코드를 추가합니다. (위 내용은 이전에 설명한 내용이므로 익숙할 것입니다.)
'----------시작-----------
개인 하위 Command1_Click()
희미한 vTag, vDoc
희미한 Allcount,i
목록1.지우기
vDoc = WebBrowser1.Document.All 설정
전체 개수 = vDoc.length
i = 0의 경우 Allcount - 1
If UCase(vDoc.Item(i).TagName) = "A" Then 'URL 찾기
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") Then 'URL에 http://dhunter.51.net이 포함되어 있는지 감지합니다.
List1.AddItem vDoc.Item(i).href '있는 경우 list1에 추가합니다.
종료 조건
종료 조건
다음은 내가
서브 끝
비공개 하위 Form_Load()
WebBrowser1.Navigate "http://dhunter.51.net"
서브 끝
'----------마치다-----------
6. 물론 테스트입니다. 웹 브라우저에 http://dhunter.51.net이 열린 것을 볼 수 있습니다. 웹 페이지의 기본 다운로드가 완료된 후 command1 버튼을 클릭합니다. 우리의 멋진 웹 브라우저는 http://dhunter.51.net의 URL이 list1에 추가된 콘텐츠를 발견할 것입니다.
물론 이를 통해 우리는 더 많은 기술과 더 많은 방법을 구현해야 합니다.