API tools faq
paste
Guest User

Untitled

a guest
Feb 17th, 2012
65
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.70 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. Gui , Font, S16 CDefault Bold, Arial
  3. Gui , Add, Text, x27 y0 w420 h20 +Center, Keybinder V.1.0
  4. Gui , Font, ,
  5. Gui , Add, GroupBox, x22 y20 w430 h70 , Taste
  6. Gui, Add, Edit, x132 y40 w190 h20 vInhalt,
  7. Gui, Add, Text, x44 y44 w130 h20 +BackgroundTrans, Text/Command:
  8. Gui , Add, GroupBox, x22 y100 w430 h230 , Numpad Tasten
  9. Gui , Add, DropDownList, x32 y120 w410 h200 vFunction gliste , Numpad0|Numpad1|Numpad2|Numpad3|Numpad4|Numpad5|Numpad6|Numpad7|Numpad8|Numpad9|^|*|$
  10. Gui , Add, Button, x372 y340 w100 h30 gtastenfunktion , Hinzufügen
  11. Gui , Add, Button, x12 y340 w100 h30 gwiederentfernen , alles entfernen
  12. Gui , Add, Button, x200 y340 w100 h30 gBeenden, Beenden
  13. Gui , Show, x127 y87 h379 w479, Keybinder
  14. Gui, Add, Text, x44 y200 w130 h500 +BackgroundTrans, Mit "<" kannst kannst die tastenfunktionen vom keybinder deaktivieren damit du die tasten imnormalen gebrauch nutzen kannst und mit ^ kannst du denn keybinder wieder aktivieren
  15. Return
  16. return
  17. tastenfunktion:
  18. ;MsgBox , 4 , Erfolg , %Inhalt% erflogreich hinzugefügt!!!
  19. Gui , Submit , Nohide
  20. GoSub , HideAll
  21. If (Function = "Numpad0")
  22. {
  23. FileDelete, Numpad0.txt
  24. FileAppend,%Inhalt%`n,Numpad0.txt, CP0
  25. Numpad0::
  26. FileRead, test, Numpad0.txt
  27. SendInput %test%
  28. return
  29. }
  30. Else If (Function = "Numpad1")
  31. {
  32. FileDelete, Numpad1.txt
  33. FileAppend,%Inhalt%`n,Numpad1.txt, CP0
  34. Numpad1::
  35. FileRead, test1, Numpad1.txt
  36. SendInput %test1%
  37. return
  38. }
  39. Else If (Function = "Numpad2")
  40. {
  41. FileDelete, Numpad2.txt
  42. sleep,1000
  43. FileAppend,%Inhalt%`n,Numpad2.txt, CP0
  44. Numpad2::
  45. FileRead, test2, Numpad2.txt
  46. SendInput %test2%
  47. return
  48. }
  49. Else If (Function = "Numpad3")
  50. {
  51. FileDelete, Numpad3.txt
  52. FileAppend,%Inhalt%`n,Numpad3.txt, CP0
  53. Numpad3::
  54. FileRead, test3, Numpad3.txt
  55. SendInput %test3%
  56. return
  57. }
  58. Else If (Function = "Numpad4")
  59. {
  60. FileDelete, Numpad4.txt
  61. FileAppend,%Inhalt%`n,Numpad4.txt, CP0
  62. Numpad4::
  63. FileRead, test4, Numpad4.txt
  64. SendInput %test4%
  65. return
  66. }
  67. Else If (Function = "Numpad5")
  68. {
  69. FileDelete, Numpad5.txt
  70. FileAppend,%Inhalt%`n,Numpad5.txt, CP0
  71. Numpad5::
  72. FileRead, test5, Numpad5.txt
  73. SendInput %test5%
  74. return
  75. }
  76. Else If (Function = "Numpad6")
  77. {
  78. FileDelete, Numpad6.txt
  79. FileAppend,%Inhalt%`n,Numpad6.txt, CP0
  80. Numpad6::
  81. FileRead, test6, Numpad6.txt
  82. SendInput %test6%
  83. return
  84. }
  85. Else If (Function = "Numpad7")
  86. {
  87. FileDelete, Numpad7.txt
  88. FileAppend,%Inhalt%`n,Numpad7.txt, CP0
  89. Numpad7::
  90. FileRead, test7, Numpad7.txt
  91. SendInput %test7%
  92. return
  93. }
  94. Else If (Function = "Numpad8")
  95. {
  96. FileDelete, Numpad8.txt
  97. FileAppend,%Inhalt%`n,Numpad8.txt, CP0
  98. Numpad8::
  99. FileRead, test8, Numpad8.txt
  100. SendInput %test8%
  101. return
  102. }
  103. Else If (Function = "Numpad9")
  104. {
  105. FileDelete, Numpad9.txt
  106. FileAppend,%Inhalt%`n,Numpad9.txt, CP0
  107. Numpad9::
  108. FileRead, test9, Numpad9.txt
  109. SendInput %test9%
  110. return
  111. }
  112. Else If (Function = "^")
  113. {
  114. FileDelete, ^.txt
  115. FileAppend,%Inhalt%`n,^.txt, CP0
  116. ^::
  117. FileRead, test10, ^.txt
  118. SendInput %test10%
  119. return
  120. }
  121. Else If (Function = "%")
  122. {
  123. FileDelete, *.txt
  124. FileAppend,%Inhalt%`n,*.txt, CP0
  125. *::
  126. FileRead, test11, *.txt
  127. SendInput %test11%
  128. return
  129. }
  130. Else If (Function = "$")
  131. {
  132. FileDelete, $.txt
  133. FileAppend,%Inhalt%`n,$.txt, CP0
  134. $::
  135. FileRead, test12, $.txt
  136. SendInput %test12%
  137. return
  138. }
  139. Return
  140. liste:
  141. return
  142. wiederentfernen:
  143. MsgBox , 4 , Keybinder , Möchten sie alles entfernen?
  144. IfMsgBox Yes
  145. FileDelete, $.txt
  146. FileDelete, *.txt
  147. FileDelete, ^.txt
  148. FileDelete, Numpad9.txt
  149. FileDelete, Numpad8.txt
  150. FileDelete, Numpad7.txt
  151. FileDelete, Numpad6.txt
  152. FileDelete, Numpad5.txt
  153. FileDelete, Numpad4.txt
  154. FileDelete, Numpad3.txt
  155. FileDelete, Numpad2.txt
  156. FileDelete, Numpad1.txt
  157. FileDelete, Numpad0.txt
  158. IF Else
  159. Return
  160. Return
  161. Return
  162. GuiClose:
  163. ExitApp
  164. <::
  165. Run , umschalter.exe
  166. ExitApp
  167. return
  168. Beenden:
  169. ExitApp
  170. return
  171. */
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!