The Saint!
01.05.2006, 11:47
So das ganze wird in VB geschrieben!
Dazu beötigen wir mal die WinAPI
Daher könnt ihr es auch in C++ oder sonst was schreiben falls die Sprache die WinAPI uterstützt
So da wir es ja selber testen wollen machen wir es sichtbar und machen dafür eine Form (für ein Virus nat. nciht da wird das ganze ohne Form gemacht!)
Ihr fügt in die Form:
Button alias Command1
Timer alias Timer1
Textbox alias txttime
Label alias Label1 ein.
So einmal müssen wir deklinieren:
Dies fügt ihr unter option explicit ein
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function BlockInput Lib "user32" (ByVal fBlock _
As Long) As Long
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
gut also die Funktion BlockInput aus der WinAPI sorgt dafür das alles eingebene von der Tastatur/maus sonstwas blockiert wird!
so nun zum eigentlichen code:
Private Sub Command1_Click()
Timer1.Interval = txttime.text
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub
Private Sub Timer1_Timer()
Static Cnt As Long
Cnt = Cnt + 1
If Cnt > 10 Then
Cnt = 0
Timer1.Enabled = False
Call BlockInput(API_FALSE)
Label1.Caption = ""
Else
Label1.Caption = "Verbleibende Zeit bis zur Rückstellung: " _
& Format$(CStr((10 - Cnt)) / 2, "0.0")
End If
End Sub
So nun wenn jmd auf den Button klickt startet der Timer mit dem INnervall, welches im Textfeld angegeben wurde! nd zählt rückwärts bis zur zurücksetzung!
Das wars!
Dazu beötigen wir mal die WinAPI
Daher könnt ihr es auch in C++ oder sonst was schreiben falls die Sprache die WinAPI uterstützt
So da wir es ja selber testen wollen machen wir es sichtbar und machen dafür eine Form (für ein Virus nat. nciht da wird das ganze ohne Form gemacht!)
Ihr fügt in die Form:
Button alias Command1
Timer alias Timer1
Textbox alias txttime
Label alias Label1 ein.
So einmal müssen wir deklinieren:
Dies fügt ihr unter option explicit ein
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function BlockInput Lib "user32" (ByVal fBlock _
As Long) As Long
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
gut also die Funktion BlockInput aus der WinAPI sorgt dafür das alles eingebene von der Tastatur/maus sonstwas blockiert wird!
so nun zum eigentlichen code:
Private Sub Command1_Click()
Timer1.Interval = txttime.text
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub
Private Sub Timer1_Timer()
Static Cnt As Long
Cnt = Cnt + 1
If Cnt > 10 Then
Cnt = 0
Timer1.Enabled = False
Call BlockInput(API_FALSE)
Label1.Caption = ""
Else
Label1.Caption = "Verbleibende Zeit bis zur Rückstellung: " _
& Format$(CStr((10 - Cnt)) / 2, "0.0")
End If
End Sub
So nun wenn jmd auf den Button klickt startet der Timer mit dem INnervall, welches im Textfeld angegeben wurde! nd zählt rückwärts bis zur zurücksetzung!
Das wars!