Jag har ett GSM modem som jag kan skicka SMS meddelanden med från ex. vis Hyperterminal i Windows.
Jag försöker nu göra ett program i vb som öppnar upp en com port och skickar sms meddelandet med AT kommandon. Tyvärr har jag inte koden jag skrivit tillgänglig, men jag kan sända den senare.

Jag tror att AT kommandona skrivs som följer.

AT-CPIN=xxxx
(xxxx= pin kod på gsm kortet)

'Modemet sänder tillbaka "OK"

AT-CSGM="070xxxxxxx" <enter>
(070xxxxxxx= tel.nr. observera att " & " måste vara med.)
(enter trycks i terminal program.)

'Tecknet "_" visas i terminal program

>meddelande text< <ctrl> + <Z>
(ctrl + Z trycks i terminal program)

'Meddelandet sänds.

Hur får jag detta att fungera med MSComm i VB?
Häls. Markus Svensson

exemplet i VB's-help till MSComm gör ju nästan exakt det du vill, bara att planka den koden och lägga till dina specifika grejor.

Så här är koden men det funkar inte....



Private Sub Command1_Click()
' Buffer to hold input string
Dim Instring As String
' Use COM2.
MSComm1.CommPort = 2
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 0
' Open the port.
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "AT + CPIN = 1234" & Chr$(13)
' Ensure that the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCrLf)
' Read the "OK" response data in the serial port.
'Nästa rad ska skicka tele nummret till modemet, 070ettnummer ska ersättas av ett 070nummer.
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "070ettnummer" & Chr$(34) & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "_" & vbCrLf)
'Read the "_" response data in the serial port.
MSComm1.Output = ">Larm! Åtgärda genast!< " & Chr$(17) & Chr$(90)




End Sub

Gjorde ett sådant program i skolan till ett GS-01 modem. Jag fick dock använda mig av en gratis activeX som jag hittade på en hemsida då jag inte hade Prof. Ed. av VB. Adressen till sidan är:
http://ourworld.compuserve.com/homepages/richard_grier/xmcomm.htm
Denna har precis samma funtioner som MScomm. Det enda som skiljer är namnet.
Kan skicka koden till dig om du vill ha den.
Nu använder vi modemet till ett PLC för att starta ett modell tåg. Tåget övervakas med en webkamera. Kolla www.puel.info.se för att prova själv.
M.v.h Stefan Beijer

Tack för tipset Stefan. Du får väldigt gärna skicka koden till mig, det är nämligen ett GS-01 modem jag använder. Programmet är tänkt att ligga på en server som har RSLinx Pro som i sin tur läser data från Allen-Bradley PLC:er. Vid larm på vissa tider ska modemet skicka ett text meddelande till jourhavande.

Jag har gjort ändringar i koden och har fått det att fungera men det är långt ifrån bra...

Min adress är: markus.svensson@sapagroup.com

Skicka gärna upp det i tips & tricks istället, så fler kan få ta del av detta.
/Pelle

Lade till programmet under Tips & tricks -activeX/dll
(http://www.pellesoft.nu/login/tips/t_view4.asp?tid=948)

Hoppas att det fungerar som det ska! Maila gärna och berätta hur det gick. Detta är en enkelt program som säkert går att utveckla.