|
8913
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 5 Junio 2013, 17:38 pm
|
Hide-Restore Process Para ocultar o reestablecer la visibilidad de un proceso, Esto solo oculta la ventana del proceso, no lo oculta del administrador de tareas, la función "Restore" no está muy pulida, para perfeccionarlo habría que guardar cada handle de los procesos escondidos en un tipo de diccionario si se quiere usar con más de un proceso simultáneamente, ya que cuando ocultas una ventana, el handle se vuelve "0".EDITO: Código mejorado: #Region " Hide-Restore Process " ' [ Hide-Restore Process Function ] ' ' // By Elektro H@cker ' ' Examples : ' ' Hide_Process(Process.GetCurrentProcess().MainModule.ModuleName, False) ' Hide_Process("notepad.exe", False) ' Hide_Process("notepad", True) ' ' Restore_Process(Process.GetCurrentProcess().MainModule.ModuleName, False) ' Restore_Process("notepad.exe", False) ' Restore_Process("notepad", True) Dim Process_Handle_Dictionary As New Dictionary(Of String, IntPtr ) <System.Runtime.InteropServices.DllImport("User32")> Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Int32 End Function Private Sub Hide_Process(ByVal Process_Name As String, Optional ByVal Recursive As Boolean = False) If Process_Name.ToLower.EndsWith(".exe") Then Process_Name = Process_Name.Substring(0, Process_Name.Length - 4) Dim proc() As Process = Process.GetProcessesByName(Process_Name) If Recursive Then For proc_num As Integer = 0 To proc.Length - 1 Try Process_Handle_Dictionary.Add(Process_Name & ";" & proc(proc_num).Handle.ToString, proc(proc_num).MainWindowHandle) ShowWindow(proc(proc_num).MainWindowHandle, 0) Catch ex As Exception ' MsgBox(ex.Message) ' The handle already exist in the Dictionary End Try Application.DoEvents() Next Else If Not proc.Length = 0 AndAlso Not proc(0).MainWindowHandle = 0 Then Process_Handle_Dictionary.Add(Process_Name & ";" & proc(0).Handle.ToString, proc(0).MainWindowHandle) ShowWindow(proc(0).MainWindowHandle, 0) End If End If End Sub Private Sub Restore_Process(ByVal Process_Name As String, Optional ByVal Recursive As Boolean = False) If Process_Name.ToLower.EndsWith(".exe") Then Process_Name = Process_Name.Substring(0, Process_Name.Length - 4) Dim Temp_Dictionary As New Dictionary(Of String, IntPtr ) ' Replic of the "Process_Handle_Dictionary" dictionary For Each Process In Process_Handle_Dictionary : Temp_Dictionary.Add(Process.Key, Process.Value) : Next If Recursive Then For Each Process In Temp_Dictionary If Process.Key.ToLower.Contains(Process_Name.ToLower) Then ShowWindow(Process.Value, 9) Process_Handle_Dictionary.Remove(Process.Key) End If Application.DoEvents() Next Else For Each Process In Temp_Dictionary If Process.Key.ToLower.Contains(Process_Name.ToLower) Then ShowWindow(Process.Value, 9) Process_Handle_Dictionary.Remove(Process.Key) Exit For End If Application.DoEvents() Next End If End Sub #End Region
|
|
|
8914
|
Programación / .NET (C#, VB.NET, ASP) / Re: [APORTE] Ocultar Aplicación en Administrador de Tareas
|
en: 5 Junio 2013, 17:35 pm
|
No me puedo creer que nadie haya agradecido esto en 1 año.
¡ Gracias por el aporte KuBox !
¿Alguna instrucción de como usarlo? :-/
¿Por ejemplo si quiero ocultar el proceso "notepad.exe", como se haría?
Según tenia entendido el TMListView no funcionaba para Windows 7, me gustaría saber usar esta class para comprobarlo, pero ni idea.
Un saludo!
|
|
|
8915
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 5 Junio 2013, 17:05 pm
|
Recorre todos los controles de "X" tipo en un container. #Region " Disable Controls " ' [ Disable Controls ] ' ' // By Elektro H@cker ' ' Examples: ' ' Disable_Controls(Of CheckBox)(Me.Controls, False) ' Disable_Controls(Of Button)(GroupBox1.Controls, False) Public Sub Disable_Controls(Of T As Control)(ByVal Container As Object, ByVal Enabled As Boolean) For Each control As T In Container : control.Enabled = Enabled : Next End Sub #End Region
Pequeño ejemplo de como saber el tipo de objeto: MsgBox(TypeName(Me)) ' Result: Form1 MsgBox(TypeName(Me.Text)) ' Result: String MsgBox(TypeName(Panel1)) ' Result: Panel
|
|
|
8918
|
Sistemas Operativos / Windows / Re: Archivo Host Modificarlo
|
en: 5 Junio 2013, 16:24 pm
|
He cogido el block de notas y lo he abierto como administrador pero como el archivo esta en modo lectura no he podido modificarlo.
¿Alguna otra forma de quitar el modo lectura de ese archivo?
Click derecho sobre el archivo "hosts", y pinchas en la casilla "Solo lectura" para desactivarlo... Attrib -r "hosts"
Salu2!
|
|
|
8919
|
Sistemas Operativos / Windows / Re: Línea de comandos en windows.
|
en: 5 Junio 2013, 16:20 pm
|
He intentado hacer funcionar aircrack dado doble click pero se abre y a los 2 segundos se cierra.
¿quiere eso decir que debo usar la línea de comandos?
Aircrack es una suite de aplicaciones commandline, efectivamente tienes que usarlas por consola, Te puedes descargar el AirCrack-ng GUI, que como su nombre indica es una GUI (Graphical User Interface), y ya no necesitarás usar aircrack por consola. Saludos.
|
|
|
8920
|
Programación / .NET (C#, VB.NET, ASP) / Re: [C#] Ocultar varios groupbox
|
en: 4 Junio 2013, 22:04 pm
|
Gracias, pero, ¿no hay manera de ocultar sólo los "grpEx*" sin tener que recorrer todos los groupboxes? Es para optimizar un poco
No, hay que hacer la iteración de los controles uno por uno, Otra forma sería que todos esos groupboxes los metieses en un nuevo panel (Dentro del panel que ya estás usando), y entonces haces un simple "NuevoPanel.visible = false" EDITO: If TypeOf Control Is GroupBox andalso Control.name.startswith("grpEx") then...
Saludos!
|
|
|
|
|
|
|