Selamat siang
mohon info dan bantuannya ...apakah
RichTextBox1 itu seperti textbox dan untuk kirim sms sourcenya
seperti apa?
terima kasih.
----- Original Message ----
From: affandi mgs <[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, October 23, 2007 7:11:21 AM
Subject: Re: [indoprog-vb] AT COMMAND
============ ========= ==
buat konek :
============ ========= ===
Dim waktu As Date
Private Sub Form_Load()
With MSComm1
On Error GoTo err_handler
.CommPort = 14 'misal port 14
.settings = 9600, N,8,1
.InputLen = 0
If .PortOpen = False Then .PortOpen = True
waktu = Now
.Output = "ATE1" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & .Input
Loop Until InStr(buffer$ , "OK") Or InStr(buffer$ , "ERROR") Or
Now > DateAdd("s", 10, waktu)
If InStr(buffer$ , "OK") Or InStr(buffer$ , "O") Then
Text1.Text = "HP Connect"
Else
Text1.Text = "HP Tidak Connect !!"
Exit Function
End If
End with
End sub
============ =======
buat baca sms
============ =======
untuk baca sms ini banyak caranya
salah satunya :
Private Sub Timer1_Timer( )
If MSComm1.InBufferCou nt <> 0 Then
RichTextBox1. Text = RichTextBox1. Text & MSComm1.Input
RichTextBox1. SelStart = Len(RichTextBox1. Text)
End Sub
Private Sub Command5_Click( )
RichTextBox1. Text = ""
MSComm1.Output = "AT+CMGL=4" & vbCr
End Sub
============ ========= ========= ======
ada pertanyaan juga neh????
gimana caranya waktu kita pake perintah AT+CMGL=4,
perintah AT+CMGL=4 nya ga keluar lagi
jadi langsung ke isi sms nya sampe ke OK
bisa ga ya kaya gt???
MUHAMMAD IRFAN <[EMAIL PROTECTED] com> wrote:
Dear All,
temen2 ada yang tau gak caranya konek PC ke HP lewat port COM dengan MSCOMM.
dengan perintah AT Command.? untuk membaca SMS dan Kirim SMS.
terimakasih.
____________ _________ _________ _________ _________ __
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail. yahoo.com
[Non-text portions of this message have been removed]
____________ _________ _________ _________ _________ __
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail. yahoo.com
[Non-text portions of this message have been removed]
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
