Ni ja nisam uspeo ... probao sam juce ali zbog IR komunikacije izmedju laptopa i telefona koja pravi neku (dokumentovanu) grasku nijednom nisam uspeo da ocitam comm port (puca na Comm1.Input liniji). MS kaze da ta greska nastaje kao kombinacija bug-a u MSComm kontroli i IR drajvera i jedini savet je promeniti drajver (dok drugi na netu savetuju ne koristiti MSComm :) )
@Macolina ako uspes da procitas SMS u ovom zadnjem zakacenom VB primeru imas parsiranje teksta da se dobije tekst SMS-a
tekst je sve izmedju "+CMGR:" i vbCrLf & "OK"
poz
Code:
Public Function Parse_SMS() As Boolean
Dim StartPoint As Long
Dim EndPoint As Long
Dim Buffer1 As String
Dim Buffer2 As String
Buffer1 = Message_Buffer
StartPoint = InStr(1, Buffer1, "+CMGR:", vbTextCompare)
EndPoint = InStr(1, Buffer1, vbCrLf & "OK", vbTextCompare)
If StartPoint <> 0 And EndPoint > StartPoint Then
I = StartPoint
While I < EndPoint
Buffer2 = Buffer2 & Mid(Buffer1, I, 1)
I = I + 1
Wend
Parse_SMS = True
Message_Buffer = Buffer2
Exit Function
End If
Parse_SMS = False
End Function