Sincéramente, esa pregunta me ha reventado, primero porque preguntas como hacerlo con un 600 cuando tienes un Ferrari para manejarte, y segundo por la pregunta tán vaga que es.

For
Cursor.Position
Next

Label.Location

Estoy por bloquear el post si sigues haciendo preguntas vagas sobre esto, en serio.

Google + VBNET move cursor

PD: En Batch puro no puedes.

Edito: Así que muevo el tema a .NET

Saludos...

Gracias, pero no creo que un select case me vaya a solucionar el problema:


Lo que quiero es NO tener que repetir las comprobaciones para los dos casos, me gustaría simplificarlo de alguna manera, y para eso necesito ejemplos please!.

saludos

Muchas gracias al moderador invisible por reabrir el post

---

Ya he encontrado como monitorizar la inserción-extracción de los dispositivos con los WindowsMessages usando la API, pero primero me he puesto a hacer otra función que necesito,
he sacado la idea de aquí: [APORTE] Interceptar Archivos/Directorios USB
(Gracias Kubox)

En la función necesito hacer demasiadas comprobaciones, muchos "IF", ¿Tienen alguna idea para reducir/mejorar este código?:

PD: El problema que tengo es que tengo que hacer las mismas comprobaciones para "ALL", y las mismas comprobaciones para el resto de la enumeración, no sé como hacerlo más simple.

  Private Enum DriveType
        ALL
        CDRom = IO.DriveType.CDRom
        Fixed = IO.DriveType.Fixed
        Network = IO.DriveType.Network
        Ram = IO.DriveType.Ram
        Removable = IO.DriveType.Removable
        Unknown = IO.DriveType.Unknown
    End Enum
 
    Private Function Get_Drives_Info( _
       ByVal DriveType As DriveType, _
       ByVal Name As Boolean, _
       Optional ByVal Label As Boolean = False, _
       Optional ByVal Type As Boolean = False, _
       Optional ByVal Format As Boolean = False, _
       Optional ByVal Size As Boolean = False, _
       Optional ByVal FreeSpace As Boolean = False) As List(Of String)
 
        Dim Drive_Info_List As New List(Of String)
        Dim Drive_Info As String = Nothing
 
        For Each Drive In Microsoft.VisualBasic.FileIO.FileSystem.Drives
            If DriveType = DriveType.ALL Then
                If Drive.IsReady = True Then
                    If Name Then Drive_Info += Drive.Name & ";"
                    If Label Then Drive_Info += Drive.VolumeLabel & ";"
                    If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                    If Format Then Drive_Info += Drive.DriveFormat & ";"
                    If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                    If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                End If
            Else
                If Drive.IsReady = True And Drive.DriveType = DriveType Then
                    If Drive.IsReady = True Then
                        If Name Then Drive_Info += Drive.Name & ";"
                        If Label Then Drive_Info += Drive.VolumeLabel & ";"
                        If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                        If Format Then Drive_Info += Drive.DriveFormat & ";"
                        If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                        If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                    End If
                End If
            End If
            If Drive_Info IsNot Nothing Then Drive_Info_List.Add(Drive_Info) : Drive_Info = Nothing
        Next
 
        Return Drive_Info_List
    End Function

saludos

@xassiz
No, ese modificador es para la fecha de modificación.

@Tmarmol
Los temas de Batch van en Scripting.

Aquí tienes:

Saludos.

La letra de unidad se puede modificar muy fácilmente, y "C:\" no tiene porque ser siempre la unidad principal, en muchos casos es "D:\", y si tu APP depende de rutas del sistema, pues... bueno, irá en el 99,9% de PC's, eso también te lo digo xD.

Espero que no te ofendas pero sincéramente eso de desarrollar una aplicación utilizando "C:\" (o cualquier otra ruta absoluta del sistema) para cosas importantes en lugar de usar la variable que contiene el valor de la letra del disco duro (o de la ruta absoluta del sistema) lo véo muy mala práctica e ineficáz,
usa las variables de Windows, que para algo están.

PD: Me alegra haberte podido ayduar.

Un saludo.

1.

Tu instalador sólo funcionará en equipos que dispongan de la unidad C:\, debes usar la constante adecuada:

2.

Estás indicando en el directorio de destino la ruta "C:\":
{app} = DefaultDirName = C:\

Entonces haz esto:

Y eso equivaldría a:

Saludos

Yo no lo cerré, no soy moderador de esta sección, también me cerraron mi post por desgracia.

---

        Dim Texto As String = My.Computer.FileSystem.ReadAllText("C:\Archivo.txt")
        Dim Pos As Integer = InStr(Texto, "String")
        MsgBox(Pos)

        Dim Text_Pos As String = InStr(My.Computer.FileSystem.ReadAllText("C:\Archivo.txt"), "String")
        MsgBox(Text_Pos)

Para cambiar los cursores de Windows (En el sistema, fuera del form)

#Region " Set System Cursor Function "
 
    ' [ Set System Cursor Function ]
    '
    ' Examples :
    '
    ' Set_System_Cursor("C:\Cursors\Arrow.ani", System_Cursor.ARROW))
    ' MsgBox(Set_System_Cursor("C:\Cursors\Cross.cur", System_Cursor.CROSS))
 
    ' Set System Cursor [ API declarations ]
    Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean
    Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr
 
    ' Set System Cursor [ API Constants ]
    Private Enum System_Cursor As UInt32
        APP_STARTING = 32650
        ARROW = 32512
        CROSS = 32515
        HAND = 32649
        HELP = 32651
        I_BEAM = 32513
        NO = 32648
        SIZE_ALL = 32646
        SIZE_NESW = 32643
        SIZE_NS = 32645
        SIZE_NWSE = 32642
        SIZE_WE = 32644
        UP = 32516
        WAIT = 32514
    End Enum
 
    ' Set System Cursor [ Function ]
    Private Function Set_System_Cursor(ByVal Cursor_File As String, ByVal Cursor_Type As System_Cursor) As Boolean
        If SetSystemCursor(LoadCursorFromFile(Cursor_File), Cursor_Type) = 0 Then Return False ' Error loading cursor from file
        Return True
    End Function
 
#End Region

---

Hotmail sender (Envía correos desde hotmail)

* Es necesario descargar la librería EASENDMAIL (Es gratis aunque se puede comprar licencia): http://www.emailarchitect.net/webapp/download/easendmail.exe  

PD: Sé que esto se puede hacer con la class system.net.mail, pero con esto no dependemos de puertos, y el SSL de los servidores que usemos en la librería se detecta automáticamente...

#Region " Hotmail Sender Function "
 
    ' [ Hotmail Sender Function ]
    '
    ' // By Elektro H@cker
    '
    ' * First add a reference to "EASendMail" into the project.
    '
    ' Examples :
    '
    '  MsgBox(Hotmail_Sender("ElektroHacker@hotmail.com", "MyPass", "Anonym@gmail.com", "Test subject", "Test body", {"C:\File1.txt", "C:\File2.txt"}))
 
    Private Function Hotmail_Sender(ByVal Account_User As String, ByVal Account_Password As String, ByVal Mail_To As String, ByVal Mail_Subject As String, ByVal Mail_Body As String, Optional ByVal Mail_Attachments() As String = Nothing) As Boolean
 
        Dim Hot_Mail As New EASendMail.SmtpMail("TryIt")
        Dim Hot_Server As New EASendMail.SmtpServer("smtp.live.com")
        Dim Hot_Smtp As New EASendMail.SmtpClient()
 
        Hot_Server.User = Account_User
        Hot_Server.Password = Account_Password
        Hot_Server.ConnectType = EASendMail.SmtpConnectType.ConnectSSLAuto
 
        Hot_Mail.From = Account_User
        Hot_Mail.To = Mail_To
        Hot_Mail.Subject = Mail_Subject
        Hot_Mail.TextBody = Mail_Body
        If Mail_Attachments IsNot Nothing Then For Each Attachment In Mail_Attachments : Hot_Mail.AddAttachment(Attachment) : Next
 
        Try : Hot_Smtp.SendMail(Hot_Server, Hot_Mail) : Return True
        Catch ex As Exception : Return False : End Try
 
    End Function
 
#End Region

Keyen, muchas gracias por la info, a pesar de que ahora pienses que soy un vago quizás por culpa de lo que siempre anda comentando spiritdead... a mi cualquier información que me den me sirve para empezar, y no te preocupes que buscaré.

Me dejas bastante perdido porque yo siempre he usado la API de windows para realizar funciones y cambios, sin necesidad de hacer gran cosa, pero no para recibir/interceptar/monitorizar datos, y no sé si será tán fácil como almacenarlo en una variable cada cierto tiempo para comprobar el valor del resultado y ya está, pero bueno, ya lo busco.

Saludos

Pero no lo eres, y eso es lo que diferencia a moderadores de usuarios:
Novlucker: madurez + buen juicio + saber hacer
Tú: payasadas + insultos + amenazas (en resumen, lo que se denomina como "troll", sin odenfer)

Tranquilo, que por suerte nunca serás moderador por esa personalidad.

Y con esto me despido de esta discusión,
saludos.