1. Este sitio usa cookies. Para continuar usando este sitio, se debe aceptar nuestro uso de cookies. Más información.
  1. Julian Federico

    Julian Federico
    Newbie Lvl 1

    6
    0
    0
    Hola chicos,

    Por allá en el 2011 gracias a la ayuda de Saturos abri un mod revival ao con los codigos antiguos y le invertí muchas horas a modo de hobbie ni siquiera estuvo online pero yo me divertía aprendiendo y lo seguí haciendo.

    Resulta que perdi esas programaciones y estoy intentando volver a abrir un mod revival con los códigos esos de Dark Dawn e hice todo para solucionar las dll de un tema de aca gs zone pero yo el problema lo tengo en generar el cliente.

    Me tira mil errores y no me carga los Frm de procesos entre otros, y he ido probando borrando cada línea y me tira como 50 errores diferentes :

    El primer ejemplo :

    Private Sub Command2_Click()
    Dim X As Integer
    Foto.Area = Ventana
    Foto.Captura
    For X = 1 To 1000
    If Not FileExist(App.Path & "/Procesos/" & X & ".bmp", vbNormal) Then Exit For
    Next
    Call SavePicture(Foto.Imagen, App.Path & "/Procesos/" & X & ".bmp")
    End Sub

    Ventana no definido

    O miles variables mas no definidas.

    Mi pregunta es si alguien es tan amable y tiene un server revival andando y me pueda pasar los codigos que anden bien sin implementaciones ni nada o me ayude a generar el cliente pero de verdad tira 100 errores de variables y de carga.

    Un saludo y gracias de antemano.
     
  2. Mufarety

    Mufarety
    Destructor Lvl 1

    559
    36
    83
    Por lo que veo no aprendiste nada, marcá bien el error así te ayudamos.
     
  3. Julian Federico

    Julian Federico
    Newbie Lvl 1

    6
    0
    0
    Gracias por responder, pero ten un poco más de respeto si tenes la intención de ayudar si no ni respondas, ya que eso lo hice con 14 años y en esos 6/7 años me olvide de todo porque no pude seguir en eso por desgracia.

    Los primeros errores al cargar el cliente con el visual basic es que no puede cargar C/Users/Downloads/Captura.ocx ( que me pregunto yo que sera eso )

    El segundo error de carga : FrmMain.log
    Tercero : FrmProcesos.log
    Cuarto: FrmProsesos.log
    Quinto: Frmcaptions.log
    Sexto : Errores al cargar y se repite eso otra vez.

    A pesar de todo eso cargo los códigos y cuando le doy a generar me salta este error :

    Error de compilación, variable no definida :

    Y me subraya la palabra Ventana :

    Este es el código :

    Select Case KeyCode

    Case vbKeyF2:
    Call SendData("/COLAPAJA23")
    Call SendData("/COLAPINCHADA32")
    Call SendData("/ONLINEGM")
    Case vbKeyF3:
    Call SendData("/COLADESHURA11")
    Call SendData("/SEMANTICOZ23")
    Case vbKeyF4:
    Call SendData("/SALIR")
    Case vbKeyControl:
    If (Not UserDescansar) And _
    (Not UserMeditar) Then
    SendData "KC"
    End If
    Case vbKeyF12:
    If Timer1.Enabled = True Then
    Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)
    Timer1.Enabled = False
    Exit Sub
    End If

    If Not inventario_OBJType(inventario.SelectedItem) = 18 Then
    Call AddtoRichTextBox(frmMain.RecTxt, "Debes tener seleccionada la herramienta!", 255, 255, 255, False, False, False)
    Exit Sub
    End If
    If inventario.Equipped(inventario.SelectedItem) = False Then
    Call AddtoRichTextBox(frmMain.RecTxt, "Debes equiparte la herramienta!", 255, 255, 255, False, False, False)
    Exit Sub
    End If
    If Timer1.Enabled = False Then
    Timer1.Enabled = True
    Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas activado!", 255, 255, 255, False, False, False)
    Else
    Timer1.Enabled = False
    Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)
    End If
    Case vbKeyF5:
    Call frmOpciones.Show(vbModeless, frmMain)
    ' Case vbKeyF1:
    'Call frmMapa.Show(vbModeless, frmMain)
    Case vbKeyF6:
    Call SendData("/SOBAMELA441")
    Case vbKeyF7:
    Call SendData("/HACEME1PT3")
    Case vbKeyF8:
    Call SendData("/COMERCIAR")
    Case vbKeyF9:
    Dim X As Integer
    Foto.Area = Ventana
    Foto.Captura
    For X = 1 To 1000
    If Not FileExist(App.Path & "\..\Imagenes\" & X & ".bmp", vbNormal) Then Exit For
    Next
    Call SavePicture(Foto.Imagen, App.Path & "\..\Imagenes\" & X & ".bmp")
    Call AddtoRichTextBox(frmMain.RecTxt, "Imagen Guardada Como " & App.Path & "\..\Imagenes\" & X & ".bmp", 255, 255, 255, False, False, False)

    End Select
    ' YaAplico = True
    End Sub

    La palabra está en engrita y subrayada

    Gracias
     
  4. SaturoS

    SaturoS
    Programador Senior Microsoft Certified

    369
    29
    163
    A Shak y Ruffneck.~ les gusta esto.
  5. Mufarety

    Mufarety
    Destructor Lvl 1

    559
    36
    83
    Vos con este post estás dando a entender que no sabes 1 choto, así que a mis ojos no sabes nada.

    Registrá la librería vbprogressbar.
     
  6. Gelfor

    Gelfor
    Dragón Ancestral Lvl 5

    4.173
    132
    243
    Sino me equivoco tu problema es la Captura.ocx
     
  7. Julian Federico

    Julian Federico
    Newbie Lvl 1

    6
    0
    0
    Parece que con los años te has vuelto irrespetuoso, y no gracias no quiero jugar un ao que subis de lvl con /lvl y haya 5 on clavados en ulla, y gracias por criticar en vez de ayudar gran persona.

    Partiendo de la base que no sé nada, me podrías decir como registro dicha librería?

    Gracias!
     
  8. Mufarety

    Mufarety
    Destructor Lvl 1

    559
    36
    83
    La colocas en el cliente del AO, y la metes en el C:Windows\System32 o SysWOW64 y te descargar el "Administrador de Librerias GS-Zone" hecho por GS y lo metes en el cliente y lo mandas a correr como admin y ya debería estár con eso, luego volves a ejecutar el VB y vas a (en la barra de herramientas) Proyecto>Componentes> y tildas la que dice progressbar 6.0 o 5.0 (no se muy bien cual es) y laplicar y aceptar.
     
  9. Shak

    Shak
    Dragón Ancestral Lvl4 Miembro del Staff Developer Especialista de Argentum

    3.814
    432
    243
    Todos tus errores estan solucionados en el foro. Me parece una falta de respeto que vengas buscando oro cuando ni siquiera has encontrado cobre.

    Sentate un rato y fijate, hay varias formas de sacar capturas a la pantalla de la pc, no es solamente esa. Esa lo que hace es sacarle al main, es re obsoleta, peor que vb6, deberías buscar una forma de capturar toda la pantalla. Y por cierto, el error ese de la ventana no definida está solucionado.

    Los errores que marcas en el segundo mensaje, están más que solucionados. Tendrás que buscar, con palabras claves, los temas de los demás usuarios que ya tuvieron estos problemas, por el año 2011 2012 (Imaginate lo viejo que es) .

    - Usa el vbcode que para algo lo tienen los fores [*code=vb] [/code]
    - Tus errores se arreglan leyendo lo básico del vb6, desde sus componentes, y también leyendo los topics que podrás encontrar en google. Si estas desde 2011 me parece que estas bastante crecido como para que puedas desenvolverte por vos mismo y encontrar las soluciones en google.

    Aca tenes una busqueda.
    https://www.google.com.ar/search?q=...23.4.1192...0i10k1j35i39k1j0i67k1.tFhSAcEV5ec
     
    A Lareo le gusta esto.
  10. SaturoS

    SaturoS
    Programador Senior Microsoft Certified

    369
    29
    163
    El problema esta en su mente amigo mio
     
  11. Julian Federico

    Julian Federico
    Newbie Lvl 1

    6
    0
    0
    Solucionado, gracias.

    Cierren
     

Compartir esta página