Publicados por gunit

u.u yo lo que creo es que se toman demasiado en serio 1 post de easymetin, que hace ya meses en dmx que sabemos usarlo con el aleman

el no-path solo se salta las actualizaciones -.-' no hace magia para que vayan los hacks

en el .es actualizando o con no-path te saca del juego

espera un poco y estara disponible xd

eso me pasa por usar megaupload

@Anghios said:

Pero el DLL?, nunca entendí su función en VB la verdad...
Yo hice hacks para el warrock, copiando el source del module1.vb, pero para eso necesitaba un Injector y un archivo .dll
Aquí para que se necesita?0.o

yo lo uso para no tener tanta mierda en el proyecto, pero en este caso lo hubiera hecho perfectamente sin dll xd

o para importar funciones ya hechas, como el admintool hay una dll "mysql.data.dll" la uso para la conexion mysql , hay dll de google para traducir... nose... xd

@Joaking said:

que hay de diferente con la version 0.0.1? y se pueden poner contras que no sean 12345?

puedes poner la contraseña que quieras
ver el ekipo del personaje
saber si lleva piedras gm
y iconos ¬¬

[alinear-centro]AdminTool v0.0.0.2[/alinear-centro]

IMAGENES:

[alinear-centro]DESCARGA:[/alinear-centro]

http://www.megaupload.com/?d=2TE70JIX

PD: adrimt encontre el problema k tenias y lo arregle

@reyhurbano said:

@tkpsngikoz said:

Jajajaja axav creo que muchos todavia no se an dado cuenta, que la mayoria de post son copiados de elitepvpers o cheat.. es asi ven 1 post, lo aprenden editan y luego se dicen "Ejee.. Soy el creador de esto", no veo mas que todo solo una estupides humana por parte de muchos usuarios alli, se la dan de mucho, o que acaso son de alguna otra clase de persona? quisas son de otra vida mejor? ps menuda vida tienen, ya que si haci son en la vida cibernetica, como seran en persona real?, ps me imagino en la ciudad y veo a uno que diga en su camisa "Soy de DiosesMx", le daria un buen sermon y una buena Tunda.. xD nose si exajero un poco.. pero algo es algo, xD bueno no me desvio del tema..

PD: Creo que este post es algo por lo cual no tiene mucho sentido, deben conportarse como buenas personas ya que Nosotros, Nuestra comunidad, somos diferentes y debemos dar ejemplo, a los nuevos usuarios, o a los visitantes de otros foros, Pido a un Admin que cierre el tema.

Haber enseñame un solo usuario k tenga mas de 400 post y se atribuya el merito,adelante hazlo.
Eso solo pasa con los nuevos usuarios,k los pobres no conozen las reglas y al instante sn corregidos.
Y os recuerdo k lo mismo hacian ustedes,copy/paste y decian "Agradecer no cuesta nada" si claro y una mie***,y si no me creeis preguntenle a salva cuantos post de aqui a tenido k borrar/corregir pork no ponian fuentes originales y se atribuian la guia a ellos mismos.
Yo tengo contacto directo via icq (hablamos en ingles entre nosotros) con banjo y nico k para kien no lo sepa son smod's de elitepvp, y nunca y repito NUNCA e tenido keja de ninguno de los 2,y ellos saben k cojemos guias de all,pero como el dice ""mientras respetes el foro fuente no pasa nada"" ciero es k hace ya como 1 mes y algo k no hablo con ninguno de los 2 pork yo estoy ocupdo en un projecto y ellos en uno k tienen e mente.
y por ultimo perdonen que suelte un JAJA a todos vosotros(a los k copiaban guia digo,anghios miki etc no os vallais a ofender ¬¬) k vosotros sois los penosos,metanse ustds. a lo suyo y dejenos k nosotros iremos a lo nuestro y .

he hablado con reyhurbano y me dice que la url de universojuegos lleva censurada desde el 31 de marzo, porque revedery (narcotico) les llenó de spam con enlaces a este foro

creo k malinterpretaste mi MP xD yo dije k empezo a llenarnos de spam,pero no de este foro,los k nos llenaron de spam de este foro fueron otros users k vinieron despues,no fue revedery

+10

lo k hacen es insultar a todo dmx por unos pocos users k roban

@S31K3R said:

ejeje buena guia una pregunta el autopattcher es tuyo? si es esta bien

si es mio ¬¬
de donde crees que me sakaria un auto-patcher para metin2 en español k no sea de aki o de dmx

DESCARGA DEL PROYECTO:

http://www.megaupload.com/?d=RQRQ54TL

CODIGO

FORM:

Imports System
Imports System.IO
Imports System.Collections

Class form1
    Dim readconfig As New StreamReader("config.ini")


    Dim pack1 As String = readconfig.ReadLine
    Dim ver As String = readconfig.ReadLine
    Dim config As String = readconfig.ReadLine

    '''''''''''''''''''
    'LLAMAMOS A LA DLL'
    '''''''''''''''''''

    Dim descargar As New autodll.Class1
    Dim actualizando As Boolean = False


    ''''''''''''''''''''''''''''''''''''''''''''''''
    '################BOTONES#######################'
    ''''''''''''''''''''''''''''''''''''''''''''''''

    Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
        PictureBox1.Image = My.Resources.començar2
    End Sub
    Private Sub PictureBox2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseHover
        PictureBox2.Image = My.Resources.config1
    End Sub
    Private Sub PictureBox3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseHover
        PictureBox3.Image = My.Resources.salir2
    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.Image = My.Resources.començar1
    End Sub
    Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
        PictureBox2.Image = My.Resources.config
    End Sub
    Private Sub PictureBox3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave
        PictureBox3.Image = My.Resources.salir1
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        PictureBox1.Image = My.Resources.començar3
        If actualizando = True Then
            MsgBox("Porfavor espere hasta que la actualizacion se termine.", MsgBoxStyle.Critical, "Espere porfavor")
        Else
            If My.Computer.FileSystem.FileExists(config) = True Then
                Shell(config)
            Else
                MsgBox("El archivo " & config & " no fue encontrado" & vbNewLine & "Porfavor revisa el archivo config.ini", MsgBoxStyle.Critical, "Error")
            End If
        End If

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        PictureBox2.Image = My.Resources.config2
        If My.Computer.FileSystem.FileExists("config.exe") = True Then
            Shell("config.exe")
        Else
            MsgBox("El archivo config.exe, no fue encontrado", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        PictureBox3.Image = My.Resources.salir3
        Me.Close()
    End Sub


    Private Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        PictureBox5.Parent = PictureBox4
        Timer1.Enabled = True
    End Sub

    Private Sub comprobar()
        If My.Computer.FileSystem.FileExists("pack1.rar") = True Then
            My.Computer.FileSystem.DeleteFile("pack1.rar")
        End If
        If My.Computer.FileSystem.FileExists("log/patchinfo.ini") = True Then
            My.Computer.FileSystem.DeleteFile("log/patchinfo.ini")
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If actualizando = False Then
            actualizando = True
            'MIRA SI pack.rar y patchinfo EXISTEn, SI EXISTEn LOs BORRA
            comprobar()
            'COMPRUEBA LA CONEION A INTERNET
            If My.Computer.Network.IsAvailable = True Then
                log.Text = log.Text & "Comprobando actualizaciones..."
                On Error Resume Next
                My.Computer.Network.DownloadFile(ver, "log/patchinfo.ini") ' URL DE patchinfo.ver!!!!!
                ProgressBar1.Value = 5
                Dim act As String = My.Computer.FileSystem.ReadAllText("log/patchinfo.ini")
                Dim act2 As String = My.Computer.FileSystem.ReadAllText("patchinfo.ver")
                'COMPARA LA NUEVA VERSION CON LA QUE TIENES
                If act = act2 Then
                    log.Text = log.Text & vbNewLine & "El metin2 ya esta actualizado, ya puede disfrutar del juego!"
                    ProgressBar1.Value = 100
                    actualizando = False
                    Timer1.Enabled = False
                Else
                    Dim ret As Boolean
                    ret = descargar.patch(pack1, "Pack1.rar")
                    ProgressBar1.Value = 15
                    log.Text = log.Text & vbNewLine & "Descargando actualizaciones..."
                    'QUANDO PACK.RAR TERMINA DE DESCARGARSE
                    If ret Then
                        ProgressBar1.Value = 100
                        'QUANDO PACK.RAR TERMINA DE DESCARGARSE  
                        log.Text = log.Text & vbNewLine & "Actualizaciones descargadas!"
                        'LLAMAMOS UNRAR.EXE PARA DESCOMPRIMIR
                        log.Text = log.Text & vbNewLine & "Descomprimiendo contenido descargado"
                        Shell("UnRAR.exe x -y pack1.rar")
                        log.Text = log.Text & vbNewLine & "Actualizado correctamente!"
                        actualizando = False
                        'PARAMOS EL TIMER, PARA QUE NO DESCARGUE EN BUCLE
                        Timer1.Stop()
                    End If
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                    'QUANDO SE HAYA ACTUALIZADO ESCRIBE LA NUEVA VERSION EN PATCHINFO.VER'
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                    My.Computer.FileSystem.WriteAllText("patchinfo.ver", act, False)
                End If
                End If
            Else
                'SI NO HAY CONEION A ITNERNET ...
                log.Text = log.Text & "No hay conexion a Internet!"
                actualizando = False
                Timer1.Enabled = False
            End If

            Timer1.Enabled = False
            Exit Sub

    End Sub
End Class

DLL:

Public Class Class1
    Function patch(ByVal Url As String, _
                                        ByVal Path_Destino As String) As Boolean
        If Url = vbNullString Or Path_Destino = vbNullString Then
            Exit Function
        Else
            If Len(Dir(Path_Destino)) <> 0 Then
                Exit Function
            Else
                On Error Resume Next
                My.Computer.Network.DownloadFile(Url, Path_Destino)
                If Err.Number = 0 Then
                    patch = True
                Else
                    MsgBox(Err.Description)
                End If
                Err.Clear()
            End If
        End If
    End Function
End Class

Soys libres de modificarlo a vuestro gusto

[alinear-centro]AUTO-PATCHER[/alinear-centro]

• ScreenShot

• Subiendo los archivos al host

• 1 Eligen qualquier host, uno puede ser miarroba.

• 2 Suben el pack.rar, el .rar debe estar asi (con la carpeta Pack MUY IMPORTANTE):

• 3 Crean un archivo ".txt" y lo renombran a "patchinfo.ini", dentro del .ini esriben 0.1 y suben el archivo al hosting...

• Configurando el Auto-Patcher

• Copiar lo descargado en la carpeta del cliente.

• Abren el archivo "config.ini", veran lo siguiente:

  http://vb-world.webcindario.com/xd/pack.rar
  http://gunitest.webcindario.com/patchinfo.ini
  mc.exe

equivale a esto:

URL del pack.rar
URL del patchinfo.ini
Nombre del el programa a ejecutar quando se pulse el boton "Empezar el juego"

• Hay un archivo que se llama patchinfo.ver, no lo deben tocar, dejenlo como esta...

• Hacer que los clientes de tu server se actualizen.

• Se van a su hosting, y en el archivo "patchinfo.ini" le aumentan la version, por ejemplo:

Si es 0.1 ponerle 0.2, si es 0.5 ponerle 0.6

• y suben el pack.rar con la atualizacion ( no hace falta ponerle todos los .epk y eix, solo los que necesiten actualizacion)

• Descarga

http://www.megaupload.com/?d=5DL1WU5M

cualquier error de programacion, porfavor contacten conmigo

espero que les sirva xd

de aqui 1 rato posteo el codigo fuente en la seccion de programacion asi lo podran modificar a su gusto xd

EDITO: aki esta el code http://foro.universojuegos.es/viewtopic.php?f=74&t=4631