Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

[vbs] komunikacja z modemem



 
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Inne jzyki
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
jankos



Doczy: 01 Lip 2015
Posty: 11

PostWysany: Pi Lis 18, 2016 12:12 pm  OP    Temat postu: [vbs] komunikacja z modemem Odpowiedz z cytatem Pisownia

Witam,
Z hyperterminala potrafi wysa sms za pomoc komend at. Chodzi o to, eby nie musie wpisywa cigle tych samych komend. Chciabym aby komendy at byy 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



Oczywicie smsa nie wysya. Nawet nie wiem, czy co kolwiek wysya na modem. Jak mona zmodyfikowa ten kod, eby dziaa poprawnie?
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Inne jzyki Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




Debug: strone wygenerowano w 0.02779 sekund, zapytan = 11
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |