modemnya dipastikan hrs mendukung pengiriman dlm bentuk teks mode....
kalo nggak, yaa hrs convert ke pdu dulu

MI


-----Original Message-----

From: "East Flower" <[EMAIL PROTECTED]>

To: [email protected]

Date: Thu, 2 Aug 2007 13:26:27 +0700

Subject: [Programmer-VB] Aplikasi Kirim SMS ke Modem GSM
Saya buat kode seperti ini di VB6, kok gak jalan yah?



Private Sub Command1_Click()

Dim PhoneNo As String

MSComm1.CommPort = 7 'Comm Port

MSComm1.Settings = "9600,N,8,1" 'Comm Port Setting String

MSComm1.InputMode = comInputModeText ' Read Text

MSComm1.InputLen = 0 ' Entire buffer

MSComm1.PortOpen = True

PhoneNo = "AT+CMGS=" & Chr(34) & "nohptujuan" & Chr(34) & vbCrLf

MSComm1.Output = PhoneNo

PhoneNo = "Halloo euyyy" & Chr(26)

MSComm1.Output = PhoneNo

End Sub



Ada yang pernah buat?



Terimakasih  

    
    

Kirim email ke