프로그래밍 블로그

Private Sub Command1_Click() ' Command1 클릭시
Dim asd(0 To 2) As Long
' long타입을 가진 asd란 배열을 asd(0),asd(1),asd(2) 배열로 만든다 // 선언 해준다

asd(0) = 123   ' asd(0) 배열을 123으로 초기화 해준다
asd(1) = 456   ' asd(1) 배열을 456으로 초기화 해준다
asd(2) = 789   ' asd(2) 배열을 789으로 초기화 해준다

Text1.Text = asd(0) ' text1.text 값을 asd(0)의 값으로 초기화 해준다. 즉 값은 123
Text2.Text = asd(1) ' text2.text 값을 asd(1)의 값으로 초기화 해준다. 즉 값은 456
Text3.Text = asd(2) ' text3.text 값을 asd(2)의 값으로 초기화 해준다. 즉 값은 789

End Sub

사용방법

먼저 로그인을 합니다.

로그인이 성공을 하면 오류창이 5개정도 뜹니다.

그러면 아니요를 모두 클릭해주고 난다음

제목,내용,태그를 입력후 글쓰기 버튼을 눌러줍니다.

소스는 고구마S 카페 자유게시판에 마춰져 있씁니다.

게시판 고유번호를 찾으시고. 콤보박스를 이용하셔서  게시판 선택도 가능할거라 생각됩니다..

'''''''''''''''''''''''''''''''''''''''''''''''''
' 제작 : 명인'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 ' 로그인을 하고난뒤 타이머에 있는 카페출석게시판으로 이동하고 타이머정지

Private Sub Command1_Click()
    If Text1.Text = "비주얼" Then 'text1에 입력된 문자가 비주얼이면
    MsgBox ("Visual") ' Visual이라는 문자를 메세지박스형태로 출력한다.

    ElseIf Text1.Text = "베이직" Then 'text1에 입력된 문자가 베이직이면
    MsgBox ("Basic") ' Basic이라는 문자를 메세지박스형태로 출력한다.

    Else ' 위 조건이 아니면
    MsgBox ("뭘한거니?") ' 뭘한거니? 문자를 메세지 박스형태로 출력한다.

    End If ' IF문을 마친다.   
End Sub

Asc(vbcr) 이 무엇인가요?

' 주석내용                    ' Enter 옆에 있는 ' 문자가 비주얼베이직에서 쓰는 주석문자이다.