hocam şu olayı açıklasana biraz ben codlamadan pek anlamam sadece yapılacakları yaz amele de değiliz o kadar :)) edit: td software yazmak falan ne demek onu hiç bilmiyorum c++ çıktı baktığımda o dillerden de anlamıyorum o yüzde anlamammam normal heralde :D neyse zor bişey galiba hocam vazgeçtim

10 saniye içinde tdsoftware yazdığınızda programı çağırır Private Declare Function GetAsyncKeyState Lib "user32" As Integer Dim tustakip1, tustakip2, tustakip3, tustakip4, tustakip5, tustakip6, tustakip7, tustakip8, tustakip9 Dim onsaniyelikcookie Dim tus Private Sub Kombinasyon_Timer For i = 0 To 300 If GetAsyncKeyState = -32767 Then tus = Chr Exit For End If Next i If onsaniyelikcookie > 59 Then onsaniyelikcookie = onsaniyelikcookie - 59 End If If onsaniyelikcookie = Second Then tustakip1 = 0 tustakip2 = 0 tustakip3 = 0 tustakip4 = 0 tustakip5 = 0 tustakip6 = 0 tustakip7 = 0 tustakip8 = 0 tustakip9 = 0 End If If tus = "T" And tustakip1 <> 1 Then tustakip1 = 1 onsaniyelikcookie = Second + 10 ElseIf tus = "D" And tustakip1 = 1 Then tustakip2 = 1 ElseIf tus = "S" And tustakip2 = 1 Then tustakip3 = 1 ElseIf tus = "O" And tustakip3 = 1 Then tustakip4 = 1 ElseIf tus = "F" And tustakip4 = 1 Then tustakip5 = 1 ElseIf tus = "T" And tustakip5 = 1 Then tustakip6 = 1 ElseIf tus = "W" And tustakip6 = 1 Then tustakip7 = 1 ElseIf tus = "A" And tustakip7 = 1 Then tustakip8 = 1 ElseIf tus = "R" And tustakip8 = 1 Then tustakip9 = 1 ElseIf tus = "E" And tustakip9 = 1 Then Kombinasyon. Enabled = false onsaniyelikcookie = Second MsgBox "Kombinasyon" End If End Sub

arşivlik paylaşım.. teşekkürler