No replies to this topic

[Baggerman112]

#SingleInstance OFF ;The word OFF allows multiple instances of the script to run concurrently.

IfWinExist, GTA:SA:MP

{

    WinActivate  ; Automatically uses the window found above.

    WinMaximize  ; same

	Exitapp

}



IfWinNotExist, GTA:SA:MP



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OUDE LOGIN GEDEELTE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

/*

MsgBox, 4, Autologin voor RPAS, Wil je inloggen op RPAS?, 300 ;Geef antwoord binnen 7 seconde anders is het No

IfMsgBox Timeout

{

	MsgBox, 0, AutoLogin voor RPAS, U heeft geen antwoord gekozen binnen de 7-seconde periode., 300

	ifmsgbox timeout

	{

		Traytip AutoLogin voor RPAS, Het op OK drukken duurde te lang. Script Terminated

		Sleep 60000

		exitapp

	}

	Traytip AutoLogin Script voor RPAS, Script Gestopt, 4, 1

	Sleep 4000

	ExitApp

}

else IfMsgBox No

{

	Traytip AutoLogin Script voor RPAS, Script Gestopt, 4, 1

	Sleep 4000

	Exitapp

}

*/



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GUI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Gui, Add, Text,, U zult eerst moeten regristreren. 

Gui, Add, Checkbox, vRegristreer, Ik moet mezelf nog regristreren.

komma = ,

Gui, Add, Text,, Aantal miliseconden (sec*1000) te wachten%komma%

Gui, Add, Text,, tot pass-invoer verschijnt:

Gui, Add, Edit, vpass, Bijv. "33000"

Gui, Add, Button, default vDoorgaan, Doorgaan 

Gui, Show, W260 H145, AutoLogin voor SA-MP

GuiControlGet, Regristreer

return



GuiEscape:

GuiClose:

    ExitApp

	

ButtonDoorgaan:

{

Gui, Submit

	if Regristreer, 1

	{

	FileSelectFile, SelectedFile, 3, , Selecteer de URL file van de Server!, SAMP://ip:port (*.url)

	if SelectedFile =

		{

			MsgBox,, Regristratie, Regristratie Mislukt.

			exitapp

		}

	else

	Filecreatedir, C:\SAMP Regristratie\

	if Errorlevel

		{

			MsgBox,, Regristratie, Regristratie Mislukt.

			Exitapp

		}

	Filedelete, C:\SAMP Regristratie\samp url locatie.txt

	FileAppend, %SelectedFile%, C:\SAMP Regristratie\samp url locatie.txt

	InputBox, UserInput, Voer uw wachtwoord in, (Uw invoer zal onzichtbaar zijn.), hide 

	if ErrorLevel

		{

		MsgBox,, Regristratie, Regristratie Mislukt.

		exitapp

		}

	else

	Filedelete, C:\SAMP Regristratie\samp login.txt

	FileAppend, %Userinput%, C:\SAMP Regristratie\samp login.txt

	}

Filedelete, C:\SAMP Regristratie\secondstowait.txt

FileAppend, %pass%, C:\SAMP Regristratie\secondstowait.txt	

}



Winclose, AutoLogin voor SA-MP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;LOGIN;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Traytip AutoLogin voor SAMP, Script designed and made by JH., 7, 1

	filereadline, url, C:\SAMP Regristratie\samp url locatie.txt, 1

    Run %url%

	if errorlevel = ERROR

		msgbox, AutoLogin voor SAMP, Kon de *.url niet vinden!

    BlockInput, On

	winwaitactive, SA-MP URL

	Sleep 500

	Send, {Left}

    Sleep, 200

    Send, {Enter}

	Filereadline, secondstowait, C:\SAMP Regristratie\secondstowait.txt, 1

    Sleep %secondstowait%

	filereadline, pass, C:\SAMP Regristratie\samp login.txt, 1

    Send, %pass%{Enter}

	Blockinput, Off

	Sleep, 6000

	Blockinput, On

    MouseClick, left,  736,  652

	Sleep 5000

	Send, tTyp straks voor BRB typ BRB, AFK typ AFK, Stats typ ME, Exit script typ EXIT. 

    Sleep, 10000

	Send, {backspace 75}

	BlockInput, Off

Input, UserInput, V T10 L10 C B, {enter}.{esc}{tab}, brb,afk,exit,me ; Afkortingen

if ErrorLevel = Max

{

Send, {backspace 5}

Send, Je typte "%UserInput%", dat is het volledige command.

Sleep 10000

Send, {backspace 60} %UserInput%{enter} 

}

if ErrorLevel = Timeout

{

Send, {backspace 5}

Send, Je voerde niks in binnen de 10-seconde timeout periode.

Sleep 10000

Send, {backspace 60}{enter}

}

if ErrorLevel = NewInput

    return

IfInString, ErrorLevel, EndKey:{esc}

{

    Send, t{backspace 50}Je drukte op "%UserInput%" en stopte daarmee het script met %ErrorLevel%.

	Sleep 10000

	Send, {backspace 60}{enter}

	Exitapp

}



if UserInput = brb

    Send, {backspace 3}/brb{enter}

else if UserInput = afk

	Send, {backspace 3}/afk{enter}

else if UserInput = exit

    Exitapp

else if Userinput = me

	Send, {backspace 2}/stats{enter}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Sleep, 20000	

Sleep, 426000    

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

IfWinExist, GTA:SA:MP

{

    WinActivate  ; Automatically uses the window found above.

    WinMaximize  ; same

}

Blockinput, On	

Send, tWil je afsluiten en in slaapstand gaan? Typ straks Ja of Nee.

Sleep, 7000

Send, {backspace 75}

BlockInput, Off

	Input, UserInput, V T10 L10 C B, {enter}.{esc}{tab}, ja,nee ; Afkortingen

if ErrorLevel = Max

{

Send, {backspace 5}Je typte "%UserInput%", dat is het volledige command.

Sleep 10000

Send, {backspace 60} %UserInput%{enter} 

}

if ErrorLevel = Timeout

{

Send, {backspace 75}

Send, Je voerde niks in binnen de 10-seconde timeout periode.

Sleep 10000

Send, {backspace 60}{enter}

}

if ErrorLevel = NewInput

    return

IfInString, ErrorLevel, EndKey:{esc}

{

    Traytip, AutoLogin Script, Script is gekillt,60,2

	;Send, t{backspace 50}Je drukte op "%UserInput%" en stopte daarmee het script met de %ErrorLevel%.

	Sleep 60000

	;Send, {backspace 80}{enter}

	Exitapp

}



if UserInput = ja

{

	Send, {backspace 2}/q{enter}

    Sleep, 5000

	TrayTip, AutoLogin script voor RPAS, Je gaat nu in Slaapstand,2,2

	Sleep 2000

	DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)

	Traytip AutoLogin Script voor RPAS, Script Gestopt, 4, 1

	Sleep 4000

	Exitapp

}

if UserInput = nee

{

	Send, {backspace 3}{enter}

	Sleep 1000

	Winminimize, GTA:SA:MP

	Sleep 1000

	Traytip AutoLogin Script voor RPAS, Script Gestopt, 3, 1

	Sleep 3000

	Winmaximize, GTA:SA:MP

	Exitapp

}







<^>!x::

Traytip AutoLogin Script voor RPAS, Script Gestopt door de Hotkey, 4, 3

Sleep 4000

ExitApp