classgprs.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

Imports OpenNETCF
Imports OpenNETCF.IO
Imports OpenNETCF.Net
Imports OpenNETCF.Phone

Public Class ClassGPRS
    Private WebRequest As System.Net.WebRequest
    Private WebRespon As System.Net.WebResponse
    Private IsConnected As Boolean
    Public ConnMgr As OpenNETCF.Net.ConnectionManager = New OpenNETCF.Net.ConnectionManager
    Public Property vWebRequest()
        Get
            Return WebRequest

        End Get
        Set(ByVal value)
            WebRequest = value

        End Set
    End Property

    Public Function IsConnectionAvailable(ByVal WebAddress As String) As Boolean
        WebRequest = System.Net.WebRequest.Create(WebAddress)
        Try
            WebRespon = WebRequest.GetResponse
            IsConnected = True
            Return True
        Catch ex As Exception
            WebRespon = Nothing
            WebRequest = Nothing
            IsConnected = False
            Return False
        End Try
        WebRespon.Close()
    End Function
    Public Sub openGPRS(ByVal connect As Boolean)
        Dim DIF As DestinationInfoCollection
        Dim startTime As Long
        Dim is_connected As Boolean = False
        DIF = ConnMgr.EnumDestinations()
        Cursor.Current = Cursors.WaitCursor
        If ConnMgr.Status <> ConnectionStatus.Connected Then
            Try
                Dim i As Integer
                For Each di As DestinationInfo In DIF
                    i += 1
                    Dim s As String = "Number of destination = " & DIF.Count & vbNewLine & _
                                  "Guid of destination " & i & " = " & di.Guid.ToString & vbNewLine & _
                                   di.Description
                    MessageBox.Show(s)
                    If di.Description = "The Internet" Then
                        If connect = True Then
                            'ConnMgr.Connect(ConnMgr.MapUrl("wap.viettelmobile.com.vn"), True, ConnectionMode.Asynchronous)
                            ConnMgr.Connect(di.Guid, True, ConnectionMode.Asynchronous)
                            startTime = DateTime.Now.Ticks

                            Do While Not ConnMgr.Status <> ConnectionStatus.Connected And DateTime.Now.Ticks - startTime < 30 * TimeSpan.TicksPerSecond
                                'no hacer nada?
                                MessageBox.Show("Attemping to connect ...")
                            Loop
                            MessageBox.Show(ConnMgr.Status.ToString)
                        Else
                            ConnMgr.RequestDisconnect()
                            startTime = DateTime.Now.Ticks
                            Do While Not ConnMgr.Status <> ConnectionStatus.Disconnected And DateTime.Now.Ticks - startTime < 30 * TimeSpan.TicksPerSecond
                                MessageBox.Show("Attemping to disconnect ...")

                            Loop
                            MessageBox.Show(ConnMgr.Status.ToString)
                        End If
                    End If
                Next di

            Catch ex As SystemException
                MessageBox.Show(ex.Message)
                Cursor.Current = Cursors.Default
            End Try
        End If
        Cursor.Current = Cursors.Default
    End Sub


End Class