تغيير في الملف الموجود في هذا المسارC:\\WINDOWS\\system32\\drivers\\etc\\h osts

[وائل المصمم]

السلام عليكم ورحمة الله وبركاته
كيفك اخوتي الكرام أنتم بخير؟
أريد مساعدة في التغيير في الملف الموجود في هذا المسار
C:\\WINDOWS\\system32\\drivers\\etc\\hosts
بامكانكم فتحه بالمفكرة
أريد اضافة كتابة في هذا الملف في آخر السطر

[ثامر أبو بلقيس]

Ancien_texte = TextFile.ReadToString("C:\\WINDOWS\\system32\\drivers\\etc\\hosts");
nouveau_texte = " السلام عليكم "
TextFile.WriteFromString("C:\\WINDOWS\\system32\\drivers\\etc\\hosts", Ancien_texte.."\r\n"..nouveau_texte, false);


موفق أخي العزيز :abc_152:


ملاحظة : أخي وائل البرامج التي تقوم بحجب المواقع الضارة
تستغل هذا السطر

[وائل المصمم]

شكرًا لك أخي ثامر لقد نجحت ولكن اذا أردت حذف ما كتبته كيف أقوم بذلك

[ثامر أبو بلقيس]

chemin_de_recherche = "C:\\WINDOWS\\system32\\drivers\\etc\\hosts"
Ce_que_nous_recherchons = "السلام عليكم"
t_TextFile = {};
t_TextFile = TextFile.ReadToTable(chemin_de_recherche);
local index;
local line;
for index, line in t_TextFile do
if String.Find(line, Ce_que_nous_recherchons, 1, true) == 1 then
Table.Remove(t_TextFile, index);
end
end
TextFile.WriteFromTable(chemin_de_recherche, t_TextFile, false);

موفق أخي العزيز :abc_152::abc_138:

[النصل القاطع]

جميل جدا
لكن هذا الكود سيغير الموجود بالملف تغييرا كاملا
للإضافة فقط دون التأثير على باقى الملف
يجب تعديل البارامتر الأخير فى دالة التكست من فالس إلى ترو
TextFile.WriteFromString("C:\\WINDOWS\\system32\\drivers\\etc\\hosts", Ancien_texte.."\r\n"..nouveau_texte, false);


تتغير الى
TextFile.WriteFromString("C:\\WINDOWS\\system32\\drivers\\etc\\hosts", Ancien_texte.."\r\n"..nouveau_texte, true);


بالتوفيق

[وائل المصمم]

بارك الله فيكم اخوتي الكرا على المساعدة

أخي ثامر اذا أضفت سطرًا فارغًا في آخر الملف فلن يكون هنالك خلل أو مشكلة تمنع البرامج من حجب المواقع الضارة أليس كذلك

[ثامر أبو بلقيس]

السلام عليكم
أخي العزيز وائل السطر الفارغ يبقى فارغ أي لايؤثر
لأنه لا يحمل أي تعليمات فما قصدته هو أني أشرت لك
إلى تبني برنامجا كفيلا بحجب المواقع التي لا نريد أحد الوصول
إليها
ويتم ذلك باستغلال المعادلات السابقة للقيام بحجب اختياري من المستخدم
أو حجب مباشر لمواقع معينة
مثلا : نريد أن نقوم بحجب موقعنا هذا ماذا نفعل ؟
نضيف في الأخير السطر التالي :
127.0.0.1 www.abc4web.net

بعد إغلاق المتصفح و فتحه مرة ثانية لن تستطيع الدخول
لكن بمجرد حذفه سيتم الدخول
لهذا من الممكن جدا الانطلاق مما أشرت إليه لإعداد برنامجا مفيدا

أأمل أني أفدتك أخي العزيز

[وائل المصمم]

وعليكم السلام ورحمة الله وبركاته
نعم أخي الكريم أنا أعرف هذا ومبتغاي هو صنع برنامج لحجب المواقع الاباحية
ولكن أريد سؤالك حول شيء في الكود المستعمل
لمذا قمت بكتابة هذا في الكود أنا لم أفهم
local index
local line

[ثامر أبو بلقيس]

موفق سيكون إن شاء الله برنامجا مميزا
وددت أن أسأل :
كيف نمنع مفردات معينة من البحث أي حجبها إن صح التعبير؟

[وائل المصمم]

هنالك طريقة سهلة موجودة في برنامج فلتر الأمان
بامكانك عمل برنامج يقوم بجلب اسم النوافذ المفتوحة
واذا وجد الكلمة التي تريدها يقوم بغلق النافذة

[ثامر أبو بلقيس]

بعيدا عن برامج أخي وائل نريد أكواد
فمثلا لو أردت تدعيم عملك في حجب المواقع
وهو منع دخول حتى الكلمات غير مرغوب فيها
أجزل الشكر لك و فكر في تدعيم برنامجك بما ذكرته
كما أذكرك فقط بأن تحجب المواقع كذلك برقم الايبي التابع لها
سأكون إن شاء الله من المهنئين بمثل هاته الاعمال موفق:abc_152:

[وائل المصمم]

هذه طريقة لحجب الكلمات
اذا تم العثور على الكلمة التي نريدها في نافذة من النوافذ المفتوحة سوف يتم غلقها:

نضعط double click على الصفحة الاولى للمشروع فتظهر خصائص الصفحة :
ثم نضغط على on show و نكتب الكود التالى
Page.StartTimer(100);

و بعد ذلك نضغط على on timer و نضيف الكود التالى :

-- Get the titles and window handles of all open windows.
windows = Window.EnumerateTitles();

-- A variable containing text in the title you want to search for.
window_name = "الكلمة المراد حجبها";

-- Loop through the table of windows.
for handle, title in pairs(windows) do
-- Check if the window title has the target text.
result = String.Find(title, window_name, 1, false);
-- if the string was found in the title, send the window a close message.
if (result ~= -1) then
Window.Close(handle, CLOSEWND_SENDMESSAGE);
end
end

[أبو يوسف]

أحيي هذه الروح العلمية التي شعرت بها من خلال قراءة الموضوع والردود

تم تغيير العنوان لشيء يدل على المحتوى

.

[ثامر أبو بلقيس]

السلام عليكم
أخي وائل ذكرت في مشاركة في الصفحة السابقة
الأسطر الفارغة سأرسل لك هذا الكود كفيل بمسح الأسطر
الفارغة من مستند سواء كانت في الأخير أو بين الأسطر
thameur = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt")
if Table.Count(thameur) > 0 then
for n=Table.Count(thameur), 1, -1 do
sTemp = String.TrimLeft(thameur[n], " ")
if sTemp == "" then
Table.Remove(thameur, n)
end
end
end

TextFile.WriteFromTable("AutoPlay\\Docs\\1.txt", thameur, false)


تقديري:abc_022:

[فهد الشيخ]

:abc_052: :abc_152: :abc_052:

[عبدالعزيزدنيا]

شكرًا لك أخي