thank's mas sudah bisa dibuka, ada satu masalah lagi, sms tidak terkirim
padahal sendmessage OK
sintaknya ini
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Sleep 500
'Replace this with your mobile Phone's No.
MSComm1.Output = "AT+CMGS=+6281320208324" & vbCrLf
Sleep 1000
MSComm1.Output = "Hello This is my test message"
Sleep 2000
If InStr(MSComm1.Input, "OK") Then
MsgBox "Message Send"
Else
MsgBox "Message Not Send"
End If
________________________________
From: bimp <[email protected]>
To: [email protected]
Sent: Sun, August 8, 2010 10:48:21 PM
Subject: Re: [programmer-vb] Port tidak bisa terbuka
kayaknya ada yang pake port itu deh...
coba dicek ada aplikasi yang idup yang ngakses ke com 7 gak?
--
Regards,
-biMp-
2010/8/9 abdul_goni goni <abdul_goni_prg@ yahoo.co. id>
>Sy menhadapi masalah membuka port modem dengan posisi modem di com:7 sy pakai
>modem Huwai model E160
>
>MSComm1.CommPort = 7
>MSComm1.Settings = "9600,n,8,1"
>MSComm1.InputLen = 0
>' try to open
>MSComm1.PortOpen = True
>Error : Port is not Open
>
>Mungkin rekan-rekan ada yng memiliki pengalaman tentang ini mohon solusinya?
>terimakasih.
>
>Abdul Goni
