mógł bys wysłać mi algorytm wysyłania sms?
mam nastepujący program który znalazłem w necie wyglada następująco:
ale nie wysyła nie wiem co jest grane
jak masz połączony telefon z procesorem?
$baud = 19200
Declare Sub Wyslij
Dim I As Byte
Dim J As Byte
Dim K1 As Byte
Dim K2 As Byte
Dim K As Byte
Dim Flaga As Byte
Dim Pomoc As String * 2
Dim Pomoc2 As String * 1
Dim Dlugosc1 As Byte
Dim Dlugosc2 As Byte
Dim Numer_tel As Byte
Dim Komunikat As String * 80
Dim Numer_gsm As String * 13
Do
Numer_gsm = "48501000000" ' tu wpisz numer komórki na którą wysyłasz
Komunikat = "JEZELI WIDZISZ TEGO SMS TO ZNACZY, ZE DZIALA"
Call Wyslij
Wait 10
Loop
Sub Wyslij
I = 1
Flaga = 0
Do
Pomoc = Mid(numer_gsm , I , 1 )
J = Asc(pomoc)
Incr I
Loop Until J = 0
Dlugosc1 = I - 2
I = 1
Do
Pomoc = Mid(komunikat , I , 1 )
J = Asc(pomoc)
Incr I
Loop Until J = 0
Dlugosc2 = I - 2
I = Dlugosc1 Mod 2
J = Dlugosc1 / 2
I = I + J
Numer_tel = 7 + I
I = Dlugosc2 Mod 8
J = Dlugosc2 / 8
J = J * 7
J = J + I
Numer_tel = Numer_tel + J
Print "AT+CMGS=" ; Numer_tel
Wait 1
Print "000100" ;
Print Hex(dlugosc1);
Print "91";
For I = 1 To Dlugosc1 Step 2
J = I + 1
If J >= Dlugosc1 Then
Print "F";
Else
Pomoc = Mid(numer_gsm , J , 1 )
K1 = Asc(pomoc)
Print Chr(k1);
End If
Pomoc = Mid(numer_gsm , I , 1 )
K1 = Asc(pomoc)
Print Chr(k1);
Next
Print "0000";
Print Hex(dlugosc2);
I = 1
J = 2
Flaga = 0
Do
Pomoc = Mid(komunikat , I , 1 )
K1 = Asc(pomoc)
Pomoc2 = Mid(komunikat , J , 1 )
K2 = Asc(pomoc2)
K = Flaga Mod 8
Shift K1 , Right , K
K = 7 - K
Shift K2 , Left , K
K1 = K1 + K2
Print Hex(k1);
Incr I
Incr J
Incr Flaga
If K = 1 Then
Incr J
Incr I
Incr Flaga
End If
Loop Until Flaga >= Dlugosc2
Print Chr(26);
End Sub
End
