Hi Simon,
I'm using Windows Mobile 5 (O.S 5.1.195 build 14847.2.0.0)
regards,
paul
"Simon Hart" <(E-Mail Removed)> wrote in message
news:1998DF69-3DFC-414B-8E0C-(E-Mail Removed)...
> What OS is this as I have found pre WM 5 the Connection Manager is a
> little
> flakey.
>
> Simon.
>
> "Milsnips" wrote:
>
>> Hi there,
>>
>> I am using the following module to programatically connect the user to
>> GPRS
>> via my application:
>>
>> ----------------------
>> Option Explicit On
>> Option Strict On
>>
>> Imports OpenNETCF.Net
>> Imports System.Net
>>
>> Module GPRS
>>
>> Private ConnMgr As New ConnectionManager
>> Private DIF As DestinationInfoCollection
>> Private is_connected As Boolean
>>
>> ReadOnly Property isConnected() As Boolean
>> Get
>> Return is_connected
>> End Get
>> End Property
>>
>> #Region "Connection Manager - Event Handlers"
>>
>> 'Event Handlers
>> Sub Connected(ByVal sender As Object, ByVal e As
>> System.EventArgs)
>> is_connected = True
>> End Sub
>>
>> 'Event Handlers
>> Sub ConnectFailed(ByVal sender As Object, ByVal e As
>> System.EventArgs)
>> is_connected = False
>> MessageBox.Show("connection failed")
>> End Sub
>>
>> 'Event Handlers
>> Sub ConnectionWaiting(ByVal sender As Object, ByVal e As
>> System.EventArgs)
>> End Sub
>>
>> 'Event Handlers
>> Sub ConnectionDisconnect(ByVal sender As Object, ByVal e As
>> System.EventArgs)
>> is_connected = False
>> End Sub
>>
>> #End Region
>>
>> Public Sub Connect(ByVal doconnect As Boolean, ByVal connectDesc
>> As
>> String)
>> ConnMgr = New ConnectionManager()
>> AddHandler ConnMgr.Connected, AddressOf Connected
>> AddHandler ConnMgr.ConnectionFailed, AddressOf ConnectFailed
>> AddHandler ConnMgr.ConnectionStateChanged, AddressOf
>> ConnectionWaiting
>> AddHandler ConnMgr.Disconnected, AddressOf
>> ConnectionDisconnect
>>
>> DIF = ConnMgr.EnumDestinations()
>> is_connected = False
>> If ConnMgr.Status.ToString() <> "Connected" Then
>> Try
>> For Each di As DestinationInfo In DIF
>> If Trim(LCase(di.description)) =
>> Trim(LCase(connectDesc)) Then
>> If doconnect = True Then
>> ConnMgr.Connect(di.guid, True,
>> ConnectionMode.Asynchronous)
>> Exit Sub
>> Else
>> Try
>> ConnMgr.Disconnect()
>> Catch ex1 As AdapterException
>> Log.AddLog("Error in connecting to
>> the
>> internet via GPRS.Connect function")
>> Log.AddError(ex1)
>> Catch ex As Exception
>> Log.AddError(ex)
>> Finally
>> ConnMgr = Nothing
>> End Try
>> End If
>> End If
>> Next di
>> Catch err As SystemException
>> Log.AddError(err)
>> Catch ex As Exception
>> Log.AddError(ex)
>> End Try
>> End If
>> End Sub
>> End Module
>> ----------------------
>>
>> I use the following code to start the connection:
>> ----------------------
>> Try
>> GPRS.Connect(True, "the internet")
>> Catch ex As Exception
>> MsgBox(ex.Message)
>> End Try
>>
>> ----------------------
>>
>> On random occasions it will decide that it just doesnt want to connect,
>> and
>> i dont know why, because when i start IE and browse a site, GPRS starts
>> connecting just fine.
>>
>> Any help appreciated,
>> thanks,
>> Paul
>>
>>
>>
|
Similar Threads
