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.22118 sekund, zapytan = 12
contact

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