Online Ko Captionu - Knight Açıksa Captionda Ko açık Kapalı İse Ko Kapalı Yazar

Bir timer ekleyelim içine iskorunning yazalım
Text8 adlı text Kuralım Ve gizli gözükmesini sağlayalım..

Form Code Kısmına İse

Private Sub iskorunning()
Dim iHwnd As Long
Dim lRet As Long
lHwnd = FindWindow(vbNullString, "Knight OnLine Client")
If lHwnd <> 0 Then
Form1.Caption = Text8.Text + "Knight Açık"
Else
Form1.Caption = Text8.Text + "Knight Kapalı"
End If
End Sub

Kolay qelsin

Tşkler Kod İşime Yaradı Kardeş.!! İyi Forumlar dilerim

Alıntı yaparsanz lütfen yazınız:)

Mrshiny demiş ki:

Alıntı yaparsanz lütfen yazınız:)

Aynen

Saol

Olmazsa olmazlarda değil ama yinede güzeL.

mesela bu koda şöle bir şey eklenebilir ve Ko oynuyanların %90 i kullanır...
Knight açıldıgında ekrana uyarı mesajı ve bir ses eklenırse program %100 işlevli ve çok çok işe yarar bir program olur... herkezde kullanır... vb de bunu yapmak çok kolay eklersen faydalı olur ;=)

geliştirmek size kalmış

tyyyyyyyy