ساخت برنامه ای که وقتی روی دکمه اون کلیک میکنی سیستم بره به Standby

سلام به همگی

در ساخت برنامه ای که وقتی روی دکمه اون کلیک میکنی سیستم بره به Standby

ممکنه بنده رو راهنمایی بفرمایید

خیلی ممنون :11:

System.Windows.Forms.Application.SetSuspendState(P owerState.Hibernate, True, False)

salam,duste aziz besyar rahate ama alan dame dast nadaram ama ghol midam age sabr koni tu chand :20:ruze ayande barat bezaram.ok

نقل قول:

---

نوشته شده توسط nk_hsn [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

salam,duste aziz besyar rahate ama alan dame dast nadaram ama ghol midam age sabr koni tu chand :20:ruze ayande barat bezaram.ok

---

chera farsi type nemikonii????????:31::34:

man az shoma ha mamnoonam:11:

نقل قول:

---

نوشته شده توسط larneg [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

man az shoma ha mamnoonam:11:

---

ميشه بگي چرا الكي ممنوني عزيز؟:32:

نقل قول:

---

نوشته شده توسط majid_kntu [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

System.Windows.Forms.Application.SetSuspendState(P owerState.Hibernate, True, False)

---

این رو چه کار کنم؟توی بخش کد یه دکمه کپی کنم؟
کپی کردم نشد.

در ضمن می شه راه روش این نوع از کارها رو بگین؟ این ها با خود برنامه نویسی فرق داره ...

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

واقعا این برام یک سوال اساسی شده شما چرا سوال می پرسید ورژن برنامتون رو نمیگید

:VB6

Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

:VB.Net

System.Threading.Thread.Sleep

این دوستمون راست میگه

برای من هم کار نکرد

تشکر من هم به علت جواب دادن شما بود دوست عزیز

ممکنه راهنمایی کنید

من تازه کار 0 کیلومتر هستم

خیلی ممنون:11:

ــــــــــ

◙

دكمه نداره، اما اميدوارم به درد بخوره:

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetWinFolder() As String
    Dim Path As String, strSave As String
    strSave = String(200, Chr$(0))
    GetWinFolder = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\"
End Function

Private Sub Form_Load()
Shell GetWinFolder + "system32\rundll32.exe powrprof.dll,SetSuspendState 0,1,0"
End Sub

---

اين دو رو هم مى‌تونى تست كنى:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=56040&lngWId=1
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=53118&lngWId=1

◙

نقل قول:

---

نوشته شده توسط larneg [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این دوستمون راست میگه

برای من هم کار نکرد

تشکر من هم به علت جواب دادن شما بود دوست عزیز

ممکنه راهنمایی کنید

من تازه کار 0 کیلومتر هستم

خیلی ممنون:11:

---

شرمنده عزيز !
من شما رو بجا نياوره بودم فكر كردم از راه رسيدي داري تشكر مي كني نگو تاپيك مال خودته

نقل قول:

---

نوشته شده توسط Balrog [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دكمه نداره، اما اميدوارم به درد بخوره:

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetWinFolder() As String
    Dim Path As String, strSave As String
    strSave = String(200, Chr$(0))
    GetWinFolder = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\"
End Function

Private Sub Form_Load()
Shell GetWinFolder + "system32\rundll32.exe powrprof.dll,SetSuspendState 0,1,0"
End Sub

---

اين دو رو هم مى‌تونى تست كنى:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=56040&lngWId=1
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=53118&lngWId=1

◙

---

سلام!
مگه كد Standby رو نمي خواست اين كد كه فكر كنم براي Hibernate‌ باشه!!اينطور نيست؟

والا دقيقا نمى‌دونم، آخه خودم برنامه‌ نويسى VB بلد نيستم!
حالا تست كنه خبرش رو بده. اگه مال Hibernate بود، اين ويژگى ويندوز رو غير فعال كنه و دوباره تست كنه.

◙