Turkhackteam.org/net - Cyber Security Platform

Turkhackteam.org/net - Cyber Security Platform (https://www.turkhackteam.org/)
-   THT Yardım Merkezi (https://www.turkhackteam.org/tht-yardim-merkezi/)
-   -   Visual Basic 6.0 (https://www.turkhackteam.org/tht-yardim-merkezi/914643-visual-basic-6-0-a.html)

l2onaldo 08-08-2013 12:24 12:24

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 ?

Gr££D 08-08-2013 12:34 12:34

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

l2onaldo 08-08-2013 12:42 12:42

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

Gr££D 08-08-2013 12:42 12:42

Detayları Yola Ve yasource at bakarız

l2onaldo 08-08-2013 12:45 12:45

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

l2onaldo 09-08-2013 18:58 18:58

Güncel Beyler

Gauloran 09-08-2013 19:39 19:39

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 ?

CETQ 09-08-2013 20:15 20:15

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

l2onaldo 09-08-2013 23:54 23:54

Mesela List1.deki herhangi bir item metin2.exe ise msg box ile hata verdirmesini istiyorum

CETQ 10-08-2013 00:41 00:41

Alıntı:

l2onaldo´isimli üyeden Alıntı (Mesaj 3700792)
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


Şu Anki Saat: 23:52

Powered by vBulletin® Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.