by admin

Contoh Program Sms Gateway Vb6 Instr

  1. Vb6 Instr Function

0.6 2017-06-14 monthly 0.6. Contoh Kuesioner Mengenai Penelitian weekly 1.0 GREEN GUIDES PROPOSED.

SMS Application‎ > ‎

VB6 Receive SMS thru GSM Modem


Dim message As Integer
Private Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
MsgBox 'Please select the Comm Port First', vbCritical
End If
.CommPort = commport1
.Handshaking = comRTS
.DTREnable = True
.SThreshold = 1
.InputLen = 0
End With
End Sub
Private Sub MSComm1_OnComm()
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
End Sub
Public Sub receivedsms()
Dim cmd, log_Str As String
Dim str1 As String
Dim msgno, mobile, msgreceived As String

MSComm1.Output = 'AT' & vbCrLf
MSComm1.Output = cmd & vbCrLf 'This line can be removed if your modem will always be in Text Mode..'
STR = MSComm1.Input & vbCrLf
'List1.AddItem STR

For i = 0 To UBound(lines) - 1
Sleep 500
List2.AddItem str2
str1 = 'REC READ'
Else
j = 14
msgno = Mid(str2, InStr(1, str2, '+CMGL:') + 7, (InStr(1, str2, str1) - (InStr(1, str2, '+CMGL:') + 9)))
mobile = Mid(lines(i), InStr(1, lines(i), str1) + j, 12)
List2.AddItem 'msgno=> ' & msgno & ' mobile=> ' & mobile & 'message=> ' & msgreceived
MSComm1.Output = cmd & vbCrLf
If IsNumeric(mobile) Then
'///////Here I am sending SMS back using a third party API
Inet1.OpenURL ('http://example.com/eadgn.php?source=sms&msisdn=' & mobile & '&shortcode=55333300&msg=' & msgreceived)
Sleep 500
Next
End Sub
Public Sub create_log(logstr As String)
Dim txtfile As TextStream
strFolderPath = App.Path & 'log'
MkDir strFolderPath

logpath = App.Path & 'loglog_' & Format(Date, 'yyyymmdd') & '.ini'
If Not oFSO.FileExists(logpath) Then
Set txtfile = oFSO.CreateTextFile(logpath, True)
End If
Set txtfile = oFSO.OpenTextFile(logpath, ForAppending)
txtfile.WriteLine '###########################################################################################################'
txtfile.Close
End Sub

Active3 years ago

There is a requirement for the field force to send SMS Messages for data like Employee Code, Time-in, Time-out, etc.

The SMS message that will be received needs to be parsed and then saved into a database to create reports.

Basically, I have no access to a GSM Modem nor will I be able to procure one in time for the project.

Contoh

Query:

Can an android phone be a substitute for this? (GSM Modem)

Contoh Program Sms Gateway Vb6 Instr

What is needed:

Veterinary 5 minute consult. Create a VB6 application that will capture and parse the SMS Message into the database table. As well as, send SMS Message to the field force personnel the confirmation that the SMS was received or if there are errors on the format.

Sancho Almeda
Sancho AlmedaSancho Almeda

1 Answer

Sounds like you're looking for a SMS Gateway to use with VB6. First Hit in Google:http://www.vianett.com/en/developers/api-code-examples/vb-6

First Hit for Sms Gateway free:http://smstools3.kekekasvi.com/

Also, ask your admins if there's already a gateway in use at your company, usually they use one for their nagios or zabbix or alike.

Contoh Program Sms Gateway Vb6 Instr
efkahefkah
Got a question that you can’t ask on public Stack Overflow? Learn more about sharing private information with Stack Overflow for Teams.

Vb6 Instr Function

Not the answer you're looking for? Browse other questions tagged androidvb6sms or ask your own question.