No recomiendo para nada.
La página de registro (para registrarse) es como si enviases un mensaje privado al Admin con tu ID y tu PASS. Y el seguro que irá probando esa ID y pass en distintas páginas, no se si me entendéis. Y no está puesto el link de descarga del cliente. Me huele a tufo xD
Valla tu, gran aporte, la gente que se muere por buscarlos y tu los traes como gominolas xD
Hubiese quedado mejor con un marco, y la explicación del videotutorial es compresible. Muy bueno ^^
(sin rencores ._.)
Es evidente, a ti te resultará complejo por que no estás acostumbrado a este lenguaje, pero es muy sencillo, y más con los colores que te pone el VB xD
Shell es una función utilizada para aplicar/ejecutar otra aplicación y el identificador de tarea de dicha solicitud desde el valor de realimentación. Resumiendo, para aplicar o abrir aplicaciones. En este caso CMD.
También podría ponerse con: Process.Start("cmd.exe /k" + textbox1.text)
Pero no podríamos hacer que escribiese automáticamente el "ping ". Es decir, que Process.Start("cmd.exe /k" + textbox1.text) sería igual que si nosotros en CMD, escribimos lo que hay en el textbox1.
Pero si lo hacemos de una variable, a esa variable le asignamos una función. En este caso = "ping "
Es complejo ahora, pero si le vas pillando el truco y te gusta, es simple 
**Bien, vamos a empezar por lo simple. Como lo único que tenemos (o mejor dicho, tengo) que explicar es solo el botón que realiza la acción de guardar. La continuación de esto: [http://foro.universojuegos.es/viewtopic.php?f=68&t=4317][0]">viewtopic.php?f=68&t=4317
Empezamos 
If My.Computer.FileSystem.DirectoryExists("C:\Cuentas guardadas\Páginas webs\") Then
Quiere decir, que si el directorio C:\Cuentas guardadas\Páginas webs\ existe, no haga nada el programa (es decir, que no cree ninguna carpeta)
else
MkDir("C:\Cuentas guardadas prueb\Páginas webs\")
End If
Esto quiere decir, que si de lo contrario (que es Else) te haga esa ruta:
Resumiendo:
If My.Computer.FileSystem.DirectoryExists("C:\Cuentas guardadas\Páginas webs\") Then
Else
MkDir("C:\Cuentas guardadas prueb\Páginas webs\")
End If
En español, para que lo entendais. Si el directorio C:\Cuentas guardadas\Páginas webs\ existe, no hacer nada, de lo contrario crear el directorio C:\Cuentas guardadas prueb\Páginas webs\ **
If My.Computer.FileSystem.DirectoryExists("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text) Then
MsgBox("Error, esta cuenta ya existe.")
Bien, aqui quiere decir, que si al escribir algo (en el textbox1) ya "existe" (es decir, que esa cuenta o Usuario en este caso, ya lo habeis puesto antes) te muestre ese error, y no te sobreescriba nada.
Else
MkDir("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
Dim guardar As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Usuario.txt")
guardar.WriteLine(TextBox1.Text)
guardar.Close()
Dim guardar2 As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Contraseña.txt")
guardar2.WriteLine(TextBox2.Text)
MsgBox("Cuenta guardada con éxito.")
guardar2.Close()
System.Diagnostics.Process.Start("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
End If
Aquí es algo más largo:
Quiere decir que si de lo contrario (que si la cuenta de Usuario que emos puesto en el Textbox1) no existe te cree el directorio C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text (por ejemplo yo pongo Néstor en el textbox1.text, sería C:\Cuentas guardadas\Páginas webs\Néstor)
Este es más bien un poco complejo para los nuevos usuarios:
Dim guardar As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Usuario.txt")
guardar.WriteLine(TextBox1.Text)
guardar.Close()
Creamos una variable (en este caso guardar, o el nombre que vosotros queráis). System.IO.StreamWriter Inicializa una nueva instancia de la clase StreamWriter para la secuencia especificada, con la codificación UTF-8 y el tamaño de búfer predeterminado. ([http://msdn.microsoft.com/es-es/library/wtbhzte9]0
Y lo guardará en C:\Cuentas guardadas\Páginas webs\ +texbox1.text + "\Usuario.txt"
Quiere decir, que si yo pongo Antonio en el textbox se me guardaría en: C:\Cuentas guardadas\Páginas webs\Antonio\Usuario.txt (dentro de usuario.txt estará lo que hemos tipeado en textbox1.text(Antonio))
Nuestra variable guardar (es la que le he asignado).
Dim guardar As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Usuario.txt")
Realiza la acción de la variable, es decir. la variable "guardar" realizará eso.
Bien, si ponemos guardar.WriteLine(textbox1.text)
hará la acción de la variable "guardar" + lo que hemos escrito en el textbox1.text
System.Diagnostics.Process.Start("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
Quiere decir, que despues de guardar, te llevará al directorio asignado por el textbox1.text
Ejemplo: Yo en el textbox1.text pongo: Pedro pues cuando guarde la cuenta, llevará a: C:\Cuentas Guardadas\Páginas webs\Pedro
System.Diagnostics.Process.Start
Sirve para muchísimas cosas, tanto iniciar procesos (se simplifica a Process.Start), abrir carpetas y páginas webs.
Para abrir un proceso:
Process.Start("cdm.exe")
Para abrir una página:
System.Diagnostics.Process.Start("http://www.universojuegos.es/")
Y hasta aquí todo, como no, ya se que me van a lanzar críticas como escupitajos, así que si alguien no ha entendido algo, le ruego que me lo pregunte y se lo explicaré más detalladamente, ya que tenía prisa y me he tenido que despachar rapidito.
Saludos!
[0]: <a href=
[1]: http://msdn.microsoft.com/es-es/library/wtbhzte9
**Bueno, ya que me aburro voy a hacer un tutorial de como hacer un AccountSaver y a continuación (en otra sección) la explicación del código(a mi manera xD).
Bien, para los que no lo saben el AccountSaver es un programa, que tu metes tu ID, tu PASS y te guardar los 2 archivos en .txt en el directorio que quieras.
Empezamos:
Ponemos:
2 textbox y 1 botón
Hacemos doble click en el botón y ponemos lo siguiente:
If My.Computer.FileSystem.DirectoryExists("C:\Cuentas guardadas\Páginas webs\") Then
Else
MkDir("C:\Cuentas guardadas prueb\Páginas webs\")
End If
If My.Computer.FileSystem.DirectoryExists("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text) Then
MsgBox("Error, esta cuenta ya existe.")
Else
MkDir("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
Dim guardar As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Usuario.txt")
guardar.WriteLine(TextBox1.Text)
guardar.Close()
Dim guardar2 As New System.IO.StreamWriter("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text + "\Contraseña.txt")
guardar2.WriteLine(TextBox2.Text)
MsgBox("Cuenta guardada con éxito.")
guardar2.Close()
System.Diagnostics.Process.Start("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
End If
Y fin del tutorial, podeis cambiarle la ruta. Yo tengo puesto que cuando guarde la cuenta, me lleve a esa dirección: System.Diagnostics.Process.Start("C:\Cuentas guardadas\Páginas webs\" + TextBox1.Text)
A continuación, cuando termine el tutorial de la explicación del código lo podré aquí: [http://foro.universojuegos.es/viewtopic.php?f=73&t=4318][0]">viewtopic.php?f=73&t=4318**
[0]: <a href=
Cuando te registras, te regalan una semana todo lo de los servidores privados, y cada finde hay evento de 100% de exp, yang, drop etc
Si quieres el sistema operativo te recomiendo que busques por directoriowarez.com
Y si quieres temas por google mismamente xD
[http://www.taringa.net/posts/downloads/3304064/Windows-7-Remix-XP-2_2.html][0]">[http://www.taringa.net/posts/downloads/][1] ... P-2_2.html
[0]: <a href=
[1]: http://www.taringa.net/posts/downloads/
Yo era Shinsoo, hasta que se cargaron el login de la página web, y no me puedo hacer cuentas, y sin lo del doble drop, exp, yang y todo eso que te regalan pues como que no me apetece entrar xD
**
Bueno, mi colega playero PurpleFire cumple 6 años, digo... 16 y como no tengo saldo para tocarle las narices por sms o una llamada, y el tuenti me come la cabeza, pues le felicito por aquí, por que encima creo que está en un campamento xDD
Y todo el royo ese, que si cuantos cumples, que si felicidades, que que te han regalado etc. Como el no puede pasarse mucho por aquí pues para cuando lo vea.
He aquí una de nuestras maravillosas fotos que jamás me atreví a subir, con 2 narices jesus! xD
Qué tiempos, y queda menos
Había otras fotos, pero eran demasiado "cañeras" ya sabéis, con cara de imbecil y tal (aunque si no salimos con cara de imbeciles es un milagro xDD)
Y que cumplas muchos más 
**
Pues si, me lo compraré, y si no lo encuentro me lo miro por internet.
Vale, si, axav tiene razón en algunas cosas, "source copiado" uno source copiado, es si lo copias y lo pegas directamente.
Otro muy distinto es que a base de tutoriales hagas uno idéntico.
Vale, puede que te suene raro, pero si tu dices que el mismo source que tiene mi ProgressBar, es el mismo que el que tiene otro es lógico, mas del 100%. ¿Por qué? por que solo se puede hacer de una manera. En este caso, el progressbar de varias.
Y yo uso
Progressbar1.Increment(X) (la X depende de cuanto quieres que aumente por itervalo (1000 intervalos = 1 segundo))
if progressbar1.value = progressbar1.maximum then
end if
Y apartir del "end if", poner lo que quieras que haga cuando la barra de progreso llegue al final. Si otras de los cientos de miles de personas, usan el mismo código para hacer una barra de progreso, no es un source copiado.
De hecho, todos mis programas de Host, IPs y DNS etc. los hice yo a manita y sin tutoriales, por que es de lo más sencillo.
Por ejemplo, ara adivinar el ping:
Dim Nombredevariablequequieras As String
Nombredevariablequequieras = "ping "
Shell("cmd.exe /k") + textbox1.text
Quiere decir, que tu al darle al botón, te hará eso, y en la caja de texto, tendrás que poner la URL.
Si no pones url en el barra de texto CMD te abrirá una ventana y "escribirá" esto: "ping "
Pero si le pones el "+textbox1.text" escribirá: "ping +"lo que hay en la barra de texto""