VB 웹연동기초 - 카페출석글 달기

invalid-file

invalid-file

invalid-file

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

Private Sub Command1_Click()
    WebBrowser1.Document.All("content").Value = Text1.Text ' 출석글쓰는곳
    WebBrowser1.Navigate "javascript:submitForm();" ' 글쓰기버튼
End Sub

Private Sub Command2_Click()
    WebBrowser1.Navigate "http://id.naver.com/nidlogin.login?id=" & Text2.Text & "&pw=" & Text3.Text & "&url=http://www.naver.com"
    Timer1.Enabled = True
End Sub ' 로그인을 한뒤 타이머로 이동

Private Sub Form_Load()
    WebBrowser1.Navigate "http://cafe.naver.com/AttendanceView.nhn?search.clubid=10226090&search.menuid=39"
End Sub ' 카페출석게시판

Private Sub Timer1_Timer()
    WebBrowser1.Navigate "http://cafe.naver.com/AttendanceView.nhn?search.clubid=10226090&search.menuid=39"
    Timer1.Enabled = False
End Sub ' 로그인을 하고난뒤 타이머에 있는 카페출석게시판으로 이동하고 타이머정지

 

위 소스는 http://cafe.naver.com/myvb 카페를 기반으로 만들어졌습니다.