Jump to content

AutoitExplorer ;)


Holger
 Share

Recommended Posts

Hi :whistle:

this is just my unfinished script so you can see some other possibilities.

The code is not really structured but hey it's just for fun :dance:

Here a small screenshot...

BTW: self created items with Win32 API commands are not supported so please don't ask me :dance:

So long...

Holger

Edit: forgot: newest beta 3.1.1.73 is needed

Autoit3Explorer.au3

Edited by Holger
Link to comment
Share on other sites

1: why the 0 ?

Global Const $TVM_INSERTITEM = $TV_FIRST + 0

2:

to bad the listview doesnt do anything

3:

it doesnt have the #e shortcut :whistle:

4:

nice toy.

5:

gj.

Edited by w0uter

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Link to comment
Share on other sites

Yeah, is just for fun and testing some possibilities.

I tried some weeks to create treeview items on the fly with Win3Api and had no luck until end of last week (I think).

Maybe someone can create an explorer shell part with COM.

I tried yesterday COM commands the first time so I have no luck to now.

So, maybe it will take weeks again to study and learning and maybe it is not possible with the COM functions...

But it's not the problem so I can better understand some things for the future :whistle:

(Maybe I will work again on my old DirList/DirTree controls for the GUI - search the forum then you know what I mean :dance: ) ...

So long...

Holger

Edited by Holger
Link to comment
Share on other sites

Awesome job, it looks amazing. Is it actually in German though?

<{POST_SNAPBACK}>

i dont think so, i thinkits just his computer thats in german

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Link to comment
Share on other sites

  • 3 weeks later...

Nice

Maybe somone can explain this to me, I use this, and hit my c drive, or I use explorer and hit my c drive - and any thing else and it takes between 2 minutes and 5 minutes for it to give me a listing (and I am using a 2.6 ghz machine with a gig of ram - maybe not the fastest in the west, but fast enough.

On the other hand, I have built the same exact type of program, complete with the directory listing on the side, and the files to the right - even has a thumbnail, list, details mode for the file listings - did this in php and I get the directory listing instantly.

Just curious if someone knows off the top of their head what the difference is

Link to comment
Share on other sites

  • 4 months later...

Autoit3Ex.au3

Hi,

Again, just for interest; the GUI was slow, and hit the 4000 limit, so I fiddled a workaround to scroll etc.

What do you think?

[also some other minor changes for speed]

[for functionality because I may use it for the Search Dir program indexed later; , double-click a file brings up explorer..]

Best, Randall

Edited by randallc
Link to comment
Share on other sites

1: why the 0 ?

Global Const $TVM_INSERTITEM = $TV_FIRST + 0

Read wouter

; TV functions
Global Const $TVM_INSERTITEM            = $TV_FIRST + 0
Global Const $TVM_GETITEMRECT             = $TV_FIRST + 4
Global Const $TVM_SETIMAGELIST                = $TV_FIRST + 9
Global Const $TVM_SETITEM             = $TV_FIRST + 13
Global Const $TVM_HITTEST             = $TV_FIRST + 17

Number 1 /\ With +0 .Number 2 \/ with out +0

; TV functions
Global Const $TVM_INSERTITEM            = $TV_FIRST 
Global Const $TVM_GETITEMRECT             = $TV_FIRST + 4
Global Const $TVM_SETIMAGELIST            = $TV_FIRST + 9
Global Const $TVM_SETITEM             = $TV_FIRST + 13
Global Const $TVM_HITTEST             = $TV_FIRST + 17

Wouter please tell my what is easyer to read?

EDit : lol sorry i dont get them good , lined out

Edited by jaenster

-jaenster

Link to comment
Share on other sites

  • 11 months later...

Randallc :

I ran Autoit3Ex.au3 and when I double-click a file brings up explorer then I got error message :

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3"

C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3 (177) : ==> Subscript used with non-Array variable.:

If $arInfo[4] = $nTreeView And $arInfo[2] And WinActive($hGui) Then

If $arInfo^ ERROR

>Exit code: 0 Time: 19.849

Can you fix it please?

TIA.

Link to comment
Share on other sites

Randallc :

I ran Autoit3Ex.au3 and when I double-click a file brings up explorer then I got error message :

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3"

C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3 (177) : ==> Subscript used with non-Array variable.:

If $arInfo[4] = $nTreeView And $arInfo[2] And WinActive($hGui) Then

If $arInfo^ ERROR

>Exit code: 0 Time: 19.849

Can you fix it please?

TIA.

I fixed it. Took two seconds. All you had to do is before that If statement is check to make sure that $arInfo[4] is an array. Seems to work fine now. I also want to point out that this was a good project and I don't think it should be abandoned, especially when it is this far done.

I also want to point out the 4000 list objects limit no longer applies because you just use _GUICtrlListViewInsertItem() and the limit no longer applies because the memory of the listview is edited via memory functions.

To fix that problem that you pointed out, do this:

If IsArray($arInfo) Then ;insert this at line 177
        If $arInfo[4] = $nTreeView And $arInfo[2] And WinActive($hGui) Then
            $nFlag = 0
            $hItem = TV_Hittest($nTreeView, $nFlag)
            If BitAnd($nFlag, $TV2HT_ONITEMBUTTON) Or BitAnd($nFlag, $TV2HT_ONITEM) Then
                GUISetState(@SW_LOCK)
                CheckTreeFill($nTreeView, $hItem)
                GUISetState(@SW_UNLOCK)
                GUICtrlSetData($nAddressbar, GetTreePath($nTreeView, $hItem, "\"))
            EndIf
            $hItem = GUICtrlSendMsg($nTreeView, $TVM_GETNEXTITEM, $TVGN_CARET, 0)
            $szCurrentPath = GetTreePath($nTreeView, $hItem, "\")
            If BitAnd($nFlag, $TV2HT_ONITEM) Then GUICtrlSetData($nAddressbar, $szCurrentPath)
            If $szOldPath <> $szCurrentPath Then
                $szOldPath = $szCurrentPath
                GUISetState(@SW_LOCK)
                For $i = $nFirstItem To $nLastItem
                    GUICtrlDelete($i)
                Next
                GUISetState(@SW_UNLOCK)
                ;UpdateCtrl($hGui, $nListView)
                $nFirstItem = 0
                $nLastItem  = 0
                $nOldItem   = 0
                GUICtrlSetData($nAddressbar, $szCurrentPath)
                GUICtrlSetCursor($nListView,1)
                GUICtrlSetCursor($nTreeView,1)
                DirToList($szCurrentPath)
                GUICtrlSetCursor($nListView,2)
                GUICtrlSetCursor($nTreeView,2)
            EndIf
        ElseIf _IsPressed("6B") And ControlGetFocus($hGui) = "SysTreeView321" Then
            $hItem = GUICtrlSendMsg($nTreeView, $TVM_GETNEXTITEM, $TVGN_CARET, 0)
            CheckTreeFill($nTreeView, $hItem)
        EndIf
    Endif ;insert this at line 212

-The Kandie Man

"So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire

Link to comment
Share on other sites

Randallc :

I ran Autoit3Ex.au3 and when I double-click a file brings up explorer then I got error message :

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3"

C:\Program Files\AutoIt3\Scripts\Autoit3Ex.au3 (177) : ==> Subscript used with non-Array variable.:

If $arInfo[4] = $nTreeView And $arInfo[2] And WinActive($hGui) Then

If $arInfo^ ERROR

>Exit code: 0 Time: 19.849

Can you fix it please?

TIA.

Hi, Thanks to KandieMan;

but i don't have time to fix it properly;

the various changes since beta100 have upset various parts of this, i think.

best, randall

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...