تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشروع لبرنامج التقاط الصور وارسالها الى الخادم واخذ رابطها بعد الرفع
#1
المكونات
على جهازك- فيجوال استديو  Big Grin
واحد نفر فورم
اثنين نفر توتون
وحدة لست بوكس
واحد نفر بروجرس بار
استظافة ومجلد معلوم للرفع الصور به
شوية ريت ريتون ورشة زعتر
الكود التابع للفورم كالاتي
PHP كود :
Imports System.IO

Public Class Form1
    Private Sub Popu
(lsb As ListBoxFolder As StringFileType As String)
 
       'هنا فنكشن "دالة" وظيفتها اخذمحتوى المجلد واظهاره في اللت بوكس
        Dim dinfo As New DirectoryInfo(Folder)
        Dim Files As FileInfo() = dinfo.GetFiles(FileType)
        For Each file As FileInfo In Files
            lsb.Items.Add(file.Directory.Name & "\" & file.Name)
        Next
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        '
كود التقاط الصورة
        Hide
()
 
       Dim currentScreen Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp 
As New Bitmap(currentScreen.WidthcurrentScreen.Height)
 
           Using g Graphics.FromImage(bmp)
 
               g.CopyFromScreen(New Point(00), New Point(00), currentScreen.Size)
 
           End Using
            Dim ImgPath 
Application.StartupPath "\Imagefolder\" & ListBox1.Items.Count & ".png"
            bmp.Save(ImgPath, System.Drawing.Imaging.ImageFormat.Png)
            'بعد حفظ الصورة نعيد قراءة محتويات المجلد
            ListBox1.Items.Clear()
            Popu(ListBox1, Application.StartupPath & "
\Imagefolder", "*.Png")
            'نقوم بارسال اخر صورة التقطناها الى برنامج الرسام للتعديل عليها
            ListBox1.SelectedIndex = (ListBox1.Items.Count - 1)
            Dim MSPPath As String = "
mspaint"
            Process.Start(MSPPath, ListBox1.Text)
        End Using
        Show()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'نقوم بانشاء مجلد لحفظ الصور ونقرأ ما بداخله في اللست بوكس
        System.IO.Directory.CreateDirectory(Application.StartupPath & "
\Imagefolder")
        Popu(ListBox1, Application.StartupPath & "
\Imagefolder", "*.Png")
    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
        ' عند النقر المزدوج في اللست بكوس على اي صورة نقوم بارسالها للرسام
        Dim MSPPath As String = "
mspaint.exe"
        Process.Start(MSPPath, ListBox1.Text)
        ListBox1.SelectedIndex = 0
        Process.Start(MSPPath, ListBox1.Text)
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'مضبط قيم البروجرس بار
        p.Maximum = ListBox1.Items.Count
        For i = 0 To ListBox1.Items.Count - 1
            p.Value = i + 1
            ListBox1.SelectedIndex = (i)
            'نقوم برفع الصورة الى مجلد معلوم في الاستضافة صورة تلو الاخرى
            Dim ss() = Split(ListBox1.Text, "
\")
            Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("
ftp://ftp.Yourdomain/YourFolder" & ss(1)), System.Net.FtpWebRequest)
 
           request.Credentials = New System.Net.NetworkCredential("FTPUsre""FTPPassword")
 
           request.Method System.Net.WebRequestMethods.Ftp.UploadFile
            Dim file
() As Byte System.IO.File.ReadAllBytes(Application.StartupPath "/" ss(0) & "\" & ss(1))
            Dim strz As System.IO.Stream = request.GetRequestStream()
            strz.Write(file, 0, file.Length)
            strz.Close()
            strz.Dispose()
        Next
        Show()
        MsgBox("
Upload is successed")
        Dim MSPPath As String = "
mspaint.exe"

    End Sub
End Class 

ماشي يا صديقي؟!!!
كنت عامل البرنامج على استضافة بس الطيبين نبهوني ان الكود عريان !!! 
سترناه وربك يحب الستر  Shy
حتى اللي نبهني شكله ندم على التنبيه حذف مشاركته  Sad
Smile  لكني اشكره من كل  Heart ي
وبالهناء والبرمجة !!!فيجوال ابلة نظيرة Smile
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: سعود , Basil Abdallah
#2
(09-09-15, 02:59 PM)أبو عمر كتب : المكونات
على جهازك- فيجوال استديو  Big Grin
واحد نفر فورم
اثنين نفر توتون
وحدة لست بوكس
واحد نفر بروجرس بار
استظافة ومجلد معلوم للرفع الصور به
شوية ريت ريتون ورشة زعتر
الكود التابع للفورم كالاتي
PHP كود :
Imports System.IO

Public Class Form1
    Private Sub Popu
(lsb As ListBoxFolder As StringFileType As String)
 
       'هنا فنكشن "دالة" وظيفتها اخذمحتوى المجلد واظهاره في اللت بوكس
        Dim dinfo As New DirectoryInfo(Folder)
        Dim Files As FileInfo() = dinfo.GetFiles(FileType)
        For Each file As FileInfo In Files
            lsb.Items.Add(file.Directory.Name & "\" & file.Name)
        Next
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        '
كود التقاط الصورة
        Hide
()
 
       Dim currentScreen Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp 
As New Bitmap(currentScreen.WidthcurrentScreen.Height)
 
           Using g Graphics.FromImage(bmp)
 
               g.CopyFromScreen(New Point(00), New Point(00), currentScreen.Size)
 
           End Using
            Dim ImgPath 
Application.StartupPath "\Imagefolder\" & ListBox1.Items.Count & ".png"
            bmp.Save(ImgPath, System.Drawing.Imaging.ImageFormat.Png)
            'بعد حفظ الصورة نعيد قراءة محتويات المجلد
            ListBox1.Items.Clear()
            Popu(ListBox1, Application.StartupPath & "
\Imagefolder", "*.Png")
            'نقوم بارسال اخر صورة التقطناها الى برنامج الرسام للتعديل عليها
            ListBox1.SelectedIndex = (ListBox1.Items.Count - 1)
            Dim MSPPath As String = "
mspaint"
            Process.Start(MSPPath, ListBox1.Text)
        End Using
        Show()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'نقوم بانشاء مجلد لحفظ الصور ونقرأ ما بداخله في اللست بوكس
        System.IO.Directory.CreateDirectory(Application.StartupPath & "
\Imagefolder")
        Popu(ListBox1, Application.StartupPath & "
\Imagefolder", "*.Png")
    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
        ' عند النقر المزدوج في اللست بكوس على اي صورة نقوم بارسالها للرسام
        Dim MSPPath As String = "
mspaint.exe"
        Process.Start(MSPPath, ListBox1.Text)
        ListBox1.SelectedIndex = 0
        Process.Start(MSPPath, ListBox1.Text)
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'مضبط قيم البروجرس بار
        p.Maximum = ListBox1.Items.Count
        For i = 0 To ListBox1.Items.Count - 1
            p.Value = i + 1
            ListBox1.SelectedIndex = (i)
            'نقوم برفع الصورة الى مجلد معلوم في الاستضافة صورة تلو الاخرى
            Dim ss() = Split(ListBox1.Text, "
\")
            Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("
ftp://ftp.Yourdomain/YourFolder" & ss(1)), System.Net.FtpWebRequest)
 
           request.Credentials = New System.Net.NetworkCredential("FTPUsre""FTPPassword")
 
           request.Method System.Net.WebRequestMethods.Ftp.UploadFile
            Dim file
() As Byte System.IO.File.ReadAllBytes(Application.StartupPath "/" ss(0) & "\" & ss(1))
            Dim strz As System.IO.Stream = request.GetRequestStream()
            strz.Write(file, 0, file.Length)
            strz.Close()
            strz.Dispose()
        Next
        Show()
        MsgBox("
Upload is successed")
        Dim MSPPath As String = "
mspaint.exe"

    End Sub
End Class 

ماشي يا صديقي؟!!!
كنت عامل البرنامج على استضافة بس الطيبين نبهوني ان الكود عريان !!! 
سترناه وربك يحب الستر  Shy
حتى اللي نبهني شكله ندم على التنبيه حذف مشاركته  Sad
Smile  لكني اشكره من كل  Heart ي
وبالهناء والبرمجة !!!فيجوال ابلة نظيرة Smile

لا طبعا اخوي انا ادري ان الاداري يستطيع معرفة المحذوفات من المشاركات وتعمدت كتابة الرد وحذفه لانه اساسا لا يحذف نهائيا  لاني حاولت مراسلتك ولم اتمكن لم اجد ايقونة المراسلة الخاصة .
هذا ان كنت تقصدني بالذات فاقول سامحك الله احسن الظن ولا تشك بي فانا اخوك لا احب لك الا الخير.
الرد }}}
تم الشكر بواسطة: أبو عمر , Basil Abdallah , Basil Abdallah
#3
الله يسعد قلبك قل آمين
اكرر انا مدين لك بالشكر
لكن حزنت
من كونك تحذف ثاني رد تكتبه على مشاركاتي
فقط
الأمر الاخر يا صديقي العزيز انت على الراس والعين
كما ترى الموضوع برمته مجرد دعابة
تقبل جل امتناني وعرفاني لك بالجميل
يا جميل

بالمناسبة
وجدت هذا البرنامج
ولكنه مذلة
ديمو ويطلع رسالة للمستخدم ان البرنامج محمي من فبلهم
http://www.bastioninfotech.com/.NET%20CO...20DEMO.zip
لا شيء منهم لوجه الله ابداً
مساكين العرب طيبين بجد
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Basil Abdallah
#4
يعطيك الف عافيه المشكله ماحطيت شطه  Big Grin

عشان تكمل الوجبه

انت حاط كود وليس مشروع ):

يالله يفيد البعض  كان عندي مشروع جاهز تصور وترفع وينتج رابط جميل جدا لاكن بحقوق مركز رفع لاصحاب منتدي 

جاري البحث عنه 

تحياتي لك
الرد }}}
تم الشكر بواسطة:
#5
(10-09-15, 04:11 AM)abo_ramas كتب : يعطيك الف عافيه المشكله ماحطيت شطه  Big Grin

عشان تكمل الوجبه

انت حاط كود وليس مشروع ):

يالله يفيد البعض  كان عندي مشروع جاهز تصور وترفع وينتج رابط جميل جدا لاكن بحقوق مركز رفع لاصحاب منتدي 

جاري البحث عنه 

تحياتي لك

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

مع ان الحكاية بسيطة في ASP
لكن لا اعلم كثيرا عن PHP
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Basil Abdallah


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع ادارة المراكز الطبية رضوان الجماعي 8 3,161 20-12-23, 06:30 AM
آخر رد: Taha Okla
Brick [VB.NET] مشروع بسيط يحتوي على مجموعة من الأمثلة المفيدة لتعليم البرمجة بلغة VB.NET musalem 1 906 17-08-23, 12:07 PM
آخر رد: تركي احمد
Brick [VB.NET] سورس كود LCD CLOCKZ هو مشروع لساعة ديجيتال بشكل مميز وجذاب musalem 0 532 04-07-23, 02:08 AM
آخر رد: musalem
  [مشروع] مشروع إدارة الأقساط قابل للتعديل musalem 5 871 17-06-23, 09:59 AM
آخر رد: atefkhalf2004
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 6 3,651 18-05-23, 03:39 AM
آخر رد: mohamed gida
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 8 6,992 12-04-23, 11:41 PM
آخر رد: spiky
  مشروع لعرض المستندات وملفات الـ بي دي اف ومعظم أنواع الصور عبدالله الدوسري 4 38,619 02-04-23, 10:47 PM
آخر رد: naz123
  [VB.NET] برنامج تحويل النصوص بصوت عربي مسموع ثم حفظ الصوت بصيغة wav (تم اعادة الرفع) abo ragab 2 1,599 02-04-23, 10:21 PM
آخر رد: naz123
  مشروع ارسال رسائل واتس اب تلقائيا هديه مني للمنتدي اليوم السابع 14 11,227 30-03-23, 08:47 PM
آخر رد: sanyor77
  [مشروع] مشروع شجرة الحسابات (دليل الحسابات) باستخدام VB.net أحمد النجار 21 22,290 08-10-22, 09:56 PM
آخر رد: asemshahen5

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


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