VB让程序启动时自动改名

1. Private Sub Form_Load()
2.     '产生随机码
3.     Dim ranNuma As Long
4.     Randomize
5.     ranNuma = Int(124435894 * Rnd) + 19850317
6.     '创建BAT
7.     Open App.Path & "/A.bat" For Output As #1 '创建一个批处理文件并往里买那些东西
8.     Print #1, "echo off"
9.     Print #1, ":aaa"
10.     Print #1, "cs " & App.Path & "/" '把路径切换到当前文件夹
11.     Print #1, "ren " & App.EXEName & ".exe" & Chr(32) & ranNuma & ".exe"
12.     Print #1, "del " & "A.bat" '删除批处理文件
13.     Print #1, "for /l %%i in (0,1,50000) do echo %%i>nul"
14.     Print #1, "goto aaa"
15.     'Print #1, ranNuma & ".exe"
16.     Close #1 '关闭批处理文件
17.     Shell Chr(34) & App.Path & "/A.bat" & Chr(34), vbHide
18.     End '结束自己
19. End Sub