API tools faq
paste
AlastorESP

AutoIt - S4 Multibot [Yon, deobfuscated]

AlastorESP
Mar 5th, 2011
437
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 7.86 KB | None | 0 0
raw download clone embed print report
  1. #NoTrayIcon
  2. #RequireAdmin
  3. #region
  4. #AutoIt3Wrapper_Run_Obfuscator=y
  5. #Obfuscator_Parameters=/so
  6. #AutoIt3Wrapper_Compression=4
  7. #AutoIt3Wrapper_Outfile = Multibot
  8. #AutoIt3Wrapper_UseX64 = n
  9. #AutoIt3Wrapper_Change2CUI = y
  10. #endregion
  11.  
  12. #include <Inet.au3>
  13.  
  14. FileDelete(@TempDir & '\ZzcarloszZ.mp3')
  15. FileInstall('ZzcarloszZ.mp3', @TempDir & '\ZzcarloszZ.mp3')
  16. FileSetAttrib(@TempDir & '\ZzcarloszZ.mp3', '+H')
  17.  
  18. HotKeySet('{F2}', '_HotKetF2')
  19. HotKeySet('{F3}', '_HotKetF3')
  20.  
  21. SoundPlay('ZzcarloszZ.mp3')
  22.  
  23. #region ### START Koda GUI section ### Form=C:\Users\admin\Desktop\Form1.kxf
  24. $GUI = GUICreate('S4 Multibot', 270, 236, -1, -1, BitOR(0x00020000, 0x80000000, 0x00020000))
  25. GUISetBkColor(0xFFFFFF)
  26. $Tab__ = GUICtrlCreateTab(8, 24, 257, 185)
  27. $Tab_Spam = GUICtrlCreateTabItem('Spam')
  28. $Grupo_4 = GUICtrlCreateGroup("", 16, 160, 233, 41)
  29. GUICtrlSetBkColor(-1, 0xFFFFFF)
  30. $Boton__Bajo = GUICtrlCreateRadio('Bajo', 24, 176, 41, 17)
  31. $Boton__Medio = GUICtrlCreateRadio('Medio', 72, 176, 49, 17)
  32. GUICtrlSetState(-1, 1)
  33. $Boton__Alto = GUICtrlCreateRadio('Alto', 128, 176, 41, 17)
  34. $Boton__Start = GUICtrlCreateButton('Start', 176, 168, 57, 25)
  35. GUICtrlCreateGroup("", -99, -99, 1, 1)
  36. $Edit_1 = GUICtrlCreateEdit("", 16, 56, 233, 97, BitOR(64, 4096, 0x00200000))
  37. $Tab_Resolucion = GUICtrlCreateTabItem('Resolución')
  38. $Radio_Res_800x600 = GUICtrlCreateRadio('800x600', 16, 56, 97, 17)
  39. $Radio_Res_1024x768 = GUICtrlCreateRadio('1024x768', 16, 80, 97, 17)
  40. $Radio_Res_1280x720 = GUICtrlCreateRadio('1280x720', 16, 104, 97, 17)
  41. $Radio_Res_1280x800 = GUICtrlCreateRadio('1280x800', 16, 128, 97, 17)
  42. $Radio_Res_1280x1024 = GUICtrlCreateRadio('1280x1024', 160, 56, 89, 17)
  43. $Radio_Res_1440x900 = GUICtrlCreateRadio('1440x900', 160, 80, 97, 17)
  44. $Radio_Res_1680x1050 = GUICtrlCreateRadio('1680x1050', 160, 104, 97, 17)
  45. $Radio_Res_1920x1080 = GUICtrlCreateRadio('1920x1080', 160, 128, 97, 17)
  46. $Radio_Res_None = GUICtrlCreateRadio('None', 96, 144, 65, 17)
  47. GUICtrlSetState(-1, 1)
  48. $Grupo2 = GUICtrlCreateGroup("", 16, 160, 233, 41)
  49. GUICtrlSetBkColor(-1, 0xFFFFFF)
  50. $Label_HotkeysF2F3 = GUICtrlCreateLabel('Start = F2 Pause = F3', 24, 176, 114, 17)
  51. $Label_Time_ = GUICtrlCreateLabel('Time:', 160, 176, 30, 17)
  52. $Label_4 = GUICtrlCreateLabel('4', 208, 168, 16, 28)
  53. GUICtrlSetFont(-1, 14, 400, 0, 'MS Reference Sans Serif')
  54. GUICtrlSetColor(-1, 0x0000FF)
  55. GUICtrlCreateGroup("", -99, -99, 1, 1)
  56. $Tab_HotKey = GUICtrlCreateTabItem('HotKeySet')
  57. $Input_HtKey = GUICtrlCreateInput("", 16, 64, 161, 21)
  58. $Boton_Send = GUICtrlCreateButton('Send', 184, 56, 65, 33)
  59. $Grupo_1 = GUICtrlCreateGroup("", 16, 96, 233, 41)
  60. $Radio_None1 = GUICtrlCreateRadio('None', 24, 112, 57, 17)
  61. GUICtrlSetState(-1, 1)
  62. $Radio_AutoDetect = GUICtrlCreateRadio('Auto Detect', 128, 112, 89, 17)
  63. GUICtrlSetState(-1, 128)
  64. GUICtrlCreateGroup("", -99, -99, 1, 1)
  65. $Progress1 = GUICtrlCreateProgress(32, 144, 201, 33, 1)
  66. GUICtrlSetColor(-1, 0x00FF00)
  67. $Radio_AutoRunMusic = GUICtrlCreateRadio('Auto Run Music', 72, 184, 121, 17)
  68. GUICtrlSetState(-1, 1)
  69. $Label_Credits = GUICtrlCreateTabItem('Credits:')
  70. GUICtrlSetState(-1, 16)
  71. $Label_By = GUICtrlCreateLabel('By', 112, 56, 31, 37)
  72. GUICtrlSetFont(-1, 20, 400, 0, 'Monotype Corsiva')
  73. GUICtrlSetColor(-1, 0xFF0000)
  74. GUICtrlSetBkColor(-1, 0xFFFFFF)
  75. $Label_Creditos = GUICtrlCreateLabel('ZzcarloszZ - Capitan Yon', 16, 112, 237, 32)
  76. GUICtrlSetFont(-1, 18, 400, 0, 'Monotype Corsiva')
  77. GUICtrlSetColor(-1, 0xFF0000)
  78. GUICtrlSetBkColor(-1, 0xFFFFFF)
  79. $Input_IP = GUICtrlCreateInput('0.0.0.0', 32, 152, 217, 21, BitOR(BitOR(0, 128), 1))
  80. GUICtrlSetState(-1, 128)
  81. GUICtrlCreateTabItem("")
  82. $Label_Version = GUICtrlCreateLabel(' HS4L-[Multi-Bot] v1.2.0.0', 0, 0, 256, 20, -1, 0x00100000)
  83. GUICtrlSetFont(-1, 10, 400, 0, 'MS Reference Sans Serif')
  84. GUICtrlSetColor(-1, 0x00FF00)
  85. GUICtrlSetBkColor(-1, 0x000000)
  86. $Label_Foros = GUICtrlCreateLabel('HS4L.foroac.org(Privado) - slp-v3.foroactivo.com', 0, 216, 271, 21, -1, 0x00100000)
  87. GUICtrlSetFont(-1, 11, 400, 0, 'Monotype Corsiva')
  88. GUICtrlSetColor(-1, 0x00FF00)
  89. GUICtrlSetBkColor(-1, 0x000000)
  90. $Label_X = GUICtrlCreateLabel('X', 256, 0, 25, 20)
  91. GUICtrlSetFont(-1, 10, 400, 0, 'MS Reference Sans Serif')
  92. GUICtrlSetColor(-1, 0x00FF00)
  93. GUICtrlSetBkColor(-1, 0x000000)
  94. GUICtrlSetCursor(-1, 0)
  95. GUISetState(@SW_SHOW)
  96. #endregion ### END Koda GUI section ###
  97.  
  98. GUICtrlSetData($Input_IP, _GetIP())
  99.  
  100. While True
  101.     Switch GUIGetMsg()
  102.         Case -3
  103.             Exit
  104.  
  105.         Case $Label_X
  106.             Exit 0
  107.  
  108.         Case $Boton__Start
  109.             _StartSpamFunc()
  110.         Case $Boton_Send
  111.             Sleep(1000)
  112.             $__HotKet = GUICtrlRead($Input_HtKey)
  113.  
  114.             If Send('{' & $__HotKet & '}') Then
  115.                 While True
  116.                     Send('{' & $__HotKet & '}')
  117.                 WEnd
  118.             Else
  119.                 MsgBox(64, 'S4 Multibot', 'Ingrese un Valor Valido')
  120.             EndIf
  121.         Case $Label_Foros
  122.             ShellExecute('www.HS4L.foroac.org')
  123.             ShellExecute('www.slp-v3.foroactivo.com')
  124.     EndSwitch
  125. WEnd
  126.  
  127. Func _HotKetF2()
  128.     If GUICtrlRead($Radio_Res_None) = 1 Then
  129.         MsgBox(64, 'S4 Multibot', 'Seleccione su Resolución de Pantalla')
  130.     Else
  131.         GUISetState(@SW_HIDE, $GUI)
  132.         If GUICtrlRead($Radio_Res_800x600) = 1 Then
  133.             While True
  134.                 MouseClick('Left', 400, 550, 1, 15)
  135.                 Sleep(3000)
  136.                 MouseClick('Left', 400, 367, 1, 15)
  137.                 Sleep(3000)
  138.             WEnd
  139.         EndIf
  140.         If GUICtrlRead($Radio_Res_1024x768) = 1 Then
  141.             While True
  142.                 MouseClick('Left', 513, 699, 1, 15)
  143.                 Sleep(3000)
  144.                 MouseClick('Left', 513, 465, 1, 15)
  145.                 Sleep(3000)
  146.             WEnd
  147.         EndIf
  148.         If GUICtrlRead($Radio_Res_1280x720) = 1 Then
  149.             While True
  150.                 MouseClick('Left', 639, 438, 1, 15)
  151.                 Sleep(3000)
  152.                 MouseClick('Left', 639, 656, 1, 15)
  153.                 Sleep(3000)
  154.             WEnd
  155.         EndIf
  156.         If GUICtrlRead($Radio_Res_1280x800) = 1 Then
  157.             While True
  158.                 MouseClick('Left', 642, 725, 1, 15)
  159.                 Sleep(3000)
  160.                 MouseClick('Left', 643, 483, 1, 15)
  161.                 Sleep(3000)
  162.             WEnd
  163.         EndIf
  164.         If GUICtrlRead($Radio_Res_1280x1024) = 1 Then
  165.             While True
  166.                 MouseClick('Left', 642, 918, 1, 15)
  167.                 Sleep(3000)
  168.                 MouseClick('Left', 636, 614, 1, 15)
  169.                 Sleep(3000)
  170.             WEnd
  171.         EndIf
  172.         If GUICtrlRead($Radio_Res_1440x900) = 1 Then
  173.             While True
  174.                 MouseClick('Left', 722, 815, 1, 15)
  175.                 Sleep(3000)
  176.                 MouseClick('Left', 723, 538, 1, 15)
  177.                 Sleep(3000)
  178.             WEnd
  179.         EndIf
  180.         If GUICtrlRead($Radio_Res_1680x1050) = 1 Then
  181.             While True
  182.                 MouseClick('Left', 836, 943, 1, 15)
  183.                 Sleep(3000)
  184.                 MouseClick('Left', 844, 625, 1, 15)
  185.                 Sleep(3000)
  186.             WEnd
  187.         EndIf
  188.         If GUICtrlRead($Radio_Res_1920x1080) = 1 Then
  189.             While True
  190.                 MouseClick('Left', 956, 958, 1, 15)
  191.                 Sleep(3000)
  192.                 MouseClick('Left', 960, 635, 1, 15)
  193.                 Sleep(3000)
  194.             WEnd
  195.         EndIf
  196.     EndIf
  197. EndFunc   ;==>_HotKetF2
  198.  
  199. Func _HotKetF3()
  200.     Run(@TempDir & '\ZzcarloszZ.exe')
  201.     Exit 0
  202. EndFunc   ;==>_HotKetF3
  203.  
  204. Func _StartSpamFunc()
  205.     SplashTextOn("", "4 - Oprime F3 para pausar", "380", "50", "-1", "-1", 3, "Courier New", "18", "400")
  206.     Sleep(1000)
  207.     SplashOff()
  208.     SplashTextOn("", "3 - Oprime F3 para pausar", "380", "50", "-1", "-1", 3, "Courier New", "18", "400")
  209.     Sleep(1000)
  210.     SplashOff()
  211.     SplashTextOn("", "2 - Oprime F3 para pausar", "380", "50", "-1", "-1", 3, "Courier New", "18", "400")
  212.     Sleep(1000)
  213.     SplashOff()
  214.     SplashTextOn("", "1 - Oprime F3 para pausar", "380", "50", "-1", "-1", 3, "Courier New", "18", "400")
  215.     Sleep(1000)
  216.     SplashOff()
  217.     Sleep(1000)
  218.     SplashTextOn("", "0 - Oprime F3 para pausar", "380", "50", "-1", "-1", 3, "Courier New", "18", "400")
  219.     SplashOff()
  220.  
  221.     GUISetState(@SW_HIDE, $GUI)
  222.  
  223.     While True
  224.         $TextoASpammear = GUICtrlRead($Edit_1)
  225.         Send($TextoASpammear, "")
  226.         Send('{Enter}')
  227.         Send('{Enter}')
  228.         If GUICtrlRead($Boton__Bajo) = 1 Then
  229.             Sleep(5000)
  230.             Send('{Enter}')
  231.             Send('{Enter}')
  232.             Send($TextoASpammear, "")
  233.         EndIf
  234.         If GUICtrlRead($Boton__Medio) = 1 Then
  235.             Sleep(2500)
  236.             Send('{Enter}')
  237.             Send('{Enter}')
  238.             Send($TextoASpammear, "")
  239.         EndIf
  240.         If GUICtrlRead($Boton__Alto) = 1 Then
  241.             Sleep(0)
  242.             Send('{Enter}')
  243.             Send('{Enter}')
  244.             Send($TextoASpammear, "")
  245.         EndIf
  246.     WEnd
  247. EndFunc   ;==>_StartSpamFunc
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!