Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

[vbs] komunikacja z modemem



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Inne języki
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
jankos



Dołączył: 01 Lip 2015
Posty: 11

PostWysłany: 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?
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Inne języki Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
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.11496 sekund, zapytan = 11
contact

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