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.
Dim Seriales1 As String = "_xxxxxxxx_zzzzzzzzz"
Dim Seriales2 As String = "_xxxxxxxx_hhhhhhhh_zzzzzzzzz"
Dim Seriales3 As String = String.Join("_", Seriales2.Split("_").Except(Seriales1.Split("_")))
' Creo un Array para almacenar como referencia el rango de semanas GPS.
' Al valor inicial hay que descontarle un '1' (1772) porque el índice de un array empieza por '0'.
Private ReadOnly GPSWeeks As Integer() =
Enumerable.Range(1773 - 1, 1825).ToArray
' Obtengo la cantidad de dias del año actual.
' Esto lo hago por los años bisiestos, que tienen '1' día más (366).
Private ReadOnly TotalDaysInYear As Integer =
(From month As Integer In Enumerable.Range(1, 12)
Select DateTime.DaysInMonth(Now.Year, month)).Sum
' Ya estamos listos para iterar los elementos ...del modo que uno prefiera :), esto solo es un ejemplo:
Private Sub Test() Handles MyBase.Shown
Dim sb As New System.Text.StringBuilder
For DayOfYear As Integer = 1 To TotalDaysInYear ' (365 or 366)
' Obtengo la fecha exacta dado el número del día del año actual.
Dim DateOfYear As DateTime = New DateTime(Now.Year, 1, 1).AddDays(DayOfYear - 1)
sb.AppendLine(String.Format("Day Of Year: {0}", CStr(DayOfYear)))
sb.AppendLine(String.Format("Date: {0}", CStr(DateOfYear)))
sb.AppendLine(String.Format("GPS Week: {0}", CStr(Me.GPSWeeks(DatePart(DateInterval.WeekOfYear, DateOfYear)))))
MessageBox.Show(sb.ToString, "GPS Calendar Info - By Elektro",
MessageBoxButtons.OK, MessageBoxIcon.Information)
sb.Clear()
Next DayOfYear
End Sub
...
Private Sub Test()
Dim Amount As Integer = -0I
Dim Unknown As Object = " 5 "
' No uses el método 'Val()' para validar, es algo prehistórico ...de VB6.
Integer.TryParse(Convert.ToString(Unknown).Trim, Amount)
Dim Buttons As List(Of Button) =
GetDynamicControls(Of Button)(Collection:=Me.Controls,
NamePattern:="Button",
NameRange:=Enumerable.Range(1, Amount)) ' From Button1 To Button5
Buttons.ForEach(Sub(bt As Button) bt.Enabled = False)
End Sub ' Get Dynamic Controls
' ( By Elektro )
'
''' <summary>
''' Gets a range of controls dinamycally by specifying the control's name pattern.
'''
''' To use this method properly, the controls need to have a dynamic name.
'''
''' Example:
''' 'Button1', 'Button2', 'Button3', etc..
''' Both has the same name and only differs the indexed number.
'''
''' </summary>
''' <typeparam name="T"></typeparam>
''' <param name="Collection">Indicates the control collection where to find the controls.</param>
''' <param name="NamePattern">Indicates the name pattern of the controls.</param>
''' <param name="NameRange">Indicates the dynamic indexed pattern range.</param>
''' <returns>List(Of T).</returns>
Private Function GetDynamicControls(Of T)(ByVal Collection As ControlCollection,
ByVal NamePattern As String,
ByVal NameRange As IEnumerable(Of Integer)) As List(Of T)
If NameRange.Count < 1 Then Return Nothing
Dim Controls As New List(Of T)
For Each ctrl As T In Collection.OfType(Of T)()
For Index As Integer = NameRange.Min To NameRange.Max
If TryCast(ctrl, Control).Name.Equals(NamePattern & CStr(Index), StringComparison.OrdinalIgnoreCase) Then
Controls.Add(ctrl)
End If
Next Index
Next ctrl
Controls.Reverse() ' Sort them.
Return Controls.ToList()
End FunctionCita de: cyberalejo17 en 2 Mayo 2014, 22:19 PM
cambiando los menús por choise, todavía conservo la particularidad de la opción por defecto? que es lo que está como [1] en las opciones. Es decir, que no necesito escribir una opción (1-6), sino con sólo dar enter, sin haber introducido un número, se va a esa opción.
Cita de: Choice.exe /?/T tiempo de espera Número de segundos de pausa antes de que se elija
una opción predeterminada. Los valores permitidos
están comprendidos entre 0 y 9999. Si se especifica
0, no habrá pausa y se seleccionará la opción
predeterminada.
/D opción Especifica la opción predeterminada después de nnnn
segundos. Carácter debe estar en el conjunto
especificado de opciones por la opción /C y también
debe especificarse nnnn con /T.
Choice.exe /C "123" /M "Elige" /T 10 /D "3"
(Echo %ErrorLevel%) & REM Resultado: '3'Citar
añadir la opción de extraer de forma automática la memoria USB cuando termine de desmontar y cerrar todas las unidades cifradas.
Por ahora sólo he encontrado que puedo hacerlo con aplicaciones externas.
CitarFuente: http://sushihangover.blogspot.nl/2012/02/powershell-eject-local-or-remote.htmlCódigo [Seleccionar]$driveEject = New-Object -comObject Shell.Application
$driveEject.Namespace(17).ParseName("E:").InvokeVerb("Eject")
CitarFuente: http://forums.mydigitallife.info/threads/29412-VBScript-Fast-eject-disk-on-drivesCódigo (vb) [Seleccionar]For Each d in CreateObject("Scripting.FileSystemObject").Drives
CreateObject("Shell.Application").Namespace(17).ParseName("E:\").InvokeVerb("Eject")
Next
rundll32.exe shell32.dll,Control_RunDLL hotplug.dll, @SystemDir
Private Shadows Sub Shown(sender As Object, e As EventArgs) _
Handles MyBase.Shown
Try
Dim Url As New Uri(String.Empty)
Catch ex As Exception
Using ErrorDialog As New ErrorDialog(ex, sender)
ErrorDialog.ShowDialog()
End Using
End Try
End SubPublic Class Form1
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Catches Managed Exceptions.
AddHandler AppDomain.CurrentDomain.FirstChanceException, AddressOf Application_ManagedException
' Catches Unhandled Exceptions.
AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Application_UnhandledException
' Catches Thread Exceptions.
AddHandler Application.ThreadException, AddressOf Application_ThreadException
End Sub
''' <summary>
''' Handles the 'UnhandledException' event of the Application.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="UnhandledExceptionEventArgs"/> instance containing the event data.</param>
Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
Using ErrorDialog As New ErrorDialog(DirectCast(e.ExceptionObject, Exception), Me)
ErrorDialog.ShowDialog()
End Using
End Sub
''' <summary>
''' Handles the 'FirstChanceException' event of the Application.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="Runtime.ExceptionServices.FirstChanceExceptionEventArgs" /> instance containing the event data.</param>
Private Sub Application_ManagedException(ByVal sender As Object, ByVal e As Runtime.ExceptionServices.FirstChanceExceptionEventArgs)
Using ErrorDialog As New ErrorDialog(e.Exception, Me)
ErrorDialog.ShowDialog()
End Using
End Sub
''' <summary>
''' Handles the 'ThreadException' event of the Application.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="Threading.ThreadExceptionEventArgs"/> instance containing the event data.</param>
Private Sub Application_ThreadException(sender As Object, e As Threading.ThreadExceptionEventArgs)
Using ErrorDialog As New ErrorDialog(e.Exception, Me)
ErrorDialog.ShowDialog()
End Using
End Sub
End ClassCitarCódigo (DOS) [Seleccionar]
:OPCIONES_1
call :MENU_1
set var=1
set /p var= Seleccione una opci¢n (1-6) [1]:
if %var%==1 (goto :MONTAR_RO)
if %var%==2 (goto :MONTAR_RW)
if %var%==3 (call :MONTAR_RW && goto :MONTAR_CAL_RO)
if %var%==4 (call :MONTAR_RW && goto :MONTAR_CAL_RW)
if %var%==5 (call :MONTAR_RW && goto :ABRIR_BAUL)
if %var%==6 (goto :OPCIONES_6)
call :MENSAJE_7
timeout 1 >nul
goto :OPCIONES_1
:OPCIONES_1
Call :MENU_1
Set "Options={Goto :MONTAR_RO}; {Goto :MONTAR_RW}; {Call :MONTAR_RW,Goto :MONTAR_CAL_RO}; {Call :MONTAR_RW,Goto :MONTAR_CAL_RW}; {Call :MONTAR_RW,Goto :ABRIR_BAUL}; {Goto :OPCIONES_6}"
Choice.exe /C "123456" /M "Seleccione una opci¢n (1-6) [1]"
For /F "Tokens=%ErrorLevel%,* Delims=;" %%# In ('Echo "%Options%"') Do (
For /F "Tokens=2-3 Delims={,}" %%X In ('Echo "%%~#"') Do ((%%~X) && (%%~Y))
)
Call :MENSAJE_7
Timeout.exe 1 1>Nul
Goto :OPCIONES_1
REM Esto lo puse solo para testear la llamada a las etiquetas...
:MONTAR_RO
Echo MONTAR_RO
Pause&Exit
:MONTAR_RW
Echo MONTAR_RW
Exit /B 0 & REM Aquí usas un Call para llamar a este bloque, así que debes indicar un código de salida (0|1).
:MONTAR_CAL_RO
Echo MONTAR_CAL_RO
Pause&ExitSetLocal EnableDelayedExpansion & REM Necesario para expandir la(s) variable(s).
:OPCIONES_1
Call :MENU_1
Set "Choice1=Goto :MONTAR_RO"
Set "Choice2=Goto :MONTAR_RW"
Set "Choice3=Call :MONTAR_RW;Goto :MONTAR_CAL_RO"
Set "Choice4=Call :MONTAR_RW;Goto :MONTAR_CAL_RW"
Set "Choice5=Call :MONTAR_RW;Goto :ABRIR_BAUL"
Set "Choice6=Goto :OPCIONES_6"
Choice.exe /C "123456" /M "Seleccione una opci¢n (1-6) [1]"
Set /A "ChoiceIndex=%ErrorLevel%"
For /F "Tokens=1-2 Delims=;" %%X In ('Echo !Choice%ChoiceIndex%!') Do ((%%~X) && (%%~Y))
SetLocal DisableDelayedExpansion
Call :MENSAJE_7
Timeout.exe 1 1>Nul
Goto :OPCIONES_1CitarQué sería aconsejable modificar para que quedara mejor (más rápido).Para que sea más rápido debes utilizar otro lenguaje distinto, si en algo destaca Batch es por su incompetencia y lentitud.
( WMIC.exe Process Where Name='KeyPass.exe' Get /Format:List | Find.exe "=" )1>NUL 2>&1 && (...) || (...)Citar· Omitir la pantalla de selección de usuario (Auto-Loguearse).
Agregamos el componente Microsoft-Windows-Shell-Setup > AutoLogon al paso Specialize y también al paso oobeSystem y aplicamos estos valores:
El número de veces que la cuenta se ha usado:
LogonCount = 1