Enableو Disable شدن کارت شبکه بصورت اتوماتیک
سلام دوستان
من رو کامپیوترم 2 تا کارت شبکه دارم که به 2 تا شبکه جدا از هم وصل شده حتما وقتی یکی Enable اون یکی باید Disable بشه برای این منظور میخوام یه برنامه بنویسم تا این کار رو بصورت خودکار انجام بده لطفا منو راهنمائی کنید که چکار باید بکنم و از کجا شروع کنم
نقل قول: Enableو Disable شدن کارت شبکه بصورت اتوماتیک
فکر کنم با دیسیبل کردن بصورت سرویسی کارت راه بیفته.
نقل قول: Enableو Disable شدن کارت شبکه بصورت اتوماتیک
با سلام و تشکر
لطفا واضح تر و بیشتر توضیح بدین
نقل قول: Enableو Disable شدن کارت شبکه بصورت اتوماتیک
سلام
اساتید محترم و دوستان عزیزم منتظر راهنمائی شما بزرگواران هستم
نقل قول: Enableو Disable شدن کارت شبکه بصورت اتوماتیک
با سلام
اين كدو ببين مشكلت حل ميشه
Dim objCP, objEnable, objDisable, colNetwork
Dim clsConn, clsLANConn, clsVerb
Dim strNetConn, strConn, strEnable, strDisable
Dim bEnabled, bDisabled
Private Sub Form_Load()
strNetConn = "Network Connections"
strConn = "Local Area Connection"
strEnable = "En&able"
strDisable = "Disa&ble"
Set objshell = CreateObject("Shell.Application")
If objshell Is Nothing Then
MsgBox "Fooey"
Exit Sub
End If
Set objCP = objshell.NameSpace(3) 'Control Panel
Set colNetwork = Nothing
For Each clsConn In objCP.Items
If clsConn.Name = strNetConn Then
Set colNetwork = clsConn.GetFolder
Exit For
End If
Next
If colNetwork Is Nothing Then
MsgBox "Network folder not found"
Exit Sub
End If
Set clsLANConn = Nothing
For Each clsConn In colNetwork.Items
If InStr(LCase(clsConn.Name), LCase(strConn)) Then
Set clsLANConn = clsConn
Exit For
End If
Next
If clsLANConn Is Nothing Then
MsgBox "Network Connection not found"
Exit Sub
End If
bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb In clsLANConn.Verbs
If clsVerb.Name = strEnable Then
Set objEnable = clsVerb
bEnabled = False
End If
If clsVerb.Name = strDisable Then
Set objDisable = clsVerb
End If
Next
If bEnabled Then
objDisable.DoIt
Else
objEnable.DoIt
End If