Messages - BigVent [ switch to compact view ]

Pages: [1] 2 3 4 5 6 ... 8 • next
1
Post New Requests Here / Re: IDEA: AutoMaximize Windows
« on: April 24, 2015, 09:27 AM »
Give this a shot & see what it does for you.


Code: Autohotkey [Select]
  1. ;http://www.autohotkey.com/board/topic/19672-detect-when-a-new-window-is-opened/
  2. ;DLLCall / Shell / MsgBox = SKAN
  3.  
  4. ;-------------------------------------------------------------------
  5. ;--Program monitors newly opened windows & maximizes accordingly--
  6. ;-------------------------------------------------------------------
  7.  
  12. SetWorkingDir %A_ScriptDir%
  14. onexit, exitsub
  15.  
  16. Gui +LastFound
  17. hWnd := WinExist()
  18.  
  19. DllCall( "RegisterShellHookWindow", UInt,hWnd )
  20. MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
  21. OnMessage( MsgNum, "ShellMessage" )
  22. Return
  23.  
  24. ShellMessage( wParam,lParam )
  25. {
  26.   Local k
  27.   If ( wParam = 1 ) ;  HSHELL_WINDOWCREATED := 1
  28.   {
  29.        NewID := lParam
  30.        SetTimer, MsgBox, -1
  31.   }
  32. }
  33.  
  35.          WinGetTitle, Title, ahk_id %NewID%
  36.          WinGetClass, Class, ahk_id %NewID%
  37.          WinWait, ahk_id %NewID%
  38.                                
  39.         ;add items you do NOT want maximized here... e.g. Properties Window (Alt+Enter), WinRar, etc.
  40.         ;*Note: WinTitles need to be case sensitive
  41.         if InStr(Title, "Properties") || InStr(Title, "WinRar")
  42.                 return
  43.         else
  44.                 minmax_func()
  45. Return
  46.  
  47. ralt & Esc::    ;right Alt key & Esc
  48. exitsub:
  49. {
  50.     critical
  51.         Exitapp
  52. }
  53.  
  54. ;=================
  55. ;==Function(s)====
  56. ;=================
  57. minmax_func()
  58. {
  59.         global NewID, minmax
  60.         WinGet, minmax, minmax, ahk_id %NewID%
  61.  
  62.    if (minmax=0)
  63.    {
  64.       WinMaximize, ahk_id %NewID%
  65.           ;use PostMessage for stubborn windows
  66.           ;PostMessage, 0x112, 0xF030,,, NewID  ; 0x112 = WM_SYSCOMMAND, 0xF030 = SC_MAXIMIZE
  67.    }
  68.    else
  69.         if (minmax=-1)
  70.         {
  71.                 WinRestore, ahk_id %NewID%
  72.         }
  73. }

2
Unfinished Requests / Re: UNFINISHED: Upload files listed in text file
« on: May 09, 2014, 10:00 AM »
My apologies for not placing a link sooner.

Very old topic (I know) but just in case a solution was never found:

https://www.donationcoder.com/forum/index.php?topic=36620.0

3
Post New Requests Here / Re: Send an email when remote computer is not in use
« on: May 08, 2014, 03:17 PM »
Here's a very quick example of what you needed.

Notes:
  • Timer is set to fire after 45 minutes of idle time (adjust as needed)
  • Should the program then exit after it fires? (I'm not sure how often you needed notices so I'll leave that up to you)
  • Easy email send via COM - adjust your email & credentials


Enjoy!

Code: Autohotkey [Select]
  3.  
  4. time := 2700000 ;//45 minutes
  5.  
  6. SetTimer, check, 300000 ;//check once every 5 min
  7. return
  8.  
  9. check:
  10.         if(A_TimeIdle >= time)
  11.         {
  12.                 email()
  13.                 SetTimer, check, off
  14.         }
  15. return
  16.  
  17. ;//function email
  18. email()
  19. {
  20.         pmsg                    := ComObjCreate("CDO.Message")
  21.         pmsg.From               := "[email protected]"
  22.         pmsg.To                 := "[email protected]"
  23.         pmsg.BCC                := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
  24.         pmsg.CC                 := ""
  25.         pmsg.Subject    := "PC in question is idle"
  26.  
  27.         ;You can use either Text or HTML body like
  28.         pmsg.TextBody   := A_Username " 's PC is idle."
  29.         ;OR
  30.         ;pmsg.HtmlBody := "<html><head><title>Hello</title></head><body><h2>Hello</h2><p>Testing!</p></body></html>"
  31.  
  32.         ;var := A_ScriptDir
  33.         ;msgbox % var
  34.         ;"%SPVvar%"|"%VPNvar%"
  35.         ;SPVvar := A_ScriptDir "\blah.txt"
  36.         ;VPNvar := A_ScriptDir "\blah1.txt"
  37.  
  38.         sAttach                 = ;%SPVvar%|%VPNvar%
  39.  
  40.  
  41.                 ; can add multiple attachments, the delimiter is |
  42.  
  43.         fields := Object()
  44.         fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
  45.         fields.smtpserverport     := 465 ; 25
  46.         fields.smtpusessl      := True ; False
  47.         fields.sendusing     := 2   ; cdoSendUsingPort
  48.         fields.smtpauthenticate     := 1   ; cdoBasic
  49.         fields.sendusername := "[email protected]"
  50.         fields.sendpassword := "password12345"
  51.         fields.smtpconnectiontimeout := 60
  52.         schema := "http://schemas.microsoft.com/cdo/configuration/"
  53.  
  54.         pfld :=   pmsg.Configuration.Fields
  55.  
  56.         For field,value in fields
  57.                 pfld.Item(schema . field) := value
  58.         pfld.Update()
  59.  
  60.         Loop, Parse, sAttach, |, %A_Space%%A_Tab%
  61.           pmsg.AddAttachment(A_LoopField)
  62.          
  63.         pmsg.Send()
  64.         return
  65. }
  66.  
  67. esc::
  68.         critical
  69.         exitapp
  70. return

4
Post New Requests Here / Re: IDEA: vCard organizer with batch operations
« on: January 21, 2014, 01:05 PM »
Can you provide a test vcf to use?  It'd be helpful to see one in action (change the names ofc)

5
N.A.N.Y. 2014 / Re: N.A.N.Y 2014 Submission: FTP File Uploader
« on: January 21, 2014, 10:26 AM »
Here's an updated exe. (above)

"Though I liked the concept of putting the files on to a file and uploading them, however it would had been better if there was an option to mention the FTP server’s address, username and password so the repeated task of typing in the details could be avoided." - Shine

Implemented & added the suggestion.  I agree that it would help the user especially if you're only using the same ftp.



Enjoy!

Pages: [1] 2 3 4 5 6 ... 8 • next
Go to full version