MSN Hotmail - Message: "yes its very much possible to send sms from a vb application.
there two ways
1) from a vb appliaction and a gsm moble phone
attached to the computer
2)directly via web thru a sms gateway provider
even that also from a vb application.
sms service providers in india are also available
i've found one
http://www.smsjunction.com
from a client server or a web application
may be its in vb or vb.net or asp.net ...
its legal to send users or end users connected
to the specific business process."
soum-net
Thursday, January 22, 2004
Tuesday, January 20, 2004
Imports System
will make it work. Other than this everything is the ok. Maybe the '\n' in the Colsole.WriteLine(...) can be replaced with vbCrLf (again the line "Imports Microsoft.VisualBasic" is required for vbCrLf), then the console output would be as desired.
will make it work. Other than this everything is the ok. Maybe the '\n' in the Colsole.WriteLine(...) can be replaced with vbCrLf (again the line "Imports Microsoft.VisualBasic" is required for vbCrLf), then the console output would be as desired.
Wednesday, January 07, 2004
Creating a Back List Enumerator Class in VB.net
-------------------------------------------
Imports System.Collections
Public Class BackListEnumerator
Implements IEnumerator
Private _baseList As IList
Private _currentIndex As Integer
'we can choose to start iteration from a particular index instead of the last
Public Sub New(ByVal baseList As IList, ByVal startAt As Integer)
_baseList = baseList
_currentIndex = startAt
End Sub
'by default start at the last item
Public Sub New(ByVal baseList As IList)
Me.New(baseList, baseList.Count)
End Sub
'this returns the object at the present position
Public ReadOnly Property Current() As Object Implements IEnumerator.Current
Get
Return _baseList(_currentIndex)
End Get
End Property
Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext
'if we are at the beginning
'then return false, since we can't move back anymore,
'else decrement the index and return true
If _currentIndex = 0 Then
Return False
Else
_currentIndex -= 1
Return True
End If
End Function
Public Sub Reset() Implements IEnumerator.Reset
_currentIndex = _baseList.Count
End Sub
End Class
Public Class BackListEnumerable
Implements IEnumerable
Implements IEnumerator
Private _list As IList
Public Sub New(ByVal list As IList)
_list = list
End Sub
Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
Return New BackListEnumerator(_list)
End Function
End Class
-------------------------------------------
Imports System.Collections
Public Class BackListEnumerator
Implements IEnumerator
Private _baseList As IList
Private _currentIndex As Integer
'we can choose to start iteration from a particular index instead of the last
Public Sub New(ByVal baseList As IList, ByVal startAt As Integer)
_baseList = baseList
_currentIndex = startAt
End Sub
'by default start at the last item
Public Sub New(ByVal baseList As IList)
Me.New(baseList, baseList.Count)
End Sub
'this returns the object at the present position
Public ReadOnly Property Current() As Object Implements IEnumerator.Current
Get
Return _baseList(_currentIndex)
End Get
End Property
Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext
'if we are at the beginning
'then return false, since we can't move back anymore,
'else decrement the index and return true
If _currentIndex = 0 Then
Return False
Else
_currentIndex -= 1
Return True
End If
End Function
Public Sub Reset() Implements IEnumerator.Reset
_currentIndex = _baseList.Count
End Sub
End Class
Public Class BackListEnumerable
Implements IEnumerable
Implements IEnumerator
Private _list As IList
Public Sub New(ByVal list As IList)
_list = list
End Sub
Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
Return New BackListEnumerator(_list)
End Function
End Class