winhttp로 로그인
MyWay
Public Class Form1 Dim i() As String Dim WinHttp As WinHttp.WinHttpRequest = New WinHttp.WinHttpRequest
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WinHttp.Open(GET, 내 주소) WinHttp.Send()
i = Split(StrConv(WinHttp.ResponseBody, VbStrConv.None), vbCrLf)
End SubEnd Class여기까지는 만들었는데db를 따와서 id랑 비번을 체크하는 거에요.그런데 db는 대략
conor123481123456789abc00idpw이런식으로 구성되어 있어요.어떻게 해야 하나요?
-
수예
그런식으로 하려면
If instr(winhttp.responstext,\ID.text\) Then
Check=Split(Split(Split(winhttp.responstext,ID.text)(0),vbnewline)(0),vbnewline)(1)
IF PW.text=Check Then:msgbox \성공\
이렇게 하면 되려나.. -
다참
그럼 스페이스로 해주세요ㅋㅋ
-
스킬
아니면 ☆ 이나 ㅋㅋ;
-
헛장사
id에 :이 포함될 있게 해야 해요.
그래서 홀수번째 줄에는 id
짝수번째 줄에는 비번을 한거에요. -
다와
아디:비밀번호
아디:비밀번호
식으로 하면 쉽지 않을까요?
파싱은 대충
If instr(winhttp.responstext,\ID.text\) Then
Check=Split(Split(Split(winhttp.responstext,\ID.text\)(0),\:\)(0),\\)(1)
IF PW.text=Check Then:msgbox \성공\
End IF
이런식으로