Auto-Login

Seeeehr sinnlos, aber halt mein erstes
Werk mit AutoIt xD
Danke an FichteFoll für die Unterstützung.


Changelog:
Ver. 0.9 - 1 ID, 1 PW, Speicher- und Ladefunktion


VirusTotal:


Spoiler:




a-squared 4.5.0.50 2010.02.21 -
AhnLab-V3 5.0.0.2 2010.02.20 -
AntiVir 8.2.1.170 2010.02.19 -
Antiy-AVL 2.0.3.7 2010.02.19 -
Authentium 5.2.0.5 2010.02.20 -
Avast 4.8.1351.0 2010.02.21 -
AVG 9.0.0.730 2010.02.21 -
BitDefender 7.2 2010.02.21 -
CAT-QuickHeal 10.00 2010.02.19 -
ClamAV 0.96.0.0-git 2010.02.21 -
Comodo 4013 2010.02.21 -
DrWeb 5.0.1.12222 2010.02.21 -
eSafe 7.0.17.0 2010.02.18 -
eTrust-Vet 35.2.7315 2010.02.20 -
F-Prot 4.5.1.85 2010.02.20 -
F-Secure 9.0.15370.0 2010.02.19 -
Fortinet 4.0.14.0 2010.02.21 -
GData 19 2010.02.21 -
Ikarus T3.1.1.80.0 2010.02.21 -
Jiangmin 13.0.900 2010.02.21 -
K7AntiVirus 7.10.979 2010.02.20 -
Kaspersky 7.0.0.125 2010.02.17 -
McAfee 5898 2010.02.20 -
McAfee+Artemis 5898 2010.02.20 -
McAfee-GW-Edition 6.8.5 2010.02.19 -
Microsoft 1.5406 2010.02.21 -
NOD32 4883 2010.02.20 -
Norman 6.04.08 2010.02.21 -
nProtect 2009.1.8.0 2010.02.21 -
Panda 10.0.2.2 2010.02.21 Suspicious file
PCTools 7.0.3.5 2010.02.21 -
Prevx 3.0 2010.02.21 High Risk Cloaked Malware
Rising 22.34.01.03 2010.02.11 -
Sophos 4.50.0 2010.02.21 -
Sunbelt 5690 2010.02.20 -
Symantec 20091.2.0.41 2010.02.21 Suspicious.Insight
TheHacker 6.5.1.5.202 2010.02.21 Trojan/Autoit.adg
TrendMicro 9.120.0.1004 2010.02.21 -
VBA32 3.12.12.2 2010.02.21 -
ViRobot 2010.2.19.2194 2010.02.19 -
VirusBuster 5.0.27.0 2010.02.21 -






Source (für die Zweifelnden):


Spoiler:





Code:

#RequireAdmin
#include

GUICreate("Auto-Login by mipez", 335, 100)

GUICtrlCreateLabel("ID", 8, 10)
$input1 = GUICtrlCreateInput("", 35, 8, 120)
GUICtrlCreateLabel("PW", 8, 44)
$input2 = GUICtrlCreateInput("", 35, 40, 120)

$loginbutton = GUICtrlCreateButton("Login", 10, 74, 60)

$exitbutton = GUICtrlCreateButton("Exit", 80, 74, 60)

$savebutton = GUICtrlCreateButton("Save", 170, 6, 60)

$loadbutton = GUICtrlCreateButton("load", 170, 38, 60)

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Switch $msg

Case $exitbutton
GUIDelete()
Exit

Case $loginbutton
eingabe()

Case $savebutton
save()

Case $loadbutton
load()
load2()

EndSwitch

WEnd

Func eingabe()

WinActivate("S4 Client")
Send(GUICtrlRead($input1) & "{TAB}" & GUICtrlRead($input2) & "{ENTER}")

EndFunc

Func save()

$write1 = InputBox("Save ID", "Save your ID in the configuration file", "", "", 300, 130)
IniWrite(@scriptDir & "\config.ini", "ID", "ID", $write1)

$write2 = InputBox("Save PW", "Save your PW in the configuration file", "", "", 300, 130)
IniWrite(@scriptDir & "\config.ini", "PW", "PW", $write2)

EndFunc

Func load()

$read1 = IniRead("config.ini", "ID", "ID", "")
GUICtrlSetData($Input1, $read1)

EndFunc

Func load2()

$read2 = IniRead("config.ini", "PW", "PW", "")
GUICtrlSetData($Input2, $read2)

EndFunc






















Attached Files

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.] (280.8 KB, 93 views)

Please always scan the files you
downloading with [Linkleri görebilmek için üye olun veya giriş yapın.]