Hallo!
Der Titel sagt eigentlich schon alles :x
Hier der Code:
C
#SingleInstance force
#NoENV
#IfWinActive, GTA:SA:MP ; Folgende Hotkeys Funktionieren nur wenn GTA SA:MP geöffnet ist
#UseHook
#include improv3d.ahk
if not A_IsAdmin
{
MsgBox, 16, FBI-Keybinder | Fehler, Du musst den Keybinder als Admin starten!
ExitApp
}
Gui, 1:Add, Tab, x2 y-1 w483 h393 , Login|Register
Gui, 1:Tab, Login
Gui, 1:Add, Edit, x82 y59 w310 h20 vUsername,
Gui, 1:Add, Edit, x82 y99 w310 h20 vPasswort Password,
Gui, 1:Add, Button, x182 y139 w110 h30 gLogin, Login
Gui, 1:Add, Text, x82 y39 w310 h20 , Username:
Gui, 1:Add, Text, x82 y79 w310 h20 , Passwort:
Gui, 1:Tab, Register
Gui, 1:Add, Edit, x82 y59 w310 h20 vRegUsername,
Gui, 1:Add, Edit, x82 y99 w310 h20 vRegPasswort Password,
Gui, 1:Add, Button, x182 y139 w110 h30 gRegister, Register
Gui, 1:Add, Text, x82 y39 w310 h20 , Wunsch Username:
Gui, 1:Add, Text, x82 y79 w310 h20 , Wunsch Passwort:
Gui, 1:Show, x683 y317 h383 w483, FBI-Keybinder | Login
activated := 0
Eingeloggt := 0
Rang := 0
Return
Register:
Gui, Submit
if( RegUsername=="" || RegPasswort=="")
{
MsgBox, 16, FBI-Keybinder | Fehler, Es muss ein Benutzername und Passwort angegeben werden!
Gui, 1:Show, x277 y302 h379 w479, FBI-Keybinder | Login
return
}
if(!imp_row_exist("Benutzer", RegUsername))
{
imp_create_row("Benutzer", RegUsername)
imp_write("Benutzer",RegUsername, "Passwort", RegPasswort)
imp_write("Benutzer",RegUsername, "Freigeschaltet", "0")
MsgBox, 64, FBI-Keybinder | Registriert, Du hast dich erfolgreich registriert %RegUsername%! Du musst nun von einem Leader freigeschaltet werden!
}
else
{
MsgBox, 16, FBI-Keybinder | Fehler, Der Benutzer %RegUsername% ist bereits registriert!
Gui, 1:Show, x277 y302 h379 w479, FBI-Keybinder | Login
}
return
Login:
Gui, Submit
if(imp_row_exist("Benutzer", Username))
{
PW := imp_compare("Benutzer", Username, "Passwort", Passwort)
if(PW == 1)
{
Freigeschaltet := imp_compare("Benutzer", Username, "Freigeschaltet", "1")
if(Freigeschaltet != 1)
{
MsgBox, 16, FBI-Keybinder | Fehler, Der Benutzer %Username% ist nicht freigeschaltet!
ExitApp
}
MsgBox, 64, FBI-Keybinder | Eingeloggt, Erfolgreich eingeloggt! Willkommen %Username%
Eingeloggt = 1
Rang := imp_read("Benutzer", Username, "Rang")
if(Rang = 0)
{
Gui, 1:Destroy
Gui, Add, Text, x2 y39 w190 h30 , Num 1: Verkehrskontrolle (1)
Gui, Add, Text, x2 y79 w190 h30 , Num 2: Verkehrskontrolle (2)
Gui, Add, Text, x2 y119 w190 h30 , Num 3: Perso und Lizenzen
Gui, Add, Text, x2 y159 w190 h30 , /countdown : 10 Sekunden Countdown
Gui, Show, x683 y317 w800 h400, FBI-Keybinder | by plattkop
}
else
{
Gui, 1:Destroy
Gui, Add, Tab, x2 y-1 w810 h410 , Standart|Ausbilder/Leader
Gui, Tab, Standart
Gui, Add, Text, x2 y39 w190 h30 , Num 1: Verkehrskontrolle (1)
Gui, Add, Text, x2 y79 w190 h30 , Num 2: Verkehrskontrolle (2)
Gui, Add, Text, x2 y119 w190 h30 , Num 3: Perso und Lizenzen
Gui, Add, Text, x2 y159 w190 h30 , /countdown : 10 Sekunden Countdown
Gui, Tab, Ausbilder/Leader
Gui, Add, Text, x2 y39 w190 h30 , /sammeln : Sammelbefehl
Gui, Show, x683 y317 w800 h400, FBI-Keybinder | by plattkop
}
UrlDownloadToFile,http://domain.de/keybinder/API.dll, %A_ScriptDir%/API.dll
UrlDownloadToFile,http://domain.de/keybinder/API.h, %A_ScriptDir%/API.h
UrlDownloadToFile,http://domain.de/keybinder/API.lib, %A_ScriptDir%/API.lib
UrlDownloadToFile,http://domain.de/keybinder/need_backup.mp3, %A_ScriptDir%/need_backup.mp3
UrlDownloadToFile,http://domain.de/keybinder/alarm1.wav, %A_ScriptDir%/alarm1.wav
SetTimer, BackupTimer, 500
activated := 1
Nutzer := Username
return
}
else
{
MsgBox, 16, FBI-Keybinder | Fehler, Das angegebene Passwort ist falsch!
Gui, 1:Show, x277 y302 h379 w479, FBI-Keybinder | Login
}
}
else
{
MsgBox, 16, FBI-Keybinder | Fehler, Der Benutzer %Username% wurde nicht gefunden!
Gui, 1:Show, x277 y302 h379 w479, FBI-Keybinder | Login
}
return
#include API.ahk
UrlDownloadToVar(URL, Proxy="", ProxyBypass="") {
AutoTrim, Off
hModule := DllCall("LoadLibrary", "str", "wininet.dll")
If (Proxy != "")
AccessType=3
Else
AccessType=1
io_hInternet := DllCall("wininet\InternetOpenA"
, "str", ""
, "uint", AccessType
, "str", Proxy
, "str", ProxyBypass
, "uint", 0)
iou := DllCall("wininet\InternetOpenUrlA"
, "uint", io_hInternet
, "str", url
, "str", ""
, "uint", 0
, "uint", 0x80000000
, "uint", 0)
If (ErrorLevel != 0 or iou = 0) {
DllCall("FreeLibrary", "uint", hModule)
return 0
}
VarSetCapacity(buffer, 512, 0)
VarSetCapacity(NumberOfBytesRead, 4, 0)
Loop
{
irf := DllCall("wininet\InternetReadFile", "uint", iou, "uint", &buffer, "uint", 512, "uint", &NumberOfBytesRead)
NOBR = 0
Loop 4
NOBR += *(&NumberOfBytesRead + A_Index-1) << 8*(A_Index-1)
IfEqual, NOBR, 0, break
DllCall("lstrcpy", "str", buffer, "uint", &buffer)
res = %res%%buffer%
}
DllCall("wininet\InternetCloseHandle", "uint", iou)
DllCall("wininet\InternetCloseHandle", "uint", io_hInternet)
DllCall("FreeLibrary", "uint", hModule)
AutoTrim, on
return, res
}
~F3::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated == 1)
{
activated := 0
AddChatMessage("{FF0000}Keybinder deaktiviert!")
}
else
{
activated := 1
AddChatMessage("{00FF00}Keybinder aktiviert!")
}
return
Numpad1::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated = 0)
{
return
}
if(IsInChat)
{
return
}
SendChat("/m Hier Spricht das FBI! Fahren Sie unverzüglich rechts ran!")
return
Numpad2::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated = 0)
{
return
}
if(IsInChat)
{
return
}
SendChat("/m Das ist die letze Warnung! Fahren Sie augenblicklich rechts ran!")
return
Numpad3::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated = 0)
{
return
}
if(IsInChat)
{
return
}
GetPlayerName(name)
SendChat("Guten Tag, Mein Name ist Agent " name "! Bitte zeigen Sie mir Ihren Personalausweis und Ihre Lizenzen!")
SendChat("(/showperso " GetPlayerID() " & /showlicenses " GetPlayerID() ")")
return
:?:/countdown::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated = 0)
{
AddChatMessage("{FF0000}Keybinder ist deaktiviert!")
return
}
SendChat(">> 10 Sekunden <<")
sleep, 1000
SendChat(">> 9 Sekunden <<")
sleep, 1000
SendChat(">> 8 Sekunden <<")
sleep, 1000
SendChat(">> 7 Sekunden <<")
sleep, 1000
SendChat(">> 6 Sekunden <<")
sleep, 1000
SendChat(">> 5 Sekunden <<")
sleep, 1000
SendChat(">> 4 Sekunden <<")
sleep, 1000
SendChat(">> 3 Sekunden <<")
sleep, 1000
SendChat(">> 2 Sekunden <<")
sleep, 1000
SendChat(">> 1 Sekunde <<")
return
:?:/sammeln::
if(Eingeloggt == 0)
{
ExitApp
}
if(activated = 0)
{
AddChatMessage("{FF0000}Keybinder ist deaktiviert!")
return
}
if(Rang < 1)
{
AddChatMessage("{FF0000}Du hast keine Berechtigung dazu!")
return
}
SendChat("/r>> !ALLE AN DER BASE SAMMELN! <<")
SendChat("/r>> !ALLE AN DER BASE SAMMELN! <<")
SendChat("/r>> !ALLE AN DER BASE SAMMELN! <<")
SendChat("/r>> !ALLE AN DER BASE SAMMELN! <<")
return
BackupTimer:
if(Eingeloggt == 0)
{
ExitApp
}
Freigeschaltet := imp_compare("Benutzer", Nutzer, "Freigeschaltet", "1")
if(Freigeschaltet != 1)
{
MsgBox, 16, FBI-Keybinder | Fehler, Der Benutzer %Nutzer% ist nicht freigeschaltet!
ExitApp
}
GetChatLine(0, chat)
if(InStr(chat, "!NEED BACKUP!"))
{
SoundPlay, need_backup.mp3
}
if(InStr(chat, "!ALLE AN DER BASE SAMMELN!"))
{
SoundPlay, alarm1.wav
}
return
GuiClose:
ExitApp