#1 Nokia CDMA Phone Syupport

[Anonymous]

I have Following VB.Net Code for Nokia CDMA Phone SMS
Support

Please Implemen and Mail me if you are successfull

Hetal Patel
HPNasik@Gmail.com

Function SendSMS(ByVal DestNum As String, ByVal
SMSMsg As String) As Integer
SMSMsg = "TEST Message from Server Software"
DestNum = "9850211178"
Dim ComposedSMS As String = ""
Dim DestNumLen As Integer = DestNum.Length
Dim StrEncode As Integer = 2
Dim StrDataLen As Integer = SMSMsg.Length
ComposedSMS = Int2Hex(DestNumLen) + Str2Hex
(DestNum) + Int2Hex(StrEncode) + Int2Hex(StrDataLen)
+ Str2Hex(SMSMsg)
txtStr.Text = "AT+CMGS=" & ComposedSMS
serialPort.Write("AT+CMGS=" & ComposedSMS &
Microsoft.VisualBasic.vbCrLf)
End Function

Function Str2Hex(ByVal AscString As String) As
String
Dim OutPut As String = ""
Dim i As Integer
Dim inputLen = AscString.Length
For i = 0 To inputLen - 1
OutPut += Microsoft.VisualBasic.Right("0"
& Hex(Asc(AscString.Substring(i, 1))), 2)
Next i
Str2Hex = OutPut
End Function

Function Int2Hex(ByVal InputInt As Integer) As
String
Int2Hex = Hex(InputInt)
If Int2Hex.Length Mod 2 <> 0 Then
Int2Hex = "0" & Int2Hex
End If
End Function