7,788
社区成员
发帖
与我相关
我的任务
分享Option Explicit
'用新帐号登录'
Private Sub Command1_Click()
Dim i As String
Dim sBrowserExe As String
For i = 2 To 100
sBrowserExe = App.Path & "\" & i & ".exe"
If Dir(sBrowserExe) = vbNullString Then
Timer1.Enabled = False
FileCopy App.Path & "\1.exe", sBrowserExe
Shell sBrowserExe, vbNormalFocus
Timer1.Enabled = True
Exit Sub
End If
Next
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
'定时删除不运行的浏览器'
Private Sub Timer1_Timer()
Dim i As String
Dim sBrowserExe As String
For i = 2 To 100
sBrowserExe = App.Path & "\" & i & ".exe"
If Dir(sBrowserExe) <> vbNullString Then
On Error Resume Next
Kill sBrowserExe '正在运行的程序无法删除'
On Error GoTo 0
End If
Next
End Sub