Mensajes

A ver, a ver, a ver:

Va a haber cervezas?... gratis?

Si no, esta de mas.

Código (vb) [Seleccionar] Expandir


Text1.Text = App.Path & "\Archivo.txt"
Open Text1.Text For Output As #1
...

Dim miVariableCadena As String
miVariableCadena = App.Path & "\Archivo.txt"
Open miVariableCadena For Output As #1
...


Salud!...¡hip!

[@EFEX]

Castlevania:



snow bros:





Ahh! que tiempos, que tiempos!

Recuerdo los "ya duermete, que ya es tarde, mañana te tienes que levantar para ir a la escuela!", "apaga esa cochinada", "te vas a enfermar de los ojos", "ya estas pegado otra vez a ese aparato?"

Pero mas recuerdo la "falsificacion de monedas" que haciamos para irnos a las maquinitas  

@EFEX
Islander

Hay una sección especial de Visual Basic, donde te resolverian mas rapida la duda. Por lo pronto podrias usar tu MAC, o comparar nombre de usario, equipo. Incluso generar una clave con esa informacion...

Salud!

Damas chinas, futbol, canicas, trompos, la roña, quemados, el bote robado 

Pero tambien:

Zombies Ate My Neighbors:


Super Ghouls 'N Ghost


Y pues Islander, Mario Bros, tetris, pacman, Street Fighter II, Contra, Super Contra, Super Sideckicks 2, International Super Star Soccer, Metal Slug, Zelda y... uff!

[@BlackZeroX▓▓▒▒░░]

Como no tenia (y no tengo) nada que hacer me puse a tratar de hacer una especie de teclado virtual y esto es lo que logre:
A lo mejor no es el mejor, pero al fin y al cabo es mi teclado virtual... 

Código (vb) [Seleccionar] Expandir


Private Type Tecla
    Caption As String
    X As Integer
    Y As Integer
End Type

Const BCKCOLOR = vbBlack
Const FNTCOLOR = vbWhite

Dim TECLA_WDT As Integer
Dim TECLA_HGT As Integer
Dim RAIZ_X As Integer
Dim RAIZ_Y As Integer

Dim GBL_M_X As Integer
Dim GBL_M_Y As Integer

Dim Buffer As String

Dim teclado(0 To 39) As Tecla

Private Sub pinta_Teclado()
    Me.Line (RAIZ_X, RAIZ_Y)-(RAIZ_X + TECLA_WDT * 10, RAIZ_Y + TECLA_HGT * 4), BCKCOLOR, BF
    Me.FORECOLOR = FNTCOLOR
    For i% = 0 To 39
        Me.Line (RAIZ_X + teclado(i).X * TECLA_WDT, RAIZ_Y + teclado(i).Y * TECLA_HGT)- _
            (RAIZ_X + (teclado(i).X + 1) * TECLA_WDT, RAIZ_Y + (teclado(i).Y + 1) * TECLA_HGT) _
            , FNTCOLOR, B
        Me.CurrentX = RAIZ_X + (teclado(i).X * TECLA_WDT) + _
                (TECLA_WDT / 2 - Me.TextWidth(teclado(i).Caption) / 2)
        Me.CurrentY = RAIZ_Y + (teclado(i).Y * TECLA_HGT) + _
                (TECLA_HGT / 2 - Me.TextHeight(teclado(i).Caption) / 2)
        Me.Print teclado(i).Caption
    Next
End Sub

Private Sub inicializa_Teclado()
    Dim reserved() As Integer
    Dim Teclas As String
    Dim rndPos As Integer
    Dim cVal As Integer
   
    Teclas = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ."
    ReDim reserved(0 To 37)
    For i% = 0 To 37
        reserved(i) = i
    Next i
   
    For i% = 0 To 37
        rndPos = Int(Rnd * UBound(reserved))
        cVal = reserved(rndPos)
        For j% = rndPos To UBound(reserved) - 1
            reserved(j) = reserved(j + 1)
        Next j
       
        If UBound(reserved) > 0 Then ReDim Preserve reserved(UBound(reserved) - 1)
       
        teclado(i).Y = Int(cVal / 10)
        teclado(i).X = cVal - teclado(i).Y * 10
        teclado(i).Caption = Mid(Teclas, i + 1, 1)
    Next i
   
    teclado(38).Y = 3
    teclado(38).X = 8
    teclado(38).Caption = "OK"
   
    teclado(39).Y = 3
    teclado(39).X = 9
    teclado(39).Caption = "BCK"
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    GBL_M_X = -1: GBL_M_Y = -1
    If X >= RAIZ_X And Y >= RAIZ_Y And X <= RAIZ_X + (TECLA_WDT * 10) And _
    Y <= RAIZ_Y + (TECLA_WDT * 4) Then
        GBL_M_X = Fix(((X - RAIZ_X) / TECLA_WDT))
        GBL_M_Y = Fix(((Y - RAIZ_Y) / TECLA_HGT))
    End If
End Sub

Private Sub Form_Click()
    Dim isFound As Boolean
    Dim index As Integer
    If GBL_M_X <> -1 And GBL_M_Y <> -1 Then
        While index <= 39 And Not isFound
            If teclado(index).X = GBL_M_X And teclado(index).Y = GBL_M_Y Then
                isFound = True
            Else
                index = index + 1
            End If
        Wend
       
        If teclado(index).Caption = "BCK" Then
            If Len(Buffer) > 0 Then
                If Len(Buffer) = 1 Then
                    Buffer = ""
                Else
                    Buffer = Mid(Buffer, 1, Len(Buffer) - 1)
                End If
            End If
        ElseIf teclado(index).Caption = "OK" Then
            MsgBox "Buffer: " & Chr$(34) & Buffer & Chr$(34)
        Else
            Buffer = Buffer & teclado(index).Caption
        End If
       
        Me.Caption = Buffer
    End If
End Sub

Private Sub Form_Load()
    Randomize
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Call inicializa_Teclado
    Call pinta_Teclado
End Sub

Private Sub Form_Resize()
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Me.Cls
    Call pinta_Teclado
End Sub



@BlackZeroX▓▓▒▒░░
Pues no me refiero a este "post" especificamente. No puedo citar ningun comentario desde hace tiempo y no estaba planteando mi duda para poder citar ahorita, de hecho no planeo citar a nadie (por el momento), pero si pienso hacerlo, a lo mejor, mas adelante... ¡jum! y como sigo sin tener nada que hacer tratare de aprender a leer...

[PD:]

Emm pues asi sea el sistema mas seguro del mundo, siempre habra la forma de sacarle la contraseña, ademas: ¿Que no habiamos quedado en el teclado virtual?, ya no seria de caracteres, si no de puntos en la pantalla, ademas podrias variar la posicion o el tamaño de las teclas del teclado virtual a cada intento de ingresar la contraseña...

PD: ¿Alguien sabe por que chingaos no puedo citar la respuesta de otro usuario?  :

¡Un error ha ocurrido!
No se pudo cargar la plantilla 'quotefast'.
Atrás

Salud!

El tetris sufrio una sobredosis de algo  , por que las figuras se quedan suspendidas!

Y claro, tienes que escojer entre bloqueo de teclado o jugar tetris, la opcion del teclado digital estaria bien. Pero tambien me gustaria(en lo personal, claro) que la manera de cerrarlo fuera mas facil, una contraseña por ejemplo y con eso.

No veo la necesidad de calendario o calculadora... si de juegos!... muchos juegos! 

Salud!

  Pues no se lo que me pasa, pero no entiendo tu idea 

Pero creo que necesitaras usar temas un poquito mas avanzados sobre manejo de teclado y mouse, busca informacion por otros lares (google por ejemplo). Pero por lo pronto esto a lo mejor te ayuda un poquito :

http://foro.elhacker.net/programacion_visual_basic/ayudenme_a_crear_un_autoclick-t301743.0.html

Salud!

Busca informacion de "Autoclicker"