 |
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.03712 sekund, zapytan = 11
|