+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التعديل على ملف host (/showthread.php?tid=692)
التعديل على ملف host - root - 25-10-13
ابحث عن امر للتعديل على ملف host الموجود داخل مجلد system32 - drivers - etc
يعني كيفية فتحه وإضافة سطر جديد بداخله
RE: التعديل على ملف host - الشاكي لله - 25-10-13
اولا اهلا بك معنا
ببساطة يمكنك استعمال IO namespace للتعامل مع البيانات (سواء نقلها ، حفظها ، قرائها وغيرها)
PHP كود :
Dim hostPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\drivers\etc\hosts"
Dim sr As New System.IO.StreamWriter(hostPath, True)
sr.WriteLine("new line")
sr.Close()
ولكن عليك أن لاتنسى تشغيل برنامجك كمسؤول لأن التعديل على ملف host يتطلب ذلك
RE: التعديل على ملف host - root - 25-10-13
اهلا فيك اخي وشكرا لك
ايضا كيف يمكن استبدال سطر معين بآخر
كذلك اريد البحث عن قيمة أو كلمة معينة هل موجودة ام لا
بارك الله فيك
RE: التعديل على ملف host - الشاكي لله - 25-10-13
PHP كود :
Dim content As String = String.Empty
Dim hostPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\drivers\etc\hosts"
Dim sr As New System.IO.StreamReader(hostPath, True)
content = sr.ReadToEnd()
sr.Close()
content.Replace("oldword", "newword") 'استبدال كلمة'
If content.Contains("word you want to check") Then
'اذا عثر على الكلمة'
End If
content += vbNewLine & "hello" 'سطر جديد'
Dim sw As New System.IO.StreamWriter(hostPath, False)
sw.Write(content)
sw.Close()
RE: التعديل على ملف host - root - 26-10-13
اشكرك اخي
تظهر لي اخطاء
RE: التعديل على ملف host - ali.alfoly - 26-10-13
السلام عليكم
ضع الكود داخل صب
يعنى ضع زر على الفورم واضغط على الزر ضغطا مذوج دبل كليك ستجد صب اجراء ضع الكود داخله
RE: التعديل على ملف host - root - 31-10-13
شكرا اخ علي تمام