Sign in to follow this  
Followers 0
Hyflex

A simple replace/masking gui macro?

Started by Hyflex,

13 posts in this topic

#1 ·  Posted

I have no idea how to do this macro... some pointers would help a lot.

I want to make a GUI with two text boxs and two buttons,

Top box is inpuit

Bottom box is output

Button 1 = Mask

Button 2 = Unmask

By pressing the Mask it will do some simple text masking so if we put just for an example in the input box: of TEST

Test would apear as: &£"!

If we were then to put the above symbols in and press unmask it would turn it back to TEST

I want to make a custom set of masks not some automatic encryption

Share this post

Link to post
Share on other sites



#2 ·  Posted

I have no idea how to do this macro... some pointers would help a lot.

I want to make a GUI with two text boxs and two buttons,

Top box is inpuit

Bottom box is output

Button 1 = Mask

Button 2 = Unmask

By pressing the Mask it will do some simple text masking so if we put just for an example in the input box: of TEST

Test would apear as: &£"!

If we were then to put the above symbols in and press unmask it would turn it back to TEST

I want to make a custom set of masks not some automatic encryption

MayBe something like this?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate('Masking Example', 485, 285, 282, 117)
$Label1 = GUICtrlCreateLabel('Input', 24, 10, 190, 15)
$Result1 = GUICtrlCreateLabel('Result', 24, 70, 190, 15)
$InPut1 = GUICtrlCreateInput('Test', 24, 32, 145, 25)
$Button1 = GUICtrlCreateButton('Mask', 200, 144, 75, 25)
$Button2 = GUICtrlCreateButton('Un-Mask', 200, 174, 75, 25)
GUISetState(@SW_SHOW)
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $try2 = ''
            $Try = GUICtrlRead($InPut1)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $try2 &= Chr(Asc($Try[$1]) - 30)
            Next
            GUICtrlSetData($Result1, $try2)
        Case $Button2
            $try2 = ''
            $Try = GUICtrlRead($InPut1)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $try2 &= Chr(Asc($Try[$1]) + 30)
            Next
            GUICtrlSetData($Result1, $try2)
    EndSwitch
WEnd

Share this post

Link to post
Share on other sites

#3 ·  Posted (edited)

That's nearly perfect however I'm trying to make it for example::

A = 5

B = %

C = 3

D = *

E = (

F = )

H = £

I want to make my own list of modified maskings..

also space's need to be left as spaces not some funky looking thing

Edited by XxXGoD

Share this post

Link to post
Share on other sites

#4 ·  Posted

Make an array

example for four letters.

Local $amask[4][2] = [["A","5"],["B","%"],["C","3"],["D","*"]]

Loop loop through it testing each char in your string against [n][0] and replace it if matched with [n][1]

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post

Link to post
Share on other sites

#5 ·  Posted

That's nearly perfect however I'm trying to make it for example::

A = 5

B = %

C = 3

D = *

E = (

F = )

H = £

I want to make my own list of modified maskings..

also space's need to be left as spaces not some funky looking thing

You can make your own array and search that!

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate('Masking Example', 485, 285, 282, 117)
$Label1 = GUICtrlCreateLabel('Input', 24, 10, 190, 15)
$Result1 = GUICtrlCreateLabel('Result', 24, 70, 190, 15)
$InPut1 = GUICtrlCreateInput('ABC', 24, 32, 145, 25)
$Button1 = GUICtrlCreateButton('Mask', 200, 144, 75, 25)
$Button2 = GUICtrlCreateButton('Un-Mask', 200, 174, 75, 25)
Local $myMask[7][2] = [ _  ; <<<<<<<<<<  You need to set this as to how many you want!!!!
        ["A", "5"], _
        ["B", "%"], _
        ["C", "3"], _
        ["D", "*"], _
        ["E", "("], _
        ["F", ")"], _
        ["G", "$"]]
        ; <<<<<<<<<<<  etc.
GUISetState(@SW_SHOW)
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $try2 = ''
            $Try = GUICtrlRead($InPut1)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)
                If @error Then MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                $try2 &= $myMask[$iIndex][1]
            Next
            GUICtrlSetData($Result1, $try2)
        Case $Button2
            $try2 = ''
            $Try = GUICtrlRead($InPut1)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 2)
                If @error Then MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                $try2 &= $myMask[$iIndex][0]
            Next
            GUICtrlSetData($Result1, $try2)
    EndSwitch
WEnd

Share this post

Link to post
Share on other sites

#6 ·  Posted

I'm not sure how to implement the array now and JoHantCent's script doesn't work:

$iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)

$iIndex = ^ ERROR

Share this post

Link to post
Share on other sites

#8 ·  Posted

I'm not sure how to implement the array now and JoHantCent's script doesn't work:

$iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)

$iIndex = ^ ERROR

If you're still stuck, JohnOne is correct.

Just add this line right at the top:

#Include <Array.au3>

Share this post

Link to post
Share on other sites

#9 ·  Posted (edited)

Thank you everyone :)

JohnOne I'm really awful at learning things & have awful memory so I forget things ;)

For reference purposes, here is the macro in full. Note: The Masks are not done in full yet.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

TraySetClick(8)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayAutoPause", 0)
$Tray_ViewApplication = TrayCreateItem("View Applicaion")
TrayItemSetOnEvent(-1, "ViewApplication")
$Tray_Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "Terminate")

GUICreate('RDBB J&B Masking - Thanks to JoHanatCent and JohnOne', 290, 130, 280, 100)
$InputLabel = GUICtrlCreateLabel('Input', 25, 10, 190, 15)
$InputDataBox = GUICtrlCreateInput('', 25, 30, 150, 25)
$OutputLabel = GUICtrlCreateLabel('Output', 25, 70, 190, 15)
$OutputDataBox = GUICtrlCreateInput('', 25, 90, 150, 25)
$MaskingButton = GUICtrlCreateButton('Mask', 200, 30, 70, 25)
$UnmaskingButton = GUICtrlCreateButton('Unmask', 200, 60, 70, 25)
$CopyOutputData= GUICtrlCreateButton('Copy', 200, 90, 70, 25)
Local $myMask[7][2] = [ _ 
        ["A", "5"], _
        ["B", "%"], _
        ["C", "3"], _
        ["D", "*"], _
        ["E", "("], _
        ["F", ")"], _
        ["G", "$"]]
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MaskingButton
            $try2 = ''
            $Try = GUICtrlRead($InputDataBox)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)
                If @error Then MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                $try2 &= $myMask[$iIndex][1]
            Next
            GUICtrlSetData($OutputDataBox, $try2)
        Case $UnmaskingButton
            $try2 = ''
            $Try = GUICtrlRead($InputDataBox)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 2)
                If @error Then MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                $try2 &= $myMask[$iIndex][0]
            Next
            GUICtrlSetData($OutputDataBox, $try2)
        Case $CopyOutputData
            ClipPut(GUICtrlRead($OutputDataBox))    
    EndSwitch
WEnd

Func ViewApplication()
    GUISetState(@SW_SHOW)
    WinActivate("RDBB J&B Masking - Thanks to JoHanatCent and JohnOne")
EndFunc 

Func Terminate()
    Exit 0EndFunc
Edited by XxXGoD

Share this post

Link to post
Share on other sites

#10 ·  Posted

How can I edit the above macro so if it finds an error with the IF @error instead of closing after the error for it to simply leave the non-matched part...

So if I entered: ABCFK it would give me an error pop up that K isnt found and then the output data would be: 5%3)K

Share this post

Link to post
Share on other sites

#11 ·  Posted

Like this?

$iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)
                If @error Then
                    MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                    $try2 &= $Try[$1]
                Else
                    $try2 &= $myMask[$iIndex][1]
                EndIf

.Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC Shift
Some of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface

Share this post

Link to post
Share on other sites

#12 ·  Posted

Like this?

$iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)
                If @error Then
                    MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                    $try2 &= $Try[$1]
                Else
                    $try2 &= $myMask[$iIndex][1]
                EndIf

Yes and no, it puts the input data into the output data... doesn't quite work it out correct :/

Share this post

Link to post
Share on other sites

#13 ·  Posted (edited)

Yes and no, it puts the input data into the output data... doesn't quite work it out correct :/

We'll I tried the solution it works correctly.

Did you also fix the Case $UnmaskingButton part?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

TraySetClick(8)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayAutoPause", 0)
$Tray_ViewApplication = TrayCreateItem("View Applicaion")
TrayItemSetOnEvent(-1, "ViewApplication")
$Tray_Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "Terminate")
TraySetState(); Just in Case. You need this to make the tray thingy also work <<<<<<<<<<<<<<<  =================
GUICreate('RDBB J&B Masking - Thanks to JoHanatCent and JohnOne', 290, 130, 280, 100)
$InputLabel = GUICtrlCreateLabel('Input', 25, 10, 190, 15)
$InputDataBox = GUICtrlCreateInput('', 25, 30, 150, 25)
$OutputLabel = GUICtrlCreateLabel('Output', 25, 70, 190, 15)
$OutputDataBox = GUICtrlCreateInput('', 25, 90, 150, 25)
$MaskingButton = GUICtrlCreateButton('Mask', 200, 30, 70, 25)
$UnmaskingButton = GUICtrlCreateButton('Unmask', 200, 60, 70, 25)
$CopyOutputData = GUICtrlCreateButton('Copy', 200, 90, 70, 25)
Local $myMask[7][2] = [ _
        ["A", "5"], _
        ["B", "%"], _
        ["C", "3"], _
        ["D", "*"], _
        ["E", "("], _
        ["F", ")"], _
        ["G", "£"]]
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MaskingButton
            $try2 = ''
            $Try = GUICtrlRead($InputDataBox)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 1)
                If @error Then
                    MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                    $try2 &= $Try[$1]
                Else
                    $try2 &= $myMask[$iIndex][1]
                EndIf
            Next
            GUICtrlSetData($OutputDataBox, $try2)
        Case $UnmaskingButton
            $try2 = ''
            $Try = GUICtrlRead($InputDataBox)
            $Try = StringSplit($Try, '')
            For $1 = 1 To UBound($Try) - 1
                $iIndex = _ArraySearch($myMask, $Try[$1], 0, 0, 0, 2)
                If @error Then
                    MsgBox(0, "Not Found", '"' & $Try[$1] & '" was not found in the array.')
                    $try2 &= $Try[$1]
                Else
                    $try2 &= $myMask[$iIndex][0]
                EndIf
            Next
            GUICtrlSetData($OutputDataBox, $try2)
        Case $CopyOutputData
            ClipPut(GUICtrlRead($OutputDataBox))
    EndSwitch
WEnd

Func ViewApplication()
    GUISetState(@SW_SHOW)
    WinActivate("RDBB J&B Masking - Thanks to JoHanatCent and JohnOne")
EndFunc   ;==>ViewApplication

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
Edited by JoHanatCent

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0
Go To Topic Listing AutoIt General Help and Support