Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.38 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <StaticConstants.au3>
  3. #include <WindowsConstants.au3>
  4. #include <FTPEx.au3>
  5. $Version = "10000"
  6. $FTPServer = "samp4you.de"
  7. $FTPBenutzer = "samp_7789_Nico"
  8. $FTPPasswort = "0912andjeo"
  9. $FTPFolder = "/Keybinder"
  10. $FTPTargetFile = "Version.ini"
  11. ;WinWaitActive("gta_sa.exe","Bitte GTA Starten")
  12. ; Aufbau der FTP Verbindung
  13. $OPEN = _FTP_Open("MeinFTP")
  14. $CONN = _FTP_Connect($OPEN,$FTPServer,$FTPBenutzer,$FTPPasswort)
  15. ; In das benötigte FTP Verzeichnis wechseln
  16. _FTP_DirSetCurrent($CONN, $FTPFolder)
  17.  
  18. ; Um zu prüfen, ob die Datei vorhanden ist, nutze ich einen Trick
  19. ; ich prüfe einfach die Dateigröße, ist sie nicht vorhanden, wird
  20. ; ein Fehler zurück gegeben.
  21. _FTP_FileGet($CONN,$FTPTargetFile,"Version.ini")
  22.  
  23. $Ini = IniRead("Version.ini","Version","Version","")
  24.  
  25. If $Ini > $Version Then
  26. MsgBox(0,"NeueVersion","Es Gibt eine Neue Version Wende dich an [TCR]Nico")
  27. EndIf
  28.  
  29. HotKeySet("{1}","ADuty")
  30. HotKeySet("{2}","Admin")
  31. HotKeySet("{3}","Tickets")
  32. HotKeySet("{4}","TakeTicket")
  33. HotKeySet("{5}","DeleteTicket")
  34. HotKeySet("{6}","aw")
  35. HotKeySet("{7}","aw")
  36. HotKeySet("{8}","nkick")
  37.  
  38.  
  39.  
  40. #Region ### START Koda GUI section ### Form=
  41. $Keybinder = GUICreate("[TCR]Admin Keybinder By [TCR]Nico v.0.1", 625, 443, 184, 567)
  42. $Zahlen = GUICtrlCreateLabel("Zahlen :", 0, 8, 51, 20)
  43. GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
  44. GUICtrlSetColor(-1, 0x0000FF)
  45. $Tickets = GUICtrlCreateLabel("3: /Tickets", 8, 80, 56, 17)
  46. $TTicket = GUICtrlCreateLabel("4: /Taketicket", 8, 98, 72, 17)
  47. $aw = GUICtrlCreateLabel(" 7:/aw [ID] [Text]", 4, 164, 85, 17)
  48. ;$E = GUICtrlCreateLabel(" 6:/e [ID] Speichert die ID für /aw", 3, 142, 172, 17)
  49. $DTicket = GUICtrlCreateLabel("5: /Deleteticket [ID]", 8, 120, 98, 17)
  50. $Admin = GUICtrlCreateLabel("2: /Admin [Text]", 8, 56, 80, 17)
  51. $Aduty = GUICtrlCreateLabel("1: /Aduty", 8, 32, 48, 17)
  52. $Nkick = GUICtrlCreateLabel("8:/nkick", 8, 184, 44, 17)
  53. GUISetState(@SW_SHOW)
  54. #EndRegion ### END Koda GUI section ###
  55.  
  56. While 1
  57. $nMsg = GUIGetMsg()
  58. Switch $nMsg
  59. Case $GUI_EVENT_CLOSE
  60. Exit
  61.  
  62. EndSwitch
  63. WEnd
  64.  
  65.  
  66.  
  67. Func ADuty()
  68. Send("t")
  69. Send("/aduty")
  70. Send("{ENTER}")
  71. EndFunc
  72.  
  73. Func Admin()
  74. Send("t")
  75. Send("/admin ")
  76. EndFunc
  77.  
  78. Func Tickets()
  79. Send("t")
  80. Send("/tickets")
  81. Send("{ENTER}")
  82. EndFunc
  83.  
  84. Func TakeTicket()
  85. Send("t")
  86. Send("/taketicket ")
  87. EndFunc
  88.  
  89. Func DeleteTicket()
  90. Send("t")
  91. Send("/deleteticket ")
  92. EndFunc
  93.  
  94. Func aw()
  95. Send("t")
  96. Send("/aw ")
  97. EndFunc
  98.  
  99. Func nkick()
  100. Send("t")
  101. Send("/kick Bitte Denken Sie sich einen Roleplay-Namen aus.")
  102. Send("{LEFT}")
  103. Send("{LEFT}")
  104. Send("{LEFT}")
  105. Send("{LEFT}")
  106. Send("{LEFT}")
  107. Send("{LEFT}")
  108. Send("{LEFT}")
  109. Send("{LEFT}")
  110. Send("{LEFT}")
  111. Send("{LEFT}")
  112. Send("{LEFT}")
  113. Send("{LEFT}")
  114. Send("{LEFT}")
  115. Send("{LEFT}")
  116. Send("{LEFT}")
  117. Send("{LEFT}")
  118. Send("{LEFT}")
  119. Send("{LEFT}")
  120. Send("{LEFT}")
  121. Send("{LEFT}")
  122. Send("{LEFT}")
  123. Send("{LEFT}")
  124. Send("{LEFT}")
  125. Send("{LEFT}")
  126. Send("{LEFT}")
  127. Send("{LEFT}")
  128. Send("{LEFT}")
  129. Send("{LEFT}")
  130. Send("{LEFT}")
  131. Send("{LEFT}")
  132. Send("{LEFT}")
  133. Send("{LEFT}")
  134. Send("{LEFT}")
  135. Send("{LEFT}")
  136. Send("{LEFT}")
  137. Send("{LEFT}")
  138. Send("{LEFT}")
  139. Send("{LEFT}")
  140. Send("{LEFT}")
  141. Send("{LEFT}")
  142. Send("{LEFT}")
  143. Send("{LEFT}")
  144. Send("{LEFT}")
  145. Send("{LEFT}")
  146. Send("{LEFT}")
  147. Send("{LEFT}")
  148. Send("{LEFT}")
  149. Send("{LEFT}")
  150.  
  151.  
  152. ;Send ("{ENTER}")
  153. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement