zaten bu isimleri tek tek arayıpta kapatması mantıken çok saçma ama öğrenmeniz açısından iyi bir örnek .

yani title olayı bu dosya ismi içinde geçerli
Tabiki canım.Bunlar Charlis'inde dediği gibi kendimizi geliştirmek babında yardımcı olacaktır.Tabi bir çalıştırabilsem:p
alien kralın gelse teotu connectorden fixleyemez.

arkadaşların sorunlarınada şöyle cevap verim.

bi timer ekleyin intervalini 100ms yapın. "bu kod handle'dan kapatır." bu yüzden title fln hikaye kalır bu yönteme

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10


Private Sub Timer1_Timer()
Dim teot As Long
teot = FindWindow("ConsoleWindowClass", vbNullString)
SendMessage teot, WM_CLOSE, 0, 0
End Sub


bunu yapın teotun artık isminide cinsinide değiştirseniz kapanır. fakat bunun kırılması 5 sn sürmez benim için ama sizlerin işine yarar.
Silindi
Banned
0.1
Teotu Denen Lanet Engellenmiyor Arkdasim İste.Hele Connectorle Hıc Engellenmiyor.Bekliyoruz 56b yi Bi Cıksın Oturup Kasacaz. :)
alien kralın gelse teotu connectorden fixleyemez.
arkadaşların sorunlarınada şöyle cevap verim.

bi timer ekleyin intervalini 100ms yapın. "bu kod handle'dan kapatır." bu yüzden title fln hikaye kalır bu yönteme

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10


Private Sub Timer1_Timer()
Dim teot As Long
teot = FindWindow("ConsoleWindowClass", vbNullString)
SendMessage teot, WM_CLOSE, 0, 0
End Sub


bunu yapın teotun artık isminide cinsinide değiştirseniz kapanır. fakat bunun kırılması 5 sn sürmez benim için ama sizlerin işine yarar.

bunun fixi nedir?Söylersen belki geliştirebilmek babında bişiler yapabiliriz (yalaan merak ettim :D )


Birde mesela ben teotu deilde başka bir programın kapanmasını istiyorum.Onun için teot yerine ne yazacağımı nereden bilmeliyim?

Bu konu Faso tarafından düzenlendi(2007-02-17 09:10, 17 yıl önce)
benim verdigim vb kodu teot 9x'i handle dan kapatır. onunla başka şeyleri kapatmak istersen ConsoleWindowClass kısmına kapatıcagın programın handlesini yazman gerek.
benim verdigim vb kodu teot 9x'i handle dan kapatır. onunla başka şeyleri kapatmak istersen ConsoleWindowClass kısmına kapatıcagın programın handlesini yazman gerek.

Eminim Faso Aramızda Olsaydı Çok Teşekkur Ederdi :D Ve Yine Eminim ki hande nasıl bulunuyor diye sorardı:p
Michaell : Teotu Denen Lanet Engellenmiyor Arkdasim İste.Hele Connectorle Hıc Engellenmiyor.Bekliyoruz 56b yi Bi Cıksın Oturup Kasacaz. :)

Şu an ki release açılabilir düzende kullanın tabi client 203 le değil
ben client 5.0.3 koymayı düşünüom ama FSG clienti şifrelemio
Teot fixlemenin cok kolay bi yolu var niye ugrasıosunuz anlamadım ha connectorse bende yapıorum ugrasıorum ancak 56b zaten fixliyor
handle no ile uraşıyorsunuzda. Teot veya diğer programların handle no ları değiştirilebiliyor bilmem biliyomusunuz..
console uygulamalarının handle leri değiştirilemez nedracım :) teot9x de bir console uygulamasıdır.
değiştirdim ki değişiyor diyorum. neyse kolay gelsin size başarılar bu yolda :)
USE 56B
Alıntı
--------------------------------------------------------------------------------
benim verdigim vb kodu teot 9x'i handle dan kapatır. onunla başka şeyleri kapatmak istersen ConsoleWindowClass kısmına kapatıcagın programın handlesini yazman gerek.
--------------------------------------------------------------------------------



Eminim Faso Aramızda Olsaydı Çok Teşekkur Ederdi :D Ve Yine Eminim ki hande nasıl bulunuyor diye sorardı :p

Pyramid Nerden anlaşıldığını bilmiyormusun?



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.