수다닷컴

.. 제가멀틀렷는지 스캔버튼누르면 메세지가안뜨네염 .Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)
Public Function findProcess(ByVal strExeName As String) As Long
Dim uProcess As PROCESSENTRY32
Dim RProcessFound As Long
Dim hSnapshot As Long
Dim SzExename As String
Dim i As Integer
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(2&, 0&)
RProcessFound = ProcessFirst(hSnapshot, uProcess)
Do
i = InStr(1, uProcess.szexeFile, Chr(0))
SzExename = LCase$(Left$(uProcess.szexeFile, i - 1))
If LCase(SzExename) = LCase(strExeName) Then
findProcess = uProcess.th32ProcessID
End If
RProcessFound = ProcessNext(hSnapshot, uProcess)
Loop While RProcessFound
Call CloseHandle(hSnapshot)
End Function
If findProcess(suddenattack.exe) = 1 Then
Check1.Enabled = True
MsgBox scan fail!!
MsgBox scan success
CheckBox Ture
End If
Private Sub Command1_Click()
Sleep (2000)
End Sub여렇게햇어여 근데머가문제져?

신청하기