قطع اینترنت

[علیرضا5]

سلام
با چه کدی میشه اینترنت رو قطع کرد
در تالار سرچ کردم هیچکدوم از کدها جواب ندادن ظاهرا اون کد ها برای xp هستن
من کدی رو می خوام که روی همه ویندوزها جواب بده
با تشکر

[meys34]

سلام


با یه همچین کدی میشه GateWay رو تغییر داد که دیگه به اینترنت وصل نشه...

فقط نتونستم کد برای غیر فعال سازی اش رو بنویسم...

Dim sAdapter As String

Dim objWMIService As Object

Dim colNetAdapters As Object

Dim objNetAdapter As Object



Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

sAdapter = "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"

Set colNetAdapters = objWMIService.ExecQuery(sAdapter)

' loop through adaptor info

For Each objNetAdapter In colNetAdapters


strGateway = Array(objNetAdapter.IpAddress(0))
strGatewayMetric = Array(1)


Print objNetAdapter.SetGateways(strGateway)

Next objNetAdapter

[علیرضا5]

خیلی ممنون بدون کد فعالسازی مجدد فایده نداره
اگه کسی امتحان کنه باید ویندوز عوض بکنه

[meys34]

سلام

ببینید با این کد قسمت پایین رو تغییر میدیم:
که میشه به صورت دستی دوباره گذاشت رو حالت اتوماتیک...

136398





مشکلی که داشتم این بود که ما دوتا حالت داریم:


1- وقتی که تنظیمات اینترنت روی اتوماتیک (DHCP) هست:
(معمولا تنظیمات شبکه رو حالت اتوماتیک هست)
تو این حالت برای برگشتن به حالت اول میشه از دستور زیر استفاده کرد:
Shell "route delete 0.0.0.0"
Shell "ipconfig /renew"

2- وقتی که تنظیمان روی حالت دستی هست:
تو این حالت قبل از تغییر DefaultGateway باید اونو یه جا ذخیره کنید که بعدا بتونید دوباره اونو برگردونید به حالت اول...
برای خوندن DefaultGateway کنونی از دستور زیر استفاده کنید...
Print objNetAdapter.DefaultIPGateway(0)

[علیرضا5]

با تشکر فراوان من کد رو به صورت زیر هم اجرا کردم کاملا جواب میده و نیازی به کدهای پست 1 نیست
نظر شما چیه

Private Sub Command1_Click()
'disconnect
Shell "route delete 0.0.0.0"
End Sub


Private Sub Command2_Click()
'connect
Shell "ipconfig /renew"
End Sub


در مورد حالت دستی هم دقیقا ندونستم چکار باید بکنم یا شایدم اصلا دیگه نیازی نیست