다시 한번더 물을께요 죄송해여
개랑
Dim winhttp As Object
Private Sub Command1_Click()
Dim strNexon As String
Set winhttp = CreateObject(winhttp.winhttprequest.5.1)
winhttp.open get, http://heroes.nexon.com/community/userbbs.aspx
winhttp.setrequestheader Referer, http://heroes.nexon.com/community/userbbs.aspx
winhttp.setrequestheader User-Agent, Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; Tablet PC 2.0)
winhttp.setrequestheader content-type, text/html; charset=uft-8
winhttp.send txtLocalID= & txtID.Text & &txtPassword= & txtpw
strNexon = StrConv(winhttp.responsebody, vbUnicode)
If InStr(strNexon, http://heroes.nexon.com/community/userbbs.aspx) Then
MsgBox 로그인성공
Else
MsgBox 로그인실패
End If
End Sub
ㅇㅅㅇ...여기까지 왔는데 더이상 어디가 틀린걸까요 소스를 처음부터 잘못짠껀가...
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2697265 | 비주얼 메세지박스질문 (1) | 하나 | 2025-06-06 |
2697236 | 윈도우 8 버젼에서의 일부 파일이 변경되지 않는 문제 (1) | 미투리 | 2025-06-06 |
2697208 | 비베 커멘드 버튼 변경법 (2) | 안토니 | 2025-06-05 |
2697183 | VB 어떤거부터 공부해야 좋을까요 ? | 민아 | 2025-06-05 |
2697130 | 두개 이상의 프로그램이 있을시 종료 | 슬아 | 2025-06-05 |
2697103 | 센드키는 알겟는데 keypress이거는머에요 (1) | 헛장사 | 2025-06-04 |
2697073 | 컴퓨터 끄기를 누르면 끄기가 아니라 대기모드가 되게 하는방법좀요 (2) | 플랜 | 2025-06-04 |
2697051 | shell문을 입력후에클릭을하면..내문서가 열리네요...? (1) | 사이 | 2025-06-04 |
2697024 | 타이머사용 | 나나 | 2025-06-04 |
2696970 | text형식으로 저장할때 언어셋설정 질문!!! | 핫팬츠 | 2025-06-03 |
2696917 | sys우회 하는법 아시는분. . (1) | 촉촉한 초코칩 | 2025-06-03 |
2696883 | 비쥬얼베이직 스튜디오 6.0 파일 | 콩알눈 | 2025-06-02 |
2696854 | 윈웹 렉이 너무 심하네요 (1) | 팬지 | 2025-06-02 |
2696825 | 메이플스토리로그인(접속기) 소스오류, 해결바랍니다! | 키다리 | 2025-06-02 |
2696800 | 그누보드 multipart 게시글작성 (3) | HotPink | 2025-06-02 |
2696640 | 이 소스의 모듈좀 주세용 ;; | 파이팅 | 2025-05-31 |
2696591 | 다운프로그램 넣는법?? | 아놀드 | 2025-05-31 |
2696566 | 수정해도 그래요 ㅜㅜ 다시한번 제발 이것좀 해결해주세요 ㅜ | 하늘빛눈망울 | 2025-05-30 |
2696513 | 텍스트 활성 방법 좀... | 힘찬 | 2025-05-30 |
2696466 | ExitWindow함수로 컴퓨터 끄는 방법좀요 | 가장 | 2025-05-29 |