winhttp 질문드리고싶습니다 ..부디 답변부탁드리겠습니다.

제발등업좀2

조회 수 1013 추천 0 댓글 9

ID2 := "r07"
PW2 := "r07"
winHttp := ComObjCreate("WinHttp.WinHttpRequest.5.1")
winhttp.Open("POST", "")
winhttp.SetRequestHeader( "Referer", "")
winhttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
winhttp.Send("enctp=2&svctype=0&id=" . ID2 . "&pw=" . PW2)
winhttp.Open("GET", "") ; . ID2)
winhttp.Send()
winhttp.WaitforResponse
Text:=winHttp.ResponseText
IfInString, Text,
{

MsgBox, 로그인 성공 ; 여기 까진 잘됩니다.

-----------------------여기 부터  안되요 ----------------------
   Winhttp.Open("GET", "http://커피숍.네이년.com/ArticleList.nhn?search.clubid=28399278&search.menuid=5&search.boardtype=L")   ; 유니코드 매핑 어쩌 구 저쩌구 하는데 혹 제가 뭘잘못한건가요 ㅠㅠ 아시는 분 한번만 알려주세요
   winhttp.Send()
   Winhttp.WaitForResponse
   Work_Result := WinHttp.ResponseText
   msgbox,% Work_Result
}

위로 아래로 댓글로 가기

Comments '9'

제발등업좀2 2016.12.28 12:11

@피카부

피카부 님 네이버 랑 카페 금칙어 좀 풀어주세요 ㅠㅠ 질문을 못드리겟음....

ㅠㅠ 와 이거 찾느라... 없는데 있다고 ;; 계속해서 20분동안 열폭함 ㅠㅠ

댓글 0 -0

외치기 2016.12.28 13:57

url := "https://secure.photobucket.com/login"
MsgBox, % URLDownloadToVar(url, "utf-8")

URLDownloadToVar(url, Encoding = ""){
	hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
	hObject.Open("GET",url)
	hObject.Send()

	If Encoding {
		oADO          := ComObjCreate("adodb.stream")
		oADO.Type     := 1
		oADO.Mode     := 3
		oADO.Open()
		oADO.Write( hObject.ResponseBody )
		oADO.Position := 0
		oADO.Type     := 2
		oADO.Charset  := Encoding
		return oADO.ReadText(), oADO.Close()
	}
	return hObject.ResponseText
}

댓글 0 -0

sader 2016.12.29 00:33

한 스크립트에서 여러번 사용해야할 일이 있는데 URLdownloadVar함수 말고 기존Winhttp로 그대로 사용할 수 있는 방법은 없을까요?

댓글 0 -0
sader 2016.12.29 00:38

음..심지어 URLdownloadVar함수를 이용해도

url := "http://카페.네버.com/zzangusaki/28406"
MsgBox, % URLDownloadToVar(url, "utf-8")

URLDownloadToVar(url, Encoding = ""){
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
hObject.Open("GET",url)
hObject.Send()

If Encoding {
oADO := ComObjCreate("adodb.stream")
oADO.Type := 1
oADO.Mode := 3
oADO.Open()
oADO.Write( hObject.ResponseBody )
oADO.Position := 0
oADO.Type := 2
oADO.Charset := Encoding
return oADO.ReadText(), oADO.Close()
}
return hObject.ResponseText
}

이런식으로 할 경우에 한글이 깨지는데 방법이 있을까요?

댓글 0 -0
외치기 2016.12.29 11:01

글에 적어주신 페이지는 인코딩이 EUC-KR로 되어있는거같습니다.
그런경우 UTF-8로 인코딩하시면 깨지는게 당연한 결과죠.
EUC-KR로 페이지 가져오시면 깨지는거 없이 가져옵니다.

댓글 0 -0
외치기 2016.12.28 13:58

외국 포럼에서 가져온 인코딩문제 해결 샘플입니다.

에러 자체의 원인은 대상페이지에 유니코드문자가 포함되어있는데 리퀘스트에 인코딩설정 없어서 그렇다네요.

댓글 0 -0
제발등업좀2 2016.12.28 15:36

해결 했어는데 ㅋㅋ 찾아보니 있드라구요 감사 감사 합니다 ^^
와 .. 완전 멘붕 왔어는데 .. ㅠㅠ 카페 계시글에 댓글 남기기 만들고있는데 무지하게 재미있네요
매번 게임만 만들다가 ㅋㅋㅋㅋㅋ

댓글 0 -0
sader 2016.12.29 00:39

저 같은 경우 카페에 한글내용이있어서 깨지는데 혹시 어떻게 사용했는지 소스 공유좀 해주시면 감사하겠습니다!

댓글 0 -0
오켕 2017.07.17 04:49

많이 지난 댓글이지만 헤더를 추가해주면 됩니다.

Winhttp.SetRequestHeader("Accept-Charset", "iso-8859-1")

댓글 0 -0

✔댓글 쓰기

Category

List of Articles
분류	제목	글쓴이	최근변경	추천
질문	콤보박스 변수 안에 간단히 저장하는 방법 없나요? 꾸벅	mYoda	2016.12.15	0/0
질문	오토핫키가 정확히 뭐하는 건가여??? 1	Imacho	2016.12.15	0/0
질문	Run 명령어 무반응 해결방법좀요.., 4	은경사랑	2016.12.21	0/0
공유	세나 진형설정 UI 소스코드 3	암드래	2016.12.27	0/0
자유	녹스 비활성 이미지 서치를 구현해보고 싶어요 7	파르페틱	2016.12.23	0/0
질문	listview 값 불러오기 질문이요! 1	뉴비에염	2016.12.21	0/0
질문	초보 질문좀 드릴게요..도와주세요 8	아카시아	2016.12.22	0/0
질문	Combobox 에 대해 궁금한게 있어요	스웨이스	2017.01.10	0/0
질문	몇가지 질문드리고 싶은게 있습니다 1	merona	2016.12.21	0/0
정보	X부터Y까지의 모든 값을 랜덤으로 입력해주는 함수 4	sudeky	2016.12.25	0/0
질문	이미지서치 공부 2틀째.. 오늘은 한걸음 땔수있게 도와... 8	아카시아	2016.12.23	0/0
자유	오버워치 오토에임 크랙 해주실분 구합니다. 3	띠잉이이잉	2020.05.18	0/0
질문	오토핫키 우회컴파일러를 만들고 싶어요 1	사냥하고파요	2016.12.26	0/0
자유	오버워치 이미지서치치 4	아항	2017.01.20	0/0
질문	시간날때 오토핫키 배워보고싶은데용	쪠리	2016.12.26	0/0
질문	다시 질문좀 드릴게요 머리 뽀게질거같아요 3	아카시아	2016.12.26	0/0
질문	맵 좌표를 기억하고 제자리로 돌아가게 어떻게 하나요? 3	생물0	2017.04.26	0/0
질문	winhttp 질문드리고싶습니다 ..부디 답변부탁드리겠습... 9	제발등업좀2	2017.07.17	0/0
질문	오토핫키에 윈도우 경고음 내게 하는 명령어 있나요? 1	hiki	2016.12.28	0/0
질문	오토핫키 뮤텍스 우회 질문합니다 2	Erica	2017.01.29	0/0

쓰기

재밌는 인터넷 놀이터 테일스타에 어서오세요 :)

winhttp 질문드리고싶습니다 ..부디 답변부탁드리겠습니다.