Advertisement
Advertisement
| 04.16.2008 at 06:33AM PDT, ID: 23327010 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: |
C:\webhosting\citrusmobile\files\nemsms.vbsOption Explicit
Dim Wshshell, xmlhttp
Set WshShell = WScript.CreateObject("WScript.Shell")
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", "https://www.nemsms.dk/sms.asp" & _
"?username=USERNAME" & _
"&password=PASSWORD" & _
"&sender=MyName" & _
"&target=45abcdefgh" & _
"&message=" & Escape("This is a test"), false
xmlhttp.send ""
WScript.Echo xmlhttp.responseText
set WshShell = nothing
set xmlhttp = nothing
|