Cita de: Kase en 26 Agosto 2011, 04:12 AM
el ajedres no es un juego de pensar
EPIC FAIL !!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Kase en 26 Agosto 2011, 04:12 AM
el ajedres no es un juego de pensar
Cita de: EFEX en 24 Agosto 2011, 18:50 PM
Che Eternal Idol ¿ y cristina te lleva a las protestas no ? Me dijeron que alquila unos colectivos y los lleva a las protestas, bueno eso fue en la epoca del marido ahora no se, vos sabes... que yo pensaba en colarme con unos amigos, por que decìan que hacian unos buenos choris, pero te pregunto ¿estaban buenos los que te prepararon?
Pensaba en ir y colarme.
![]()
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("User32.dll", SetLastError:=True)> _
Private Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = CapturarPantalla(&H101A2)
End Sub
Private Function CapturarPantalla(ByVal pHandle As Integer) As Bitmap
Dim g As Graphics = Me.CreateGraphics
Dim bmp As New Bitmap(Me.Size.Width, Me.Size.Height, g)
Dim memoryGraphics As Graphics = Graphics.FromImage(bmp)
Dim dc As IntPtr = memoryGraphics.GetHdc()
Dim vCapturo As Boolean = PrintWindow(pHandle, dc, Nothing)
memoryGraphics.ReleaseHdc(dc)
memoryGraphics.Dispose()
Return bmp
End Function
End Class
Dim vFechaEjecutar As String
Dim vHoraEjecutar As String
Private Sub Form_Load()
' Cambia los valores de fecha y hora para probar manualmente
vFechaEjecutar = "16/07/2011"
vHoraEjecutar = "17:32"
With Timer1
.Interval = 1000
.Enabled = True
End With
End Sub
Private Sub Proceso1()
MsgBox ("se ejecuto el proceso")
End Sub
Private Sub Timer1_Timer()
Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora
If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
Timer1.Enabled = False
Call Proceso1
End If
End Sub
Cita de: pitoloko en 13 Julio 2011, 18:04 PM
porque aún no entiendo bien las funciones básicas xD...