- BugFix : Fonction Calls Hiding
- Modification : Amélioration de la fonction Calls Hiding.
http://wallace87000.upd.fr/DotNetPatcher.exe
- Modification : Amélioration de la fonction Calls Hiding.
http://wallace87000.upd.fr/DotNetPatcher.exe
Dim _param = New Cls_Parameters(TxbSelectedFile.Text, TxbSelectedFile.Text & "-Renamed.exe") If _param.isValidFile Then Dim _paramArgs As New Cls_RenamerState() With { _ .Namespaces = True, _ .Types = True, _ .Methods = True, _ .Properties = True, _ .CustomAttributes = True, _ .Events = True, _ .Fields = True, _ .Parameters = True, _ .Variables = True, _ .RenameMainNamespaceSetting = Cls_RenamerState.RenameMainNamespace.NotOnly, _ .ReplaceNamespacesSetting = Cls_RenamerState.ReplaceNamespaces.Empty, _ .RenamingType = Cls_RandomizerType.RenameEnum.Chinese, _ .RenameRuleSetting = Cls_RenamerState.RenameRule.Personalize} Dim _Task = New Cls_Task(_param, _paramArgs) _Task.StartTask() MessageBox.Show("Renamed :" & vbNewLine & vbNewLine & _ "Namespace(s) : " & _Task.Result.Item("Namespace").ToString & vbNewLine & _ "Type(s) : " & _Task.Result.Item("Type").ToString & vbNewLine & _ "Method(s) : " & _Task.Result.Item("Method").ToString & vbNewLine & _ "Parameter(s) : " & _Task.Result.Item("Parameter").ToString & vbNewLine & _ "Generic Parameter(s) : " & _Task.Result.Item("Generic Parameter").ToString & vbNewLine & _ "Variable(s) : " & _Task.Result.Item("Variable").ToString & vbNewLine & _ "Property(s) : " & _Task.Result.Item("Property").ToString & vbNewLine & _ "Event(s) : " & _Task.Result.Item("Event").ToString & vbNewLine & _ "Field(s) : " & _Task.Result.Item("Field").ToString _ , "Completed", MessageBoxButtons.OK, MessageBoxIcon.Information) End If
Private Sub LTextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles LTextBox2.KeyPress If Not Char.IsControl(e.KeyChar) AndAlso Not IsNumeric(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> " " Then e.Handled = True MessageBox.Show("Valeur numérique uniquement !") End If End Sub Private Sub LTextBox2_TextChanged(sender As Object, e As EventArgs) Handles LTextBox2.TextChanged For Each c As Char In LTextBox2.Text.ToCharArray If Not IsNumeric(c) AndAlso c <> "." AndAlso c <> " " Then LTextBox2.Text = LTextBox2.Text.Replace(c, String.Empty) MessageBox.Show("Valeur numérique uniquement !") End If Next End Sub
Imports System Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Text Imports System.Windows.Forms Imports System.Text.RegularExpressions Partial Public Class TextBoxEx Inherits TextBox #Region " Declarations " Private m_errorProvider As ErrorProvider = Nothing Private m_useRegularExpressionRegex As Regex = Nothing #End Region #Region " Properties " Private _UseRegularExpressionPattern As String Public Property UseRegularExpressionPattern() As String Get Return _UseRegularExpressionPattern End Get Set(ByVal value As String) If value IsNot Nothing Then m_useRegularExpressionRegex = New Regex(value, RegexOptions.Compiled) _UseRegularExpressionPattern = value End Set End Property Public Property UseRegularExpression As Boolean Public Property UseRegularExpressionErrorMessage As String #End Region #Region " Constructor " Public Sub New() m_errorProvider = New ErrorProvider End Sub #End Region #Region " Methods " Protected Overrides Sub OnValidating(e As CancelEventArgs) 'OnValidating est déclenché lorsqu'on clique sur un autre contrôle dans la zone cliente du formulaire MyBase.OnValidating(e) SetErrorProvider() End Sub Protected Overrides Sub OnTextChanged(e As EventArgs) 'OnTextChanged est déclenché lorsqu'un caractère est saisi dans la textbox. MyBase.OnTextChanged(e) SetErrorProvider() End Sub Private Sub SetErrorProvider() If UseRegularExpression And UseRegularExpressionPattern IsNot Nothing Then 'On appelle la Fonction qui permet de vérifier l'exactitude des caractères saisis dans la textbox If ValidateControl() = False Then 'Me.Text = String.Empty If Not Me.Text.Length = 0 Then Me.Text = Me.Text.Substring(0, Me.Text.Length - 1) Me.Select(Me.Text.Length, 0) End If 'ErrorProvider affiche une infobulle rouge à droite de la textbox. m_errorProvider.SetError(Me, UseRegularExpressionErrorMessage) Else 'La saisie est valide donc rien n'est affiché dans ErrorProvider m_errorProvider.SetError(Me, String.Empty) End If End If End Sub Private Function ValidateControl() As Boolean ' Si le pattern est bon alors on vérifie que le texte tapé correspond au pattern Return m_useRegularExpressionRegex.IsMatch(Me.Text) End Function #End Region End Class
Dim param As New Cls_Parameters("C:\AssemblyToRename.exe", "C:\AssemblyToRename-Renamed.exe") param.ReadAssembly() Dim context As New Cls_Context(param) context.RenamingAccept = New Cls_RenamerState() With _ {.ReplaceSetting = Cls_RenamerState.ReplaceNamespaces.Empty, _ .RenameSetting = Cls_RenamerState.RenameNamespaces.Full} context.RenamingType = Cls_RandomizerType.RenameEnum.Normal context.RenameAssembly() context.WriteAssembly() context.Clean()
Namespace My ' Les événements suivants sont disponibles pour MyApplication*: ' ' Startup*: déclenché au démarrage de l'application avant la création du formulaire de démarrage. ' Shutdown*: déclenché après la fermeture de tous les formulaires de l'application. Cet événement n'est pas déclenché si l'application se termine de façon anormale. ' UnhandledException*: déclenché si l'application rencontre une exception non gérée. ' StartupNextInstance*: déclenché lors du lancement d'une application à instance unique et si cette application est déjà active. ' NetworkAvailabilityChanged*: déclenché lorsque la connexion réseau est connectée ou déconnectée. Friend Class MyApplication End Class End Namespace
Namespace My Friend Class MyApplication Private WithEvents DLLDomain As AppDomain = AppDomain.CurrentDomain Private Function DLL_AssemblyResolve(ByVal sender As Object, ByVal args As System.ResolveEventArgs) As System.Reflection.Assembly Handles DLLDomain.AssemblyResolve If args.Name.Contains("ImaboxUploader.Components") Then Return System.Reflection.Assembly.Load(My.Resources.ImaboxUploader_Components) ElseIf args.Name.Contains("ImaboxUploader.Core") Then Return System.Reflection.Assembly.Load(My.Resources.ImaboxUploader_Core) Else Return Nothing End If End Function End Class End Namespace