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