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 j?zyki
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? 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?
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Inne j?zyki 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.19240 sekund, zapytan = 11
contact

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