VB6 Auto SMS Program for PC to Mobile on an event

[jacoteck]

Search this forum.... There have been Several GSM related topics over the years, most of them with code that could help you get started...

Dear GremlinSA Sir,
I have installed an electronic Fair Alarm System and an Electronic House Security System at my house. Both units are provided with an individual electromagnetic relay change over contact for controlling hooter or any other gadgets for safety.

I want to use the change over contact of electro magnetic relay to interface my computer with parallel port to generate an automatic SMS from my computer to my mobile phone.

For this propose, I have already developed a VB6 program as given following and working OK. I am using windows xp as OS with driver file inpout32.dll to be copied in C:\Windows\System32\Inpout32.dll & VB6 as programming language

But I am unable to generate an automatic SMS from my PC to my mobile phone. Kindly help me or modify my program as given following so that I can send an event SMS automatically. This project will also help to other forum members as it is not available on the net.

PROGRAM CODE
*************
(1) Module1.bas
---------------------

Start

'// INPUT
'//******
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" _
(ByVal address As Integer) _
As Integer
'
'// OUTPUT
'//*******
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
(ByVal address As Integer, _
ByVal Value As Integer)
'//
----------------------------------- End Module .bas -------------------------

(2) Form1.frm
-----------------
Start

Dim AEPPort As Integer
Dim AEPData As Integer
Dim pat
'
Sub AEPOut(Data As Integer)
Out AEPPort, AEPData
End Sub

Private Sub Timer1_Timer()
'INPUT PORT
AEPPort = &H379
Label1.Caption = Inp(AEPPort)
Portinput = Label1.Caption
Code = Portinput - 7
Label2.Caption = Code
If Code = 120 Then GoTo SMS else goto QSMS
SMS:
Label3.Caption = "Fire In the House Send SMS"

QSMS:
Label3.Caption = "SMS not send"
End Sub
------------------------------------- End ------------------------------------

Thanking you

With kind regards
Jacoteck