Alıntı:
l2onaldo´isimli üyeden Alıntı
 Mesela List1.deki herhangi bir item metin2.exe ise msg box ile hata verdirmesini istiyorum |
exe çalışıp çalışmadığını kontrol edeceksen listbox ile uğraşma
Dim objWMIService, colProcesses
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='
metin2.exe'")
If colProcesses.Count Then
MsgBox "Çalışıyo"
' Çalışıyosa verilecek hata
Else
MsgBox "Çalışmıyo"
' Çalışmıyosa verilecek hata
End If
#################################################
listbox la yapıcam dersen
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = "metin2.exe" Then
MsgBox " your item has been founded" & i, vbInformation + vbOKOnly, "founded"
' metin2.exe listboxda var ise verilecek mesaj
Exit Sub
End If
Next i
MsgBox " Not founded"
' metin2.exe listboxda yok ise verilecek mesaj
End Sub