Slm
Ye amuzeshe Mokhtasaree Karbordi shayad bedard kasi khord:
Khob Shayad Vasatun Pish oumade bashe ke Bekhayn Barnameii ke minevisid Ro Az Harjaye Windows Seda konid , Mesle Bazi Dictionary ha ke Masalan ba Klid Haye Tarkibiye Ctrl + F12 Active mishan ya har chize moshabehe in ke barname ro dar har sorat,hata vaqti ke Focus Roye barname Ma nabashe ...
Man 1rah Rahat O asun Ro Pishnahad mikonam behetun :
Estefade az tabe'e GetAsyncKeyState ke to Library user32.dll Hastesh !
Hala kare in tabe chiye??
OK,in Tabe Mitune Raha shodan Ya Feshurde Shodane Yek Keys Ro tashkhis bd
Hala Nahve declare Kardane In tabe :
~~~~~~~~~~~~
Ye Project Jadid Baz konid va Tabe :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Ro declare konid !
Bad Ye motaqayer Ba name KeyResult Az noe Long Tarif konid : Dim KeyResult as Long
Bad az oun ye Timer Roye Form qarar Bdid va Biyayn Enabled oun ro True Konid Va Interval Ro 1 Bdid !
Bad Dakhele event oun Nemune Code Zir Ro Benevisid :
- Code:
KeyResult = GetAsyncKeyState(13)
If KeyResult = -32767 Then
If Check1.Value = 1 Then
Label1.Caption = " *BRAVO*
ElseIf Check2.Value = 0 Then
Label1.Caption = " *SORRY*
End If
End If
Khob Hala Tozihaye mokhtasari dar morede in code,In cod miyad Inkar ro mikone:
Ba Feshar dadan Klid Enter Miyad check mikone Ke Check1 Active hast ya na,Age Active Bod Caption Label1ro be Mizare : *BRAVO* va age check1 Active Nabod Caption Ro mizare : *SORRY*
Ba Yekam Fekr Kardan mitunid kheylii jaha az in Teke Code Ha estefade konid,Masalan To hamin Nimbuzz,Shoma Miyayn Ye Chizi Mese Admin Asis Saeid 71 Mineveisid va Oun Ro Tray Icon mikonid Ke vaqti Minimize Shod Bere Kenare TIme Windows
Ba in Teke cod mitunid kheylii rahat Barname Ro az harjaye Windows Seda konid ....
Inam Project Hamin Amuzesh :
.: Click For dl Project :.
Movafaq Bashid !