Yassine Einstein
منور يا برنس لو مش مسجل يشرفنا تسجيلك ولو مسجل يلا يا باشا الشله كلها مستنياك جوه

Yassine Einstein

أهلاً بمن أتانا بتحية وسلام
 
الرئيسيةاللهالتسجيلدخول

شاطر | 
 

  بــــرنامج منع الدخول إلى المواقـــع الثقافية مع الڪود سورس

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة




تاريخ التسجيل : 31/12/1969

مُساهمةموضوع: بــــرنامج منع الدخول إلى المواقـــع الثقافية مع الڪود سورس   الخميس مارس 10, 2011 5:56 am







إنَّ الحَمْدَ لِلَّهِ نَحْمَدُهُ وَنَسْتَعِيُنُهُ وَنَسْتَغْفِرُهُ وَنَسْتَهْدِيهِ وَنَعُوذَ بِاللهِ مِن شُرُورِ أََنفُسِنَا وَسَيئَاتِ أَعْمَاِلَنَا،

مَن يَهْدهِ اللهُُ فَلا مُضلَّ لَه ، وَمَن يُضْلِل فَلا هَادِي لَه، وَأَشْهَدُ أَنَّ لاَ إِلهَ إلا اللهُ وَحدَهُ لاَ شَريكَ لَهُ،
وَأَشْهدُ أنَّ مُحَمَّداً عَبدُهُ وَرَسُولُهُ
امابعد
امنع المواقع الاباحية عن
اطفالك بهذا البرنامج
الرائع
خصائص البرنامج
اضافة وحذف المواقع
ايجاد مسار الهوست حيثما يوجد الويندلوز
صور البرنامج



الكود سورس
زر الحذف
procedure TForm1.Delete1Click(Sender: TObject);
var n:Integer;
begin
n:=lst1.ItemIndex;
lst1.DeleteSelected;
lst2.Items.Delete(19+n);
end;

زر الاضافة
تستطيعون تعديله اكثر
var x:string;
begin
x:=InputBox('Add Site','Add site here : ','www.exemple.com');
if ((x='' )or( x='www.exemple.com' ))then ShowMessage('Type Valid Address ') else begin
lst1.Items.Add(x);
lst2.Items.Add('127.0.0.1 '+x); end;

زر الحفظ
lst2.Items.SaveToFile(WindowsDirectory+'System32\Drivers\etc\hosts');
وهذا اهم شيء
var i:Integer;
t:TStringList;
h:string;
begin
t:=TStringList.Create;
t.LoadFromFile(WindowsDirectory+'System32\Drivers\etc\hosts');
lst2.Items.LoadFromFile(WindowsDirectory+'system32\drivers\etc\hosts');
for i:=19 to t.Count-1 do begin
h:=t.Strings[i];
lst1.Items.Add(Copy((h),11,Length(h))) ;

ضافة زر جديد اديت او تعديل

var n:Integer;
begin
n:=lst1.ItemIndex;
lst1.Items.Strings[n]:=InputBox('Edit Site','Edit site from here : ',lst1.Items.Strings[n]);
lst2.Items.Strings[n+19]:= '127.0.0.1 '+lst1.Items.Strings[n];
end;


التنزيل من هنا
mediafire.com ?ej1xlij99919sgq
وفي الختام أسأل الله العون والسداد والتوفيق
، وأن يأخذ بأيدينا إلى تحقيق الأهداف الموجودة
من هذه المواضيع، إنه نعم المولى ونعم النصير، وهو الهادي الى سواء السبيل
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
بــــرنامج منع الدخول إلى المواقـــع الثقافية مع الڪود سورس
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
Yassine Einstein :: البرمجة والتطوير :: لغات البرمجة-
انتقل الى: