نرم افزار عکس از دسکتاپ(خودم ساختم)

[kheng]

سلام دوست عزیز، آیکون سمتِ چپ بالا گویای این موضوع هست که شما سورس کد رو برداشتید و فقط اسم رو تغییر دادین و اینجا گذاشتین :)

و ممکن هم هست شما خیلی خیلی شبیه سورس کُد درست کردین!(!) ! (چی بگم والا) :|

منبع سورس کَُد

عکس: 

---

از من کینه به دل نگیری رفیق 
من فقط برای اجرای بهتر قوانین طلایی گیمفا این موضوع رو گفتم!
بازم اگه ناراحت شدی، عذر میخوام...

سلام من این سورس رو از خودم نوشتم و از جایی کپی نکردم و دلیل اینکه سورس و اموزش رو نذاشتم بخاطر این بود که کسی درخواست نکرد
سورس پروژه ای که لینک دادین اینه:

Imports System.ComponentModel
Imports System.Text
'/////
Imports System.Drawing.Imaging
Imports System.IO

Namespace ScreenCaptureCS
    Partial Public Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub
        Dim bounds_Renamed As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
'INSTANT VB NOTE: The variable bounds was renamed since Visual Basic does not handle local variables named the same as class members well:


            bounds_Renamed = Screen.PrimaryScreen.Bounds
            screenshot = New System.Drawing.Bitmap(bounds_Renamed.Width, bounds_Renamed.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            graph = Graphics.FromImage(screenshot)
            graph.CopyFromScreen(bounds_Renamed.X, bounds_Renamed.Y, 0, 0, bounds_Renamed.Size, CopyPixelOperation.SourceCopy)

            PictureBox1.Image = screenshot
        End Sub

        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                If RadioButton1.Checked = True Then
                    Dim fs3 As New FileStream(SaveFileDialog1.FileName & ".gif", FileMode.Create, FileAccess.Write)
                    screenshot.Save(fs3, ImageFormat.Gif)
                    fs3.Close()
                ElseIf RadioButton2.Checked = True Then
                    Dim fs As New FileStream(SaveFileDialog1.FileName & ".bmp", FileMode.Create, FileAccess.Write)
                    screenshot.Save(fs, ImageFormat.Bmp)
                    fs.Close()

                ElseIf RadioButton3.Checked = True Then
                    Dim fs2 As New FileStream(SaveFileDialog1.FileName & ".jpg", FileMode.Create, FileAccess.Write)
                    screenshot.Save(fs2, ImageFormat.Jpeg)
                    fs2.Close()
                End If
                MessageBox.Show("با موفقیت ذخیره شد", "موفقیت", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        End Sub
    End Class
End Namespace

و کدی که من ازش استفاده کردم اینه:

Public Class Form1
    Private Sub tak_pic()
        Me.Opacity = 0

        Dim bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Graphics.FromImage(bmp).CopyFromScreen(0, 0, 0, 0, bmp.Size)
        PictureBox1.Image = bmp

        Me.Opacity = 100

    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call tak_pic()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Call tak_pic()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim saveimage As New SaveFileDialog
        If saveimage.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image.Save(saveimage.FileName)
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Enabled = CheckBox1.Checked
        Timer1.Enabled = CheckBox1.Enabled
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If Val(TextBox1.Text) > 0 Then
            Timer1.Interval = TextBox1.Text * 1000
        Else
            TextBox1.Text = 5
        End If

    End Sub
End Class

همون طور که میبینید این دوتا اصلا شبیه هم نیستند و اگه بخاییم کد های من رو خلاصه کنیم میشه سه خط:

Dim bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Graphics.FromImage(bmp).CopyFromScreen(0, 0, 0, 0, bmp.Size)
        PictureBox1.Image = bmp

اگه قرار بود من این رو کپی کنم و به اسم خودم ثبت کنم باید کد ها تغییر نمیکردند و حتی اگر شبیه به هم باشند منطقی هست کد ها شبیه به چون هر دو از یک زبان برنامه نویسی استفاده کردیم
لطفا قبل از تهمت زدن از صحت حرف خود مطمعن شوید
با تشکر