수다닷컴

shell 으로 프로그램실행하는데.... EXE로 컴파일하고 실행하면 여러개가 실행되는데 왜 이러죠 ;소스 .Option Explicit
Dim Protect_Process() As String
Private Sub Command1_Click()
Dim i As Long, j As Long, CC As Boolean, Temp() As StringIf MsgBox(작업하던 내용이 종료될 수 있습니다. & vbCrLf & 괜찮으십니까?, vbInformation + vbYesNo, [알림]) = vbYes Then
For i = 0 To List1.ListCount - 1
For j = 0 To 12
If List1.List(i) = Protect_Process(j) Then
CC = True
Shell App.Path & \FSA0.1.EXE
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
End If
Next j

If CC = False Then
KillProcess List1.List(i)
End If

CC = False
Next i

List1.Clear
Temp = Split(CollectionProccess, %)

For i = 1 To UBound(Temp)
List1.AddItem Temp(i)
Next i
End If
End Sub

신청하기