PDA

View Full Version : Enableو Disable شدن کارت شبکه بصورت اتوماتیک



sina26
یک شنبه 08 فروردین 1389, 07:51 صبح
سلام دوستان
من رو کامپیوترم 2 تا کارت شبکه دارم که به 2 تا شبکه جدا از هم وصل شده حتما وقتی یکی Enable اون یکی باید Disable بشه برای این منظور میخوام یه برنامه بنویسم تا این کار رو بصورت خودکار انجام بده لطفا منو راهنمائی کنید که چکار باید بکنم و از کجا شروع کنم

حمید محمودی
یک شنبه 08 فروردین 1389, 08:21 صبح
فکر کنم با دیسیبل کردن بصورت سرویسی کارت راه بیفته.

sina26
یک شنبه 08 فروردین 1389, 08:54 صبح
با سلام و تشکر
لطفا واضح تر و بیشتر توضیح بدین

sina26
یک شنبه 08 فروردین 1389, 22:19 عصر
سلام
اساتید محترم و دوستان عزیزم منتظر راهنمائی شما بزرگواران هستم

ali682344
سه شنبه 10 فروردین 1389, 14:47 عصر
با سلام
اين كدو ببين مشكلت حل ميشه
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