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") 
httpPostResult = HTTPPost("http://qaos.com/sms2","op=send&snum=º¸³»´Â¹øÈ£&rnum=¹Þ´Â¹øÈ£&sms=turn on")