Any can help with this auto login script dont work for me ....
I need a Aulologin for my selling char
;~ HotKeySet( "{F10}" , "_Stop")
Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)
$tray_exit = TrayCreateItem("Exit")
Opt("TrayOnEventMode",1)
TrayItemSetOnEvent($tray_exit, "_Exit")
TraySetState()
TrayTip("2Moons auto launcher", "Press F11 to start, or F10 to stop script", 5)
call("_start")
Func Adlibfunc ()
if Not ProcessExists("dekaron.exe") Then
Sleep(200000)
ShellExecute("minilauncher.exe", "", "C:\Program Files\Acclaim\2Moons\")
Sleep(12000)
MouseClick("Left", 1144,690,1)
Sleep(100000)
MouseClick("Left", 558,635,1)
Sleep(3000)
MouseClick("Left", 576,786,1)
Sleep(3000)
MouseClick("Left", 591,743,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "MyUsername")
Sleep(3000)
ControlSend ( "2Moons", "", "", "{TAB}")
Sleep(2000)
ControlSend ( "2Moons", "", "", "MyPassword")
Sleep(2000)
ControlSend ( "2Moons", "", "", "{ENTER}")
Sleep(21000)
MouseClick("Left", 826,81,1)
Sleep(4000)
MouseClick("Left", 576,746,1)
Sleep(120000)
MouseClick("Left", 1128,753,1)
Sleep(10000)
MouseClick("Left", 213,390,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "DarkKnight Discounts")
Sleep(4000)
MouseClick("Left", 272,396,1)
MouseClick("Left", 272,396,1)
Sleep(2000)
MouseClick("Left", 996,25,1)
EndIf
EndFunc
func _Exit ()
Exit
EndFunc
func _start ()
AdlibEnable("Adlibfunc", 10)
TrayTip("2Moons notice:", "script has been started", 5)
EndFunc
;~ func _stop ()
;~ AdlibDisable()
;~ TrayTip("2Moons notice:", "script has been stopped", 5)
;~ EndFunc
While 1
Sleep(10)
WEnd
I need a Aulologin for my selling char
;~ HotKeySet( "{F10}" , "_Stop")
Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)
$tray_exit = TrayCreateItem("Exit")
Opt("TrayOnEventMode",1)
TrayItemSetOnEvent($tray_exit, "_Exit")
TraySetState()
TrayTip("2Moons auto launcher", "Press F11 to start, or F10 to stop script", 5)
call("_start")
Func Adlibfunc ()
if Not ProcessExists("dekaron.exe") Then
Sleep(200000)
ShellExecute("minilauncher.exe", "", "C:\Program Files\Acclaim\2Moons\")
Sleep(12000)
MouseClick("Left", 1144,690,1)
Sleep(100000)
MouseClick("Left", 558,635,1)
Sleep(3000)
MouseClick("Left", 576,786,1)
Sleep(3000)
MouseClick("Left", 591,743,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "MyUsername")
Sleep(3000)
ControlSend ( "2Moons", "", "", "{TAB}")
Sleep(2000)
ControlSend ( "2Moons", "", "", "MyPassword")
Sleep(2000)
ControlSend ( "2Moons", "", "", "{ENTER}")
Sleep(21000)
MouseClick("Left", 826,81,1)
Sleep(4000)
MouseClick("Left", 576,746,1)
Sleep(120000)
MouseClick("Left", 1128,753,1)
Sleep(10000)
MouseClick("Left", 213,390,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "DarkKnight Discounts")
Sleep(4000)
MouseClick("Left", 272,396,1)
MouseClick("Left", 272,396,1)
Sleep(2000)
MouseClick("Left", 996,25,1)
EndIf
EndFunc
func _Exit ()
Exit
EndFunc
func _start ()
AdlibEnable("Adlibfunc", 10)
TrayTip("2Moons notice:", "script has been started", 5)
EndFunc
;~ func _stop ()
;~ AdlibDisable()
;~ TrayTip("2Moons notice:", "script has been stopped", 5)
;~ EndFunc
While 1
Sleep(10)
WEnd