수다닷컴

게시판이 올바른지 확인해주세요.

Private form_load()
WebBrowser1.Navigate2 http://www.jkstar.tv/login_form.php
WinHttp.Open POST, http://www.jkstar.tv/login.php
WinHttp.SetRequestHeader Referer, http://www.jkstar.tv/login_form.php
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send ID= & Change(IDD) & & PASSWORD= & Change(PWW) & & x=30 & y=11
end sub

Public Function Change(Str As String) As String
For i = 1 To Len(Str)
If Len(Hex(Asc(Mid$(Str, i, 1)))) = 4 Then
Change = Change & % & Mid$(Hex(Asc(Mid$(Str, i, 1))), 1, 2) & % & Mid$(Hex(Asc(Mid$(Str, i, 1))), 3, 2)
Else
Change = Change & % & Hex(Asc(Mid$(Str, i, 1)))
End If
Next
End Function

이렇게 했는데요. 로그인이 되지 않네요..ㅠㅠ

뭐가 잘못된건가요!?

신청하기