Mensajes

Código (vb) [Seleccionar] Expandir

SendKeys "^(C)"

De donde sacan esas propeddes? 

Código (vb) [Seleccionar] Expandir

If Check1.Value = 1 Then Text1.Text = "Hola"

Deberías cambiar el nombre del post... 

Este tipo de acontecimiento al parecer se debe a un error propio del archivo que intentas reproducir, prueba con otro, quizás una mala conversión...

Prueba así...

Código (vb) [Seleccionar] Expandir

Format(Time, "h:mm:ss ampm")

Concatenando...

Código (vb) [Seleccionar] Expandir

Shell ("notepad.exe " & ruta)

[es más. el que haya recibido una sola partida de parte mía, que la suba a algún servidor y postee el enlace acá, creo que no hay mejor prueba que esa...]

Bueno... me pierdo unas cuantas horas y resulta que soy un espía 

Primero: drenelly no, no baje el archivo que me dijo, reinstale el S.O. y no recuerdo en que CD deje el enlace que me paso.

Segundo: No creo que por haber dicho "Drenelly o Gravediger me derrotaron la UNICA vez que jugamos" este filtrando info, me parece algo insignificante, además, para como juego NINGUNO de uds. debió haber usado su mejor estrategia, no lo merecía la partida, soy solo un novato (el que empieza).

Tercero: yo NO le he pasado partidas a nadie, si he recibido partidas de Lord Wiliam y de Gravadier, la de lord no me sirvió por la extensión, supongo que es porque no cuento con la expansión, las que me paso gravadier tampoco recuerdo a que CD las pase y NO (repito), No las he pasado a mas nadie, ni lo haré en todo caso...

Cuarto: yo también me he enterado de cómo juegan otros del torneo y no estoy armando la gran polémica por eso, solo es un juego señores, no se lo tomen tan en serio.

En todo caso, lo que se haya dicho, no serviría para derrotar a nadie ¡vamos! se supone que son excelente jugadores, yo no me preocupo por nada, se que no estaré más arriba del 7mo lugar.

De enano a espía  así no se puede...

pd: es más. el que haya recibido una sola partida de parte mía, que la suba a algún servidor y postee el enlace acá, creo que no hay mejor prueba que esa... 


pd2: y este sabado es 10...

Si que sean grabadas las partidas igual todas las estrategias serán reveladas y los que se han filtrado info entre ellos, por ejemplo se como juega Cassiani, Check, y me han contado como juegan gravedier, carlos y sempus, asi que hay para esconder un flush 

Estas alardeando mucho... 

Si, también estoy de accuerdo con que se graben las partidas, pero que no se muestren hasta final del torneo, como dijo Carlos si mal no recuerdo, creo que será inevitable que se filtre info, además, es un juego de ESTRATEGIA y esto ultimo ¡abunda! 

¡Saludos!

Otra forma:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub CmdComprobar_Click()
Dim sPathArchivo As String
   
    sPathArchivo = Environ("WINDIR") & "\System32\" & TextArchivo.Text
   
    MsgBox IIf(ExisteArchivo(sPathArchivo) = True, "¡El archivo existe!", _
    "¡El archivo NO existe!")
End Sub

Public Function ExisteArchivo(sArchivo As String) As Boolean
    ExisteArchivo = IIf(Dir$(sArchivo) = "", False, True)
    'Devolverá false, si Dir$ no encuentra un archivo con el mismo nombre de la _
     variable "sArchivo"
End Function

La verdad hay muchas, será cuestion de gustos...

¡Saludos!

Bien, bien, ya te lo respondieron, aun así te voy a dejar un code que he usado mucho tiempo y en particular, me gusta mucho. Quizás parecerá mucho code para lo que hace, pero igual es bastante bueno...

Código (vb) [Seleccionar] Expandir

Option Explicit

'-------------------------------------
'copy marchoso.ocx %windir%\system32
'regsvr32 marchoso.ocx'
'------------------------------------

Private Sub CmdRegistrar_Click()
    Open "Registra.bat" For Output As #1
            'Copiamos el control a system32
            Print #1, "copy " & Text1.Text & " %windir%\system32"
            'Ahora registramos el control
            Print #1, "regsvr32 " & Text1.Text
           'Borramos el bat
            Print #1, "del Registra.bat"
    Close #1
    'Ejecutamos el bat
    Shell ("Registra.bat"), vbHide
    Unload Me
End Sub

No solo lo registra, sino que antes de hacerlo lo copia en el sistema, hay cantidades de formas, a mi en particular me encanta mezclar bat + vb.

¡Saludos!

Y ya que hablan del "Option Explicit", como consejo, podrías configurar el vb para que siempre asigne la instrucción automáticamente al abrir un nuevo form, modulo, etc.

Para hacer eso, te vas a --> menú Herramientas --> opciones --> solapa Editor --> hay chasqueas la opción --> Requerir declaración de variables, que es justamente lo que hace el Option Explicit.

¡saludos!