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)
| Mã lệnh (VBScript) |
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 |