Sign in to follow this  
Followers 0
Silver21uk

Password

4 posts in this topic

When compiling a proggy, it was ticked for password to decompile but i never set one. now its saying incorrect passphrase.

Does autoit set a default password

LOL i know i should have backed up the au3 file its just i made a few changes lol and now dont work lol

much help would be appreciated

Share this post


Link to post
Share on other sites



When compiling a proggy, it was ticked for password to decompile but i never set one. now its saying incorrect passphrase.

Does autoit set a default password

LOL i know i should have backed up the au3 file its just i made a few changes lol and now dont work lol

much help would be appreciated

well whats wrong with the code

can we see it or should we just guess

no autoit does not have a def pass

Share this post


Link to post
Share on other sites

#Include <Misc.au3>
#Include <GuiList.au3>
#Include <File.au3>
$dll = DllOpen("user32.dll")
Opt('MouseCoordMode', 2)
Opt("GUIOnEventMode", 1)


GUICreate("Auto", 300,600, -1, 0) ; will create a dialog box that when displayed is centered
GUISetState ()    ; will display an empty dialog box
Opt("GUICoordMode",1)
Opt("GUIOnEventMode", 1)
WinSetOnTop("Auto","",1)
WinSetTrans("Auto","",150)

Dim $sll[900]
$list = GUICtrlCreateList("",10,10,280,560)
$write = GUICtrlCreateButton("Wright", 240, 555, 50,25)

    GUICtrlSetOnEvent($write, "wright")
    
Global $title = WinGetTitle("","")

Func Right()
SplashTextOn("Wait", "Getting information from click", 350, 50,0,0)

FileDelete("C:\classlist.txt")
Global $title = WinGetTitle("","")
Global $text = WinGetText("","")   
Global $trim = StringLeft($text, 15)
$class = WinGetClassList($title,"")
FileWrite("C:\classlist.txt", $class)

Global $lines = _FileCountLines("C:\classlist.txt")
For $n = 1 To $lines Step + 1
$FR = FileReadLine("C:\classlist.txt", $n)
    $button = ""
    For $n1 = 1 To $lines Step + 1
        Global $button = $FR & $n1
        $SIS = StringinStr($FR, "Static", 0, 1)
        $CGT0 = ControlGetText($title,"", $button)
        
        If $SIS <> 0 Then 
        $MPos = MouseGetPos() 
        Local $CPosYes = ControlGetPos($title, "", $button) 
        
        If IsArray($CPosYes) And IsArray($CPosYes) And IsArray($MPos) Then
            If $MPos[0] >= $CPosYes[0] And $MPos[0] <= $CPosYes[0] + $CPosYes[2] _
                And $MPos[1] >= $CPosYes[1] And $MPos[1] <= $CPosYes[1] + $CPosYes[3] And _IsPressed('02') Then window()
            Endif
        Endif
    Next
Next
SplashOff()
Sleep(250)

EndFunc

Func Left()

SplashTextOn("Wait", "Getting information from click", 350, 50,0,0)

For $n = 1 To 30 Step + 1
$FR = FileReadLine("C:\classlist.txt", $n)
    
    For $n1 = 1 To 30 Step + 1
        Global $button = $FR & $n1
        $SIS = StringinStr($FR, "Button", 0, 1)
        $SIS1 = StringinStr($FR, "Edit", 0, 1)
        $SIS2 = StringinStr($FR, "Static", 0, 1)
        $CGT0 = ControlGetText($title,"", $button)
        
        If $SIS <> 0 OR $SIS1 <> 0 OR $SIS2 <> 0 Then 
        $MPos = MouseGetPos() 
        $CPosYes = ControlGetPos($title, '', $button)   
        
        If IsArray($CPosYes) And IsArray($CPosYes) And IsArray($MPos) Then
            If $MPos[0] >= $CPosYes[0] And $MPos[0] <= $CPosYes[0] + $CPosYes[2] _
                And $MPos[1] >= $CPosYes[1] And $MPos[1] <= $CPosYes[1] + $CPosYes[3] And _IsPressed('01') Then goforit()
            Endif
        Endif
    Next
Next
SplashOff()

EndFunc

Func goforit()
If StringInStr($button, "Button",0,1) Then
$cgt2 = ControlGetText($title, "", $button)
_GUICtrlListInsertItem($list, 'ControlClick' & "('" & $title & "','"  & $sl & "','" & $cgt2 & "','Left',1)", -1)
ElseIf StringInStr($button,"Edit",0,1) Then
$cgt1 = ControlGetText($title, "", $button)
_GUICtrlListInsertItem($list, 'ControlSetText' & "('" & $title & "','"  & $sl & "','" & $button & "','" & $cgt1 & "')", -1)
ElseIf StringInStr($button,"Static",0,1) Then
$cgt0 = ControlGetText($title, "", $button)
_GUICtrlListInsertItem($list, 'ControlClick' & "('" & $title & "','"  & $sl & "','" & $cgt0 & "','Left',1)", -1)
EndIf
Sleep(500)
EndFunc

Func window()
If StringInStr($button, "Static",0,1) Then
$cgt0 = ControlGetText($title, "", $button)
$msg = MsgBox(4, "Information", "is this correct      : " & $cgt0)
    if $msg = 6 Then
        Global $sl = StringLeft($cgt0, 15)
        _GUICtrlListInsertItem($list, 'WinWait' & "('" & $title & "','"  & $sl & "')", -1)
    ElseIf $msg = 7 Then
    ;do nothing
    EndIf
EndIf

EndFunc

Func wright()
$input = InputBox("title","Enter name of file")
Run("Notepad.exe")
WinWait("Untitled - Notepad","")
For $loop = 0 To _GUICtrlListCount($list) Step + 1
    $details = _GUICtrlListGetText($list, $loop)
    ControlSend("Untitled - Notepad","","Edit1", $details & @CR)
Next

WinMenuSelectItem("Untitled - Notepad","", "&File", "&Save" )
WinWait("Save As","")
ControlSend("Save As","", "Edit1",@DesktopDir & "\" & $input & ".au3")
ControlCommand("Save As","", "ComboBox3", "SelectString", "All Files")
ControlClick("Save As", "", "Button2","Left",1)

EndFunc


    
While 1
    If _IsPressed("01", $dll) Then Left()
    If _IsPressed("02", $dll) Then Right()
WEnd

Basically im using the left and right mouse button to record an installation and enters the information into a list box, which later on is used to create an AU3 file works really well but for some strange reason, working intermitantly

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Infor on usage

When a instalation is being performed, right click on any visible text, if it can grab the information you will get a message stating is it correct, if u can see the text in the message box that you click on, then select yes. if no select another one.

simply left click on the buttons

i.e

click next

but hold left for a lil longer say .5 of a second, sometimes a window will go before the details are moved over.

and it will enter those details into the list box.

simple, lol just my bad coding

Edited by Silver21uk

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