Iron_Fist نوشته است:نظرت درباره سوال يك چيه ؟
نمي دونم ، UpdateWindow رو يه امتحان بكن ، شايد شد
میخوای رفرش بشه که چی بشه؟ ویندوز وقتی یه کانکشن میسازی خودش رفرش میکنه.اگر میخوای ایکون پایین که نشون میده کانکت هستی دیده نشه اون یه راه دیگه داره
.ولی اگه برای چیز دیگه ای میخوای...
اگه ویبی کار هستی همون SendKeys از همه بهتره.اصلا راه اصلی اون همینه
نقل قول: نمي دونم ، UpdateWindow رو يه امتحان بكن ، شايد شد
امير جان نمي شه
و براي اين مي خواهم رفرش كنم ؛ چون يه تغيراتي تو نام اينترنت كانكشن ها
مي خواهم بدم و اين تغييرات مي خواهم همون موقع اعمال بشه
ظمنآ SendKeys راه مطمئني نسيت اينم دلايلش :
يوقت كامپيوتر مشغول كار سنگيني بود ؛ همون ان فكوس
از رو پنجره بره
( من انواع روشهاي كار با SendKeys رو در برنامم به كار بردم
از جمله :
1. برگرداندن فكوس به روي پنجره اي كه مي خواهيم رفرش بشه
در صورت از دست دادن ان
2. دادن وقت زياد تا بالا آمدن پنجره و ...
كه در همش وقتي كامپيوتر خيلي مشغول مي شه كار بهم مي ريزه
اقا اصلآ مسيجي براي رفرش پنجره با SendMessage يا PostMessage
وجود داره يا نه ؟
حالا فهميدم منظورت چيه ميخواي اصلا فكوس هم روش نباشه اين اتفاق بيافته نه؟
اگر اينجوريه اين كارت رو راه ميندازه.
کد:
SendMessage hwnd, WM_KEYDOWN, vbKeyF5, 0
ايول
lolohacko جان دمت گرم ؛ همين رو مي خواستم
اينم تابع رفرش اينترنت كانكشن كه با كمك شما دوستان نوشتم
کد:
Public Function RefPbk() As Long
Dim MyHwnd As Long
Dim ResVal As Long
Dim ResVal2 As Long
Shell ("rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl ")
1:
MyHwnd = FindWindow(vbNullString, "Network Connections")
If MyHwnd <> 0 Then
ResVal = PostMessage(MyHwnd, WM_KEYDOWN, vbKeyF5, 0)
Else
GoTo 1:
End If
If ResVal <> 0 Then
ResVal2 = PostMessage(FindWindow(vbNullString, "Network Connections"), WM_CLOSE, 0, 0)
End If
If ResVal2 <> 0 Then
RefPbk = 1
End If
End Function