Hallo Breadfish,
brauche eure Hilfe,
mein Keybinder möchte InGame die Binds einfach nicht mehr absenden, es passiert "nichts" InGame, Fehlermeldungen bekomme ich auch keine...
C
;-------- INCLUDES ------------;
#include API.ahk
;------------------------------;
;------------------------------;
;------- GLOBALE VARIABLEN ----;
Version = 3.0
ForumURL = zensiert
ServerIP = zensiert
;______________________________;
; GUI ERSTELLUNG
Gui,1: Show, h500 w500, zensiert | SAPD-Keybinder [%Version%]
Gui,1: Font,s10 Arial
Gui,1: Add,Button,x380 y25 h25 w100 gYoutube, YouTube
Gui,1: Add,Button,x380 y55 h25 w100 gForum, Forum
Gui,1: Add,Button,x380 y175 h25 w100 gBeenden, Beenden
Gui,1: Add,Button,x380 y85 h25 w100 gInfo, Informationen
Gui,1: Add,Button,x120 y145 h25 w100 gSave, Speichern
Gui,1: Add,Button,x380 y115 h25 w100 gRangkürzel, Rangkürzel
Gui,1: Add,Button,x380 y470 h25 w100 gQC, Quick-Connect
Gui,1: Font,s9 Arial
Gui,1: Add,Button,x380 y145 h25 w100 gTastenbelegungen, Tastenbelegungen
Gui,1: Font,s10 Arial
Gui,1:Add,Button,x20 y445 h50 w100 gBinds, Individuell definierbare Binds
Gui,1:Font,s11 Arial
Gui,1: Add,Text,x9 y30 cwhite +BackgroundTrans, Name:
Gui,1: Add,Text,x9 y60 cwhite +BackgroundTrans, Rang:
Gui,1: Add,Text,x9 y90 cwhite +BackgroundTrans, Fahrzeugkennung:
Gui,1: Add,Text,x9 y120 cwhite +BackgroundTrans, Rangkürzel:
Gui,1: Font,s10 Arial
IniRead,Name,Daten.ini, Ingame Daten:, Name
IniRead,Rang,Daten.ini, Ingame Daten:, Rang
IniRead,Kennung,Daten.ini, Ingame Daten:, Kennung
IniRead,Kurzel,Daten.ini, Ingame Daten:, Kurzel
IniRead,Bind,Daten.ini, Ingame Daten:, Bind
IniRead,Bind2,Daten.ini, Ingame Daten:, Bind2
IniRead,Bind3,Daten.ini, Ingame Daten:, Bind3
Gui,1: Font,s10 Arial
Gui,1: add,edit,x120 y25 w200 h25 vname, %Name%
Gui,1: add,edit,x120 y55 w200 h25 vrang, %Rang%
Gui,1: add,edit,x120 y85 w200 h25 vkennung, %Kennung%
Gui,1: add,edit,x120 y115 w200 h25 vkurzel, %Kurzel%
Gui,1: add,Picture, h500 w500 x0 y0, Avatar.png
return
; Gerüst
GuiClose:
ExitApp
#IfWinActive, GTA:SA:MP;
#UseHook
t::
Suspend On
SendInput t
Hotkey, Enter, On
Hotkey, Escape, On
Hotkey, t, Off
return
NumpadEnter::
Enter::
Suspend Permit
Suspend Off
SendInput {Enter}
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
; BUTTON FUNKTIONEN
QC:
msgbox,4,Quick-Connect-System,Sind Sie sicher, dass Sie auf den Server über "Quick-Connect", connecten möchten?`nDas Quick-Connect-System wird mit folgender IP verbinden:`n`n%ServerIP%
IfMsgBox Yes
run, samp://zensiert
return
IfMsgBox No
return
return
Save:
GuiControlGet,Name ,,Name
GuiControlGet,Rang ,,Rang
GuiControlGet,Kennung ,,Kennung
GuiControlGet,Kurzel ,,Kurzel
GuiControlGet,Bind ,,Bind
GuiControlGet,Bind2 ,,Bind2
GuiControlGet,Bind3 ,,Bind3
IniWrite, %Name%, Daten.ini, Ingame Daten:, Name
IniWrite, %Rang%, Daten.ini, Ingame Daten:, Rang
IniWrite, %Kennung%, Daten.ini, Ingame Daten:, Kennung
IniWrite, %Kurzel%, Daten.ini, Ingame Daten:, Kurzel
IniWrite, %Bind%, Daten.ini, Ingame Daten:, Bind
IniWrite, %Bind2%, Daten.ini, Ingame Daten:, Bind2
IniWrite, %Bind3%, Daten.ini, Ingame Daten:, Bind3
msgbox,0,Datensicherung,Folgende Daten wurden gespeichert:`n`nName: %Name%`nRang: %Rang%`nFahrzeugkennung: %Kennung%`nRangkürzel: %Kurzel%
return
Binds:
Gui,2: Show, h500 w500, Individuell definierbare Binds
Gui,2: Add, edit, x55 y25 h25 w200 vbind, %Bind%
Gui,2: Add, edit, x55 y55 h25 w200 vbind2, %Bind2%
Gui,2: Add, edit, x55 y85 h25 w200 vbind3, %Bind3%
Gui,2: Font,s10 Arial
Gui,2: Add, Text, x15 y30 cwhite +BackgroundTrans, Key 0
Gui,2: Add, Text, x15 y60 cwhite +BackgroundTrans, Key 9
Gui,2: Add, Text, x15 y90 cwhite +BackgroundTrans, Key 8
Gui,2: Font,s10 Arial
Gui,2: Add, Text, x265 y25 cwhite +BackgroundTrans, Im Editierbaren Feld`nkein "t" und kein "{enter}" mit`nhineinschreiben, dies wird automatisch`nausgegeben.
Gui,2: Add, Picture, x0 y0 h500 w500, Avatar.png
return
Tastenbelegungen:
msgbox,0,Tastenbelegungen,Folgende Tastenbelegungen sind derzeit vorhanden:`n`nAlt+Numpad1 = Begrüßung (+Wie kann ich helfen?)`n/code3 - Code 3 Meldung (/r chat)`n/code4 - Code 4 Meldung (/r chat)
return
Beenden:
msgbox,4,Wirklich beenden?,Sind Sie sicher, dass Sie den Keybinder schließen & beenden wollen?
IfMsgBox Yes
ExitApp
IfMsgBox No
return
return
Rangkürzel:
msgbox,0,Rangkürzel Vorlage,Trainee - Trainee`nOfficer I - PO-I`nOfficer II - PO-II`nDetective I - Dt. I`nDetective II - Dt. II`nLieutenant - Lt.`nCommander - CMD`nAssistant Chief of Police - ACoP`nChief of Police - CoP`n`nRangkürzel bitte sorgfältig eintragen!
return
Info:
msgbox,0,Informationen,Der Keybinder veröffentlicht keinerlei personenbezogene Daten o.ä.!
return
Youtube:
msgbox,4,YouTube-Webbrowser,Sind Sie sicher, dass YouTube auf ihrem Webbrowser gestartet und aufgerufen werden soll?
IfMsgBox Yes
run, "www.YouTube.com"
return
return
Forum:
msgbox,4,Forum-Webbrowser,Sind Sie sicher, dass die Webseite %ForumURL% auf ihrem Webbrowser gestartet und aufgerufen werden soll?
IfMsgBox Yes
run, "%ForumURL%"
return
return
; Tastenbelegungen
!Numpad1::
Suspend Permit
SendInput Guten Tag, der Herr, wie kann ich Ihnen behilflich sein?{enter}
return
0::
Suspend Permit
SendInput %Bind%{enter}
return
9::
Suspend Permit
SendInput %Bind2%{enter}
return
8::
Suspend Permit
SendInput %Bind3%{enter}
return
:?:/code3::
Suspend Permit
GetZoneName(Zone)
SendInput /r %Kennung%, code 3 %Zone%{enter}
return
:?:/code4::
Suspend Permit
GetZoneName(Zone)
SendInput /R %Kennung%, code 4 für den Einsatz in %Zone%, over.{enter}
return
Alles anzeigen
Danke im Voraus
Gruß,
ShoXxYT