수다닷컴

2번째로 수정했는데요이제는 로그인도안되는군요 뭐가 잘못된건지 모르겠어요 ㅠ.ㅠ로그인 게시글등록부분이 잘못된것같습니다.수정가능하시면 약간은 성의는 드릴수가있어요 컴파일오류는 안나는데요 로그인하면 실패라고뜨네요
Private Winhttp As New WinHttpRequest
Private Sub Command1_Click()
Winhttp.Open POST,
Winhttp.SetRequestHeader Referer,
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send r=home&a=login&id= & Text1 & &pw= & Text2 & &x=38&y=15If InStr(Winhttp.ResponseText, ) Then
MsgBox 로그인성공, vbInformation, 성공
Else
MsgBox 로그인실패, vbCritical, 실패
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
MsgBox 시작, vbInformation, 시작
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
MsgBox 중지, vbCritical, 정지
End Sub
Private Sub Text1_Click()
Text1.Text =
End Sub
Private Sub Text2_click()
Text2.Text =
End SubPrivate Sub Timer1_Timer()
Winhttp.Open POST,
Winhttp.SetRequestHeader Referer,
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send r=home&a=write&c=&cuid=&m=bbs&bid=B00&uid=&reply=&nlist=%2Fb%2FB00&pcode=20120808141113&upfiles=&subject= & Text3 & html=HTML&content= & Text4 & tag=&backtype=list
IE.WaitForResponse
If InStr(StrConv(IE.ResponseBody, vbUnicode), 등록되었습니다) Then

Else
End If
End Sub

신청하기