الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ترى فيو بها المفضله لا تقرأ كل الروابط

بدأه mero5000 في 4 يناير 2010 · 22 رد · 1,589 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

مشروع متصفح صغير يقرأ المفضله من الترى فيو لا يقرا كل الروابط التى بداخله حيث يعمل بالدبل كليك

Private Sub TreeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick

If e.Node IsNot Nothing Then

If e.Node.Tag IsNot Nothing Then

WebBrowser1.Navigate(e.Node.Tag)

End If

End If

End Sub

الروابط التى يقرأها فى المجلدات link والمنزله مع الويندوز اما المضافه اليه بواسطه المستخدم

فلا يراها

المشروع فى المرفقات

وكيف يمكن الاضافه للمفضله والحذف من خلال الترى فيو

ملحوظه المشروع من برمجه الاخ بشار بارك الله فيه

moro_mero0.ZIP

تم تعديل هذه المشاركة بواسطة mero5000 في 4 يناير 2010 في 15:11

#2

انتو فين ؟؟؟؟؟؟؟؟؟؟؟؟؟

مثال بسيط

سوال ممكن استبدال الترى فية باللست بوكس

هذا مثال اخر صممته لكن لا يحفظ المفضله بداخله

واريد ان يقرأ المفضله من الويندوز

انا لما اتعامل مع الباتش من قبل مم صعب الامر على

انا منتظركم

222222222222.rar

#3

للرفع

تم تعديل هذه المشاركة بواسطة mero5000 في 5 يناير 2010 في 08:05

#4

المثال المرفق في الرد الأول يعمل عندي بشكل جيد. زيادة الروابط إلى المفضلة يقرأها مباشرة بعد إعادة التشغيل.

ما المتصفح الذي تستعمل لزيادة الروابط إلى للمفضلة؟ Internet Explorer بالطبع!

#5

السلام عليكم

نعم ياأخى هو internet explorer 6 الى مع الويندوز

لكن اريد ان يقرأها من خلال متصفحى

المتصفح المرفق هذا مثال اما المتصفح الذى اقوم بالعمل فيه يعمل بنظام

احدث

طيب كيف يتم اضافه ملف url من خلال المتصفح الى مفضله الويندوز.

هذا الكود من صديق لى من شرق اوروبا واعطانى اياه على اساس الاضافه الى المفضله وقالى انه شغال معاه تمام

for the add i have a new form. the form got 2 textbox´s. here is the code for the "save button"

Try

If Not Directory.Exists(path) Then

Directory.CreateDirectory(path)

End If

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

Using outputstream As StreamWriter = File.CreateText(path & textbox1.text & ".your-own-file-Extension")

Dim s As String = TextBox2.Text

outputstream.WriteLine("[internetShortcut]")

outputstream.WriteLine("URL=" & s)

outputstream.Close()

End Using

Close()

متصفحى لم يتعرف على الكلمه (pach)

كاولت كثير تعديل الكود ليصبح بدون اى اخطا وتم ذلك لكن بدون اضافه اى شيى للمفضله

اتعبتك معى

شكرا لك ياباشا على اهتمامك

1000شكر لك

تم تعديل هذه المشاركة بواسطة mero5000 في 5 يناير 2010 في 19:16

#6

up

#7

قمت بعمل بعض التعديلات على الكود الموجود بالمشاركه السابقه، يرجى استخدام تاج الكود عند كتابة كود لتسهيل قرائته

    Private Sub CreateFavourite(ByVal Folder As String, ByVal FileName As String, ByVal URL As String)
        If Not Directory.Exists(Folder) Then
            Throw New DirectoryNotFoundException(String.Format("directory '{0}' not exist", Folder))
        End If

        If Not Folder.EndsWith("\") Then Folder += "\"
        If Not FileName.EndsWith(".url") Then FileName += ".url"

        If File.Exists(Folder + FileName) Then
            Throw New Exception(String.Format("file '{0}' in path '{1}' already exist", FileName, Folder))
        End If

        Using os As StreamWriter = File.CreateText(FileName + FileName)
            os.WriteLine("[InternetShortcut]")
            os.WriteLine("URL=" & URL)
            os.Close()
        End Using
    End Sub

الداله تطلب 3 معاملات اولهم الفولدر الذى سيتم انشاء الإختصار داخله الثانى اسم الملف الخاص بالإختصار الثالث عنوان الإنترنت الذى عند الضغك على الإختصار سيتم الذهاب إليه.

الداله ترمى استثنائين اولهم DirectoryNotFoundException و يرمى عندما يكون الفولدر الذى تريد انشاء الإختصار داخله غير موجود. الثانى Exception و يتم رميه عندما يكون ملف الإختصار الذى سيتم انشائه موجود بالفعل.

و الله ولى التوفيق

مدونتي: C++ Tips and Tricks

#8
Muhammad alaa كتب:

قمت بعمل بعض التعديلات على الكود الموجود بالمشاركه السابقه، يرجى استخدام تاج الكود عند كتابة كود لتسهيل قرائته

    Private Sub CreateFavourite(ByVal Folder As String, ByVal FileName As String, ByVal URL As String)
        If Not Directory.Exists(Folder) Then
            Throw New DirectoryNotFoundException(String.Format("directory '{0}' not exist", Folder))
        End If

        If Not Folder.EndsWith("\") Then Folder += "\"
        If Not FileName.EndsWith(".url") Then FileName += ".url"

        If File.Exists(Folder + FileName) Then
            Throw New Exception(String.Format("file '{0}' in path '{1}' already exist", FileName, Folder))
        End If

        Using os As StreamWriter = File.CreateText(FileName + FileName)
            os.WriteLine("[InternetShortcut]")
            os.WriteLine("URL=" & URL)
            os.Close()
        End Using
    End Sub

الداله تطلب 3 معاملات اولهم الفولدر الذى سيتم انشاء الإختصار داخله الثانى اسم الملف الخاص بالإختصار الثالث عنوان الإنترنت الذى عند الضغك على الإختصار سيتم الذهاب إليه.

الداله ترمى استثنائين اولهم DirectoryNotFoundException و يرمى عندما يكون الفولدر الذى تريد انشاء الإختصار داخله غير موجود. الثانى Exception و يتم رميه عندما يكون ملف الإختصار الذى سيتم انشائه موجود بالفعل.

و الله ولى التوفيق

انا عملت فروم لقرءه اسم الموقع + الرابط تلقائى

بعد اضافه الكود السابق + import .system. Io

ما الكود للبوتون ( اضف للمفضله ) الموجود فى الصوره لينفذ الكود السابق

تحياتى اخ محمد

post-196475-126282588575_thumb.jpg

#9

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

If Not Directory.Exists(Form1.CurrentPath) Then

Directory.CreateDirectory(Form1.CurrentPath)

End If

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

Using outputstream As StreamWriter = File.CreateText(Form1.CurrentPath & "\" & ComboBox1.Text & "\" & TextBox1.Text & ".url")

Dim s As String = TextBox2.Text

outputstream.WriteLine("[internetShortcut]")

outputstream.WriteLine("URL=" & s)

outputstream.Close()

End Using

Form1.TreeView1.Nodes.Clear()

Form1.nodload()

Close()

End Sub

كود اضف للمفضله لا يعرف على الجمل الى تحتها خط

ياريت الردود

#10

قبل ان اتكلم

:mad: :mad: :mad: :mad: :mad:

بالمصرى الواحد لازم ينفس عن غضبه و إلا هيطق :angry:

نرجع تانى

ممكن اعرف ايه الفائدة اني اساعدك مع انك لا تنظر حتى بتمعن لما اكتبه، من فضلك اقرا المشاركه دى معايا تانى:

Muhammad alaa كتب:

قمت بعمل بعض التعديلات على الكود الموجود بالمشاركه السابقه، يرجى استخدام تاج الكود عند كتابة كود لتسهيل قرائته

    Private Sub CreateFavourite(ByVal Folder As String, ByVal FileName As String, ByVal URL As String)
        If Not Directory.Exists(Folder) Then
            Throw New DirectoryNotFoundException(String.Format("directory '{0}' not exist", Folder))
        End If

        If Not Folder.EndsWith("\") Then Folder += "\"
        If Not FileName.EndsWith(".url") Then FileName += ".url"

        If File.Exists(Folder + FileName) Then
            Throw New Exception(String.Format("file '{0}' in path '{1}' already exist", FileName, Folder))
        End If

        Using os As StreamWriter = File.CreateText(FileName + FileName)
            os.WriteLine("[InternetShortcut]")
            os.WriteLine("URL=" & URL)
            os.Close()
        End Using
    End Sub

الداله تطلب 3 معاملات اولهم الفولدر الذى سيتم انشاء الإختصار داخله الثانى اسم الملف الخاص بالإختصار الثالث عنوان الإنترنت الذى عند الضغك على الإختصار سيتم الذهاب إليه.الداله ترمى استثنائين اولهم DirectoryNotFoundException و يرمى عندما يكون الفولدر الذى تريد انشاء الإختصار داخله غير موجود. الثانى Exception و يتم رميه عندما يكون ملف الإختصار الذى سيتم انشائه موجود بالفعل.و الله ولى التوفيق

اعتقد ان الأمر اوضح بكتير من ان تكلم فيه و مع ذلك سأوضح اكثر

استدعى الداله CreateFavourite و مرر المعامل الأول مسار فولدر الـ Favourite الخاص بـ IE الموجود بجاهزك فى الأغلب هتلاقيه فى المسار ده:

اقتباس
C:\Documents and Settings\*****\Favorites

احذف النجوم و اكتب بدلها اسم فولدر المستخدم الخاص بيك.

المعامل التانى هو اسم الملف اللى هيتم حفظه داخل الفولدر السابق ذكره (بتاع الـ Favourite).

المعامل الثالث هو عنوان الإنترنت.

و يارب وفقنا

تم تعديل هذه المشاركة بواسطة Muhammad alaa في 7 يناير 2010 في 13:32

مدونتي: C++ Tips and Tricks

#11

اخ محمد انا قصدى ومن الصوره انى عملت فرو م للاضافه واسندت له فى الفروم الرئيسى هذا الكود ليقرا الرابط + اسم الموقع

من خلال هذا الكود الى فى الفروم الاول

Private Sub ToolStripButton20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton20.Click

On Error Resume Next

Form4.TextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle

Form4.TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

Form4.ShowDialog()

End Sub

ماشى انا بقه عاوز كود للبوتون ده (اضف الى المفضله ) الى فى الصوره

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub

اشكرك يا محمد باشا

#12

الداله اللى انا عملتها سابقا قم بتمرير مسار فولدر المفضله له ثم ضع محتوى التكست بوكس 2 كمعامل ثانى و محتوى التكست بوكس 1 كمعامل ثالث.

خلى بالك ان النص الى موجود فى التكست الثانى هو هيكون اسم الملف فإذا كان الإسم ده موجود لملف الداله هترمى استثناء و المفترض ساعتها انك تطلب من المستخدم تغيير محتوى التكست بوكس الثانى.

و الله ولى التوفيق

مدونتي: C++ Tips and Tricks

#13

السلام عليكم

1000 مبروك الاشراف يا اخ محمد

.

.

.

.

.

انا فهمت كودك من الاول بس

انا فكرت فى فكرتك من قبل انا اسئل فى المنتدى لكن لو عملت كده بعد تحويل السورس كود ده الى برنامج لن يعمل على جهاز اخر لأنه لن يقرأ الى اسم جهازى وهذا خطا برمجى

انا كان قصدى من كل السابق ان البرنامج يضيف الملف من مفضلة البرنامج الى مفضله الويندوز تلقائى

دون وضع اى مسار له والا كما لت لن يعمل الا على جهازى فقط

البرنامج قرأ المفضله دون اى مسارات واريده ان يصدر ملف للمفضله ايضا دون اى مسارات عن طريق الفروم الاخر الى وضعت كوده فى اخر مشاركه + الصوره

مشكلتى هنا

من فضلك راجع ما كتبت فى مشاركاتى فى هذا الموضوع

جزالك الله خيرا

تحياتى العطره لك

تم تعديل هذه المشاركة بواسطة mero5000 في 8 يناير 2010 في 15:16

#14
اقتباس
البرنامج قرأ المفضله دون اى مسارات

لا هذا غير صحيح و السبب يظهر بالكود التالى

Dim CurrentPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

و بالتالى يمكنك تمرير CurrentPath كمعامل اول للداله و بهذا تكون جميع المعاملات تم تمريرها بشكل سليم

و الله ولى التوفيق

مدونتي: C++ Tips and Tricks

#15
Muhammad alaa كتب:

لا هذا غير صحيح و السبب يظهر بالكود التالى

Dim CurrentPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

و بالتالى يمكنك تمرير CurrentPath كمعامل اول للداله و بهذا تكون جميع المعاملات تم تمريرها بشكل سليم

و الله ولى التوفيق

اقصد ما قلته فى هذا الرد

C:\Documents and Settings\*****\Favorites

احذف النجوم و اكتب بدلها اسم فولدر المستخدم الخاص بيك.

المعامل التانى هو اسم الملف اللى هيتم حفظه داخل الفولدر السابق ذكره (بتاع الـ Favourite).

00000

انا سئلت عن كود البوتون فى 3 مشاركات هذا ما قصدت من امبارح

#16

up

#17

انتو فين يا جماعه؟؟؟؟

#18

انا عاوز كود الاضافه لزر [اضف الى المفضله] الى صورته هنا...post-196475-126282588575.jpg

تم تعديل هذه المشاركة بواسطة mero5000 في 10 يناير 2010 في 18:41

#19

up

#20

المنتدى نام ليه

فين المشرفين

#21
mero5000 كتب:

المنتدى نام ليه

فين المشرفين

up

up

up

#22

آرخر رفع للموضوع

#23

الحمد لله رب العالمين

تم حل المشكله

مواضيع مشابهة