Avatar billede answermaster Nybegynder
18. marts 2002 - 19:43 Der er 19 kommentarer og
2 løsninger

Sms via visual basic

Hej.

Kan man sende beskeder via visual basic gratis, ligesom f.eks.

www.beskeder.dk

Hvis man kan det, vil jeg gerne have et svar som er til at forstå!
Avatar billede simon_jacobsen Nybegynder
19. marts 2002 - 09:48 #1
lytter med ... :)
Avatar billede sion Nybegynder
19. marts 2002 - 10:04 #2
også mig :-)
Avatar billede bccinlove Nybegynder
19. marts 2002 - 12:14 #3
Jeg vil også bare lytte, hvis der er nogen der mod min overbevisning kan knække dette!

Som jeg ser det er det en umulighed, da en sms jo skal have connection til GSM-nettet/internettet før den kan blive afleveret. Den eneste mulighed jeg dog ser er, at der måske findes en komponent der kan connecte til en sms-central/side på nettet (www.besked.dk el. www.beskeder.dk), hvor man så kan referere til felter og kommandoer på disse pages!

Men jeg ser da alligevel frem til en løsning på dette spørgsmål!

Mvh
Bccinlove
Avatar billede tubber Juniormester
19. marts 2002 - 14:45 #4
Ved ikke om det er en løsning, men førhen kunne man maile en sms til den enkelte udbyder.....
Har lavet et sms prog. på et tidspunkt, sååå her kommer lige min løsning på det (hvis det stadig virker med de mailaddys.

Først skal der tilføjes 2 controller, MAPImessages og MAPISession
De findes ved at tilføje Microsoft Mapi Controls 6.0 under components.

Under form_Load:

Private Sub Form_Load()
'Følgende skaber en kontakt til standard mailprog
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
End Sub


Send Commandoen:

Private Sub Command1_Click()
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = varSMS
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = txtSubject.Text
MAPIMessages1.MsgNoteText = txtSMS.Text
MAPIMessages1.Send
MsgBox "SMS er sendt til : " & varNavn
txtSubject.Text = "Emne"
txtSMS.Text = "Besked"
comNavn.Text = "Navn"
End Sub

Når Programmet lukkes:

Private Sub Form_Unload(Cancel As Integer)
'MAPISession Signof, lukke kontakten til standardmailprog
MAPISession1.SignOff
End Sub


    If Telia = True Then
        Teleudbyder = fon.Text & "@gsm1800.telia.dk"
    ElseIf Sonofon = True Then
        Teleudbyder = fon.Text & "@note.sonofon.dk"
    ElseIf tdm = True Then
        Teleudbyder = fon.Text & "@sms.tdm.dk"
    ElseIf mobilix = True Then
        Teleudbyder = fon.Text & "@sms.mobilix.dk"
    End If

Der er mailaddyerne........
fon.text er self fonnummeret, når et nummer oprettes skal man på en eller anden måde oplyse progget hvad det er for et nummer, jeg har gjort det ved at gemme data i en access database, men man kan også lave det med ListIndex :O)

Tubber......
Avatar billede tubber Juniormester
19. marts 2002 - 14:47 #5
Hvis det har interesse kan jeg da godt zippe progget til jer :O)
Avatar billede answermaster Nybegynder
19. marts 2002 - 14:52 #6
Det må du gerne, men jeg kan først checke og afprøve det i aften!

På forhånd tak!

/answer
Avatar billede bccinlove Nybegynder
19. marts 2002 - 14:56 #7
Det er en løsning ja, men det er jo ikke at sende en sms! Men derimod at sende en ganske almindelig email...
Avatar billede tubber Juniormester
19. marts 2002 - 15:37 #8
Jo det er rigitgt.......det var også bare et forslag......
Men der ud over tror jeg ikke alle og enhver får lov at sende beskeder til en gsm ting......
Avatar billede tubber Juniormester
19. marts 2002 - 15:48 #9
Her er det :

http://home1.stofanet.dk/krog-frandsen/SMS_by_Tubber.exe

og jeg påpegede også det ikke er sikkert det virker mere, da jeg ikke ved om de forskellige teleselskaber tillader det mere......
Avatar billede bccinlove Nybegynder
19. marts 2002 - 17:15 #10
:-)
Avatar billede answermaster Nybegynder
19. marts 2002 - 17:39 #11
Til Tubber..

Følgende fejl opstår.

Dim db As Database
Dim rs As Recordset

Den skriver:

-------------
Compile error:
Can't find project or library
-------------

og så åbner den menuen 'references'

Skal jeg have downloaded noget???
Avatar billede tubber Juniormester
19. marts 2002 - 18:26 #12
Nej du skal bare tilføje
Microsoft DAO 3.51 Object Libray i referenserne......

Jeg chekkede det selv lige at det ikke kørte....
Avatar billede tubber Juniormester
19. marts 2002 - 18:27 #13
blaaa
Jeg chekkede det lige for at se om det ikke kørte, men det gjorde det:O)

Men chekkede ikke lige det der med om man må maile på den måde endnu
Avatar billede answermaster Nybegynder
19. marts 2002 - 18:48 #14
Nu skriver den:

Name conflicts with existing module, project, or object library
Avatar billede answermaster Nybegynder
19. marts 2002 - 18:49 #15
OBS.

Min hedder ikke

Microsoft DAO 3.51 Object Libray

men

Microsoft DAO 3.60 Object Libray
Avatar billede tubber Juniormester
19. marts 2002 - 21:49 #16
Jeg har følgende referencer tilføjet :

MAPIForm Object Type Library
MAPIMail 1.0 Type Library
Microsoft DAO 3.51 Object Library
Visual Basic Resource Editor 6.0

ud over dem der er standard.......
Avatar billede answermaster Nybegynder
20. marts 2002 - 13:27 #17
Det virker ikke på min computer, men ellers tak for din hjælp. Der er nok mange andre der kan bruge hjælpen, men det virker ikke!!!

Da det ikke virker vil jeg ikke give dig alle pointene, men de halve!

/answer
Avatar billede simon_jacobsen Nybegynder
20. marts 2002 - 21:24 #18
hvordan har du lavet den der instalationsfil til dit projekt tubber ???
Avatar billede tubber Juniormester
21. marts 2002 - 00:25 #19
Der skulle ikke ret gerne være nogen istallationsfil.....
det er bare åbne den vbp fil, så kommer koden og det hele.....

Hvis det er exefilen du tænker på er det winrar......

Install Shield, da man selv kan vælge hvad installtionen skal kunne og gøre.......der koder man dog i C++......
Den der deployment wizard der er i visual basic skoder.....
Avatar billede simon_jacobsen Nybegynder
21. marts 2002 - 12:59 #20
jeg enig i at deployment wizard skoder, det er også derfor jeg gerne ville have et andet alternativ end den.
jeg troede lige jeg havde fat i noget, men hvis det "bare" er winrar så må jeg hellere lede videre efter et instalations program.
Der skal nok være et der ud et sted :)
Avatar billede tubber Juniormester
21. marts 2002 - 13:45 #21
hehe er der, og skrev også hvad det hedder.....

Install Shield (er ikke sikker på hvad ver. jeg bruger men mener det er 6.0)

Det laver de professionelle installationer, som når du f.eks. installere photoshop og sådan, du kan selv kode de forms der kommer under installationen, har selv lavet hvor den installere en inifil og senere skriver til den under istallationen.......

Men det var jo ikke installations programmet de skulle have men projektfilerne :O)

Tubber
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester