윈도우 로그온/로그오프 이벤트 발생시 sms 보내기2

반응형


어제 쓴 팁보다 더욱  쉬운 스크립트가 나와버렸다 ^^*
코드출처 : http://www.mjtnet.com/usergroup/viewtopic.php?t=1655


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=번호&msg="&msg)
반응형