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




싸이월드 스크랩 올리기 안되는 유형모음
 






728x90
javascript:var z=document.body.createTextRange();z.moveToElementText(document.getElementById('여기에 div id를 넣으면된다.'));z.execCommand("copy");document.selection.empty();
728x90
VB 티스토리 로그인 주소 소스 (비주얼베이직)


Private Sub Form_Load()
w1.Navigate2 "http://www.tistory.com/"
End Sub

//웹브라우저 이름 w1

w1.Document.All.loginid.Value = "아이디"
w1.Document.All.password.Value = "비밀번호"
w1.Document.loginbox.submit

// http://www.tistory.com/ 메인에서 로그인하는거랑
// 티스토리 http://****.tistory.com/admin 에서 로그인하는건 소스가 약간 다릅니다


참 쉽죠잉?

728x90

VB 네이버 로그인 주소 소스 (비주얼베이직)

Private Sub Form_Load()
w1.Navigate2 "http://static.nid.naver.com/login.nhn?20091104&url=http%3A%2F%2Fwww.naver.com"
End Sub

//웹브라우저 이름 w1

w1.Document.All.uid.Value = "아이디"
w1.Document.All.upw.Value = "비밀번호"
w1.Document.frmNIDLogin.submit '확인버튼



참 쉽죠잉?
728x90

VB 난수 발생 함수 'Rnd' 를 배워보자 (비주얼베이직강좌)



Rnd 함수는 난수를 발생시키는 함수 이다.
0.000001~0.999999 까지의 난수 즉 0도 아니고 1도 아닌 수를 뜻한다.

Rnd 함수를 사용하는 방법은 참 쉽다.
예를 들어

Private Sub Form_Load()
Text1.text = Rnd
End Sub

이런식으로 사용이 가능하다



// 아 귀찮다 ㅋㅋㅋㅋㅋ
// 나도 초본데 누굴 가르쳐..ㅇㅁㅇ

+ Recent posts