Mensajes

El dictador... 

Aclarando las cosas:

- Advierto que solo los 8 inscritos en el primer torneo pueden participar en la partida del sábado (todos contra todos) y la pendiente todos contra el campeón parte 2. 

- Los que recivieron el mp pueden unirse cuando gusten, solo les digo que mientras mas rapido, mas practicas pre-torneo podran realizar.

- Por favor No hagan multi-post (hay un botoncito que dice modificar, úsenlo para agregar los nuevos comentarios).

- NO dejen e-mails, claves de red o el nombre de la misma.

- Lo que van a lograr es que nos cierren o nos bloqueen el post, si siguen así.

- Vamos a jugar el día sábado con la red de siempre (la del torneo anterior), no veo para que crear otra

oye carlos, vi la partida todos con tra el campeón, solo quería decir que tu defensa fue exelente, ja, nunca vi alguien resistir tanto ordadas y ordadas del mal con sólo arqueros y guerrilleros, jaja, si hubiesen conbinado tu defensa, mientras cassiani atacaba, podrian haber ganado. mañana estaré prevenido...

Nos falto, pero podíamos wiiiii, si solo check no hubiese desaparecido 


Bienvenido los nuevos!!

Esta es la lista actual:

1.   gravediger
2.   andavid
3.   Carlos waldo
4.   cassiani
5.   Ch3ckM4t3r
6.   lord william
7.   n@sh
8.   Nevao
9.   nevadito
10.   Drenelly
11.   caballero-maldito
12.   Krackwar

Esperamos por 4 y arrancamos una semana despúes...

Investiga sobre el RichTexbox...

Entonces si vamos por 16 y que paso con los nuevos ¿los aceptamos? 

Recuerden que el ultimo nuevo que entro quedo campeón 

¿Te nos unes Dren?

Nevao y nevadito son hermanos? 

Después de que los agreguen se les pasara el nombre de la red y la clave...

Necesario advertirles que NO podran jugar con la misma IP asignada por el hamachi (por si acaso) eso haria parecer que son la misma persona con intensiones de participar doble 

Además de que no podrían jugar uno grupal siendo así. 

gravedier, creo que vamos a 16 

Lord, creo que tienes razón 

Necesito, no que se pueda seleccionar uno de cada frame, si no uno de todo el Formulario. Es decir, seleccione cualquiera de lso 7 del formulario, los demas cambien su Value a False.

A mi si que se me ha ocurrido algo, pero con option1_Click () el codigo End Sub option2_Click () el codigo End Sub.... y  es un coñazo... por que tengo 7, pero imaginaros que tengo tropecientos y la madre... el programa pesaria mas que una vaca en brazos, y seria igual de torpe que un pulpo en un garaje...

O creas una matriz de controles y le agregas este code:

Código (vb) [Seleccionar] Expandir


For I = 0 To 6
      If I <> Index Then Option1(I).Value = False
Next
'Index 0 y 1 para el form1 y el resto para el form2, total 7


Es cuestión de imaginar un poco

Ya se les ha enviado a todos el mp con el nombre de la nueva red y su respectiva clave, pero solo CarlosWaldo se ha unido ¿qué os pasa? ¿es que a caso no quieren practicar antes de que comience el torneo?

Sigan confiándose y gravedier los aniquilara a todos yo si estoy practicando 

Con decirles que la ultima partida fue tres contra el campeón y ganamos de pura suerte, por cuestiones de tiempo  sino nos desaparece 

vamos unanse!!

Son funciones...

Código (vb) [Seleccionar] Expandir

'ASC devuelve un valor Integer que representa el código de _
carácter correspondiente a un carácter.
MsgBox Asc("a") 'esto devolvera 97 según la ASCII

'Chr devuelve el carácter asociado al código de carácter especificado.
MsgBox Chr(97) 'esto devolvera "a" según la ASCII

A ver prueba así, suponiendo que tienes el texbox y un botón de aceptar en tu aplicación:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Text1.Text = "Introduzca su contraseña"
   
    'Que el texbox no reciba el foco al inciarse la aplicacion _
    se supone que hay un botón de aceptar
   
    'lo haces desde tiempo de diseño, pero lo coloco acá para que lo veas...
    CmdAceptar.TabIndex = 0
    Text1.TabIndex = 1
End Sub

Private Sub Text1_GotFocus()
     If Text1.Text = "Introduzca su contraseña" Then
        Text1.Text = ""
        Text1.PasswordChar = "*"
    End If
End Sub

Private Sub Text1_LostFocus()
    If Len(Text1.Text) = 0 Then
        Text1.Text = "Introduzca su contraseña"
        Text1.PasswordChar = ""
    End If
End Sub


Código (vb) [Seleccionar] Expandir

Objeto.RegDelete ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName)

ya encontre un ejemplo muy sencillo, y usando apis. en recursosvisualbasic.

Hay varias formas:

Código (vb) [Seleccionar] Expandir


Set Objeto = CreateObject("wscript.shell")
   
Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" _
    & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Set Objeto = Nothing