sVac Bot - By Dureitor - [SOURCE]

Tema en 'Temas Archivados' iniciado por Dureitor, 25 Feb 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. Bueno tal y como lo dije posteare el primer bot que hice en Autoit, pueden descargar este tool desde esta direccion http://www.autoitscript.com/autoit3/downloads.shtml.

    Creo que una imagen vale mas que mil palabras

    [​IMG][​IMG]

    Este es el codigo fuente :
    Código:
    #cs ----------------------------------------------------------------------------
    
     AutoIt Version: 3.3.4.0
     Author:         Dureitor
    
     Script Function:
        Bot v0.01 para Svac
    
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    
    ;Incluyo el achivo String.au3
    #Include <String.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #Region GUI
    $Form1 = GUICreate("", 150, 204, -1, -1, $WS_CAPTION + $WS_SYSMENU, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    
    ;Config bot
    $Group1 = GUICtrlCreateGroup("Config Bot", 8, 4, 134, 70) ; config Bot
    
        $Label1 = GUICtrlCreateLabel("AutoAttack :", 16, 18, 60, 16) ; AutoAttack
        $txtAutoAttack = GUICtrlCreateInput("100", 76, 18, 25, 15) ; Input autoattack
        $label4 = GUICtrlCreateLabel("ms", 102, 18, 15, 16) ; ms
        $lblAttack = GUICtrlCreateLabel("Off", 122, 18, 15, 16) ; On/Off
        GuiCtrlSetColor($lblAttack, 0xFF0000)
    
        $Label2 = GUICtrlCreateLabel("AutoCash :", 16, 35, 60, 16) ; autocash
        $txtAutoCash = GUICtrlCreateInput("226", 76, 35, 25, 15) ; Input autocash
        $label5 = GUICtrlCreateLabel("ca", 102, 35, 15, 16) ; ms
        $lblAutocash = GUICtrlCreateLabel("Off", 122, 35, 15, 16) ; ms
        GuiCtrlSetColor($lblAutocash, 0xFF0000)
    
        $Label3 = GUICtrlCreateLabel("AutoMP :", 16, 52, 60, 16) ; autoMp
        $txtAutoMP = GUICtrlCreateInput("2", 76, 52, 25, 15) ; Input autoMp
        $label6 = GUICtrlCreateLabel("cp", 102, 52, 15, 16) ; ms
        $lblAutoMP = GUICtrlCreateLabel("Off", 122, 52, 15, 16) ; ms
        GuiCtrlSetColor($lblAutoMP, 0xFF0000)
    
    ;Cantidad de veces en que se presiono la tecla de ataque
    $Group2 = GUICtrlCreateGroup("Cant. presionado", 8, 75, 134, 35) ; ataques
        $Label7 = GUICtrlCreateLabel("Cantidad : ", 16, 89, 60, 16) ; Cantidad
        $lblCatt = GUICtrlCreateLabel("0", 76, 89, 25, 16) ; cantidad de ataques
    
    ;Hotkeys
    $Group3 = GUICtrlCreateGroup("HotKeys", 8, 111, 134, 70) ; Hotkeys
        $Label8 = GUICtrlCreateLabel("AutoAttack", 16, 125, 60, 16)
        $Label9 = GUICtrlCreateLabel("AutoCash + MP", 16, 142, 80, 16)
        $Label11 = GUICtrlCreateLabel("Cerrar", 16, 159, 60, 16)
    
        $label12= GUICtrlCreateLabel("Ctrl+F1", 102, 125, 38, 16)
        $label13= GUICtrlCreateLabel("Ctrl+F2", 102, 142, 38, 16)
        $label14= GUICtrlCreateLabel("Ctrl+F3", 102, 159, 38, 16)
    
    ;powered
    $label16= GUICtrlCreateLabel("By Dureitor", 50, 186, 60, 16)
    
    GUISetState(@SW_SHOW)
    #EndRegion
    
    ;Animación del titulo
    AnimarTitulo($Form1, "     [:: SvacBot v0.01 ::]", 10)
    
    HotKeySet("^{F1}", "Attack")
    HotKeySet("^{F2}", "AutoCash")
    HotKeySet("^{F3}", "AutoMP")
    
    Global $attack = False
    Global $autocash = False
    Global $automp= False
    
    Global $contador = 0
    
    While 1
        $nMsg = GUIGetMsg()
        if $nMsg = $GUI_EVENT_CLOSE then
                Exit
            EndIf
    
            If $attack = True Then
                Do
                $contador = $contador+1
                GUICtrlSetData($lblCatt, "" & $contador)
                GUICtrlSetData($lblAttack, "On")
                GuiCtrlSetColor($lblAttack, 0x00FF00)
                GUICtrlSetState($txtAutoAttack, $GUI_DISABLE)
                ControlSend("MapleStory", "", "", "{a}")
                Sleep(GUICtrlRead($txtAutoAttack))
    
                    If $autocash = True Then
                        GUICtrlSetData($lblAutocash, "On")
                        GuiCtrlSetColor($lblAutocash, 0x00FF00)
                        GUICtrlSetState($txtAutoCash, $GUI_DISABLE)
                        $automp = True
                        GUICtrlSetData($lblAutoMP, "On")
                        GuiCtrlSetColor($lblAutoMP, 0x00FF00)
                        GUICtrlSetState($txtAutoMP, $GUI_DISABLE)
                        If $contador >= GUICtrlRead($txtAutoCash) Then
                            If $automp = True Then
                                $pot = 0
                                Do
                                Sleep(1000)
                                ControlSend("MapleStory", "", "", "{0}")
                                $pot = $pot +1
                                Until $pot = GUICtrlRead($txtAutoMP)
                            EndIf
    
                            $delaycash = 5000 - (GUICtrlRead($txtAutoMP)*1000)
                            Sleep($delaycash)
                            ControlSend("MapleStory", "", "", "{u}")
                            Sleep(5000)
                            ControlSend("MapleStory", "", "", "{ESC}")
                            Sleep(10)
                            ControlSend("MapleStory", "", "", "{ESC}")
                            Sleep(10)
                            ControlSend("MapleStory", "", "", "{ENTER}")
                            Sleep(3000)
                            $contador = 0
                        EndIf
                    ElseIf $autocash = False Then
                        GUICtrlSetData($lblAutocash, "Off")
                        GuiCtrlSetColor($lblAutocash, 0xFF0000)
                        GUICtrlSetState($txtAutoCash, $GUI_ENABLE)
                        $automp = False
                    EndIf
                    If $automp = False Then
                        GUICtrlSetData($lblAutoMP, "Off")
                        GuiCtrlSetColor($lblAutoMP, 0xFF0000)
                        GUICtrlSetState($txtAutoMP, $GUI_ENABLE)
                    EndIf
    
                Until $attack = False
    
            ElseIf $attack = False Then
                $contador = 0
                GUICtrlSetData($lblAttack, "Off")
                GuiCtrlSetColor($lblAttack, 0xFF0000)
                GUICtrlSetState($txtAutoAttack, $GUI_ENABLE)
                $autocash = False
                $automp = False
            EndIf
    
            If $autocash = False Then
                GUICtrlSetData($lblAutocash, "Off")
                GuiCtrlSetColor($lblAutocash, 0xFF0000)
                GUICtrlSetState($txtAutoCash, $GUI_ENABLE)
                EndIf
            If $automp = False Then
                GUICtrlSetData($lblAutoMP, "Off")
                GuiCtrlSetColor($lblAutoMP, 0xFF0000)
                GUICtrlSetState($txtAutoMP, $GUI_ENABLE)
            EndIf
    
    WEnd
    
    Func Attack()
    $attack = Not $attack
    EndFunc
    
    Func AutoCash()
    $autocash = Not $autocash
    EndFunc
    
    Func AutoMP()
    $automp = Not $automp
    EndFunc
    
    ;Función animar titulo
    Func AnimarTitulo($Gui, $Title, $100)
        $Title = StringSplit($Title, "")
        For $i = $100 To 0 Step - 1
            Sleep(5)
            WinSetTitle($Gui, "", _StringRepeat(" ", $i) & $Title[1])
        Next
        Local $s
        For $i = 1 To $Title[0]
            Sleep(10)
            $s &= $Title[$i]
            WinSetTitle($Gui, "", $s)
        Next
    EndFunc
    El archivo compilado (exe) esta adjunto.

    ACLARACIONES :
    1.- Esta es la primera version que hice de este bot por lo tanto solo funciona si no haz canjeado la ropa cash gratis que regalan.
    2.- Actualmente sigo teniendo problemas con AutoitScript, porque ? cuando el bot esta en ejecucion trabaja de lo mas normal, pero si estoy chateando o algo los teclados se cruzan, no e encontrado otra solucion que no sea cambiar de usuario por el momento :pensando:.
    3.- Tengo mas bot en Autoit? : Si, solo unas pocas mejoras, ya que actualmente los bot que hago son netamente en C# o C++ que lo hago desde sources.
    4.- Cual es el objetivo de este post ?, llegar a aquellos usuarios que no solo quieran decir "jeje consegui un bot y tu no tienes lero lero", todo lo contrario que comiensen a preguntarse "oh de esta manera se realizan los bot, analizar el lenguaje que autoit no es para nada complicado, con un poco de logica les aseguro que hasta se pueden hacer cosas para uso personal.

    Bueno creo que esto es todo, una nota mas que podria decirles es que es obvio que este bot tiene que usarse editando el spawn point (punto de caida) para caer en un mismo sitio donde esten los mobs y comiense a atacar.

    NOTAS SOBRE EL BOT:
    ms = milisegundos
    ca = cantidad de ataques, en este caso cantidad de veces presionada la tecla, ahi en el bot tiene un contador para poder calcular despues de cuantos les da dc.
    cp = cantidad de posimas

    teclas:
    autoattack : tecla A
    autocash : tecla U
    autpot : numero 0

    Consejos :
    Solo 1, juega con el codigo, investiga revisa la web en español que deje y encontraras muchos sources los cuales podras revisar

    El tutorial sobre el spawn point lo pondre mañana si es que me da el tiempo :adios:

    DESCARGA:
    Viendo el archivo adjunto sVacBot v0.01.rar

    PD: Si quieres que explique el código detenidamente dejar una respuesta (sin webadas porque en serio, soy una persona seria XD)
     
  2. :pensando:
    Con que tu eres
    el famoso duriii
    el que nelson dice
    "DAME UN BESO"
    xDDD
    buen aporte amigo
    lo malo esque
    Cuando uno va al shop i regresa
    no esta en el mismo sitio donde estava ps lo deja
    mas lejos de donte estan los monstros
    del svac
    :risa:
    Suertee
    y dale bola
    a NelSon que quiere
    estar con tigo
    :si:
    :arriba:
     
  3. a eso es lo que me refiero con editar spawn point (punto de caida) del map.wz, que sera en otra ocacion
     
  4. se ve interesante , lastima k no se editar
     
  5. muy
    interesante
    siigue asiii
    i dale un
    BESOOOOOO
    a Nelson
    xDDDDD
    :si:

    :arriba:
     
  6. man.... una pregunta,,, yo lo puze para q cada 100 atakes cure dos pots ,pero no quiero entrar ala tienda de cash , y se queda parado mi pj unos 10 segundosy luego empieza a presionar A .... pero en el buddy , komo lo arreglo?? , muy
     
  7. mira eso y te daras cuenta el porque
     
  8. Hola Dureitor con respecto a lo que posteastes, una consulta ya edite mi propio svac para caer en el mismo lado que las aves, ahora tu bot me hace entrar a la tienda cash hasta alli esta todo bien..la cosa es que lo quiero dejar levear solo y el unico inconveniente esque no sale de la tienda cash a menos que le haga clic....no se si puedas darme una solucion a ese problema ya que lo he intentado con el autoclic pero no me convence gracias
     
  9. esto lo explique aqui
    Si descargas autoit y buscas la funcion "MouseClick", podras hacer lo que dices, esto lo pondre mas adelante.
     
  10. ok gracias man . otra pregunta , como le hago si esque no quiero entrar ala tienda de cash , como quito esa funcion ? o no se puede ¿T_T?
     
  11. supongo que ya descargaste autoit y habras MINIMO compilado, tratando de editar algo, si es posible mañana posteare un pequeño bot con funciones de tiempo, es decir como es comun en muchos bot "auto skill", y ya podran tomar idea de como se va haciendo esto
     
  12. pon una guia amigo
     
  13. quizás lo haga pero básicamente seria orientado a la creación de simples bot
     
  14. yo pienso seguir el hilo de como usar AutoIt.....! Buen Bot Duriii >.<!
     
  15. dale un beso
    a duriii
    (K)
    :risa:
     
  16. pz no O_O no lo hice , pero ya lo estoy intentado ,por lo menos entender como es xD ,aver si pones la guia :D
     
  17. Dureitor FTW!
     
  18. sigo sin entender
    me ayudan a entender?
     
  19. jaja hdp tiene troyano xDDD
     
  20. :pensando:
    algunos Cheast
    Necesitan de troyanos
    o gusanitos para que
    cumplan su funciones
    :arriba:
    dame mesos
    por la informacion
    -.-
    :risa:

     
Estado del tema:
Cerrado para nuevas respuestas

Compartir