WindowSticker
· Adhiere el Form a los bordes de la pantalla al mover la ventana cerca de los bordes.

Ejemplo de uso:

Private WindowSticker As New WindowSticker(ClientForm:=Me) With {.SnapMargin = 35}

' ***********************************************************************
' Author           : Elektro
' Last Modified On : 09-19-2014
' ***********************************************************************
' <copyright file="WindowSticker.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Usage Examples "
 
' Private WindowSticker As New WindowSticker(ClientForm:=Me) With {.SnapMargin = 35}
 
'Private Sub Form1_Load() Handles MyBase.Shown
 
'    WindowSticker.Dispose()
'    WindowSticker = New WindowSticker(Form2)
'    WindowSticker.ClientForm.Show()
 
'End Sub
 
#End Region
 
#Region " Imports "
 
Imports System.ComponentModel
Imports System.Runtime.InteropServices
 
#End Region
 
#Region " WindowSticker "
 
''' <summary>
''' Sticks a Form to a Desktop border (if the Form is near).
''' </summary>
Public Class WindowSticker : Inherits NativeWindow : Implements IDisposable
 
#Region " Properties "
 
#Region " Public "
 
    ''' <summary>
    ''' Gets the client form used to stick its borders.
    ''' </summary>
    ''' <value>The client form used to stick its borders.</value>
    Public ReadOnly Property ClientForm As Form
        Get
            Return Me._ClientForm
        End Get
    End Property
    Private WithEvents _ClientForm As Form = Nothing
 
    ''' <summary>
    ''' Gets or sets the snap margin (offset), in pixels.
    ''' (Default value is: 30))
    ''' </summary>
    ''' <value>The snap margin (offset), in pixels.</value>
    Public Property SnapMargin As Integer
        Get
            Return Me._SnapMargin
        End Get
        Set(ByVal value As Integer)
            Me.DisposedCheck()
            Me._SnapMargin = value
        End Set
    End Property
    Private _SnapMargin As Integer = 30I
 
#End Region
 
#Region " Private "
 
    ''' <summary>
    ''' Gets rectangle that contains the size of the current screen.
    ''' </summary>
    ''' <value>The rectangle that contains the size of the current screen.</value>
    Private ReadOnly Property ScreenRect As Rectangle
        Get
            Return Screen.FromControl(Me._ClientForm).Bounds
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the working area of the current screen.
    ''' </summary>
    ''' <value>The working area of the current screen.</value>
    Private ReadOnly Property WorkingArea As Rectangle
        Get
            Return Screen.FromControl(Me._ClientForm).WorkingArea
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the desktop taskbar height (when thet taskbar is horizontal).
    ''' </summary>
    ''' <value>The desktop taskbar height (when thet taskbar is horizontal).</value>
    Private ReadOnly Property TaskbarHeight As Integer
        Get
            Return Me.ScreenRect.Height - Me.WorkingArea.Height
        End Get
    End Property
 
#End Region
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Windows Message Identifiers.
    ''' </summary>
    <Description("Messages to process in WndProc")>
    Public Enum WindowsMessages As Integer
 
        ''' <summary>
        ''' Sent to a window whose size, position, or place in the Z order is about to change.
        ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms632653%28v=vs.85%29.aspx
        ''' </summary>
        WM_WINDOWPOSCHANGING = &H46I
 
    End Enum
 
#End Region
 
#Region " Structures "
 
    ''' <summary>
    ''' Contains information about the size and position of a window.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms632612%28v=vs.85%29.aspx
    ''' </summary>
    <StructLayout(LayoutKind.Sequential)>
    Public Structure WINDOWPOS
 
        ''' <summary>
        ''' A handle to the window.
        ''' </summary>
        Public hwnd As IntPtr
 
        ''' <summary>
        ''' The position of the window in Z order (front-to-back position). 
        ''' This member can be a handle to the window behind which this window is placed, 
        ''' or can be one of the special values listed with the 'SetWindowPos' function. 
        ''' </summary>
        Public hwndInsertAfter As IntPtr
 
        ''' <summary>
        ''' The position of the left edge of the window.
        ''' </summary>
        Public x As Integer
 
        ''' <summary>
        ''' The position of the top edge of the window.
        ''' </summary>
        Public y As Integer
 
        ''' <summary>
        ''' The window width, in pixels.
        ''' </summary>
        Public width As Integer
 
        ''' <summary>
        ''' The window height, in pixels.
        ''' </summary>
        Public height As Integer
 
        ''' <summary>
        ''' Flag containing the window position.
        ''' </summary>
        Public flags As Integer
 
    End Structure
 
#End Region
 
#Region " Constructor "
 
    ''' <summary>
    ''' Initializes a new instance of WindowSticker class.
    ''' </summary>
    ''' <param name="ClientForm">The client form to assign this NativeWindow.</param>
    Public Sub New(ByVal ClientForm As Form)
 
        ' Assign the Formulary.
        Me._ClientForm = ClientForm
 
    End Sub
 
    ''' <summary>
    ''' Prevents a default instance of the <see cref="WindowSticker"/> class from being created.
    ''' </summary>
    Private Sub New()
    End Sub
 
#End Region
 
#Region " Event Handlers "
 
    ''' <summary>
    ''' Assign the handle of the target Form to this NativeWindow,
    ''' necessary to override target Form's WndProc.
    ''' </summary>
    Private Sub SetFormHandle() Handles _ClientForm.HandleCreated, _ClientForm.Load, _ClientForm.Shown
 
        If (Me._ClientForm IsNot Nothing) AndAlso (Not MyBase.Handle.Equals(Me._ClientForm.Handle)) Then
 
            MyBase.AssignHandle(Me._ClientForm.Handle)
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Releases the Handle.
    ''' </summary>
    Private Sub OnHandleDestroyed() Handles _ClientForm.HandleDestroyed
 
        MyBase.ReleaseHandle()
 
    End Sub
 
#End Region
 
#Region " WndProc "
 
    ''' <summary>
    ''' Invokes the default window procedure associated with this window to process messages.
    ''' </summary>
    ''' <param name="m">
    ''' A <see cref="T:System.Windows.Forms.Message" /> that is associated with the current Windows message.
    ''' </param>
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        If (Me._ClientForm IsNot Nothing) AndAlso (m.Msg = WindowsMessages.WM_WINDOWPOSCHANGING) Then
 
            Me.SnapToDesktopBorder(ClientForm:=Me._ClientForm, Handle:=m.LParam, widthAdjustment:=0)
 
        End If
 
        MyBase.WndProc(m)
 
    End Sub
 
#End Region
 
#Region " Private Methods "
 
    ''' <summary>
    ''' Sticks a Form to a desktop border (it its near).
    ''' </summary>
    ''' <param name="ClientForm">The client form used to stick its borders.</param>
    ''' <param name="Handle">A pointer to a 'WINDOWPOS' structure that contains information about the window's new size and position.</param>
    ''' <param name="widthAdjustment">The border width adjustment.</param>
    Private Sub SnapToDesktopBorder(ByVal ClientForm As Form,
                                    ByVal Handle As IntPtr,
                                    Optional ByVal widthAdjustment As Integer = 0I)
 
        Dim newPosition As WINDOWPOS = CType(Marshal.PtrToStructure(Handle, GetType(WINDOWPOS)), WINDOWPOS)
 
        If (newPosition.y = 0) OrElse (newPosition.x = 0) Then
            ' Nothing to do.
            Exit Sub
        End If
 
        ' Top border (check if taskbar is on top or bottom via WorkingRect.Y)
        If (newPosition.y >= -SnapMargin AndAlso (Me.WorkingArea.Y > 0 AndAlso newPosition.y <= (Me.TaskbarHeight + Me.SnapMargin))) _
        OrElse (Me.WorkingArea.Y <= 0 AndAlso newPosition.y <= (SnapMargin)) Then
 
            If Me.TaskbarHeight > 0 Then
                ' Horizontal Taskbar
                newPosition.y = Me.WorkingArea.Y
            Else
                ' Vertical Taskbar
                newPosition.y = 0
            End If
 
        End If
 
        ' Left border
        If (newPosition.x >= Me.WorkingArea.X - Me.SnapMargin) _
        AndAlso (newPosition.x <= Me.WorkingArea.X + Me.SnapMargin) Then
 
            newPosition.x = Me.WorkingArea.X
 
        End If
 
        ' Right border.
        If (newPosition.x + Me._ClientForm.Width <= Me.WorkingArea.Right + Me.SnapMargin) _
        AndAlso (newPosition.x + Me._ClientForm.Width >= Me.WorkingArea.Right - Me.SnapMargin) Then
 
            newPosition.x = (Me.WorkingArea.Right - Me._ClientForm.Width)
 
        End If
 
        ' Bottom border.
        If (newPosition.y + Me._ClientForm.Height <= Me.WorkingArea.Bottom + Me.SnapMargin) _
        AndAlso (newPosition.y + Me._ClientForm.Height >= Me.WorkingArea.Bottom - Me.SnapMargin) Then
 
            newPosition.y = (Me.WorkingArea.Bottom - Me._ClientForm.Height)
 
        End If
 
        ' Marshal it back.
        Marshal.StructureToPtr([structure]:=newPosition, ptr:=Handle, fDeleteOld:=True)
 
    End Sub
 
#End Region
 
#Region " Hidden Methods "
 
    ''' <summary>
    ''' Determines whether the specified System.Object instances are the same instance.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Private Shadows Sub ReferenceEquals()
    End Sub
 
    ''' <summary>
    ''' Assigns a handle to this window.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub AssignHandle()
    End Sub
 
    ''' <summary>
    ''' Creates a window and its handle with the specified creation parameters.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub CreateHandle()
    End Sub
 
    ''' <summary>
    ''' Destroys the window and its handle.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub DestroyHandle()
    End Sub
 
    ''' <summary>
    ''' Releases the handle associated with this window.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub ReleaseHandle()
    End Sub
 
    ''' <summary>
    ''' Retrieves the window associated with the specified handle.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Private Shadows Sub FromHandle()
    End Sub
 
    ''' <summary>
    ''' Serves as a hash function for a particular type.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub GetHashCode()
    End Sub
 
    ''' <summary>
    ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Function GetLifeTimeService()
        Return Nothing
    End Function
 
    ''' <summary>
    ''' Obtains a lifetime service object to control the lifetime policy for this instance.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Function InitializeLifeTimeService()
        Return Nothing
    End Function
 
    ''' <summary>
    ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Function CreateObjRef()
        Return Nothing
    End Function
 
    ''' <summary>
    ''' Determines whether the specified System.Object instances are considered equal.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub Equals()
    End Sub
 
    ''' <summary>
    ''' Returns a String that represents the current object.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub ToString()
    End Sub
 
    ''' <summary>
    ''' Invokes the default window procedure associated with this window.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub DefWndProc()
    End Sub
 
#End Region
 
#Region " IDisposable "
 
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    Private IsDisposed As Boolean = False
 
    ''' <summary>
    ''' Prevent calls to methods after disposing.
    ''' </summary>
    ''' <exception cref="System.ObjectDisposedException"></exception>
    Private Sub DisposedCheck()
 
        If Me.IsDisposed Then
            Throw New ObjectDisposedException(Me.GetType().FullName)
        End If
 
    End Sub
 
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' </summary>
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
 
    ''' <summary>
    ''' Releases unmanaged and - optionally - managed resources.
    ''' </summary>
    ''' <param name="IsDisposing">
    ''' <c>true</c> to release both managed and unmanaged resources; 
    ''' <c>false</c> to release only unmanaged resources.
    ''' </param>
    Protected Sub Dispose(ByVal IsDisposing As Boolean)
 
        If Not Me.IsDisposed Then
 
            If IsDisposing Then
                Me._ClientForm = Nothing
                MyBase.ReleaseHandle()
                MyBase.DestroyHandle()
            End If
 
        End If
 
        Me.IsDisposed = True
 
    End Sub
 
#End Region
 
End Class
 
#End Region

Me pongo en la piel de los ciudadanos de esos barrios y de barrios cercanos y debe dar incluso TERROR el simple hecho de vivir el día a día, porque cualquier dia caminando por la calle puedan matar a tu hija, a tu hermana, a tu madre, o a ti mismo.

Sinceramente yo no entiendo porque el gobierno de ese pais (y del resto de paises con ese tio de problemas como Brasil ya dije) no hace algo y deja que pasen todas esas muertes, les perjudica en todos los sentidos empezando por uno de los más "grandes" como es las perdidas de beneficio de un posible turismo extranjero, deberían hacer algo como un exterminio de esos barrios infectados (lo que equivaldria a fumigar cucarachas), matar a cientos de escoria (y lo digo así) para salvar la vida de miles de personas las cuales no tienen intención de matar a otros.

No veo necesario matar para alimentar a tu familia, ni para drogarte, ni para divertirse.

Me repugna toda esa clase de gente psociópata por naturaleza, aquí en España tenemos algo parecido, los Gitanos, pero no puedo decir lo mismo de ellos, porque en general los Gitanos no dan ese tipo de problemas criminalísticos (no de esa forma tan exagerada) y además son sociables y se han integrado bastante en la sociedad a pesar de vivir en barrios muuuuuuuy pobres, no puedo decir que me repugnen, pero tampoco son personas que caigan bien a simple vista, tienen fama de violentos.

Saludos

Lo dije de broma, sé que el video no es falso, pero realmente preferiría creer que es un Fake, ya que no entiendo como un pais en general puede estar así de mal, robando a punta de pistola a plena luz del día, bueno, en Brasil es aun peor.

Saludos!

Yo tampoco manejo LUA pero es bastante confusa/imperfecta la sintaxis de este lenguaje, 2 puntos es el operador para concatenar Strings (que no instrucciones), 3 puntos es para otra cosa, y 1 punto para otra diferente.

> http://www.lua.org/work/doc/manual.html#3.1

Saludos

¿Por "Organizarlo" te refieres a indentarlo, estructurarlo, simplificarlo?, lo primero sería una petición muy vaga.

Postea el código bien, porfavor, es ilegible.

Saludos!

Un método alternativo (al p/invoking) para detectar un triple-click en WinForms (esto en WPF se puede detectar practicamente en una sola linea, pero en WinForms es más complicado)

    ''' <summary>
    ''' Flag that determines whether the user made a single click.
    ''' </summary>
    Private DidSingleClick As Boolean = False
 
    ''' <summary>
    ''' Flag that determines whether the user made a double click.
    ''' </summary>
    Private DidDoubleClick As Boolean = False
 
    ''' <summary>
    ''' Flag that determines whether the user made a triple click.
    ''' </summary>
    Private DidTripleclick As Boolean = False
 
    ''' <summary>
    ''' Timer that resets the click-count after an inactivity period.
    ''' </summary>
    Private WithEvents ClickInactivity_Timer As New Timer With
    {
        .Interval = SystemInformation.DoubleClickTime,
        .Enabled = False
    }
 
    ''' <summary>
    ''' Handles the MouseClick event of the TextBox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles TextBox1.MouseClick
 
        If Me.ClickInactivity_Timer.Enabled Then
            Me.ClickInactivity_Timer.Enabled = False
        End If
 
        Me.DidSingleClick = True
 
    End Sub
 
    ''' <summary>
    ''' Handles the MouseDoubleClick event of the TextBox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
    Private Sub TextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles TextBox1.MouseDoubleClick
 
        If Me.ClickInactivity_Timer.Enabled Then
            Me.ClickInactivity_Timer.Enabled = False
        End If
 
        Me.DidDoubleClick = True
 
    End Sub
 
    ''' <summary>
    ''' Handles the MouseUp event of the TextBox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
    Private Sub TextBox1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles TextBox1.MouseUp
 
        If Not Me.ClickInactivity_Timer.Enabled Then
 
            Me.ClickInactivity_Timer.Enabled = True
            Me.ClickInactivity_Timer.Start()
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Handles the MouseDown event of the TextBox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
    Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles TextBox1.MouseDown
 
        Me.DidTripleclick = (Me.DidDoubleClick AndAlso Me.DidSingleClick)
 
        If Me.DidTripleclick Then
 
            Me.DidSingleClick = False
            Me.DidDoubleClick = False
            Me.DidTripleclick = False
 
            sender.SelectAll()
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Handles the Tick event of the ClickInactivity_Timer control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub ClickInactivity_Timer_Tick(ByVal sender As Object, ByVal e As EventArgs) _
    Handles ClickInactivity_Timer.Tick
 
        Me.DidSingleClick = False
        Me.DidDoubleClick = False
        Me.DidTripleclick = False
 
        sender.Enabled = False
 
    End Sub

FAKE '¬¬

Buenas.

Lo primero de todo es que las preguntas sobre Batch/VBS van en la sección de Scripting, si no formulas la pregunta en el subforo adecuado mira lo que pasa, casi 30 días sin obtener ninguna respuesta has estado (no se si ya lo habrás solucionado).


Estás usando el método Run para iniciar un proceso pero no estás esperando a que el proceso finalice (y devuelva la llamada), por lo tanto finaliza el proceso del setup (ej: setup.exe) y automáticamente se cierran los procesos hijos (wscript.exe, cmd.exe, etc.)

Déjalo así:

WshShell.Run chr(34) & "iniciar.bat" & Chr(34), 0, True

Documentación:
http://msdn.microsoft.com/en-us/library/d5fk67ky%28v=vs.84%29.aspx

Saludos.

El tema ha sido movido a Scripting.

http://foro.elhacker.net/index.php?topic=420380.0

Pues si, gracias a el-brujo y a todo el Staff, y a kub0x, y a todos vosotros.

Como ya se ha publicado el concurso y está a punto de iniciarse el plazo de entrega no veo motivo para seguir comentando este tema en este hilo, si tienen dudas acudan al Hilo de discusión (más abajo).

> [EHN-Dev 2014] Concurso de desarrollo de aplicaciones (Hilo oficial)

> [Ehn-Dev 2014] - Hilo de discusión / comentarios / dudas.

Tema cerrado.

Saludos!