|
|
|
|
| |
windows ne kadar süredir açık |
|
| |
windows ne kadar süredir açık
Private Declare Function GetTickCount_ Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim t
t = GetTickCount&
Caption = (t 1440000) & ":"
t = t Mod (60000 * 24)
Caption = Caption & (t 60000) & ":"
t = t Mod (60000)
Caption = Caption & (t 1000)
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24635 ziyaretçi (38783 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
