다음페이지 링크를 못가져와서 아래처럼 강제로 큐에 넣어버리도록 만들었다.
이제 SIGADK 패치는 없고 2.0으로 업그레이드된 제품만 나올껀데...
아예 내가 직접 로봇을 만들어 볼까?
'Navigation Bar위치내의 모든 링크를 뽑아낸다.
Set elems = naviElem.GetAnchorElements
If Not elems Is Nothing Then
For Each elem in elems
ListQueue.Push(elem)
Next
End If
이제 SIGADK 패치는 없고 2.0으로 업그레이드된 제품만 나올껀데...
아예 내가 직접 로봇을 만들어 볼까?
'Navigation Bar위치내의 모든 링크를 뽑아낸다.
Set elems = naviElem.GetAnchorElements
If Not elems Is Nothing Then
For Each elem in elems
ListQueue.Push(elem)
Next
End If
'IT-Consultant' 카테고리의 다른 글
에듀넷 가젯 테스트 (0) | 2008.12.09 |
---|---|
국제협력단 (0) | 2008.12.03 |
URL 수동으로 만들어서 수집하기 (0) | 2008.11.27 |
GSA 다운로드 (0) | 2008.11.14 |
HTML INPUT 텍스트박스 한글 영문 숫자 입력설정 (0) | 2008.11.11 |