Mensajes

Pos con un poquito de sentido comun podras darte cuenta que si cambias:

Código (vb) [Seleccionar] Expandir

if keycode = vbkeyf9 then por

Código (vb) [Seleccionar] Expandir

if keycode = vbkeyf8 then Seactivara con F8 y no con F9:
http://msdn.microsoft.com/en-us/library/aa243025%28v=vs.60%29.aspx

Salud!

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    'Accion que realizaras al picar el boton
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then
    Call Command1 'Que haga lo mismo que hace cuando le picas al boton
End If
End Sub


Private Sub Form_Load()
    Me.KeyPreview = True
End Sub


Espero y te sirva... salud!... hip!

Y si es en el rezise, pero restringiendolo solo al momento de cargar?    :

Código (vb) [Seleccionar] Expandir


dim Cargado as boolean

private sub Form_Rezise()
   if not Cargado then
      Webb.W...
      Webb.H...
       Cargado = True
   end if
end sub


Salud!

"option explicit"?

Esa opcion, cuando se activa, debes ser extricto al usar variables ya que antes debes de declararlas. Si esta escrito en la parte superior del codigo "option explicit" es que esta activado. Personalmente te recomiendo que lo utilices...

Código (vb) [Seleccionar] Expandir


Private Sub Tirada_Click()
dim contador as integer
For Contador = 1 To val(NumTiradas.Text)
Dado.AddItem (Int(6 * Rnd) + 1)
Next
End Sub


Lo de "Val(numtiradas.text)" es extra, pero necesario ya que evita el error del usuario de agregar un dato no numerico en el "textbox", por ejemplo "a"...

Salud!

Código (vb) [Seleccionar] Expandir


Azul="Arriba"
print Azul
cls


Salud...hip!

http://sdpnoticias.com/ luego de que este sitio publicara informacion reelevante y algo incomoda para ciertos politicos mexicanos, el sitio sufrio un ataque por lo que estuvo caido durante unas horas el dia de ayer. Personas vinculadas con el sitio afirman saber la fuente de los ataques, y culpan directamente a los politicos "afectados" con dicha informacion.

Esta no es la primera vez que un sitio electronico incomodo para ciertos grupos de poder, es blanco de ataques, ya que algunos videos criticos relacionados con la politica hospedados en youtube, vimeo y tu.tv fueron bloqueados y las cuentas eliminadas.
Cabe mencionar lo absurdo de las denuncias, pues se contrato a un grupo llamado Asesoria Juridica de las Artes para imponer la censura quienes denunciaban atentados contra los derechos de autor cuando solo sale una persona hablando frente a la camara: http://el5anto.blogspot.com/2011/06/el-pricontra-el5antuario.html

Y estos que censuran y atacan medios alternativos libres y sin fines de lucro, que solo se dedican a dar una opinion alternativa de lo que los poderos difunden... no son "terroristas informaticos"?

Código (vb) [Seleccionar] Expandir


dim ff as long
dim archivo as string, contenido as string

archivo="c:\eltxt.txt"

'Asi sacas el contenido del archivo
ff=freefile
open archivo for binary as ff
contenido=space$(lof(ff))
get ff,,contenido
close ff

'Asi juntas el contenido mas la nueva informacion
contenido = contenido & " " & nuevaInfo 'Un espacion para que no quede junto :D

'Asi guardas la "nueva" informacion
ff=freefile
open archivo for binary as ff
put ff,,contenido
close ff



Salud!

Código (vb) [Seleccionar] Expandir

Function SHL(ByVal tStr As Long, ByVal count As Integer) As Long
    Dim Bc As Integer
    Dim Rc As Integer
   
    Bc = Int(count / 4)
    Rc = count Mod 4
    SHL = tStr
   
    For i = 1 To Bc
        SHL = SHL * 16
    Next
   
    For i = 1 To Rc
        SHL = SHL * 2
    Next
End Function

Function SHR(ByVal tStr As String, ByVal count As Integer) As String
    Dim Bc As Integer
    Dim Rc As Integer
   
    Bc = Fix(count / 4)
    Rc = count Mod 4
    SHR = tStr
   
    For i = 1 To Bc
        SHR = Fix(SHR / 16)
    Next
   
    For i = 1 To Rc
        SHR = Fix(SHR / 2)
    Next
End Function

Function DectoBin(ByVal tStr As String) As String
    Dim cp As Variant
    Dim rval As Double
    tStr = Trim$(tStr)
    DectoBin = ""

    rval = Val(tStr)
   
    While rval > 0
        If Mid(tStr, Len(tStr), 1) = "1" Or Mid(tStr, Len(tStr), 1) = "3" Or Mid(tStr, Len(tStr), 1) = "5" Or Mid(tStr, Len(tStr), 1) = "7" Or Mid(tStr, Len(tStr), 1) = "9" Then
            DectoBin = "1" & DectoBin
            rval = rval - 1
        Else
            DectoBin = "0" & DectoBin
        End If
        rval = Fix(rval / 2)
        tStr = Str$(rval)
    Wend
    If DectoBin = "" Then DectoBin = 0
End Function

Function BintoDec(ByVal tStr As String) As String
    Dim cp As Double
   
    BintoDec = 0
    cp = 1

    For i = Len(tStr) To 1 Step -1
        If i < Len(tStr) Then cp = cp * 2
        BintoDec = BintoDec + Mid(tStr, i, 1) * cp
    Next
End Function


Jeje pues estas funciones las hice hace tiempo cuando cree mi primer keygen para el Need For Speed Undergroud, ya que me fui explorando el programa en el OllyDbg y habiendo funciones que no entendia en si para que servian (SHL y SHR) solamente las copie, y los parametros son String y no aceptan negativos(creo)... salud!

Actualizaste el Flash Player despues? Porque instalar el Flash 8 Te pisa las versiones posteriores por mas que marques que no se instale

Por supuesto, eso es de ley, si no no me deja reproducir en youtube 
Ademas Flash 8 lo tengo instalado hace tiempo por lo que ya he actualizado codecs y plugins... muchas veces...

Muchas gracias y salud!

Pues creo que los archivos FLV no tienen vista previa. Uso Firefox 4 y, como otro dato, tengo instalado el Flash 8 (sera reelevante?)