يه برنامه كه حافظه Ram و CPU را كاملا مشغول كنه طوري كه سيستم از كار بيفته.

[hamed59]

سلام و خسته نباشيد
چوري ميشه حافظه Ram و CPU را كملا مشغول كرد.
ميشه تو اين زمنيه يه كد برنامه در اختيار من بزاريدو
با تشكر

[AlgorithmX]

میتونی یک حلقه طولانی بسازی که نصف فرایند CPU رو بگیره ، اما اگر دو سه بار اجراش کنی دیگه به هدفت میرسی



For a=0 to 9999 step 0.001
Me.Caption=a
Next a

[hamed59]

ممنون از جوابتون
با اين دستورات فقط CPU درگير ميشه.من ميخوام حافظه RAM رو هم درگير كنم.
مرسي

[Felony]

میتونی یک حلقه طولانی بسازی که نصف فرایند CPU رو بگیره ، اما اگر دو سه بار اجراش کنی دیگه به هدفت میرسی



For a=0 to 9999 step 0.001
Me.Caption=a
Next a

چه طور 2 ، 3 بار اجراش کنه ؟


ممنون از جوابتون
با اين دستورات فقط CPU درگير ميشه.من ميخوام حافظه RAM رو هم درگير كنم.
مرسي
فایل های با حجم بالا رو تو Memory Stream بارگذاری کنید .

[hamed59]

ميشه بيشتر راهنمائي كنيد
من يه برنامه نويشس مبتدي هستم
اگه ممكمنه يه سورس برنامه در اين مورد در اختيار من بزاريد.
اگه به زبان دلفي باشه ممنون ميشم.
با تشكر.

[AlgorithmX]

وقتی فایل exe بشه میشه اونو دوسه بار اجرا کرد:لبخند:
حالا چطوری تو Memory Stream بارگزاری بشه

[AlgorithmX]

اگه به زبان دلفي باشه ممنون ميشم.

اینجا تالار VB ، شاید بهتر بود در تالار دلفی کارها سوال رو مطرح میکردی؛ نه؟

[Felony]

وقتی فایل exe بشه میشه اونو دوسه بار اجرا کرد:لبخند:
خسته نباشی !


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

[parselearn]

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&txtCriteria=memory+optimizer

[vB.N3T]

یه فورم بزار هی رنگیش کن بندازش تو حلقه بی نهایت سیستم هنگ میشه بعد بندازش تو استارت اپ

[vB.N3T]

یه کار دیگه هم میتونی انجام بدی
یه تایمر بزار کد اولی رو بزار توش بعد کد اولی رو 3 باز بزار متغیر a رو به b و c تغییر بده بعد اجرا کن اگه سی پی یو قوی هم باشه هنگ میشه

[pcdownload.bloghaa.com]

برای اشغال کردن cpu:

On Error Resume Next
Do While True
k = k + Str((Rnd * 256) ^ (Rnd * 256))
Loop

برای اشغال کردن ram:
از همه دوستان می خوام از کد زیر برای ساخت ویروس و از این جور چیزا
استفاده نکن چون خودمم موقع امتحانش کلی وقتم گرفته شد.


Dim a(256, 256, 256) As String
Private Sub Form_Load()
For i = 0 To 255
For j = 0 To 255
For k = 0 To 255
a(i, j, k) = Space(255)
Next k
Next j
Next i
End Sub
--------------------------------------------------
GoodBy

[knight-rak]

دوست عزیز ممنون ولی فکر نمیکنید اگر کلید shift رو قفل کنیم بهتر باشه اینجوری خود سیستم هم یکم ریپ میزنه