Gửi SMS thông qua máy điện thoại kết nối với máy tính (VBScript)

[alyvnam]

Bài này viết về cách lập trình VBScript để kết nối điện thoại với máy tính và gửi tin nhắn đi.
Bạn có thể tự mình làm một chương trình để có thể gửi một SMS qua một máy điện thoại kết nối với máy tính (qua cổng COM). Xin mời các bạn tham khảo.
Bạn cần một freeware DLL (tải http://www.vahland.com/pub/acomport.dll và đăng ký trên máy bạn) để giao tiếp với cồng COM. một cáp data để nối điện thoại vào máy tính. Chúng ta gửi lệnh AT để thẹc hiện các công việc. Bạn có thể than khảo thêm các lệnh AT cho máy di động tại trang của Nokia (www.nokia.com)
onst acERR_SUCCESS = 0
' --------------------------------------------------------------
Sub WriteStr( o, str )
o.WriteString str
WScript.Echo ''-> '' & str
End Sub
' --------------------------------------------------------------
Sub ReadStr( o )
str = ''notempty''
o.Sleep 200
Do While str <> ''''
str = o.ReadString
WScript.Echo ''<- '' & str
Loop
End Sub
' --------------------------------------------------------------
WScript.Echo ''Bạn đăng ký AComport.dll trên hệ thống''
Set acObj = CreateObject( ''ActivXperts.Comport'' )
acObj.Baudrate = 19200
acObj.PortID = 1
acObj.Open
WScript.Echo ''acObj.Open, result: '' & acObj.LastError
If acObj.LastError = acERR_SUCCESS Then
WriteStr acObj, ''at+cmgf=1''
ReadStr acObj
Do
strNumber = inputbox(''Nhập số điện thoại'', ''Input'')
loop until strNumber <> Chr (13)
Do
strMessage = inputbox(''Nhập tin cần gửi'', ''Input'' )
loop until strMessage <> Chr (13)
WriteStr acObj, ''at+cmgs='''''' & strNumber & ''''''
ReadStr acObj
WriteStr acObj, strMessage
strTermCmd = Chr( 26 )
WriteStr acObj, strTermCmd
ReadStr acObj
acObj.Close
End If
Theo I- today