AutoHotkey Community

[TLM]

Does the 1st loop, 10 run My Computer actually open 10 My Computer windows?

If not then you could remove the Loop 10 section and add my bulcky workaround .

If so you can keep your version.

[Composer]

Haven't yet tried to see if 10 My computers open.

Would the combined Code now be -

Loop 4
Run, iexplore.exe
Run, msimn.exe
Run, C:\Program Files\WordWeb\wwnotray.exe
Run, C:\Documents and Settings\Robert\Start Menu\Programs\Pocket Oxford Dictionary
Run, C:\sm_bible\smw.exe,C:\sm_bible
Run, C:\program files\Commander\efcw.exe
Run, C:\Program Files\NET Bible First Edition\netbible.chm
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Office\Microsoft FrontPage
Num=
Loop, 10
{
Num++
FileCreateDir, % A_Desktop "\Folder" Num
Run, % A_Desktop "\Folder" Num
WinWait, % "Folder" Num
IfWinExist, % "Folder" Num
ControlSetText, Edit1, My Computer, % "Folder" Num
ControlClick, ToolbarWindow321, % "Folder" Num
WinWait, My Computer
WinGet, mcPID, PID, My Computer
Sleep, 500
FileRemoveDir, % A_Desktop "\Folder" Num
if Num <= 5
{
WinWait, My Computer
WinMove, My Computer,,0, 0, % A_ScreenWidth / 2
}
Else
{
WinWait, My Computer
WinMove, My Computer,,% A_ScreenWidth / 2, 0, % A_ScreenWidth / 2
}
}
ToolTip


Thanks

[TLM]

[Composer]

It seems to work, I typed -

Loop, 10
{
Num++
FileCreateDir, % A_Desktop "\Folder" Num
Run, % A_Desktop "\Folder" Num
WinWait, % "Folder" Num
IfWinExist, % "Folder" Num
ControlSetText, Edit1, My Computer, % "Folder" Num
ControlClick, ToolbarWindow321, % "Folder" Num
WinWait, My Computer
WinGet, mcPID, PID, My Computer
Sleep, 500
FileRemoveDir, % A_Desktop "\Folder" Num
if Num <= 5
{
WinWait, My Computer
WinMove, My Computer,,0, 0, % A_ScreenWidth / 2
}
Else
{
WinWait, My Computer
WinMove, My Computer,,% A_ScreenWidth / 2, 0, % A_ScreenWidth / 2
}
}
ToolTip


Although it worked I forgot to include Num= (is that important?)

What do I do next, add the other part of the Code? -

Loop 4
Run, iexplore.exe
Run, msimn.exe
Run, C:\Program Files\WordWeb\wwnotray.exe
Run, C:\Documents and Settings\Robert\Start Menu\Programs\Pocket Oxford Dictionary
Run, C:\sm_bible\smw.exe,C:\sm_bible
Run, C:\program files\Commander\efcw.exe
Run, C:\Program Files\NET Bible First Edition\netbible.chm
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Office\Microsoft FrontPage


Thanks

[tidbit]

Use code tags when posting code, like everyone else.

[Composer]

I have now basically got all working almost how I want, great. -

Loop 4
Run, iexplore.exe
Run, msimn.exe
Run, C:\Program Files\WordWeb\wwnotray.exe
Run, C:\sm_bible\smw.exe,C:\sm_bible
Run, C:\pod\pod.exe
Run, C:\program files\Commander\efcw.exe
Run, C:\Program Files\NET Bible First Edition\netbible.chm
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Office\Microsoft FrontPage
Num=
Loop, 10
{
Num++
FileCreateDir, % A_Desktop "\Folder" Num
Run, % A_Desktop "\Folder" Num
WinWait, % "Folder" Num
IfWinExist, % "Folder" Num
ControlSetText, Edit1, My Computer, % "Folder" Num
ControlClick, ToolbarWindow321, % "Folder" Num
WinWait, My Computer
WinGet, mcPID, PID, My Computer
Sleep, 500
FileRemoveDir, % A_Desktop "\Folder" Num
if Num <= 5
{
WinWait, My Computer
WinMove, My Computer,,0, 0, % A_ScreenWidth / 2
}
Else
{
WinWait, My Computer
WinMove, My Computer,,% A_ScreenWidth / 2, 0, % A_ScreenWidth / 2
}
}
ToolTip

- - - -
How do I get the 5 left hand (LHS) My computer directories to Open in a specific Folder - C:\scriptural_data

And the 5 folders on the Right hand side (RHS) to open in G:\scriptural_data ?

Sorry, & can a routine be made to close all these commands down when I have finished the session and want to shut down till next time?

Thanks

[hd0202]

Hi,

why will you close those 10 folders at logoff? Let Windows himself open them again at logon,

set Restore previous folder windows at logon
in Tools - Folder Options - View

Hubert

[aaffe]

[aaffe]

[gunns256]

Here's code that I use to open a work session and then later close a work session. It does not do everything you want.

My code is specific to my needs, and many of my ideas are stupid. (I am a newbie.) Frankly, the startup script needs tuning up (the msgbox, Wait 10 does not work well). However, you may get some of the stuff you need.

I'm using Regex title matching in the closedown, because when I am finished with Chapter 9, I will move on to Chapter 10. Also I will have created windows with titles like "9.3"

gunns256

[TLM]

[gunns256]

Thanks. I have been aware of people using pids in their work, but haven't followed up on it yet. Happy Thanksgiving, if you're from USA. Or even if you're not.

gunns256

[Composer]

Ok, I have got my 1st Macro sorted reasonably well.

Now on my 2nd Computer I would like to have 3 My Computer's Open, each one taking 1/3rd of the Screen space.

Far left C:\m
Centre F:\G_drive_backup\m
Right side G:\m

i am a Composer of Music and need to transfer files from C:m - F:\G_drive_backup\m - G:\m

Ideally even 3 My Computers open and 1 instance of My Network places\m

Any help appreciated. I did try editing the other Code but I get the C| in the middle and the G:\ on the left and a message saying F:\ is not a directory?

Thanks

[TLM]

[Composer]

Sorry to get back so late I had to let it go as I couldn't make it work properly.

I get error message using the following -


posDiv = 0
Loop, 3
{
cursPos .= "Screen Position " A_Index ": " posDiv "`n"
posDiv += round(A_ScreenWidth / 3)
}

Msgbox, % "Screen Divded into 1/3rd`n`n" cursPos
Loop, 4 {
Run, iexplore.exe, ,Max
}
Sleep, 5000
Run, msimn.exe, ,Min
Run, C:\Program Files\WordWeb\wwnotray.exe, ,Min
Run, C:\sm_bible\smw.exe,C:\sm_bible, ,Min
Run, C:\program files\Commander\efcw.exe, ,Min
; Run, C:\pod\pod.exe, C:\pod\,Min
Run, C:\Program Files\NET Bible First Edition\netbible.chm, ,Min
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Office\Microsoft FrontPage, ,Min
Sleep, 5000
Loop, 4 {
Run, explorer.exe /n`,C:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,0, 0, % A_ScreenWidth / 3
Run, explorer.exe /n`,F:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,% A_ScreenWidth / 3, 0, % A_ScreenWidth / 3
Run, explorer.exe /n`,G:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,% A_ScreenWidth / 3, 0, % A_ScreenWidth / 3
}

-------------------------------
I tried on my own using -

Loop, 4 {
Run, iexplore.exe, ,Max
}
Sleep, 5000
Run, msimn.exe, ,Min
Run, C:\Program Files\WordWeb\wwnotray.exe, ,Min
Run, C:\sm_bible\smw.exe,C:\sm_bible, ,Min
Run, C:\program files\Commander\efcw.exe, ,Min
; Run, C:\pod\pod.exe, C:\pod\,Min
Run, C:\Program Files\NET Bible First Edition\netbible.chm, ,Min
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Office\Microsoft FrontPage, ,Min
Sleep, 5000
Loop, 4 {
Run, explorer.exe /n`,C:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,0, 0, % A_ScreenWidth / 3
Run, explorer.exe /n`,F:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,% A_ScreenWidth / 3, 0, % A_ScreenWidth / 3
Run, explorer.exe /n`,G:\scriptural_data,,
Sleep, 2000
WinMove, scriptural_data,,% A_ScreenWidth / 3, 0, % A_ScreenWidth / 3

It may be a long winded way but it did work except the G:\scriptural_data directories all overlapped the F:\scriptural_data directories in the middle 1/3rd of the screen?

I need to just get the 4 x G:\scriptural_data directories to shift to the far right 1/3rd of the screen and it will be great!

Please help refine?

Thanks