مجموعة جميلة من أكواد النظام

السلام عليكم يا جماعة أريد تفضلوا مجموعة من أكواد النظام التي حصلت عليها مؤخرا أرجو ان تعجبكم :

صديق الجميع : إيــاس نبــهان

------------------------------------------

نسخ البرنامج

Filecopy App.path & App.EXEName , "C:\EIAS"

لفتح لوحة التحكم

Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)

فتح خيارات الوصول

Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)

فتح إضافة إزالة برامج

Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)

عرض تغيير الخلفية

Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

عرض أجهزة الألعاب

Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

والآن ما رأيكم >>((صديق الجميع إياس ..))>>

EIAS@SIFY.COM