3 سوال در مورد كار با پنجرها

[amirjan]

نظرت درباره سوال يك چيه ؟

نمي دونم ، UpdateWindow رو يه امتحان بكن ، شايد شد

[lolohacko]

میخوای رفرش بشه که چی بشه؟ ویندوز وقتی یه کانکشن میسازی خودش رفرش میکنه.اگر میخوای ایکون پایین که نشون میده کانکت هستی دیده نشه اون یه راه دیگه داره .ولی اگه برای چیز دیگه ای میخوای...

اگه ویبی کار هستی همون SendKeys از همه بهتره.اصلا راه اصلی اون همینه

[Iron_Fist]

نمي دونم ، UpdateWindow رو يه امتحان بكن ، شايد شد

امير جان نمي شه

و براي اين مي خواهم رفرش كنم ؛ چون يه تغيراتي تو نام اينترنت كانكشن ها
مي خواهم بدم و اين تغييرات مي خواهم همون موقع اعمال بشه

ظمنآ SendKeys راه مطمئني نسيت اينم دلايلش :
يوقت كامپيوتر مشغول كار سنگيني بود ؛ همون ان فكوس
از رو پنجره بره
( من انواع روشهاي كار با SendKeys رو در برنامم به كار بردم
از جمله :
1. برگرداندن فكوس به روي پنجره اي كه مي خواهيم رفرش بشه
در صورت از دست دادن ان
2. دادن وقت زياد تا بالا آمدن پنجره و ...
كه در همش وقتي كامپيوتر خيلي مشغول مي شه كار بهم مي ريزه

اقا اصلآ مسيجي براي رفرش پنجره با SendMessage يا PostMessage
وجود داره يا نه ؟

[lolohacko]

حالا فهميدم منظورت چيه ميخواي اصلا فكوس هم روش نباشه اين اتفاق بيافته نه؟
اگر اينجوريه اين كارت رو راه ميندازه.

کد:

SendMessage hwnd, WM_KEYDOWN, vbKeyF5, 0

[mRizvandi]

سلام

براي اينكه هميشه رو قرار بگيره مي توني از تابع SetWindowPos استفاده کنی تا خاصیت Always on top کنه.
یک کد مثال هم داخل سایت هست:
http://bb.domaindlx.com/brosedev/brSourceCode.HTM
:wink:

[Iron_Fist]

ايول 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