Καλημέρα,

υπάρχει τρόπος να γίνεται επαλήθευση εάν το pda είναι εντός εμβέλειας ενός συγκεκριμένου ασύρματου δικτύου?

αν ναι να γίνεται λήψη των στοιχείων, σε αντίθετη περίπτωση να εμφανίζεται μήνυμα κατάλληλο.

ευχαριστώ εκ των προτέρων..

 

Ρίξε μια ματιά εδώ:

http://msdn2.microsoft.com/en-us/library/system.net.networkinformation.aspx

 

---

Vir prudens non contra ventum mingit

To OpenNetCf έχει κάτι σχετικό .
Νομίζω ότι είναι το openNetcf.net

παίρνεις ένα collection από τους adapter του μηχανήματος
και σε ένα loop βλέπεις ποιος δίνει IsWirelless = true
Για αυτόν παίρνεις το SignalStrength και το εμφανίζεις με έναν timer ( ή τουλάχιστον έτσι το υλοποίησα εγώ διότι με κάλυπτε )
Κύταξε το και αν θές να σου δώσω ένα code snippet για αυτό .

Τελικά απο ότι φαίνεται θα μου χρειαστεί να κάνω αυτή την προσέγγιση για τον έλεγχο διαθεσιμότητας ασύρματου δικτύου.διάβασα κάτι απο το internet αλλά δεν βρήκα κάτι που να βοηθάει..
μπορώ να ελέγχω για συγκεκριμένο δίκτυο?
ευχαριστώ..

Εγώ χρησιμοποίησα το παρακάτω
    Imports OpenNETCF.Net

 Friend adapters As AdapterCollection = Networking.GetAdapters()
    Friend nic  As Adapter

 Private Sub findwifi()
        Try
            For Each nic In adapters

                If nic.IsWireless = True Then
                
                    Timer1.Enabled = True
                    Dim adapterName As String = nic.Name
                    Dim ssidName As String = nic.AssociatedAccessPoint
                    Dim signalStrength As String = nic.SignalStrength.ToString()
                    Dim signalstrengthindecibels As String = nic.SignalStrengthInDecibels.ToString
                    '   TextBox1.Text = adapterName + vbCrLf + ssidName + vbCrLf + signalStrength + vbCrLf + signalstrengthindecibels
                Else
                    MsgBox("Αδύνατη η Έυρεση της Ασύρματης Κάρτας Δικτύου")
                    Timer1.Enabled = False
                End If
            Next
        
        Catch
            MsgBox("Λάθος στην Αναζήτηση της Ασύρματης Κάρτας Δικτύου", MsgBoxStyle.Information, "Μύνημα Εφαρμογής")
            Timer1.Enabled = False
        Finally
       
        End Try
    End Sub

Ελπίζω να σου δώσει κάποιες ιδέες .