My example code plagiarized. (Copied, actually....Check it out.) 
Author Message
 My example code plagiarized. (Copied, actually....Check it out.)

Hello all-
        I just cancelled an angry post that I made earlier.
( Hopefully I did it correctly.)
        Anyway, I found that an original example that I have
had on my website since March was copied VERBATIM
and submitted to the WinDX Technical Tips column. The
code, which uses the undocumented SHFormatDrive API
to format a drive in Win95/NT, was submitted by an individual
who obviously downloaded it from my site. The part that really
makes me angry is that I wrote an article for another E-Zine
about this code, it should come out any day....

The Tips page-
http://www.*-*-*.com/
t5frm.htm

My code can be found here: (The original...)
http://www.*-*-*.com/

         I'm sure that VBPJ had no idea that the
code was not original- the person who submitted
the code is the guilty party. BTW- I always include
a " (c)1997 J.LeVasseur " in my code- this is about
the ONLY thing that was cut from the sample.( Even
used my HACK to disable the DiskCopy Command
Button for hard-drives.) How do copyright laws work
in a case such as this? This individual probably doesn't
even understand the code.
        Someone owes me an apology and $25.00.
(Wouldn't you say?)
                                Joe LeVasseur  
Check this out: first MY code.

+++++++++++++++++++++++++++++++++++++++++++++
__________From my original code dated 3/28/97_________
'--------------------------------

' Please be careful and use your head.
' Drives are numbered starting with 0 (a:)

Private Declare Function SHFormatDrive Lib "shell32" _
    (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
    ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub cmdDiskCopy_Click()
' DiskCopyRunDll takes two parameters- From and To
    Dim DriveLetter$, DriveNumber&, DriveType&
    Dim RetVal&, RetFromMsg&
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65)
    DriveType = GetDriveType(DriveLetter)
    If DriveType = 2 Then  'Floppies, etc
        RetVal = Shell("rundll32.exe diskcopy.dll,DiskCopyRunDll " _
            & DriveNumber & "," & DriveNumber, 1) 'Notice space after
    Else   ' Just in case                         'DiskCopyRunDll
        RetFromMsg = MsgBox("Only floppies can" & vbCrLf & _
            "be diskcopied!", 64, "DiskCopy Example")
    End If
End Sub

Private Sub cmdFormatDrive_Click()
    Dim DriveLetter$, DriveNumber&, DriveType&
    Dim RetVal&, RetFromMsg%
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65) ' Change letter to Number: A=0
    DriveType = GetDriveType(DriveLetter)
    If DriveType = 2 Then  'Floppies, etc
        RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
    Else
        RetFromMsg = MsgBox("This drive is NOT a removeable" & vbCrLf & _
            "drive! Format this drive?", 276, "SHFormatDrive Example")
        Select Case RetFromMsg
            Case 6   'Yes
                ' UnComment to do it...
                'RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
            Case 7   'No
                ' Do nothing
        End Select
    End If
End Sub

Private Sub Drive1_Change()
    Dim DriveLetter$, DriveNumber&, DriveType&
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65)
    DriveType = GetDriveType(DriveLetter)
    If DriveType <> 2 Then  'Floppies, etc
        cmdDiskCopy.Enabled = False
    Else
        cmdDiskCopy.Enabled = True
    End If
End Sub

 ________end my code____________________________
+++++++++++++++++++++++++++++++++++++++++++

Now from the "gentleman" from Canada's code.

________From WinDX_______________________________

Private Sub cmdDiskCopy_Click()
        ' DiskCopyRunDll takes two
        ' parameters- From and To
        Dim DriveLetter$, DriveNumber&, _
                DriveType&
        Dim RetVal&, RetFromMsg&
        DriveLetter = UCase(Drive1.Drive)
        DriveNumber = (Asc(DriveLetter) - _
                65)
        DriveType = GetDriveType_
                (DriveLetter)
        If DriveType = 2 Then  'Floppies, _
                etc
                RetVal = Shell_
                        ("rundll32.exe " & _
                        "diskcopy.dll," _
                        & "DiskCopyRunDll " & _
                        DriveNumber & "," & _
                        DriveNumber, 1)
        Else   ' Just in case
                RetFromMsg = MsgBox_
                        ("Only floppies can be " & _
                        "copied", 64, _
                        "DiskCopy Example")
        End If
End Sub

Private Sub cmdFormatDrive_Click()
        Dim DriveLetter$, DriveNumber&, _
                DriveType&
        Dim RetVal&, RetFromMsg%
                DriveLetter = UCase(Drive1.Drive)
        DriveNumber = (Asc(DriveLetter) - _
                65)
        ' Change letter to Number: A=0
        DriveType = GetDriveType_
                (DriveLetter)
        If DriveType = 2 Then  _
                'Floppies, etc
                RetVal = SHFormatDrive(Me.hwnd, _
                        DriveNumber, 0&, 0&)
        Else
                RetFromMsg = MsgBox_
                        ("This drive is NOT a " & _
                        "removeable drive! " & _
                        "Format this drive?", _
                        276, "SHFormatDrive Example")
                If RetFromMsg = 6 Then
                        ' UnComment to do it...
                        'RetVal = SHFormatDrive_
                                (Me.hwnd, _
                                '   DriveNumber, 0&, 0&)
                End If
        End If
End Sub

Private Sub Drive1_Change()
        Dim DriveLetter$, DriveNumber&, _
                DriveType&
        DriveLetter = UCase(Drive1.Drive)
        DriveNumber = (Asc(DriveLetter) - _
                65)
        DriveType = GetDriveType_
                (DriveLetter)
        If DriveType <> 2 Then  _
                'Floppies, etc
                cmdDiskCopy.Enabled = False
        Else
                cmdDiskCopy.Enabled = True
        End If
End Sub

_________end STOLEN Code____________________________

--
***********************************************************

http://www.*-*-*.com/
Resume, etc:
http://www.*-*-*.com/
"Recompense injury with justice, and recompense
kindness with kindness."   Confucius
**********************************************************



Wed, 15 Dec 1999 03:00:00 GMT  
 My example code plagiarized. (Copied, actually....Check it out.)

Hi Joe:

Quote:
>    Someone owes me an apology and $25.00.
> (Wouldn't you say?)

I guess the place to start would be VBPJ:



Doug.



Thu, 16 Dec 1999 03:00:00 GMT  
 My example code plagiarized. (Copied, actually....Check it out.)

->Hello all-
->   I just cancelled an angry post that I made earlier.
->( Hopefully I did it correctly.)
->   Anyway, I found that an original example that I have
->had on my website since March was copied VERBATIM
->and submitted to the WinDX Technical Tips column. The
->code, which uses the undocumented SHFormatDrive API
->to format a drive in Win95/NT, was submitted by an individual
->who obviously downloaded it from my site. The part that really
->makes me angry is that I wrote an article for another E-Zine
->about this code, it should come out any day....
->

Don't immediately assume that the person who submitted the code was
aware of this. Code examples are routinely copied and hacked, and then
posted to other locations from which anyone can download.

However, you have to be a bit of an unethical dolt to submit
(verbatim) code routines that were publicly downloaded from another
source for publication and compensation.

Nice work on the code example, BTW.

Paul
~~~~



Sat, 18 Dec 1999 03:00:00 GMT  
 
 [ 4 post ] 

 Relevant Pages 

1. My example code plagiarized. (Copied, actually....Check it out.)

2. My example code Plagiarized. (Copied, actually....)

3. Checking if a URL actually exists

4. Code Check .. (no, not Coat Check)

5. Proposal: alt.binaries.examples.vb4 , alt.binaries.examples.vcpp , alt.binaries.examples.java

6. Proposal: alt.binaries.examples.vb4 , alt.binaries.examples.vcpp , alt.binaries.examples.java

7. university EMR send outs

8. copy code & paste code into other DOC

9. on the outs

10. VB.NET Example needed: Editor with syntax checking

11. Tool to check code complexity of VB.net code

12. Learning the ins and outs of Peek and Poke

 

 
Powered by phpBB® Forum Software