用 VBScript 發電郵

既然學了新語言，就試試使用吧。

用VBScript 寫了一個程式，流程大概：

先發出HTTP 要求到特定網站，再拿回網站回應 (http.response)
SET xmlHttp = createObject("msxml2.serverxmlhttp")

然後就是從傳回的String 中檢查有沒有想要的字句
sub_str = Mid(source, pos, lenOfText)

如果找到了特定字句，就得再來一遍，再重新嘗試
如果找不到，就即是網站已改變了，可作下一步

發出電郵通知 ！

Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Username
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Passwd
Email.Configuration.Fields.Update
Email.Send

完成使命！
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
正想再作進一步新增一個Event 到Google Calendar 時，可發覺Google並沒有發佈VBScript 的API ...

唯有回舊路寫一個Runnable Jar 使用Java API，再從VBS Call Jar 好了。
因為Google Calendar API 網絡資源豐富，很快就找到Add event 的方法。

最後，終於可以完成一個監測網站，再發送電郵及Add event 到Google Calendar，再傳送免費SMS 的程式了。

P.S. Google Calendar 的免費SMS 通知提示真是十分方便！還可發SMS到所有Subscribers！
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
這是很有用的Command，可使Program 在Console cmd prompt 內運行，所有Output都一清二楚。

set wshshell = createObject("Wscript.shell")
WScript.Echo "**Program Starts ...**"