Password

[Silver21uk]

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

[Paulie]

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

[Silver21uk]

expandcollapse popup

#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

[Silver21uk]

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 August 23, 2006 by Silver21uk