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

)
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, 18 yıl önce)