Publicados por Ninjesta

@Anghios said:

Dentro del archivo Root.epk

ok gracias

No encuentro el serverinfo.py, donde está?

@LINQUIERON said:

Cierto!!

Sin virus!!

Es verdad no se puede descargar creo...

Si alguien lo consigue descargar que lo suba por favor

EDITO: Ya lo pude descargar, pero no funciona

@VictorxD said:

Omg ? xD

P/D: lo pudiste descargar? lo podés subir a Media Fire, MegaUpload o sino igual la porquería de RapidShare xD, así lo escaneo

Además no lo puedo descargar *_*, alguien puede?

P/D: VictorXD, ahí no escaneó el archivo, sino la página

**[alinear-centro][/alinear-centro]

P/D: Sepan que soy nuevo en VB.net
[alinear-centro][attachment=0][/alinear-centro][alinear-centro][attachment=1][/alinear-centro]

[alinear-centro]Aquí os traigo la explicación de las partes más importantes del código de fuente ^^.[/alinear-centro]

Veamos primero el IF de la contraseña:

        If TextBox1.Text = ("Ninjesta") Then

Esto se podría traducir en "Si CajaDeTexto.Texto = ("Ninjesta") Entonces.."
Significa que si sucede X cosa ( X Cosa en este caso es si en la caja de texto dice Ninjesta) entonces se ejecuta una acción que es esta:

           Principal.Show()
            Me.Hide()
        Else
            MsgBox("Contraseña incorrecta o en blanco")
        End If

Veamos:

Principal.Show()

Muestra el formulario principal, o sea "lo que viene" después de loguearte

Me.Hide()

Me = es igual a mi, Hide a ocultar, o sea en "total" significa que se oculta el formulario de login y se abre la ventana principal.

        Else
            MsgBox("Contraseña incorrecta o en blanco")
        End If

"Else" se podría definir como un "sino", o sea si no pasa que en la caja de texto diga Ninjesta..

            MsgBox("Contraseña incorrecta o en blanco")

Envía este MsgBox, que es un cuadro informativo, que hace precisamente eso, informarnos que no se ha escrito lo que se debía, sino otra cosa (Lo que se debía escribir era: Ninjesta)

End If

Final del IF, aquí termina "la acción" principal en este caso.

Por lo que tendríamos algo así:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = ("Ninjesta") Then
            Principal.Show()
            Me.Hide()
        Else
            MsgBox("Contraseña incorrecta o en blanco")
        End If
    End Sub
End Class

Pasamos a lo que seguramente sea lo más importante del "escenario" "que viene" luego del login:

 Dim Num1 = Int(Rnd() * 9)
        Dim Num2 = Int(Rnd() * 9)
        Dim Num3 = Int(Rnd() * 9)
        Dim Num4 = Int(Rnd() * 9)
        Dim Num5 = Int(Rnd() * 9)
        Dim Num6 = Int(Rnd() * 9)
        Dim Num7 = Int(Rnd() * 9)
        Dim Num8 = Int(Rnd() * 9)
        TextBox1.Text = (Num1 & Num2 & Num3 & Num4 & Num5 & Num6 & Num7 & Num8)

Bien:

 Dim Num1 = Int(Rnd() * 9)
        Dim Num2 = Int(Rnd() * 9)
        Dim Num3 = Int(Rnd() * 9)
        Dim Num4 = Int(Rnd() * 9)
        Dim Num5 = Int(Rnd() * 9)
        Dim Num6 = Int(Rnd() * 9)
        Dim Num7 = Int(Rnd() * 9)
        Dim Num8 = Int(Rnd() * 9)

Esto significa que se generarán 8 números al azar (Dim = Variable), aquí por ejemplo cada número está en la función Random (Random = Azar), por lo que el número1 se define por la variable (Dim) Num1, y así con las demás.

        TextBox1.Text = (Num1 & Num2 & Num3 & Num4 & Num5 & Num6 & Num7 & Num8)

esto es lo final, cambia el texto de TextBox1 (Esto pasa al hacer click en el botón generar, este es el código de ese mismo) por los números uno seguido de otro, P/EJ: Si la variable (Dim) Num1 dá el número 1, la Num2 el número 2 y así sucesivamente, daría esto:
12345678, lo cuál está bien, ya que he utilizado este sistema para ContraZec.
Aquí culmina mi tutorial, saludos!**

@Hawkings said:

Pero en las pruebas alguna vez te ha salido un nueve??
Yo repito que en visual basic no estoy seguro pero por lo que veo en google:
randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
Aquí, upperbound es el número mayor en el intervalo y lowerbound es el número menor.
en este caso el menor es 0 y el mayor 9, es decir:
randomvalue = CInt(Int((9-0 +1)*Rnd() + 0))
o lo que es lo mismo:
randomvalue = CInt(Int(10*Rnd())
(la fórmula esa la saque de http://msdn.microsoft.com/es-es/library/f7s023d2%28VS.80%29.aspx)
Saludos, y mira a ver si te sale algun nueve con ese código.

Luego me fijo y edito, ahora estoy fuera de casa

Edito: Pues tal, tenías razón O_O, no sale ningún 9

Envíame MP por aquí mismo en el foro
-Sirvo de SGM
-Puedo montar el server por No-IP.
-Tengo mucho conocimiento de comandos y experiencia (MUCHÍSIMA) en metin2
-Excelente ortografía (Sin uso de correctores )))
-Disponibilidad avanzada. (Mucho tiempo para el servidor)

Espero tu MP. Att Ninjesta / 99super

@Anghios said:

Si, subiré también muchos más programas. Os van a gustar mucho

Que bien, yo tengo varios programas en mente pero me atasco en algo o simplemente no tengo idea ^^, P/D: Me acabas de hacer acordar de algo que no te pregunté, voy al MP XD

jojo que bien que los hagas código abierto, así ir investigando este lenguaje O.o