Send SMS besked

Forklar mig lige hvad det er så skal jeg prøve

.::DalZki

Phone Card er en mobiltelefon der sidder i PCMCIA.
Installationen har defineret porten som COM5.
Der er et program med til at sende fra, men jeg ville gerne implementere muligheden for at sende en SMS besked i et andet VB program jeg har.

Det hedder et Nokia Card Phone og ikke Phone Card ;o)

>>tdaugaard: så må det vel være EN og ikke ET  ;-)

Hey easyware...

Først skal du vide lidt om at kommandoerne for card phonen...

Check http://www.forum.nokia.com/main/1,6668,1_6_1_6,00.html (her finder du en beskrivelse af hvilke at kommandoer du skal bruge for at sms\'e vha. cardphonen.)

Dernæst skal du have hul igennem til com porten. Dette kan du gøre vha. MSComm controllen.

Det burde være lige til ;o)

/Jennemaan

tdaugaard & proaccess, I har selvfølgelig ret, jeg tænker bare på telefonen som ET udvidelses-kort mere end EN telefon, derfor min umiddelbare tanke ved beskrivelsen af kortet, jeg glemmer det aldrig mere. Iøvrigt en dejlig facilitet, bortset fra at den ikke kan benytte PCéns mikrofon og højttaler ved alm. samtaleopkald, er der nogen som, om det kan skrives i VB.

jeg glemte et ord, er der nogen som kender til, om det kan skrives i VB

Det kan det godt ;)

>>jennemaan: Det er ikke lige til for mig, jeg kan ikke få det til at virke.

Jeg har aldrig skrevet programmer til kommunikaton med modem, og forstår ikke helt termonologien bag kommandoerne.

Jeg åbner COM5, som i settings viser at card phone er tilsluttet denne port.
Settings = \"9600,N,8,1\"

Når jeg sender mscomm1.output = \"AT+CMFG = 1\" får jeg ikke OK tilbage, men derimod det der lige er sendt.

Command from the DCE Response from the Card Phone Explanation
AT+CMGF=1 - Set the Card Phone to GSM 07.05 SMS text mode, The default is PDU mode (0)
- OK Previous command was successful

Jeg går ud fra at Service Centre number, er det der hos mig hedder message Centre number, hvad står de 145 for, er det et nr. for card phonen eller noget der skal ændres individuelt.

AT+CSCA=\"+358508771010\", 145 - Set the SMS Service Centre number to be used with outgoing SMS
- OK Previous command was successful

AT+CMGS=\"+358705966200\",
145<CR>My SMS<CTRL-Z> - Send the \"My SMS\" message to defined phone number. 145 specifies the phone number type.
- +CMGS: 60 Data Card responses the successful sending with message reference number
- OK Previous command was successful

Kan du ikke hjælpe med et eksempel i VB kode, så slipper jeg pointene løs. På forhånd tak.

/easyware

>>krismort: Jeg opretter et nyt spørgsmål til 200 point, vedr. samtaleopkald uden headset, fra NOKIA card phone. Som jeg har skrevet til Jennemaan, er jeg ikke nogen haj til at kommunikere med modem, så helst et eksempel i VB kode.

>>krismort: Jeg opretter et nyt spørgsmål til 200 point, vedr. samtaleopkald uden headset, fra NOKIA card phone. Som jeg har skrevet til Jennemaan, er jeg ikke nogen haj til at kommunikere med modem, så helst et eksempel i VB kode.

okie, jeg vender tilbage imorgen...
/Jennemaan

jennemaan >> i morgen? :) 08/04-2001

Hejsa,

Firmaet StrongCube har lavet SMS Komponent som jeg selv benytter. Prisen for en registeret version er US $19.95 - lige nu kører jeg med en uregisteret version og denne tilføjer " - strongcube.com" til enden på alle sms'er.

Jeg har en gammel Nokia 6150 med et datakabel (150 kr hos thansen.dk) og Nokia Data Suite 3.0a.

Jeg har dog lavet det med ASP / VBS - det koster mig selvfølglig 50 øre pr. sms jeg sender... - men det kan jo gøres til 20 øre afhængig af teleselskab. :o)

Link til firmaet: http://www.strongcube.com/products.php

Set SMSObject = CreateObject("SCSMS.SMS")
SMSObject.Port = "COM4"
SMSObject.Messages.Reload "SM"
strModel = SMSObject.Model
If strModel <> "" Then
Call SMSObject.SendSMS("+45_mobil_nummer", "Min SMS besked skal stå her")
End if
Set SMSObject = Nothing