L!nux


:: Super Moderator ::
طاقم الإدارة


إنضم
2 يونيو 2018
المشاركات
49
مستوى التفاعل
12
النقاط
8
أفضل الإجابات
0
نظام التشغيل
Mac






ندخل مباشرة في الموضوع

اليوم احضرت لكم بعض الاكواد المساعدة في عمل برنامج اختراق


فتح قارئ الاقراص

كود:
mciSendString('Set cdaudio door open wait', nil, 0, handle) ;
غلق قارئ الاقراص

كود:
mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;
اخفاء الماوس

كود:
ShowCursor(False);
اظهار الماوس

كود:
ShowCursor(True);
تعطيل زر إغلاق
كود:
var
  Flag: UINT;
  AppSysMenu: THandle;
begin
  AppSysMenu:=GetSystemMenu(Handle,False);
  Flag:=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
تعطيل ALT+F4

كود:
if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
Change Computer Name:
function SetComputerName(AComputerName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, AComputerName);
  Result := Windows.SetComputerName(ComputerName);
end;
مبادلة أزرار الماوس

كود:
procedure SwapMouseButtons(bValue: Boolean);
begin
  if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;
إخفاء ايقونات سطح المكتب

كود:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
Show Desktop Icons:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
Disable Task Manager
procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;

  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;





 

النوميدي


Active Hacker


إنضم
19 أغسطس 2018
المشاركات
64
مستوى التفاعل
30
النقاط
25
الإقامة
أرض الله
أفضل الإجابات
0
نظام التشغيل
Windows 10
Facebook
AlNoumidi
Twitter
BotMan097
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

يعطيك العافية …عالطرح القيم والمفيد ..،
مجهود رائع تُشكر عليه وبارك الله فيكِ
دمت بحفظ الرحمن..،-​
 

MesterPerfect


Beginner Hacker


إنضم
8 سبتمبر 2018
المشاركات
25
مستوى التفاعل
13
النقاط
3
العمر
19
الإقامة
sohag, Egypt
الموقع الالكتروني
mx-blind.com
أفضل الإجابات
0
نظام التشغيل
Windows 8.1
Facebook
my.nvda.1
Twitter
my_nvda_1
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
 

SAMPOP


V • I • P


إنضم
9 سبتمبر 2018
المشاركات
187
مستوى التفاعل
176
النقاط
43
العمر
19
أفضل الإجابات
1
نظام التشغيل
Windows xp
Facebook
SDFSFSSFSF
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
الاكواد ب لغة Delphi
 
أعلى