소스 나갑니다.Private Function MapleLogin(ID As String, PW As String)
WebBrowser1.Navigate https://auth.maplestory.nexon.com/Login.aspx?redirectUrl=http%3A//maplestory.nexon.com/MapleStory/Page/Gnx.aspx%3FURL%3Dhome/index&chkEmail=true&strEmail= & ID & &strPassword= & PW
Do While Not WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
WebBrowser1.Navigate http://maplestory.nexon.com/MapleStory/Page/Gnx.aspx?URL=home/index
Do While Not WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
If InStr(WebBrowser1.Document.documentelement.outerHTML, 내캐시) Then
temp = WebBrowser1.Document.documentelement.outerHTML
WebBrowser1.Navigate (about:blank();)
src = Split(temp, P class=loginNameIMG class=imgMiddle2)(1)
Nick = Split(Split(src, STRONG)(1), /STRONG/P)(0)
ranking = Split(Split(src, P)(2), /P)(0)
lvl = Replace(Split(Split(src, P)(4), /P)(0), Lv. , , 1, -1)
Label1.Caption = 닉네임 : & Nick
Label2.Caption = 랭킹 : & ranking
Label3.Caption = 레벨 : & lvl
End If
End Function이거 winhttp로 바꿀수 있으면 좀 바꿔주세요ㅠㅠ