Tutorial Alles Was Blau ist Nicht Kopieren
Infos VB Version: Visual Basic 2008 Express Edition
Framework: Framework 3.5
Produktions Zeit: 10 min. (Wegen Verbesserungen)
Ohne Verbesserung: 2-3 min.
Beschreibung: Wen Man kurz Weg Ist Und Nicht will
das z.b kleine fingerchen (kinder)
ihren computer benutzen
hilft ihnen dieses programm Basteln Sie Sich
Ein Computer Sicherungs Programm! :D
Download:
Link
Du Brauchst:
3x Timer
1x Picturebox
2x Form
Form1 Auf Borderstyle = None setzen
Die Picturebox auf dock = Full setzen
1. Timer:
Interval 1
Enabled = True
2. Timer:
Interval 1
Enabled = True
3.Timer
Interval 10
Enabled = True
Form1:
Screenshot:
Code:
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function GetAsyncKeyState Lib "user32" ( _
- ByVal vKey As Integer) As Short
- Private Declare Sub keybd_event Lib "user32" ( _
- ByVal bVk As Byte, _
- ByVal bScan As Byte, _
- ByVal dwFlags As Integer, _
- ByVal dwExtraInfo As Integer)
- Const KEYEVENTF_KEYUP = &H2
- Const VK_ESCAPE = &H1B
- Const VK_LWIN = &H5B
- Const VK_RWIN = &H5C
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Me.WindowState = FormWindowState.Maximized
- PictureBox1.Dock = DockStyle.Fill
- Dim proc As System.Diagnostics.Process
- Dim pList() As Process
- pList = Process.GetProcessesByName("taskmgr")
- For Each proc In pList
- proc.Kill()
- Next
- End Sub
- Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- oTimer = New Timer
- oTimer.Interval = 10
- oTimer.Start()
- End Sub
- Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Form2.Show()
- Timer2.Stop()
- End Sub
- Dim WithEvents oTimer As Timer
- Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
- If CBool(GetAsyncKeyState(VK_LWIN) And 1) Or _
- CBool(GetAsyncKeyState(VK_RWIN) And 1) Then
- ' Wenn Windowstaste gedrückt
- ' Escapetaste drücken
- Call keybd_event(VK_ESCAPE, 0, 0, 0)
- ' Escapetaste loslassen
- Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
- End If
- End Sub
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As
- System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- If e.KeyData = Keys.F4 + Keys.Alt Then
- e.Handled = True
- End If
- End Sub
- End Class
Form2:
Screenshot:
Code:
VB.NET-Quellcode
- Public Class Form2
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox1.Text = "admin" Then
- Me.Close()
- Form1.Close()
- Else
- MsgBox("Falsches Passwort Versuchen Sie Es Erneut!", MsgBoxStyle.Critical, "Error")
- End If
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Me.TopMost = True
- End Sub
- Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
- Me.Show()
- End Sub
- Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- End Sub
- Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Ergebniss :D 
Bitte Beschreibung nachtragen.
MFG...MrLee
Nachgetragen
:D Greetz Scream
