Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <FTPEx.au3>
- $Version = "10000"
- $FTPServer = "samp4you.de"
- $FTPBenutzer = "samp_7789_Nico"
- $FTPPasswort = "0912andjeo"
- $FTPFolder = "/Keybinder"
- $FTPTargetFile = "Version.ini"
- ;WinWaitActive("gta_sa.exe","Bitte GTA Starten")
- ; Aufbau der FTP Verbindung
- $OPEN = _FTP_Open("MeinFTP")
- $CONN = _FTP_Connect($OPEN,$FTPServer,$FTPBenutzer,$FTPPasswort)
- ; In das benötigte FTP Verzeichnis wechseln
- _FTP_DirSetCurrent($CONN, $FTPFolder)
- ; Um zu prüfen, ob die Datei vorhanden ist, nutze ich einen Trick
- ; ich prüfe einfach die Dateigröße, ist sie nicht vorhanden, wird
- ; ein Fehler zurück gegeben.
- _FTP_FileGet($CONN,$FTPTargetFile,"Version.ini")
- $Ini = IniRead("Version.ini","Version","Version","")
- If $Ini > $Version Then
- MsgBox(0,"NeueVersion","Es Gibt eine Neue Version Wende dich an [TCR]Nico")
- EndIf
- HotKeySet("{1}","ADuty")
- HotKeySet("{2}","Admin")
- HotKeySet("{3}","Tickets")
- HotKeySet("{4}","TakeTicket")
- HotKeySet("{5}","DeleteTicket")
- HotKeySet("{6}","aw")
- HotKeySet("{7}","aw")
- HotKeySet("{8}","nkick")
- #Region ### START Koda GUI section ### Form=
- $Keybinder = GUICreate("[TCR]Admin Keybinder By [TCR]Nico v.0.1", 625, 443, 184, 567)
- $Zahlen = GUICtrlCreateLabel("Zahlen :", 0, 8, 51, 20)
- GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0x0000FF)
- $Tickets = GUICtrlCreateLabel("3: /Tickets", 8, 80, 56, 17)
- $TTicket = GUICtrlCreateLabel("4: /Taketicket", 8, 98, 72, 17)
- $aw = GUICtrlCreateLabel(" 7:/aw [ID] [Text]", 4, 164, 85, 17)
- ;$E = GUICtrlCreateLabel(" 6:/e [ID] Speichert die ID für /aw", 3, 142, 172, 17)
- $DTicket = GUICtrlCreateLabel("5: /Deleteticket [ID]", 8, 120, 98, 17)
- $Admin = GUICtrlCreateLabel("2: /Admin [Text]", 8, 56, 80, 17)
- $Aduty = GUICtrlCreateLabel("1: /Aduty", 8, 32, 48, 17)
- $Nkick = GUICtrlCreateLabel("8:/nkick", 8, 184, 44, 17)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- EndSwitch
- WEnd
- Func ADuty()
- Send("t")
- Send("/aduty")
- Send("{ENTER}")
- EndFunc
- Func Admin()
- Send("t")
- Send("/admin ")
- EndFunc
- Func Tickets()
- Send("t")
- Send("/tickets")
- Send("{ENTER}")
- EndFunc
- Func TakeTicket()
- Send("t")
- Send("/taketicket ")
- EndFunc
- Func DeleteTicket()
- Send("t")
- Send("/deleteticket ")
- EndFunc
- Func aw()
- Send("t")
- Send("/aw ")
- EndFunc
- Func nkick()
- Send("t")
- Send("/kick Bitte Denken Sie sich einen Roleplay-Namen aus.")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- Send("{LEFT}")
- ;Send ("{ENTER}")
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement