مقاله:آیا سیستم به شبکه وصله؟با کمک APi

[Alirezagoodarzi]

از تابع InternetGetConnectedStateEx استفاده میکنیم.
این تابع خصوصیات شبکه و ارتباط فعلی را برمیگرداند.


Private Sub Form_Load()
Dim flags As Long
Dim length As Long
Dim connection_name As String
Dim connected As Boolean
Dim ctl As Control

length = 256
connection_name = Space$(length)
connected = InternetGetConnectedStateEx(flags, connection_name,
length, 0&)

For Each ctl In Controls
If TypeOf ctl Is CheckBox Then ctl.Value = vbUnchecked
Next ctl

If connected Then
lblConnection.Caption = Left$(connection_name,
InStr(connection_name, Chr$(0)) - 1)

If flags And INTERNET_CONNECTION_CONFIGURED Then
chkConfigured.Value = vbChecked
If flags And INTERNET_CONNECTION_LAN Then chkLan.Value =
vbChecked
If flags And INTERNET_CONNECTION_MODEM Then chkModem.Value =
vbChecked
If flags And INTERNET_CONNECTION_OFFLINE Then chkOffline.Value =
vbChecked
If flags And INTERNET_CONNECTION_PROXY Then chkProxy.Value =
vbChecked
If flags And INTERNET_RAS_INSTALLED Then chkRASInstalled.Value =
vbChecked
End If
End Sub

[Hamedm]

سلام

از لطفی که کردی ممنون :تشویق:. اما بهتر بود قبلش یک جستجو میکردی. این موضوع قبلا مطرح شده بود.

در پناه حق موفق باشید و پرتوان

[Alirezagoodarzi]

:افسرده: خب باشه ایندفعه بیشتر میگردم.