| Server IP : 209.209.40.120 / Your IP : 216.73.217.112 Web Server : Microsoft-IIS/10.0 System : Windows NT NEWWWW 10.0 build 17763 (Windows Server 2019) i586 User : NEWWWW$ ( 0) PHP Version : 8.3.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Program Files/SMSC client .NET/samples/vb-6.0/SMPP/ |
Upload File : |
VERSION 5.00
Begin VB.Form fmMain
BorderStyle = 3 'Fixed Dialog
Caption = "SMSC client .NET SMPP sample"
ClientHeight = 8850
ClientLeft = 45
ClientTop = 330
ClientWidth = 6135
Icon = "Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8850
ScaleWidth = 6135
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox chkDirectDisplay
Caption = "Direct display (Flash SMS)"
Height = 255
Left = 1500
TabIndex = 21
Top = 6300
Width = 3015
End
Begin VB.CheckBox chkStatusReport
Caption = "Request status report for the message"
Height = 255
Left = 1500
TabIndex = 20
Top = 6060
Value = 1 'Checked
Width = 3015
End
Begin VB.TextBox txtUDH
Height = 495
Left = 1500
MultiLine = -1 'True
TabIndex = 18
Top = 5040
Width = 3015
End
Begin VB.ComboBox cbEncoding
Height = 315
ItemData = "Main.frx":000C
Left = 1500
List = "Main.frx":0019
Style = 2 'Dropdown List
TabIndex = 19
Top = 5580
Width = 3015
End
Begin VB.TextBox txtDestTON
Height = 315
Left = 1500
TabIndex = 15
Text = "1"
Top = 3840
Width = 975
End
Begin VB.TextBox txtDestNPI
Height = 315
Left = 3540
TabIndex = 16
Text = "1"
Top = 3840
Width = 975
End
Begin VB.TextBox txtOrigTON
Height = 315
Left = 1500
TabIndex = 12
Text = "1"
Top = 3120
Width = 975
End
Begin VB.TextBox txtOrigNPI
Height = 315
Left = 3540
TabIndex = 13
Text = "1"
Top = 3120
Width = 975
End
Begin VB.TextBox txtSystemType
Height = 315
IMEMode = 3 'DISABLE
Left = 1500
TabIndex = 10
Top = 2100
Width = 1755
End
Begin VB.TextBox txtOriginator
Height = 315
Left = 1500
TabIndex = 11
Top = 2760
Width = 3015
End
Begin VB.TextBox txtPassword
Height = 315
IMEMode = 3 'DISABLE
Left = 1500
PasswordChar = "*"
TabIndex = 8
Top = 1740
Width = 1755
End
Begin VB.CommandButton cmdInitialize
Caption = "Initialize"
Height = 345
Left = 4800
TabIndex = 2
Top = 1380
Width = 1035
End
Begin VB.TextBox txtNPI
Height = 315
Left = 3900
TabIndex = 9
Text = "1"
Top = 1740
Width = 615
End
Begin VB.TextBox txtTON
Height = 315
Left = 3900
TabIndex = 7
Text = "1"
Top = 1380
Width = 615
End
Begin VB.TextBox txtSystemID
Height = 315
Left = 1500
TabIndex = 6
Top = 1380
Width = 1755
End
Begin VB.TextBox txtDestination
Height = 315
Left = 1500
TabIndex = 14
Top = 3480
Width = 3015
End
Begin VB.TextBox txtLog
Height = 1515
Left = 300
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 22
Top = 7020
Width = 5595
End
Begin VB.CommandButton cmdSubmit
Caption = "Submit"
Height = 345
Left = 4800
TabIndex = 3
Top = 2760
Width = 1035
End
Begin VB.TextBox txtSubmit
Height = 795
Left = 1500
MultiLine = -1 'True
TabIndex = 17
Top = 4200
Width = 3015
End
Begin VB.CommandButton cmdDisconnect
Caption = "Disconnect"
Height = 345
Left = 4800
TabIndex = 1
Top = 720
Width = 1035
End
Begin VB.TextBox txtPort
Height = 315
Left = 3900
TabIndex = 5
Text = "0"
Top = 240
Width = 615
End
Begin VB.TextBox txtHost
Height = 315
Left = 1500
TabIndex = 4
Text = "0.0.0.0"
Top = 240
Width = 1755
End
Begin VB.CommandButton cmdConnect
Caption = "Connect"
Height = 345
Left = 4800
TabIndex = 0
Top = 240
Width = 1035
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Event log:"
Height = 195
Left = 300
TabIndex = 39
Top = 6780
Width = 720
End
Begin VB.Line Line2
BorderColor = &H8000000C&
X1 = 240
X2 = 5940
Y1 = 6660
Y2 = 6660
End
Begin VB.Label Label16
Caption = "User Data Header:"
Height = 435
Left = 300
TabIndex = 38
Top = 5040
Width = 855
WordWrap = -1 'True
End
Begin VB.Line Line1
BorderColor = &H8000000C&
X1 = 240
X2 = 5940
Y1 = 1200
Y2 = 1200
End
Begin VB.Line Line5
BorderColor = &H8000000C&
X1 = 240
X2 = 5940
Y1 = 2580
Y2 = 2580
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "Encoding:"
Height = 195
Left = 300
TabIndex = 37
Top = 5640
Width = 720
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "Dest. NPI:"
Height = 195
Left = 2760
TabIndex = 36
Top = 3900
Width = 735
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "Dest. TON:"
Height = 195
Left = 300
TabIndex = 35
Top = 3900
Width = 810
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "Orig. NPI:"
Height = 195
Left = 2760
TabIndex = 34
Top = 3180
Width = 690
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Orig. TON:"
Height = 195
Left = 300
TabIndex = 33
Top = 3180
Width = 765
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "System Type:"
Height = 195
Left = 300
TabIndex = 32
Top = 2160
Width = 960
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "Originator:"
Height = 195
Left = 300
TabIndex = 31
Top = 2820
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Password:"
Height = 195
Left = 300
TabIndex = 30
Top = 1800
Width = 735
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Message:"
Height = 195
Left = 300
TabIndex = 29
Top = 4260
Width = 690
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Destination:"
Height = 195
Left = 300
TabIndex = 28
Top = 3540
Width = 840
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "NPI:"
Height = 195
Left = 3360
TabIndex = 27
Top = 1800
Width = 315
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "TON:"
Height = 195
Left = 3360
TabIndex = 26
Top = 1440
Width = 390
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "System ID:"
Height = 195
Left = 300
TabIndex = 25
Top = 1440
Width = 765
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Port:"
Height = 195
Left = 3360
TabIndex = 24
Top = 300
Width = 330
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "SMSC address:"
Height = 195
Left = 300
TabIndex = 23
Top = 300
Width = 1095
End
End
Attribute VB_Name = "fmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'------------------------------------------------------------------------------
' SMSC client .NET components SMPP sample application of COM interface
'
' $Header: $
' Copyright (c) 2003-2013 Tops. All rights reserved.
'------------------------------------------------------------------------------
Private WithEvents smpp As SMSCclientSMPP
Attribute smpp.VB_VarHelpID = -1
Option Explicit
' Connect to SMSC
Private Sub cmdConnect_Click()
Dim Result As Long
txtLog = ""
AddConnectingEvent txtLog
txtLog.Refresh
Result = smpp.tcpConnect(txtHost, txtPort, "")
If Result <> 0 Then
AddConnectionErrorEvent txtLog, Result
Else
AddConnectedEvent txtLog
End If
End Sub
' Disonnect from SMSC
Private Sub cmdDisconnect_Click()
smpp.tcpDisconnect
End Sub
' Initialize session with SMSC
Private Sub cmdInitialize_Click()
Dim Result As Long
Result = smpp.smppInitializeSession(txtSystemID, txtPassword, txtTON, txtNPI, txtSystemType)
If Result <> 0 Then
AddInitializationErrorEvent txtLog, Result
Else
AddInitializedEvent txtLog
End If
End Sub
' Submit message to the SMSC
Private Sub cmdSubmit_Click()
Dim Result As Long
Dim MessageID As String
Dim Encoding As EncodingEnum
Dim Options As Long
Select Case cbEncoding.ListIndex
Case 2
Encoding = EncodingEnum_etUCS2Text
Case 1
Encoding = EncodingEnum_et8BitHexadecimal
Case Else
Encoding = EncodingEnum_et7BitText
End Select
If Encoding = EncodingEnum_etUCS2Text Then
If MsgBox("Because of the nature of the VB controls, which do not " & _
"support UNICODE the message will only be sent correctly if the " & _
"characters entered in the Message box match the default code page. " & _
vbCrLf & vbCrLf & "Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then
Exit Sub
End If
End If
Options = 0
If chkStatusReport.Value = vbChecked Then _
Options = Options Or SubmitOptionEnum_soRequestStatusReport
If chkDirectDisplay.Value = vbChecked Then _
Options = Options Or SubmitOptionEnum_soDirectDisplay
Result = smpp.smppSubmitMessage(txtDestination, txtDestTON, txtDestNPI, txtOriginator, txtOrigTON, txtOrigNPI, txtSubmit, Encoding, txtUDH, Options, MessageID)
If Result <> 0 Then
AddMessageSubmissionErrorEvent txtLog, Result
Else
AddMessageSubmitedEvent txtLog, MessageID
End If
End Sub
Private Sub Form_Load()
Set smpp = New SMSCclientSMPP
cbEncoding.ListIndex = 0
End Sub
' Disconnected from SMSC
Private Sub smpp_OnTcpDisconnected(ByVal sender As Variant, ByVal e As smscc.ITcpDisconnectedEventArgs)
AddDisconnectedEvent txtLog, e.Reason
End Sub
' Message received from SMSC
Private Sub smpp_OnSmppMessageReceived(ByVal sender As Variant, ByVal e As smscc.ISmppMessageReceivedEventArgs)
AddMessageReceivedEvent txtLog, e.Destination, e.Originator, e.Content, e.Encoding, e.UserDataHeader
End Sub
' Status Report (SR) received from SMSC
Private Sub smpp_OnSmppStatusReportReceived(ByVal sender As Variant, ByVal e As smscc.ISmppStatusReportReceivedEventArgs)
AddStatusReportReceivedEvent txtLog, e.Destination, e.MessageState, e.NetworkErrorCode, e.Originator, e.MessageID
End Sub