تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] لو سمحتو ايريد تصميم برنامج
#1
لو سمحتو ايريد تصميم برنامج
يقوم باستعراض الملفات تحتوي على عناوين مواقع من على الحاسوب ثم يقوم بفتحها عن طريق الويب HuhHuh
أريد كل امر ان ينفذ بعد 60 ثانية
ارجو الاهتمام
بليزززززززززززززز!Sad
الرد }}}}
تم الشكر بواسطة:
#2
سلام عليكم
تم نقل الموضوع لقسم الأسئلة Blush

الطريقة سهلة لكن المهم هو ما شكل المحتويات التي يحتويها الملف ( كمثال ) ؟؟

سأقوم بعمل المثال Blush
وسأفترض أن ملف الـ txt يحتوي على روابط ( كل رابط موضوع بسطر منفرد )

سلام عليكم

تم عمل المثال بحمد الله

مع العلم ان هناك ملف اسمه (Url.txt) مخزن به روابط المواقع وموقعه بجانب الملف التنفيذي ( exe. )
تحميل المثال :

اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة: sooriaty03 , ali.alfoly , Easy4ever
#3
تحياتي لكـ دمتـ بودSmile
الرد }}}}
تم الشكر بواسطة: Omar Mekkawy
#4
السلام عليكم
اسف علي التاخير والله مشغول جدا
بعد اذن اخي شرح الكود

كود :
Public Class Form1

    '- الاعلان عن متغير نصي ليحمل النص الموجود في الملف
    Dim fileContents As String
    '- الاعلان عن مصفوفة نصية باستخدام علامتي () لتخزين النص  بعد تقسيمه عن طريق الاسطر
    Dim Lines() As String

    '- متغير رقمي لاستخدامه في عد الاسطر
    Dim u As Integer = -1

    '- عند تحميل الفورم
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '- جلب النص من الملف
        '- Application.StartupPath  -  تعني مسار المجلد الذي تم فتح البرنامج منه
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Url.txt")

        '-  تقوم بتقسيم النص الي مصفوفة عن طرق حرف معين Split الدالة
        '- وهي تعني سطر vbNewLine هنا سيتم تقسيم النص عن طريق الدالة
        Lines = Split(fileContents, vbNewLine) ' وضع كل سطر بالملف النصي بعنصر بالمصفوفة


        '- وضع جميع العناصر الموجودة في المصفوفة في اليست بوكس
        ListBox1.Items.AddRange(Lines)

        '- تشغيل التايمر
        '- الخاص بالتايمر Tick وعند تشغيله سيتم تنفيذ اي كود يتم كتابته في الحدث
        Timer1.Enabled = True


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next

        '- نقص العدد الموجود في اليبل ب 1
        Label2.Text = Label2.Text - 1

        '- عند انتهاء العد والوصول الي الصفر
        If Label2.Text = 0 Then

            '- زيادة العداد بواحد
            u = u + 1

            '-  تقوم بفتح اي شي برنامج ملف نصي او موقع اي رابط نعطيها اياه راح تفتحه Process.Start الدالة
            '- هنا اعطيناها رابط الموقع من المصفوفة عن طريق رقمه في العداد
            Process.Start(Lines(u))

            '- تغير العدد ليبدء في العد من جديد
            Label2.Text = 60

        End If

    End Sub
End Class
الرد }}}}
تم الشكر بواسطة: Easy4ever


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برنامج الحوالات imam_boune 5 419 منذ 54 دقيقة مضت
آخر رد: messry
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 46 1,410 منذ 3 ساعة مضت
آخر رد: tryold
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 60 07-12-16, 12:20 AM
آخر رد: amgad525
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 33 06-12-16, 04:34 PM
آخر رد: Ayman97
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 106 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 58 03-12-16, 06:59 PM
آخر رد: sal.softip
  مساعدة في عمل برنامج rabeh.ram 4 176 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [VB.NET] حماية برنامج من سرقة السورس كود thevirus 1 70 20-11-16, 07:41 PM
آخر رد: محمود بكرى
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 87 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم