수다닷컴

Dim winhttp As New WinHttpRequest
Private Sub Command1_Click()
With winhttp
.Open POST, http://topall.kr/
.SetRequestHeader Referer, http://topall.kr/
.SetRequestHeader Content-Type, application/x-www-form-urlencoded
.Send r=home&a=login&id= & txtID & &pw= & txtPW & &x=0&y=0
If InStr(.ResponseText, 패스워드) Then: MsgBox 실패: Else MsgBox 성공
End With
End Sub
Private Sub Command2_Click()
With winhttp
.Open GET, http://topall.kr/b/B00/write
.Send
RE = .ResponseText
SP = Split(Split(RE, pcode value=)(1), )(0)
.Open POST, http://topall.kr/
.SetRequestHeader Content-Type, application/x-www-form-urlencoded
.Send r=home&a=write&c=&cuid=&m=bbs&bid=B00&uid=&reply=&nlist=%2Fb%2FB00&pcode= & SP & &upfiles=&subject= & txtSub & &html=HTML&content= & txtCon & &tag=&backtype=list
If InStr(StrConv(.ResponseBody, vbUnicode), /b/B00) Then: MsgBox 성공: Else MsgBox 실패
End With
End Sub소스가 이런데 글쓰기버튼(커멘드2)을 눌러야만 글이 올라가는데일정시간이 지나면 자동으로 글쓰기가 되도록 소스추가는 어디서 할 수 있을까요?

신청하기