Visual Basic 6.0
 

Arakdaşlar Ben List1'deki İtemleri Tek Tek Tarayıp Mesela Listte FAcebook Yazıyorsa Msgbox ile hata vermesini istiyorum nasıl yapabilirim ?

for next ile yapabilirsin kodları buraya koyarsan birde listin içeriğini yyardımcı olmaya çalışırım

Kardeşim Amaç Tam Olarak Şöyle Görev Yöneticisi'ni liste Aktarıyorum listte mesela metin2.exe yazarsa cmd kodları ile açılmasını engelliyor her şey tamam tek eksik olan bu işte

Detayları Yola Ve yasource at bakarız

Şu An internet cafedeyim kardeşim. Sen sadece şu list oalyını nasıl yapabileceğimi yaz ben programı ona göre ayarlarım :)

Güncel Beyler

Biraz daha açarmısın ?
Listte Facebook seçilmiş , hata vermesini mi istiyorsun ?
MsgBox List1.List(List1.ListIndex), vbCritical, "hata başlığı"
Yukarıdaki gibi birşey mi ?

exe çalışıp çalışmadığını kontrol etme

Dim objWMIService, colProcesses

Set objWMIService = GetObject("winmgmts:")

Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='vb6.exe'")

If colProcesses.Count Then

MsgBox "Çalışıyo"

Else

MsgBox "Çalışmıyo"

End If

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