View Full Version : Enableو Disable شدن کارت شبکه بصورت اتوماتیک
sina26
یک شنبه 08 فروردین 1389, 08:51 صبح
سلام دوستان
من رو کامپیوترم 2 تا کارت شبکه دارم که به 2 تا شبکه جدا از هم وصل شده حتما وقتی یکی Enable اون یکی باید Disable بشه برای این منظور میخوام یه برنامه بنویسم تا این کار رو بصورت خودکار انجام بده لطفا منو راهنمائی کنید که چکار باید بکنم و از کجا شروع کنم
حمید محمودی
یک شنبه 08 فروردین 1389, 09:21 صبح
فکر کنم با دیسیبل کردن بصورت سرویسی کارت راه بیفته.
sina26
یک شنبه 08 فروردین 1389, 09:54 صبح
با سلام و تشکر
لطفا واضح تر و بیشتر توضیح بدین
sina26
یک شنبه 08 فروردین 1389, 23:19 عصر
سلام
اساتید محترم و دوستان عزیزم منتظر راهنمائی شما بزرگواران هستم
ali682344
سه شنبه 10 فروردین 1389, 15: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.