Anonymous (0) ºñȸ¿ø
| °Ô½ÃÀÏ: 2007-01-09 22:50|| ÀߵǴ±º¿ä
´Ù¸¸ Äڵ带 µµ¾Æ´ÔÀÌ Àû¾îÁֽŴë·Î ¾Æ·¡¿Í °°ÀÌ escape Çߴµ¥
ÇÑ±Û ¸Þ½ÃÁöÀÇ °æ¿ì ±úÁö³×¿ä^^*
ÄÚµå Function HTTPPost(sUrl, sRequest)
set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.open "POST", sUrl,false
oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.setRequestHeader "Content-Length", Len(sRequest)
oHTTP.send sRequest
HTTPPost = oHTTP.responseText
End Function
httpPostResult = HTTPPost("http://qaos.com/user.php","uname=¾ÆÀ̵ð&pass=Æнº¿öµå&op=login")
Dim sms
sms="ÄÄÇ»ÅÍ°¡ÄÑÁ³¾î¿ä"
sms=Escape(sms)
httpPostResult = HTTPPost("http://qaos.com/sms2","op=send&snum=º¸³»´Â¹øÈ£&rnum=¹Þ´Â¹øÈ£&sms="&sms)
|