[SAMMELTHREAD] Kleine Coding Fragen

PlayerInput(text){
s := A_IsSuspended
Suspend On
KeyWait Enter
SendInput t^a{backspace}%text%
Input, var, v, {enter}
SendInput ^a{backspace 100}{enter}
Sleep, 20
if(!s)
Suspend Off
return var
}

#Include 
#Warn
#UseHook
#NoEnv




SetTimer, Tode, 150
SetTimer, KillZähler, 150
SetTimer, kd, 138000




~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return
NumpadEnter::
Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return
Escape::
Suspend Permit
Suspend Off
SendInput {Escape}
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




EigeneBefehle:


:?:/p::
Suspend
SendInput t/p {enter}
SendInput tSchoenen guten Tag sie Sprechen mit LikeZ{enter}
SendInput tWie kann ich ihnen weiterhelfen{?}{enter}
return


:?:/ab::
Suspend
SendInput /p{enter}
SendInput tGuten Tag sie sprechen mit der Mailbox von LikeZ{enter}
SendInput tVersuchen sie es Später erneut bitte {!}{enter}
SendInput t/h{enter}
return


:?:/bg::
Suspend
SendInput /buygun{enter}
SendInput /buy{enter}
return


:?:/fd::
Suspend
SendInput /find{space}
return




:?:/hotkeys::
Suspend On
AddChatMessages,"[Hotkeys] F12 = Keybinder An/Aus"
return










Zusatz:


U::
FormatTime,Uhrzeit, HH:mm:ss
SendInput t/me schaut auf die Uhrzeit. (%Uhrzeit%) {Enter}
return


F12::
Suspend Toggle 
return


:?:/STP::
Suspend Permit
SendInput Stoppuhr Gestartet.{enter}
Zeit=0
Loop,
{
	Zeit++
	IniWrite,%Zeit% ,Daten.ini ,Einstellungen,Sek
	KeyWait, F8, D T1
	If !ErrorLevel
     {
		IniRead,Zeit,Daten.ini,Einstellungen,Sek
		Min=%Zeit% 
          Min/=60
          Min1=%Min%
          Min1*=60
          Sek=%Zeit%
          Sek-=%Min%
		  SendInput, t Stopuhr gestoppt{!} (%Min%Min - %Zeit%Sek){enter}
		  break
     }}
return




Befehle:


C::
SendInput t/carlock {enter}
return


M::
SendInput t/motor {enter}
SendInput t/licht {enter}
return


Z::
SendInput t/enter {enter}
SendInput t/exit {enter}
SendInput t/vaexit {enter}
SendInput t/vaenter {enter}
return














kd:
IniRead, deaths, Daten.ini, Tote, deaths
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"[Durchschnitt]: Deine Deaths= " deaths " ")
AddChatMessage(0xFFFFF,"[Durchschnitt]: Deine Kills= " kills " ")
return




Tode:
GetChatLine(0, Chatline1)
if(InStr(Chatline1, "Du sitzt in keinem Fahrzeug oder bist nicht der Fahrer."))
{
IniRead, deaths, Daten.ini, Tote, deaths
deaths++
IniWrite, %deaths%, Daten.ini, Tote, deaths
AddChatMessage(0xFFFFF,"[Todeszähler]: Dies war dein Tod Nummer: " deaths)
SendInput t/f Dies war dein Tod Nummer : %deaths% {enter}
}
return


KillZähler:
/*
Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt.		ChatLine 1
Momentanes Wantedlevel: Zahl													ChatLine 0
*/
{
IniRead, kills, Daten.ini, Kills, kills
kills++
IniWrite, %kills%, Daten.ini, Kills, kills
AddChatMessage(0xFFFFFF,"{CD0000}[Keybinder]{FF8C00}: Dies war dein Kill Nummer: " kills)
SendInput t Ich habe wieder alles Zerhackt. Gesamte Kills: %kills% {enter}
}
return


:?:/kills::
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Kills= " kills " ")
return


:?:/deaths::
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Tote= " deaths " ")
return


:?:/kd::
IniRead, deaths, Daten.ini, Tote, deaths
IniRead, kills, Daten.ini, Kills, kills
AddChatMessage(0xFFFFF,"Deine Tode=" deaths " Deine Kills= " kills ".")
return




Zufallsprinzip:


2::
Random, Zufall, 1, 4
GoSub, Zahl%Zufall%
Return


Zahl1:
SendInput tZahl 1{enter}
Return


Zahl2:
SendInput tZahl 2{enter}
Return 


Zahl3:
SendInput tZahl 3{enter}
Return


Zahl4:
SendInput tZahl 4{enter}
Return

SendMode Input
SetWorkingDir %A_ScriptDir%
#Warn
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk


Hotkey, Enter, Off
Hotkey, Escape, Off
return


+T::
~t::
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return


~NumpadEnter::
~Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


~Escape::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return




;#########################################################################################################






Numpad1::
SendInput tName:{Space}
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Input varName, V I M,{enter}
SendInput {end}+{home}{Del}{esc}
varID := getPlayerIdByName(varName)
showGameText(getPlayerNameById(varID) "~n~Score: " getPlayerScoreById(varID) "~n~Ping: " getPlayerPingById(varID), 2000, 5)
return




Numpad2::
SendInput tID:{Space}
Suspend On
Hotkey, Enter, On
Hotkey, Escape, On
Input varID, V I M,{enter}
SendInput {end}+{home}{Del}{esc}
showGameText(getPlayerNameById(varID) "~n~Score: " getPlayerScoreById(varID) "~n~Ping: " getPlayerPingById(varID) "~n~IsNPC: " isNPCById(varID), 2000, 5)
return




Numpad3::
playAudioStream("http://breakz.us/radio/listen.pls")
return




Numpad4::
stopAudioStream()
return




Numpad5::
if ( isInChat() )
return
addChatMessage("{FFFFFF}Name: {FF0000}" getUsername())
addChatMessage("{FFFFFF}HP: {FF0000}" getPlayerHealth() "{FFFFFF}, ARMOR: {FF0000}" getPlayerArmor())
pos := getCoordinates()
addChatMessage("{FFFFFF}Zone: {FF0000}" calculateZone(pos[1],pos[2],pos[3]) "{FFFFFF}, Stadt: {FF0000}" calculateCity(pos[1],pos[2],pos[3]))
SendChat("blub")
SendChat("/asd")
showGameText("test", 2000, 5)
return


;Zeigt eine Dialog-Box an
Numpad6::
showDialog(0, "Titel", "some text...", "OK" )
return


;show some info about the current vehicle
Numpad7::
addChatMessage("{FFFFFF}Vehicle Type:" getVehicleType())
addChatMessage("{FFFFFF}Model:" getVehicleModelId())
addChatMessage("{FFFFFF}Model Name:" getVehicleModelName())
addChatMessage("{FFFFFF}Is Driver:" isPlayerDriver())
addChatMessage("{FFFFFF}Light State:" getVehicleLightState())
addChatMessage("{FFFFFF}Engine State:" getVehicleEngineState())
addChatMessage("{FFFFFF}Door State:" getVehicleLockState())
return


Numpad9::
addChatMessage("{FFFFFF}block chat " (blchat ? "{FF0000}off" : "{00FF00}on"))
if(blchat)
	unBlockChatInput()
else
	blockChatInput()
blchat:=!blchat
return

<?php
	$uploaddir = './uploads';
//////// Habe ich hinzugefügt gegen doppelte Datei-Namen ////////
	$filename = hash("sha256", uniqid(rand(100,999), true));
	$fileType = array_reverse(explode(".", $_FILES['file']['name']))[0];
	$filename .= ".".$fileType;
/////////////////////////////////////////////
	$uploadfile = $uploaddir . "/" . $filename;
	echo '<pre>';
	if (move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile)) {
		echo "Datei ist valide und wurde erfolgreich hochgeladen.\n";
	} else {
		echo "Möglicherweise eine Dateiupload-Attacke!\n";
	}
	echo 'Weitere Debugging Informationen:';
	echo '<h1>Klicke <a href="'.$uploadfile.'">hier</a> um zur Datei zu gelangen.</h1>';
	print_r($_FILES);
	print "</pre>";
?>