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 Dim msg msg="ÄÄÇ»ÅÍ°¡²¨Á³¾î¿ä^^*" msg=Escape(msg) httpPostResult = HTTPPost("http://www.ez-i.co.kr/sms/smsok.asp","pcsno=01031598147&msg="&msg)