Initial commit

Initial Commit

Visual Studio 6 Src/OnnoRokomSMS/SmsApiHelper.bas

@@ -0,0 +1,5 @@
+Attribute VB_Name = "SmsApi"
+Public Sub test()
+Dim b As Object
+    b = CreateObject("OnnoRokomSmsCom.SmsSender")
+End Sub

Visual Studio 6 Src/OnnoRokomSMS/WsHelper.cls

@@ -0,0 +1,81 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "messageHeader"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
+'local variable(s) to hold property value(s)
+Private mvarUserName As String 'local copy
+Private mvarUserPassword As String 'local copy
+Private mvarMarskText As String 'local copy
+Private mvarCampingName As String 'local copy
+Public Property Let CampingName(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.CampingName = 5
+    mvarCampingName = vData
+End Property
+
+
+Public Property Get CampingName() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.CampingName
+    CampingName = mvarCampingName
+End Property
+
+
+
+Public Property Let MarskText(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.MarskText = 5
+    mvarMarskText = vData
+End Property
+
+
+Public Property Get MarskText() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.MarskText
+    MarskText = mvarMarskText
+End Property
+
+
+
+Public Property Let UserPassword(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.UserPassword = 5
+    mvarUserPassword = vData
+End Property
+
+
+Public Property Get UserPassword() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.UserPassword
+    UserPassword = mvarUserPassword
+End Property
+
+
+
+Public Property Let userName(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.UserName = 5
+    mvarUserName = vData
+End Property
+
+
+Public Property Get userName() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.UserName
+    userName = mvarUserName
+End Property
+
+
+
+

Visual Studio 6 Src/OnnoRokomSMS/WsSms.cls

@@ -0,0 +1,60 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "WsSms"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Private mvarMobileNumber As String 'local copy
+Private mvarSmsText As String 'local copy
+Private mvarSmsType As String 'local copy
+Public Property Let SmsType(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.SmsType = 5
+    mvarSmsType = vData
+End Property
+
+
+Public Property Get SmsType() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.SmsType
+    SmsType = mvarSmsType
+End Property
+
+Public Property Let smsText(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.SmsText = 5
+    mvarSmsText = vData
+End Property
+
+
+Public Property Get smsText() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.SmsText
+    smsText = mvarSmsText
+End Property
+
+
+
+Public Property Let MobileNumber(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.MobileNumber = 5
+    mvarMobileNumber = vData
+End Property
+
+
+Public Property Get MobileNumber() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.MobileNumber
+    MobileNumber = mvarMobileNumber
+End Property
+
+
+
+

Visual Studio 6 Src/SendSMS.frm

@@ -0,0 +1,184 @@
+VERSION 5.00
+Begin VB.Form SendSmsFrm 
+   BorderStyle     =   3  'Fixed Dialog
+   Caption         =   "Send SMS"
+   ClientHeight    =   5460
+   ClientLeft      =   2865
+   ClientTop       =   2085
+   ClientWidth     =   8910
+   DrawWidth       =   10
+   Icon            =   "SendSMS.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   5460
+   ScaleWidth      =   8910
+   ShowInTaskbar   =   0   'False
+   Begin VB.TextBox maskNameTxt 
+      Height          =   495
+      Left            =   360
+      TabIndex        =   11
+      Text            =   "Your Mask"
+      Top             =   2280
+      Width           =   3615
+   End
+   Begin VB.TextBox mobileNumbers 
+      Height          =   1815
+      Left            =   5040
+      TabIndex        =   9
+      Text            =   "01811419557"
+      Top             =   2880
+      Width           =   3615
+   End
+   Begin VB.CommandButton exitBtn 
+      Caption         =   "Exit"
+      Height          =   495
+      Left            =   7320
+      TabIndex        =   8
+      Top             =   4800
+      Width           =   1335
+   End
+   Begin VB.CommandButton sendBulkSms 
+      Caption         =   "Send Bulk"
+      Height          =   495
+      Left            =   2520
+      TabIndex        =   7
+      Top             =   4800
+      Width           =   2055
+   End
+   Begin VB.CommandButton sendBatchSms 
+      Caption         =   "Send Batch"
+      Height          =   495
+      Left            =   5040
+      TabIndex        =   6
+      Top             =   4800
+      Width           =   1815
+   End
+   Begin VB.CommandButton sendSingleSms 
+      Caption         =   "Send"
+      Height          =   495
+      Left            =   360
+      TabIndex        =   5
+      Top             =   4800
+      Width           =   1935
+   End
+   Begin VB.TextBox smsText 
+      Height          =   1815
+      Left            =   360
+      TabIndex        =   4
+      Text            =   "SMS Test from Vb6"
+      Top             =   2880
+      Width           =   4455
+   End
+   Begin VB.CommandButton connectBtn 
+      Caption         =   "Connect"
+      Height          =   495
+      Left            =   4080
+      TabIndex        =   3
+      Top             =   2280
+      Width           =   1335
+   End
+   Begin VB.TextBox password 
+      Height          =   615
+      Left            =   360
+      TabIndex        =   2
+      Text            =   "Your Password"
+      Top             =   1560
+      Width           =   3615
+   End
+   Begin VB.TextBox userName 
+      Height          =   495
+      Left            =   360
+      TabIndex        =   1
+      Text            =   "User Name"
+      Top             =   960
+      Width           =   3615
+   End
+   Begin VB.TextBox apiUrl 
+      Height          =   495
+      Left            =   360
+      TabIndex        =   0
+      Text            =   "http://api2.onnorokomsms.com/SendSms.asmx?wsdl"
+      Top             =   360
+      Width           =   8415
+   End
+   Begin VB.Label statusLbl 
+      Caption         =   "Status"
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   12
+         Charset         =   0
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FF0000&
+      Height          =   1095
+      Left            =   4200
+      TabIndex        =   10
+      Top             =   960
+      Width           =   4455
+   End
+End
+Attribute VB_Name = "SendSmsFrm"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Dim client As New SoapClient
+Dim SmsType As String
+
+
+Private Sub connectBtn_Click()
+
+    SmsType = "TEXT"
+    'SmsType = "UCS" 'For Bangla SMS
+
+    client.mssoapinit (apiUrl.Text)
+
+    Dim balance As Variant
+    balance = client.GetBalance(userName.Text, password.Text)
+    statusLbl.Caption = "Connected. Your Balance is " & balance
+
+End Sub
+
+Private Sub exitBtn_Click()
+End
+End Sub
+
+Private Sub sendBatchSms_Click()
+
+Dim header As New messageHeader
+header.CampingName = ""
+header.MarskText = maskNameTxt.Text
+header.userName = userName.Text
+header.UserPassword = password.Text
+
+Dim smsList(2) As New WsSms
+
+smsList(0).MobileNumber = "01811419557"
+smsList(0).smsText = "SMS FROM VB6 BATCH"
+smsList(0).SmsType = "TEXT"
+
+smsList(1).MobileNumber = "01811419556"
+smsList(1).smsText = "SMS FROM VB6 BATCH"
+smsList(1).SmsType = "TEXT"
+
+
+Dim rsp As Variant
+    rsp = client.OneToOneBulk(header, smsList)
+    statusLbl.Caption = rsp
+End Sub
+
+Private Sub sendBulkSms_Click()
+Dim rsp As Variant
+    rsp = client.OneToMany(userName.Text, password.Text, smsText.Text, mobileNumbers.Text, SmsType, maskNameTxt.Text, "")
+    statusLbl.Caption = rsp
+End Sub
+
+Private Sub sendSingleSms_Click()
+    Dim rsp As Variant
+    rsp = client.OneToOne(userName.Text, password.Text, mobileNumbers.Text, smsText.Text, SmsType, maskNameTxt.Text, "")
+    statusLbl.Caption = rsp
+End Sub

Visual Studio 6 Src/SendSMS.log

@@ -0,0 +1,2 @@
+Line 8: Property DrawStyle in Form1 had an invalid value.
+Line 2: Property FillStyle in Form1 could not be set.

Visual Studio 6 Src/SendSms.vbp

@@ -0,0 +1,38 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
+Reference=*\G{C65657D9-5C4B-421E-8DA6-AD4D590FE854}#1.0#0#..\..\..\..\Program Files\Common Files\MSSoap\Binaries\mssoap1.dll#Microsoft Soap Type Library
+Reference=*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#4.0#0#..\..\..\..\WINDOWS\system32\msxml4.dll#Microsoft XML, v4.0
+Form=SendSMS.frm
+Class=MessageHeader; OnnoRokomSMS\WsHelper.cls
+Class=WsSms; OnnoRokomSMS\WsSms.cls
+IconForm="SendSmsFrm"
+Startup="SendSmsFrm"
+Command32=""
+Name="OnnoRokomSmsApi"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName=" C"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1

Visual Studio 6 Src/SendSms.vbw

@@ -0,0 +1,3 @@
+SendSmsFrm = 140, 113, 1476, 757, C, 22, 29, 1421, 673, C
+messageHeader = 44, 58, 1388, 710, C
+WsSms = 88, 116, 1432, 768, C