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
