Messages - koomi [ switch to compact view ]

Pages: [1]
1
Living Room / Re: Micropayments now officially supported by PayPal
« on: February 14, 2011, 04:12 PM »
What about a community site, where micro-payments are made to (potentially) many different users? Is "PayPal Digital Goods" a suitable choice for such a scenario?

2
Living Room / Re: 5 New Favorite Sites
« on: December 04, 2010, 08:56 PM »
For this month, my favorite site is http://phpadvent.org/2010

3
Post New Requests Here / Re: IDEA: Insta-switch file dialog to any Explorer window's path (code included)
« on: April 02, 2010, 07:32 PM »
Well, I already have Folder Menu for access to favorites, and I use it a lot (except for the list of system recent folders, since it loads so slowly.) The reason I like "QuickSwitch" behaviour is that I often find myself with an explorer window open at the precise location I need to save or open something. I use the keyboard Alt-Tab a lot, so this kind of script is a natural extension to the way I work.

4
Post New Requests Here / IDEA: Insta-switch file dialog to any Explorer window's path (code included)
« on: April 01, 2010, 08:25 PM »
Hi, first post ;D

I used to use Direct Folders, but had to switch to Folder Menu after I got tired of dealing with various bugs. One thing I sorely missed was the QuickSwitch feature, so I hacked up a LinkExplorerPathToFileDialog Autohotkey script. It's been briefly tested in Window XP only. If anyone would like to take a stab at any of the "NEEDS HELP WITH" or offer suggestions it would be greatly appreciated! I'm an AHK newbie...

Code: AutoIt [Select]
  1. ; LinkExplorerPathToFileDialog.ahk v0.01 WIP by koomi
  2. ; *** WARNING: Alpha code! Use at your own risk! ***
  3. ; Makes a file dialog instantly jump to the folder of any Explorer Window you click
  4. ; Idea stolen from Direct Folders' "QuickSwitch" feature.
  5. ;
  6. ; How to use:
  7. ;   1) Open a file dialog (Open/Save, also works with 7-Zip Extract and so forth)
  8. ;   2) Switch to an open Windows Explorer window
  9. ;   3) The Open/Save dialog will change to same path as the Explorer window
  10. ;   *) Autohotkey_L is recommended if your system has non-Western foldernames
  11. ;
  12. ; NEEDS HELP WITH:
  13. ;   User testing
  14. ;   Windows Vista/7 compatibility
  15. ;   Better sanity checking to make sure we're really dealing with a file dialog
  16. ;       Maybe by matching the window title against a list of known good ones?
  17. ;   Work with folder tree dialogs as well (like Direct Folders)
  18. ;   .INI file to allow specifying custom class+control+title combinations
  19. ;   Microsoft Office compatibility
  20. ;   Allow modification of the filename after the dialog first opens
  21. ;   Pretty icon and menu stuff like "Disable/Enable"
  22. ;   Flash taskbar/caption of dialog parent when path is changed or something
  23.  
  24. #SingleInstance Force
  25. #Persistent
  26. SetBatchLines,-1
  27.  
  28. Gui +LastFound
  29. shWnd := WinExist()
  30. DllCall( "RegisterShellHookWindow", UInt,shWnd )
  31. MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
  32. OnMessage( MsgNum, "ShellMessage" )
  33.  
  34. HookProcAdr := RegisterCallback( "HookProc", "F" )
  35. hWinEventHook := SetWinEventHook( 0x3, 0x3, 0, HookProcAdr, 0, 0, 0 )
  36.  
  37. ; Globals that need to be shared between ShellMessage() and HookProc()
  38. ControlText =
  39. ControlHwnd =
  40. LastCharacter =
  41.  
  42. OnExit, HandleExit
  44.  
  45. ; See http://www.autohotkey.com/forum/post-123323.html
  46. ShellMessage( wParam,lParam )
  47. {
  48.     global ControlText
  49.     global ControlHwnd
  50.     global LastCharacter
  51.  
  52.     ; See http://msdn.microsoft.com/en-us/library/ms644989.aspx
  53.     If ( wParam = 1 || wParam = 4 ) ;  HSHELL_WINDOWCREATED := 1 OR HSHELL_WINDOWACTIVATED := 4
  54.     {
  55.         WinGetClass, Class, ahk_id %lParam%
  56.         ; Is this an Explorer window?
  57.         If (Class = "CabinetWClass" OR Class = "ExploreWClass") ; Might need adjustment for Vista/Win7
  58.         {
  59.             ; Do we have a Open/Save control handle available?
  60.             If (ControlHwnd)
  61.             {
  62.                 WinGetTitle, ExplorerTitle, ahk_id %lParam%
  63.                 If (LastCharacter <> "\")
  64.                 {
  65.                     ; Change the path to the Explorer path
  66.                     ControlSetText,, %ExplorerTitle%, ahk_id %ControlHwnd%
  67.                     ControlSend,, {Enter}, ahk_id %ControlHwnd%
  68.                     ; Put the original filename back in the dialog edit control
  69.                     ControlSetText,, %ControlText%, ahk_id %ControlHwnd%
  70.                 }
  71.                 ; For cases like 7-Zip "Extract" dialog which contain pathnames, not filenames
  72.                 else
  73.                 {
  74.                     ControlSetText,, %ExplorerTitle%\, ahk_id %ControlHwnd%
  75.                 }
  76.                 ; If Dialog is gone, reset globals to avoid extra work next time around
  77.                 If ErrorLevel
  78.                 {
  79.                     ControlText =
  80.                     ControlHwnd =
  81.                     LastCharacter =
  82.                     Exit
  83.                 }
  84.             }
  85.         }
  86.     }
  87. }
  88.  
  89. ; See http://www.autohotkey.com/forum/topic35659.html
  90. HookProc( hWinEventHook, Event, hWnd, idObject, idChild, dwEventThread, dwmsEventTime )
  91. {
  92.     global ControlText
  93.     global ControlHwnd
  94.     global LastCharacter
  95.  
  96.     If Event ; EVENT_SYSTEM_FOREGROUND = 0x3
  97.     {
  98.         ; Windows and dialog boxes need time to "settle". See AHK manual
  99.         Sleep, 120
  100.         WinGetClass, DialogClass, ahk_id %hWnd%
  101.         ; Is this a typical Open/Save dialog box?
  102.         If (DialogClass = "#32770")
  103.         {
  104.             ; Populate globals for use in ShellMessage
  105.             ControlGet, ControlHwnd, Hwnd,, Edit1, ahk_id %hWnd%
  106.             ControlGetText, ControlText, Edit1, ahk_id %hWnd%
  107.             StringRight, LastCharacter, ControlText, 1
  108.         }
  109.     }
  110. }
  111.  
  112. SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
  113. {
  114.     DllCall("CoInitialize", Uint, 0)
  115.     return DllCall("SetWinEventHook"
  116.     , Uint,eventMin
  117.     , Uint,eventMax
  118.     , Uint,hmodWinEventProc
  119.     , Uint,lpfnWinEventProc
  120.     , Uint,idProcess
  121.     , Uint,idThread
  122.     , Uint,dwFlags)
  123. }
  124.  
  125. UnhookWinEvent()
  126. {
  127.     Global
  128.     DllCall( "UnhookWinEvent", Uint,hWinEventHook )
  129.     DllCall( "GlobalFree", UInt,&HookProcAdr ) ; free up allocated memory for RegisterCallback
  130. }
  131.  
  132. HandleExit:
  133. UnhookWinEvent()
  134. ExitApp

Pages: [1]
Go to full version