728x90

VB 아프리카TV 로그인 주소 소스 (비주얼베이직)





w1.Document.getElementById("uid").Value = "아이디"
w1.Document.getElementById("password").Value = "비밀번호"
w1.Document.parentWindow.execScript "javascript:login()", "JavaScript" '확인버튼

// 웹브라우저 이름 w1

728x90

VB 다음 로그인 주소 소스 (비주얼베이직)



웹브라우저 이름 : w1

w1.Navigate "http://www.daum.net" ' 로그인 페이지

w1.Document.loginform.id.Value = "아이디"
w1.Document.loginform.enpw.Value = "비밀번호"
w1.Document.loginform.submit '확인버튼

728x90

VB 웹브라우저 새창 제어 소스


웹브라우저 이름 : w1 , w2

Private Sub w1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = w2.Object
'웹브1(w1)에서 발생된 새창(팝업)을 웹브2(w2)에서 이벤트를 발생시킨다
'웹브1에서 발생된 팝업창을 웹브2에서 띄우는겁니다

End Sub

728x90


VB 디시인사이드 로그인 주소 소스 (비주얼베이직)



웹브라우저 이름 : w1

w1.Navigate "http://www.dcinside.com/" ' 로그인 페이지

w1.Document.All.user_id.Value = "아이디"
w1.Document.All.password.Value = "비밀번호"
w1.Document.frmMember.submit '확인버튼


728x90



VB 파일구리 로그인 주소 소스 (비주얼베이직)

 

// 웹브라우저 이름 : w1

w1.Document.loginform1.UserID.Value = "아이디" '아이디
w1.Document.loginform2.Password.Value = "비밀번호" '비밀번호
w1.Navigate "javascript:PreLogin('1');" '로그인버튼

Private Sub Form_Load()
w1.Navigate "http://www.fileguri.com/login/Fglogin.asp?loginGbn=true"  '로그인페이지
End Sub

728x90

VB 소스/자료 ː 싸이월드 랜덤 고유번호 추출 소스



제작 : 명인s http://clanguage.tistory.com/
제작 : 명인s http://clanguage.tistory.com/

+ Recent posts