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

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