rafi-vir 0 Napisano 28 Listopada 2016 Udostępnij Napisano 28 Listopada 2016 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: Option Explicit Set MSComm1=CreateObject("MSCOMMLib.MSComm")SMSPort = New SerialPortMSComm1.comport=3 'select the port it may change case to caseMSComm1.portopen=true ' Open portMSComm1.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 MessageMessage="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? Cytuj Link to post Share on other sites
Recommended Posts
Dołącz do dyskusji
Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.