[TUT] Vieles

[h4xter]

Ich dachte mir ich mache euch mal ei paar tutorials.

PW abfrage

1 Button
2 Textboxen.

In den Button kommt folgendes:

If Text1.Text = "HierPasswort" and Text2.Text = "HierUsername" Then
Form2.Show
Unload Me
End if

Dieses Form2.Show bedeutet dass ihr die 2 Form zeigt

Hier mal alle Hotkeys

vbKeyLButton (1)
vbKeyRButton (2)
vbKeyCancel (3)
vbKeyMButton (4)
vbKeyBack (8)
vbKeyTab (9)
vbKeyClear (12)
vbKeyReturn (13)
vbKeyShift (16)
vbKeyControl (17)
vbKeyMenu (18)
vbKeyPause (19)
vbKeyCapital (20)
vbKeyEscape (27)
vbKeySpace (32)
vbKeyPageUp (33)
vbKeyPageDown (34)
vbKeyEnd (35)
vbKeyHome (36)
vbKeyLeft (37)
vbKeyUp (38)
vbKeyRight (39)
vbKeyDown (40)
vbKeySelect (41)
vbKeyPrint (42)
vbKeyExecute (43)
vbKeySnapshot (44)
vbKeyInsert (45)
vbKeyDelete (46)
vbKeyHelp (47)
vbKeyNumlock (144)
vbKeyScrollLock (145)

Alphabetic Key Code Constants

VbKeyA (65)
VbKeyB (66)
VbKeyC (67)
VbKeyD (68)
VbKeyE (69)
VbKeyF (70)
VbKeyG (71)
VbKeyH (72)
VbKeyI (73)
VbKeyJ (74)
VbKeyK (75)
VbKeyL (76)
vbKeyM (77)
VbKeyN (78)
VbKeyO (79)
VbKeyP (80)
VbKeyQ (81)
VbKeyR (82)
VbKeyS (83)
VbKeyT (84)
VbKeyU (85)
VbKeyV (86)
VbKeyW (87)
VbKeyX (88)
VbKeyY (89)
VbKeyZ (90)

Numeric Key Constants


vbKey0 (48)
vbKey1 (49)
vbKey2 (50)
vbKey3 (51)
vbKey4 (52)
vbKey5 (53)
vbKey6 (54)
vbKey7 (55)
vbKey8 (56)
vbKey9 (57)

Numeric Keypad Key Constants


vbKeyNumpad0 (96)
vbKeyNumpad1 (97)
vbKeyNumpad2 (98)
vbKeyNumpad3 (99)
vbKeyNumpad4 (100)
vbKeyNumpad5 (101)
vbKeyNumpad6 (102)
vbKeyNumpad7 (103)
vbKeyNumpad8 (104)
vbKeyNumpad9 (105)
VbKeyMultiply (106)
VbKeyAdd (107)
VbKeySeparator (108)
VbKeySubtract (109)
VbKeyDecimal (110)
VbKeyDivide (111)

Function Key Constants


vbKeyF1 (112)
vbKeyF2 (113)
vbKeyF3 (114)
vbKeyF4 (115)
vbKeyF5 (116)
vbKeyF6 (117)
vbKeyF7 (118)
vbKeyF8 (119)
vbKeyF9 (120)
vbKeyF10 (121)
vbKeyF11 (122)
vbKeyF12 (123)
vbKeyF13 (124)
vbKeyF14 (125)
vbKeyF15 (126)
vbKeyF16 (127)

Wenn ihr einen Befehl damit machen wollt nemt dieses Modul und fügt das in euren Code ein.

Modul:

'API Declaration
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Dan fügt ihr dass in euren Code:

If GetKeyPress (eureHotKey) Then

So könnt ihr z.B eine Shutdown machen.

If GetKeyPress (VbKeyA) Then
Shell ("Shutdown" -r")
End If

Dann müsst ihr "A" drücken um den PC mit dem Proqq abzustellen

Hier ein paar Funktionen

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

If hoffe das hat euch ein wenig geholfen.
lg h4xter

 

[Lizard King]

Hey, ganz nette Sammlung,
Der "Login" ist aber stark erweiterbar, in deinem Beispiel kann sich ja nur 1 nutzer einloggen,
also es gibt nur 1 Username und das Passwot dazu, das ist ja eig unützlich, dann würde ja nur ein Passwort reichen,
Das kann man mit einem array erweitern :

' user ist die textbox für den Benutzernamen
' pass die für der Passwort ;)
' a ist die Variable as integer für die zahl der arrays, 
' wenn man mal einen neuen user erstellen will oder so
' passw(15) ist der Array für das Passwort
' usern(15) Der für den Usernamen


For o = 0 to a
if user = usern(o) and pass = passw(o) then
unload me
form2.show
end if
if user = "" then MsgBox("Please enter a valid username / bzw. Bitte geben sie einen gültigen Benutzernamen ein")
if pass= "" then MsgBox("Please enter a valid password")

Natürlich ist das auch noch reichlich erweiterbar, z.B. kann man noch Code einbauen, um neue Accounts zu erstellen usw. oder eine Abfrage an einen server auf dem die Nutzer daten liegen, wenn ich mal langweile hab, brösel ich das mal auf

Modul:

Code:

'API Declaration
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Dan fügt ihr dass in euren Code:

Code:

If GetKeyPress (eureHotKey) Then

Geht doch alles viel einfacher oder ?

if keycode = vbKeyA then .......

MfG Lizard King

 

[h4xter]

Naja.. xD

Ist aber auch gut
Nur meine Art ist kürzer, hehe

mfg h4xter

 

[DrSoong]

@h4xter: Stell dein Tutorial doch in die Tutorial-VB-Sektion ein, Anleitung dazu gibts hier.


Der Doc!