 |
Coders' city
Nasza pasja to programowanie!
|
| Zobacz poprzedni temat :: Zobacz nastêpny temat |
| Autor |
Wiadomo¶æ |
jankos
Do³±czy³: 01 Lip 2015
Posty: 11
|
 Wys³any: Pi± Lis 18, 2016 12:12 pm OP Temat postu: [vbs] komunikacja z modemem |
  |
|
Witam,
Z hyperterminala potrafiê wys³aæ sms za pomoc± komend at. Chodzi o to, ¿eby nie musieæ wpisywaæ ci±gle tych samych komend. Chcia³bym aby komendy at by³y wczytywane z pliku vbs. Mam taki kod:
| Kod: |  
 Option Explicit
 Set MSComm1=CreateObject("MSCOMMLib.MSComm")
 SMSPort = New SerialPort
 MSComm1.comport=3 'select the port it may change case to case
 MSComm1.portopen=true ' Open port
 MSComm1.output="AT+CMGF=1" & Chr(13)
 MSComm1.output="AT+CSCS=""GSM""" & Chr(13)
 MSComm1.output="AT+CPIN=""XXXX""" & Chr(13)
 MSComm1.output="AT+CSCA=""+48601000310"",""145""" & Chr(13)
Dim Message
Message="ttttt"
MSComm1.output= "AT+CMGS=""+48XXXXXXXXX""" & Chr(13) & Message & Chr(13) & Chr(26)
Sleep 10
|
Oczywi¶cie smsa nie wysy³a. Nawet nie wiem, czy co kolwiek wysy³a na modem. Jak mo¿na zmodyfikowaæ ten kod, ¿eby dzia³a³ poprawnie? |
|
| Powrót do góry |
|
 |
|
|
|
|
Mo¿esz pisaæ nowe tematy
Mo¿esz odpowiadaæ w tematach
Nie mo¿esz zmieniaæ swoich postów
Nie mo¿esz usuwaæ swoich postów
Nie mo¿esz g³osowaæ w ankietach
Mo¿esz dodawaæ za³±czniki na tym forum
Mo¿esz pobieraæ pliki z tego forum
|
Debug: strone wygenerowano w 0.17179 sekund, zapytan = 11
|
Pomoc
Szukaj
U¿ytkownicy
Grupy
Rejestracja
Profil
Zaloguj siê, by sprawdziæ wiadomo¶ci
