Board Logo
« Sending a sms with dongle+sim (global code)... »

Welcome Guest. Please Login or Register.
Sep 23rd, 2017, 3:13pm


Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Please use the forums Search feature before asking.
Please post code using the code box described in Format Your Messages.
This will keep indentation, separate it better form the message and prevent gibberish.
If the code is too long for one post or additional files are needed, upload a ZIP archive to the Just BASIC Files Archive Site.

« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: Sending a sms with dongle+sim (global code)...  (Read 111 times)
code
Member in Training
ImageImage


member is offline

Avatar




Homepage PM


Posts: 21
xx Sending a sms with dongle+sim (global code)...
« Thread started on: Mar 10th, 2017, 11:32am »

Hi,
If you have a dongle with sim ...maybe you can send a sms...
Here in the .vbs file its on 'comport 6'
I succeeded to send a sms to my mobilephone...
I have still 'problems' to get it to work all the times.
Change the mobilephonenummer from 0641444444 to yours.
Below the global code...maybe you are intrested to get an idea...

Regards ,

Frederik Pot


Code:


nomainwin

button #scr, "Sms...", [b1], UL, 40, 40
open " " for graphics_nsb as #scr
print #scr, "fill black"
print #scr, "flush"
wait
[b1]
open "sms.vbs" for output as #f


print #f, "Function do1() "

print #f, "Set MSComm1=CreateObject("+chr$(34)+"MSCOMMLib.MSComm"+chr$(34)+")"
print #f, "MSComm1.Settings = "+chr$(34)+"9600,n,8,1"+chr$(34)
print #f, "MSComm1.CommPort = 6"
print #f, "MSComm1.InBufferCount = 0"
print #f, "MSComm1.PortOpen = True"

print #f, "rf2 = "+chr$(34)+" AT+CMGF=1;"+"+CMGS="+chr$(34)+" & CHR(34)"+" & "+chr$(34)+"0641444444"+chr$(34)+" & CHR(34) & "+chr$(34)+",129"+chr$(34)+" & vbCrLf"

print #f, "MSComm1.Output = rf2"
print #f, "t2 = "+chr$(34)+chr$(34)+" & "+chr$(34)+"Justbasic is a...."+chr$(34)+" & CHR(26)"

print #f, "MSComm1.Output = t2"
print #f, "MSComm1.PortOpen = False"
print #f, "Set MSComm1 = Nothing"

print #f, "End Function "

close #f


RUN "wscript sms.vbs"
wait



 
User IP Logged

code
Member in Training
ImageImage


member is offline

Avatar




Homepage PM


Posts: 21
xx Re: Sending a sms with dongle+sim (global code)...
« Reply #1 on: Mar 10th, 2017, 12:29pm »

Oeps,

remove : print #f, "Function do1() "
and remove : print #f, "End Function "


rolleyes
User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls