수다닷컴

Private Sub CmdLogin_Click()
If txtID.Text = vbNullString Or txtPW.Text = vbNullString Then Exit Sub

If nexon_com(txtID.Text, txtPW.Text) Then
MsgBox 로그인 성공.
Else
MsgBox 로그인 실패
End If
End Sub
-------------------------------------------------------------------------
모듈
Dim Winhttp As New WinHttpRequest
Public Function nexon_com(ID As String, pW As String) As Boolean
Winhttp.Open GET, https://login.nexon.com/login/page/loginproc.aspx?strNexonID=아뒤&strPassword=비번&codeRegSite=0
Winhttp.Send

If InStr(StrConv(Winhttp.ResponseBody, vbUnicode), 로그인 실패) Then
nexon_com = False
Else
nexon_com = True
End If
End Function

이렇게 되있거든요 ??

txtID
TXTPW Cmdlogin

형식이 이렇게 되있는데요 ..

이렇게 하면 아이디 막적어도 로그인성공 이라고 뜨네욤 ;;
무슨오류인가요 ??

신청하기