THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

siber güvenlik eğitimi
Seçenekler

Visual Basic 6.0

l2onaldo - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2012
Mesajlar:
641
Konular:
136
Teşekkür (Etti):
93
Teşekkür (Aldı):
47
Ticaret:
(0) %
10
574
08-08-2013 12:24
#1
Arakdaşlar Ben List1'deki İtemleri Tek Tek Tarayıp Mesela Listte FAcebook Yazıyorsa Msgbox ile hata vermesini istiyorum nasıl yapabilirim ?
--------------------- Dilsizlerle Rap Yapan Bir Kör Sagopa Sayfalarda


Diğer Nick 0zde.
Gr££D - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
06/2013
Nereden:
Monte Viere
Yaş:
23
Mesajlar:
2.468
Konular:
141
Teşekkür (Etti):
467
Teşekkür (Aldı):
444
Ticaret:
(0) %
08-08-2013 12:34
#2
for next ile yapabilirsin kodları buraya koyarsan birde listin içeriğini yyardımcı olmaya çalışırım
l2onaldo - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2012
Mesajlar:
641
Konular:
136
Teşekkür (Etti):
93
Teşekkür (Aldı):
47
Ticaret:
(0) %
08-08-2013 12:42
#3
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
--------------------- Dilsizlerle Rap Yapan Bir Kör Sagopa Sayfalarda


Diğer Nick 0zde.
Gr££D - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
06/2013
Nereden:
Monte Viere
Yaş:
23
Mesajlar:
2.468
Konular:
141
Teşekkür (Etti):
467
Teşekkür (Aldı):
444
Ticaret:
(0) %
08-08-2013 12:42
#4
Detayları Yola Ve yasource at bakarız
l2onaldo - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2012
Mesajlar:
641
Konular:
136
Teşekkür (Etti):
93
Teşekkür (Aldı):
47
Ticaret:
(0) %
08-08-2013 12:45
#5
Şu An internet cafedeyim kardeşim. Sen sadece şu list oalyını nasıl yapabileceğimi yaz ben programı ona göre ayarlarım
--------------------- Dilsizlerle Rap Yapan Bir Kör Sagopa Sayfalarda


Diğer Nick 0zde.
l2onaldo - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2012
Mesajlar:
641
Konular:
136
Teşekkür (Etti):
93
Teşekkür (Aldı):
47
Ticaret:
(0) %
09-08-2013 18:58
#6
Güncel Beyler
--------------------- Dilsizlerle Rap Yapan Bir Kör Sagopa Sayfalarda


Diğer Nick 0zde.
Gauloran - ait Kullanıcı Resmi (Avatar)
International General Moderator
Üyelik tarihi:
07/2013
Nereden:
local
Mesajlar:
7.115
Konular:
1572
Teşekkür (Etti):
556
Teşekkür (Aldı):
950
Ticaret:
(0) %
09-08-2013 19:39
#7
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 ?
---------------------

Telegram: gauloran
Twitter: gauloran
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
163
Teşekkür (Aldı):
606
Ticaret:
(0) %
09-08-2013 20:15
#8
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 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2012
Mesajlar:
641
Konular:
136
Teşekkür (Etti):
93
Teşekkür (Aldı):
47
Ticaret:
(0) %
09-08-2013 23:54
#9
Mesela List1.deki herhangi bir item metin2.exe ise msg box ile hata verdirmesini istiyorum
--------------------- Dilsizlerle Rap Yapan Bir Kör Sagopa Sayfalarda


Diğer Nick 0zde.
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
163
Teşekkür (Aldı):
606
Ticaret:
(0) %
10-08-2013 00:41
#10
Alıntı:
l2onaldo´isimli üyeden Alıntı Mesajı göster
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
Konu CETQ tarafından (10-08-2013 00:46 Saat 00:46 ) değiştirilmiştir.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler