الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه eias في 25 أبريل 2004 · 4 رد · 1,157 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

نسخ البرنامج

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

#3

شكرا اخي علي هذة المجموعة من الاكواد المفيدة

ونرجو المزيد وشكرا

#4

لك كل الشكر على مدنا بالأكواد

KHALED_HELAL

#5

رائعه

هذا الموضوع مغلق.

مواضيع مشابهة