비베에서 익스플로러 사이트 자동으로 로그인하기 (예시 : 네이버)
소스설명 :
버튼1동작 : 익스플로러 창을 띄운후 네이버로 이동하여
버튼2동작 : 아이디와 비밀번호를 입력한후 로그인 버튼을 누른다..
이걸 잘만 응용하면 게시판 도배는 식은죽먹기.. 피차 붙어넣기 신공이므로..
경험상 SBS게시판 창 5개 띄운후 몇분만에 글 천개까지 등록까지는 해봤음.. (출첵때..)
일단 메뉴에서
프로젝트 -> 참조에서
Microsoft HTML Object Library,
Microsoft Internet Controls 2개 참조로 추가
'폼 상단에..
Private IE As InternetExplorer
'익스플로러 띄워서 페이지 로드
Private Sub Command1_Click()
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate "http://www.naver.com"
Do While IE.Busy
DoEvents
Loop
End Sub
' 로그온 실행
Private Sub Command2_Click()
Dim IE_id As HTMLInputElement
Dim IE_pwd As HTMLInputElement
Dim IE_Frm As HTMLFormElement
'site: naver
Set IE_id = IE.document.getElementsByName("id")(0) ' html 에서 input의 id 관련 태그 얻어온다.
Set IE_pwd = IE.document.getElementsByName("pw")(0) ' html 에서 input의 pwd 관련 태그 얻어온다.
Set IE_Frm = IE.document.getElementsByName("NidLogin")(0) ' html 에서 form의 이름을 얻어온다.
If TypeName(IE_id) <> "Nothing" And TypeName(IE_pwd) <> "Nothing" And TypeName(IE_Frm) <> "Nothing" Then
IE_id.setAttribute "value","네이버아이디"
IE_pwd.setAttribute "value", "네이버비밀번호"
IE_Frm.submit
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
IE.Quit
End Sub
아이디, 비번 입력칸 찾는거 예시하나더 ..
KBS 홈페이지는사이트주소는..
IE.navigate "http://www.kbs.co.kr/asx/login/SSOLogon.php?from_url=http://www.kbs.co.kr/"
찾을대상은..
Set IE_id = IE.document.getElementsByName("ID")(0)
Set IE_pwd = IE.document.getElementsByName("PASSWORD")(0)
Set IE_Frm = IE.document.getElementsByName("login")(0)
가 되겠지..
비베에서 익스플로러 사이트 자동으로 로그인하기 (예시 : 네이버)
