수다닷컴

POST /main/module/loginPrc.php?t=1335523892524 HTTP/1.1
Accept: */*
Accept-Language: ko
Referer: http://www.tdisk.co.kr/main/main_html.php
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET4.0C; .NET4.0E; .NET CLR 3.5.30729; InfoPath.1)
Host: www.tdisk.co.kr
Content-Length: 56
Connection: Keep-Alive
Cache-Control: no-cache
Cookie:쿠키값

&act=ok&mb_id=TID&mb_pw=TPW&log_save=&cpChk=Y

HTTP/1.1 200 OK
Date: Fri, 27 Apr 2012 10:51:31 GMT
Server: Apache
P3P : CP=ALL CURa ADMa DEVa TAIa OUR BUS IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE LOC OTC

Set-Cookie: LogChk=Y; path=/; domain=.tdisk.co.kr
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
P3P: CP=ALL CURa ADMa DEVa TAIa OUR BUS IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE LOC OTC
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=EUC-KR

7
charge|
0

공유사이트 로그인성공시 이렇게 잡히는데
If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), charge) Then
MsgBox charge, vbExclamation, 성공
Else
MsgBox nopass, vbInformation, 실패
End If

로그인 성공/실패 여부를 메세지박스로 출력하고싶은데.. charge 이단어가 로그인성공하면 나오는데..

도저히모르겟네용 도와주세요~!

신청하기