sVac Bot - By Dureitor - [SOURCE]

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

Estado del tema:
Cerrado para nuevas respuestas
  1. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    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. bya

    byangel
    Expand Collapse
    Sargento

    Mensajes:
    235
    Me Gusta recibidos:
    0
    :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. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    1
    a eso es lo que me refiero con editar spawn point (punto de caida) del map.wz, que sera en otra ocacion
     
  4. Exz

    Exzark
    Expand Collapse
    Recluta

    Mensajes:
    38
    Me Gusta recibidos:
    0
    se ve interesante , lastima k no se editar
     
  5. bya

    byangel
    Expand Collapse
    Sargento

    Mensajes:
    235
    Me Gusta recibidos:
    0
    muy
    interesante
    siigue asiii
    i dale un
    BESOOOOOO
    a Nelson
    xDDDDD
    :si:

    :arriba:
     
  6. nar

    narutoexiste
    Expand Collapse
    Recluta

    Mensajes:
    31
    Me Gusta recibidos:
    0
    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. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    1
    mira eso y te daras cuenta el porque
     
  8. mit

    mitchellsm
    Expand Collapse
    Recluta

    Mensajes:
    14
    Me Gusta recibidos:
    0
    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. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    1
    esto lo explique aqui
    Si descargas autoit y buscas la funcion "MouseClick", podras hacer lo que dices, esto lo pondre mas adelante.
     
  10. nar

    narutoexiste
    Expand Collapse
    Recluta

    Mensajes:
    31
    Me Gusta recibidos:
    0
    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. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    1
    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. fel

    felialfon
    Expand Collapse
    Cabo

    Mensajes:
    119
    Me Gusta recibidos:
    5
    pon una guia amigo
     
  13. Dur

    Dureitor
    Expand Collapse
    Cabo

    Mensajes:
    150
    Me Gusta recibidos:
    1
    quizás lo haga pero básicamente seria orientado a la creación de simples bot
     
  14. God

    GodFather
    Expand Collapse
    Sargento

    Mensajes:
    364
    Me Gusta recibidos:
    0
    yo pienso seguir el hilo de como usar AutoIt.....! Buen Bot Duriii >.<!
     
  15. bya

    byangel
    Expand Collapse
    Sargento

    Mensajes:
    235
    Me Gusta recibidos:
    0
    dale un beso
    a duriii
    (K)
    :risa:
     
  16. nar

    narutoexiste
    Expand Collapse
    Recluta

    Mensajes:
    31
    Me Gusta recibidos:
    0
    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. 982

    98245954
    Expand Collapse
    Soldado Raso

    Mensajes:
    74
    Me Gusta recibidos:
    0
    Dureitor FTW!
     
  18. Exz

    Exzark
    Expand Collapse
    Recluta

    Mensajes:
    38
    Me Gusta recibidos:
    0
    sigo sin entender
    me ayudan a entender?
     
  19. Los

    Losif
    Expand Collapse
    Teniente Coronel

    Mensajes:
    1.517
    Me Gusta recibidos:
    4
    jaja hdp tiene troyano xDDD
     
  20. bya

    byangel
    Expand Collapse
    Sargento

    Mensajes:
    235
    Me Gusta recibidos:
    0
    :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 esta página