procedure TForm1.Button1Click(Sender: TObject);
var
Winhttp : IWinHttpRequest;
begin
Winhttp := coWinHttpRequest.Create;
winhttp.Open('POST',' http://nid.naver.com/nidlogin.login',FALSE);
winhttp.SetRequestHeader('REFERER',' http://nid.naver.com/nidlogin.login');
winhttp.SetRequestHeader('CONTENT-TYPE','application/x-www-form-urlencoded');
winhttp.Send('enctp=2&svctype=0&id='+Edit1.Text+'&pw='+Edit2.Text);
//DoEvents;
begin
winhttp.Open('GET',' http://cafe.naver.com/MyCafeMyActivityAjax.nhn?clubid=25634568',FALSE);여쪽에서 주소랑 고유번호쓰는법점여 ㅎㅎ
winhttp.Send('');
winhttp.WaitForResponse('');
if AnsiPos('접속하신 카페는', Winhttp.ResponseText) <> 0 then begin
ShowMessage('카페에 가입되있지 않거나' + #13 + '아이디 또는 비밀번호가 일치하지 않습니다.');
end;
Form1.show
end;
end;
end.
|