لا تنسا ان تكن من أعضاء المدونة من هنا , إذا واجهتك اي مشكلة لا تترد فى ترك تعليق
اصنع البرنامج الخاص بك بنفسك مع اكواد notepad:
القواعد:
اولا:قم بفتح برنامج notepad
ثانيا:قم بنسخ الكود من المدونة في المفكرة
ثالثا:قم بحفظ الملف بأي إسم تريد لكن بصيغة bat. كما في الصورة...
كود الالة الحاسبة:
سوف تستخدم في مفاتيح حاسوبك رمز "+" للجمع ، مفتاح "/" للقسمة و "-" للناقص ثم مفتاح "*" للضرب .....
echo off
color 1f
title Calculator
:start
cls
set /p math=Enter your problem:
if %math%==Exit exit
set /a math2=%math%
echo %math%=%math2%
echo.
pause
-----------------------------------------------------------------------------color 1f
title Calculator
:start
cls
set /p math=Enter your problem:
if %math%==Exit exit
set /a math2=%math%
echo %math%=%math2%
echo.
pause
فتح دفعة من المواقع بضغطة زر:
بعد لصق الكود قم بإستبدال Site Name بأسم الموقع وايضاً Site URL برابط الموقع، وبإمكانك تكرار هذا االكود اكثر من مرة بشكل متتالي حسب عدد المواقع التي تود إدخالها
@echo off
start "Site Name" "Site URL"
start "Site Name" "Site URL"
-----------------------------------------------------------------------------
تشغيل عدد من البرامج في وقت واحد بضغطة زر:
قم بكتابة "@echo off" ثم اضغط مرة واحدة علي زر Enter، وقم بكتابة "cd" ثم الصق مسار البرنامج التي يُمكن الحصول عليه بالضغط كليك يمين علي البرنامج ثم اضغط علي خيار Properties وثم بنسخ المسار من امام خانة Start in ولصقه داخل الـ notepad امام امر cd.
ثم نضغط Enter مرة آخري ونكتب start ثم اسم ملف تشغيل البرنامج الذي يكن بإمتداد exe ثم اكتب في النهاية كلمة exit.
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
عرض سيريال التفعيل الخاص بنسختك من الويندوز:
بعد لصق الكود تقوم بالنقر علي قسم File ثم اختر Save as وبعد ذلك قم بتعيين اسم للملف وبنهايتهُ اكتب (.vbs) وبعد حفظ الملف قم بتشغيله لتظهر لك نافذة مُصغرة تحتوي علي مفتاح التفعيل.
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
تعليقات
إرسال تعليق