Mensajes

Ah ok no habia respondido, gracias  ya me lo descargue y estoy mas entretenido que nada ya lo llevo lejos...
pero escuche algo sobre otra version de este tipo pero no era el CZ, segun era mas nueva, saben algo?

jajajaj pues si pero soy una papa pa jugarlo contra los demas...

Hola pos disculpen por la ignorancia: quisiera saber si hay alguna version de Counter Strike donde no necesariamente tiene que ser multiplayer, ni usando bots, me refiero a misiones programadas y esas cosas... cual es?... muchas gracias

OK gracias man! y que hay sobre lo "otro", se podra?

mmmm interesante...

The file 'C:\Documents and Settings\BillGates\Mis documentos\Descargas\Crackme #1.exe'
contained a virus or unwanted program 'TR/Crypt.ZPACK.Gen' [trojan]
Action(s) taken:
The file was moved to the quarantine directory under the name '4eecf897.qua'.

Te recomiendo que apliques conocimientos y tecnicas de la estrella de la informatica (Redoble de tambores): La ingenieria social....   

Hola que tal, tengo un par de dudas que no alcanzo de aclararme, ya andube buscando pero nada de nada; y pos venia haber si ustedes sabian algo y pudieran ayudarme...

bueno se trata de saber informacion de algun contacto agregado en Hotmail o WinLive, es decir me gustaria saber "en que fecha" agregue o me agrego esa persona, o cuando fue nuestro primer chat....

Y la otra es si pudiera saber cuando me hice mi cuenta de hotmail...

Bueno espero y me ayuden... ahi se ven...

Código (vb) [Seleccionar] Expandir


  Dim Ox As Integer
Dim oY As Integer
Dim sizMap As Integer

Private Sub Form_Load()
    pic(0).Visible = False
    pic(1).Visible = False
    pic(2).Visible = False
    picture2.Visible = False
    pic(0).ScaleMode = 3
    pic(1).ScaleMode = 3
    pic(2).ScaleMode = 3
    picture2.ScaleMode = 3
    pic(0).BorderStyle = 0
    pic(1).BorderStyle = 0
    pic(2).BorderStyle = 0
    picture2.BorderStyle = 0
    pic(0).AutoSize = True
    pic(1).AutoSize = True
    pic(2).AutoSize = True
    picture2.AutoSize = True
    Me.ScaleMode = 3
    Me.AutoRedraw = True
   
    Ox = 0
    oY = 0
    sizMap = 15
    Call DibujarMapa
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 37 And Ox > 0 Then Ox = Ox - 1
    If KeyCode = 38 And oY > 0 Then oY = oY - 1
    If KeyCode = 39 And Ox < picture2.Width - sizMap Then Ox = Ox + 1
    If KeyCode = 40 And oY < picture2.Height - sizMap Then oY = oY + 1
    Call DibujarMapa
End Sub
Public Sub DibujarMapa()
Me.Cls
For y = 0 To sizMap
For x = 0 To sizMap

z = picture2.Point(Ox + x, oY + y)
Debug.Print z

Select Case z


    Case RGB(0, 0, 255)

        EsAgua x * 32, y * 32


    Case RGB(128, 128, 128)

        EsCamino x * 32, y * 32


    Case RGB(0, 255, 0)

        EsLlegada x * 32, y * 32

End Select

Next x
Next y

End Sub
Sub EsAgua(x, y)
Me.PaintPicture pic(0), x, y, 32, 32
End Sub
Sub EsLlegada(x, y)
    Me.PaintPicture pic(1), x, y, 32, 32
End Sub
Sub EsCamino(x, y)
    Me.PaintPicture pic(2), x, y, 32, 32
End Sub


Sin Apis...

Y si utilizaras 2 variables auxiliares, para el origen, "Ox" y "Oy", que seria el lugar apartir de donde se comenzaria a leer el "picture2"?

Código (vb) [Seleccionar] Expandir


Private sub Form_Load()
Ox=0
Oy=0
end sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        if keycode=37 and Ox>0 then Ox=Ox-1
        if keycode=38 and Oy>0 then Oy=Oy-1
        if keycode=39 and Ox<picture2.width then Ox=Ox+1
        if keycode=40 and Oy<picture2.height then Oy=Oy+1
End Sub



Código (vb) [Seleccionar] Expandir



For y = 0 To 15
For x = 0 To 15

z = GetPixel(Form1.Picture2.hdc,Ox + x, Oy + y)
Debug.Print z

Select Case z


    Case RGB(0, 0, 255)

        EsAgua x * 32, y * 32


    Case RGB(128, 128, 128)

        EsCamino x * 32, y * 32


    Case RGB(0, 255, 0)

        EsLlegada x * 32, y * 32

End Select

Next x
Next y



Pos yo creo que para ateos y no ateos, el fin del mundo es sencillamente "la muerte"...

Y la metafora, pienso yo, de "plantar un arbol" no tiene que referirse forzosamente a "ayudar a los demas", si no a siempre tener esperanzas, nunca rendirse, digamos que alguien esta enfermo del corazon, y mañana morira de cancer(y esa persona es conciente), y aun asi se toma los medicamentos para el corazon...