topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • Thursday April 18, 2024, 10:53 pm
  • Proudly celebrating 15+ years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - BigVent [ switch to compact view ]

Pages: [1] 2 • 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!

6
N.A.N.Y. 2014 / Re: N.A.N.Y 2014 Submission: FTP File Uploader
« on: January 17, 2014, 04:06 PM »
Very cool that this got reviewed & could help someone out.  Thank you for the notice!

Sorry for the delay kyrathaba, nothing at the moment works besides cURL. 

7
Post New Requests Here / Re: IDEA - how to capitalise the first word of every line
« on: December 12, 2013, 09:15 PM »
Either way gentlemen... Thank you for the banter.

MilesAhead - thanks for being a good sport. The tools you suggested are great. I downloaded & agree.

Tao - I scan everything to a single file... But that's just me. Handle it all at once & done.

We're just geeks plain and simple. All ways work.  :Thmbsup:

OP: if you're still reading... Find the way you prefer & roll with it.

There are many many ways to take care of what you need.


8
Post New Requests Here / Re: IDEA - how to capitalise the first word of every line
« on: December 12, 2013, 03:13 PM »
 :huh:

"Why would you jump to that conclusion?  He says he scanned a thousand songs.  I'd say it was a safer assumption that he has 1000 files." - MilesAhead

"I'm creating a hymn book. The book I scanned and OCR'd had all the songs as blocks, with capitals only at the beginning of a sentence." - OP

He didn't say I scanned *several* books... but "THE BOOK".  Ergo, my assumption.  I could ask why you thought he had thousands of items and call you out on the boards for poorly reading what he wrote... but frankly I don't care.


It's good to have for cases where an already debugged one-liner may save you a ton of work.

That's awesome!  Perhaps I learned something from my 15 minutes of work on this script.   8)

9
Post New Requests Here / Re: IDEA - how to capitalise the first word of every line
« on: December 12, 2013, 11:03 AM »
Notes:
  • We can only assume that the OP has one single file.
  • I ran this new script on a 105,400 line txt file.  It returned in 1800 ms. (txt file is 6525 KB)
  • Fixed leading white spaces... under the assumption that the OP had leading white spaces on lines.
  • Target's method used is a little faster. Since it's a "once and done" project either method should suffice.

Anyway, Good Luck stormproof!

Code: Autohotkey [Select]
  3. SetWorkingDir %A_ScriptDir%
  5.  
  6. ;// OP -> "The book I scanned and OCR'd had all the songs as blocks, with capitals only at the beginning of a sentence."
  7. ;// We can only assume it's ONE single file
  8. FileSelectFile, SelectedFile, 3, , Open a file, Text Documents (*.txt; *.doc)
  9. if SelectedFile =
  10. {
  11.     MsgBox, You didn't select a file.
  12.                 exitapp
  13. }
  14. else
  15. {
  16.         FileRead, orig_str, %SelectedFile%
  17.         loop, parse, orig_str, `n, `r
  18.         {
  19.                 if (A_LoopField != "")
  20.                 {
  21.                         word_array := StrSplit(A_LoopField, A_Space)
  22.                        
  23.                         ;// fixed leading whitespace but is ONLY an assumption that one exists
  24.                         ;// IF there's not a white space
  25.                         if (word_array[1] != "")
  26.                         {
  27.                                 str := word_array[1]
  28.                                 StringUpper,str,str,T
  29.                                 word_array[1] := str
  30.                         }
  31.                         else
  32.                         {
  33.                                 str := word_array[2]
  34.                                 StringUpper,str,str,T
  35.                                 word_array[2] := str
  36.                         }
  37.                        
  38.                         ;// Rebuild the string and append to temp_var
  39.                         loop % word_array.MaxIndex()
  40.                         {
  41.                                 if (word_array[a_index] = "")
  42.                                         continue
  43.                                 temp_var .= word_array[a_index] " "
  44.                         }
  45.                         temp_var .= "`n"
  46.                 }
  47.         }
  48. }
  49.  
  50. IfExist, Output_File.txt
  51.         FileDelete, Output_File.txt
  52. FileAppend, %temp_var%, Output_File.txt
  53.  
  54. Run, Output_File.txt
  56.        
  57. esc::
  58.         critical
  59.         exitapp
  60. return

10
Post New Requests Here / Re: IDEA - how to capitalise the first word of every line
« on: December 11, 2013, 04:33 PM »
 Modify as needed.  :Thmbsup:

HTH's


Code: Autohotkey [Select]
  2.  
  3. ;//replace this string with your fileread, string, ...
  4. ;//FileRead, orig_str, C:\My Documents\My File.txt  ;//<== if this is used then the "join" just below this needs to be deleted
  5. ;//*from here*
  6. orig_str=
  7. (
  8. i'm creating a hymn book.  The book I scanned and OCR'd had all the songs as blocks, with capitals only at the beginning of a sentence.
  9. whereas I want to put a capital at the start of every line.
  10.  
  11. there are just under a thousand songs so I don't want to do it by hand!!
  12.  
  13. any ideas?  I've looked on line and can't find anything except via MS Word, which can be configured to do it after every carriage return.
  14. but as far as I can see, only as you type.
  15.  
  16. is there a way to replace every "carriage return" with "carriage return and capitalise the next letter"?
  17. )
  18. ;//*To here*
  19.  
  20. msgbox, Original text used:`n`n`n%orig_str%
  21.  
  22. loop, parse, orig_str, `n, `r
  23. {
  24.         if (A_LoopField != "")
  25.         {
  26.                 word_array := StrSplit(A_LoopField, A_Space)
  27.                                        
  28.                 str := word_array[1]
  29.                 StringUpper,str,str,T
  30.                                
  31.                 word_array[1] := str
  32.                
  33.                 loop % word_array.MaxIndex()
  34.                 {
  35.                         temp_var .= word_array[a_index] " "
  36.                 }
  37.                 temp_var .= "`n`n"
  38.         }
  39. }
  40.  
  41. msgbox, Final Result:`n`n`n%temp_var%
  43.  
  44. esc::

11
N.A.N.Y. 2014 / N.A.N.Y 2014 Submission: FTP File Uploader
« on: November 27, 2013, 10:37 AM »
NANY 2014 Entry Information


Application NameFTP File Uploader
Version1.0
Supported OSesWin XP or greater
Web pageNone
Download linkhttp://www.datafilehost.com/d/4c754c9a
System RequirementsWin XP or greater
AuthorBigVent

  • Idea obtained from: this post
  • This program will parse a selected text file & then upload those file names within said folder.
  • EXE must be in the folder of the images to be PUT via FTP.
  • Uses cURL for the PUT
  • Clears variables at the end so that nothing is stored
  • ESC key is the exitapp hotkey

Typical txt file: (only file_names & ext)

1.JPG
2.JPG
3.JPG

Download link:

http://www.datafilehost.com/d/9e50c56a

New Link:
http://www.datafilehost.com/d/4c754c9a


12
Living Room / Great sites for guitar learning
« on: November 26, 2013, 09:37 AM »
The purpose of this thread is to share links that would help *everyone* get a jump-start on the learning curve.

Please post your favorite sites, links, etc to help the community.

Thanks!


Justin Guitar -- Great site overall from beginners to advanced guitar

tropicalmba  -- Great site for beginners to start




13
Post New Requests Here / Re: comma remover and name order changer
« on: October 24, 2013, 12:09 PM »
Assuming all your file_names have "Lastname, Firstname Middle_init.ext" this should work for your purposes.  However, it WILL NOT work if they do not have a middle initial.  I based this upon your example above... "Abbott, John B.jpg"

Here's an easy example of what you need.  I know that this can be done via RegEx & other various ways, but I wanted to keep it simple. 
I felt it was easier to understand if you modified the code yourself. 

Feel free use as needed.

Enjoy!

Code: Autohotkey [Select]
  2.  
  3. FileSelectFolder, WhichFolder  ; Ask the user to pick a folder.
  4. Loop, %WhichFolder%\*.*, , 1
  5. {
  6.         file_name := A_LoopFileName
  7.  
  8.         StringReplace, file_name, file_name, `, , ,All    ;//removes the commas
  9.         StringReplace, file_name, file_name, ., %A_Space%, All     ;//changes the period to space
  10.        
  11.         name_array := StrSplit(file_name, A_Space)   ;//break it apart using the spaces & put into array
  12.        
  13.         final_name := name_array[2] " " name_array[3] " " name_array[1] "." name_array[4]    ;//combine array to new file struct
  14.        
  15.         FileMove, %WhichFolder%\%A_LoopfileName%, %WhichFolder%\%final_name%  ;//renames a single file
  16. }
  17.  
  18. msgbox, File Name(s) have been changed!
  19.  
  21.  
  22. Esc::   ;//panic button
  23.         critical

14
N.A.N.Y. 2014 / Re: N.A.N.Y. 2014 - New Apps for the New Year - Welcome Thread
« on: September 12, 2013, 02:05 PM »
Count me in for one too.

15
Post New Requests Here / Re: IDEA : Start-Quit Program w/Single Key?
« on: August 21, 2013, 09:49 AM »
Perhaps I should've clarified that this was an example that can be modified to suit your needs & I only tested it on my XP box, sorry about that.
Anyway, I've made an adjustment to the window & it should work as desired.  (e.g. "Date and Time Properties" on XP & "Date and Time" on > Vista)

Tested on Win XP, Vista, & 7


Enjoy!

Code: Autohotkey [Select]
  3.        
  4.     ;//change hotkey to your desired key
  5.     Numpad5:: ;//Number Pad 5 hotkey
  6.     {
  7.      
  8.                 while GetKeyState("Numpad5")    ;//while Number Pad 5 key is held
  9.                 {
  10.                         Traytip, Key Is Held, Your hotkey is being held., ,1
  11.      
  12.                         IfWinExist, Date and Time ;//Windows clock & date
  13.                                 Continue
  14.                         IfWinNotExist, Date and Time
  15.                                 run, Timedate.cpl
  16.                 }
  17.  
  18.                 sleep, 3000    ;//small delay
  19.                 Traytip
  20.      
  21.                 WinClose, Date and Time ;//upon release close the window
  22.     }
  23.     Return
  24.      
  25.     ESC & Numpad5:: ;//esc & Number Pad 5 will exit the script
  26.                 Critical
  27.                 ExitApp
  28.     Return

16
Post New Requests Here / Re: Flood Alert (As service or tray apps)
« on: August 20, 2013, 04:04 PM »
Try this out & let me know if it was close to what you were thinking.

Note: Right click as I added everything to the tray menu

*Added the doppler radar image(s)*


17
Post New Requests Here / Re: Flood Alert (As service or tray apps)
« on: August 20, 2013, 02:09 PM »
So you want the alert plus that image?

It's possible to add the image & would just need to be worked in.  I'll add that to my list of items to address.



~BigVent

18
Post New Requests Here / Re: Flood Alert (As service or tray apps)
« on: August 20, 2013, 09:50 AM »
Did the program alert you again?   :D

I need to revisit this program & do some work on the GUI & other items.


~BigVent

19
Post New Requests Here / Re: IDEA : Start-Quit Program w/Single Key?
« on: August 19, 2013, 12:53 PM »


Code: Autohotkey [Select]
  2.  
  3. ;//change hotkey to your desired key
  4. Numpad5::       ;//Number Pad 5 hotkey
  5. {
  6.                
  7.         while GetKeyState("Numpad5")    ;//while Number Pad 5 key is held
  8.         {
  9.                 Traytip, Key Is Held, Your hotkey is being held., ,1
  10.                
  11.                 IfWinExist, Date and Time Properties    ;//Windows clock & date
  12.                         Continue
  13.                 IfWinNotExist, Date and Time Properties
  14.                         run, Timedate.cpl
  15.         }
  16.         Traytip
  17.  
  18.                 WinClose, Date and Time Properties      ;//upon release close the window
  19. }
  20. Return
  21.  
  22. ESC & Numpad5:: ;//esc & Number Pad 5 will exit the script
  23.         Critical
  24.         ExitApp
  25. Return

20
Post New Requests Here / Re: IDEA: AutoMaximize Windows
« on: June 20, 2013, 02:53 PM »
Added functionality so that if your program window opens minimized it handles that as well.


~BigVent

21
Post New Requests Here / Re: IDEA: AutoMaximize Windows
« on: June 19, 2013, 04:10 PM »
*Amended*:

"would maximize automatically every maximizable window, when new windows of apps/Explorer etc opening."
 
   As I re-read the other linked thread I think this is more suitable for your needs.

Enjoy!


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.  
  11. SetWorkingDir %A_ScriptDir%
  13. onexit, exitsub
  14.  
  15. Gui +LastFound
  16. hWnd := WinExist()
  17.  
  18. DllCall( "RegisterShellHookWindow", UInt,hWnd )
  19. MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
  20. OnMessage( MsgNum, "ShellMessage" )
  21. Return
  22.  
  23. ShellMessage( wParam,lParam )
  24. {
  25.   Local k
  26.   If ( wParam = 1 ) ;  HSHELL_WINDOWCREATED := 1
  27.   {
  28.        NewID := lParam
  29.        SetTimer, MsgBox, -1
  30.   }
  31. }
  32.  
  34.          WinGetTitle, Title, ahk_id %NewID%
  35.          WinGetClass, Class, ahk_id %NewID%
  36.          WinWait, ahk_id %NewID%
  37.                 TrayTip, New Window Opened, Title:`t%Title%`nClass:`t%Class%
  38.         minmax_func()
  39. Return
  40.  
  41. ralt & Esc::    ;right Alt key & Esc
  42. exitsub:
  43. {
  44.     critical
  45.         Exitapp
  46. }
  47.  
  48. ;=================
  49. ;==Function(s)====
  50. ;=================
  51. minmax_func()
  52. {
  53.         global NewID, minmax
  54.         WinGet, minmax, minmax, ahk_id %NewID%
  55.  
  56.    if (minmax=0)
  57.    {
  58.       WinMaximize, ahk_id %NewID%
  59.           ;use PostMessage for stubborn windows
  60.           ;PostMessage, 0x112, 0xF030,,, NewID  ; 0x112 = WM_SYSCOMMAND, 0xF030 = SC_MAXIMIZE
  61.    }
  62.    else
  63.         if (minmax=-1)
  64.         {
  65.                 WinRestore, ahk_id %NewID%
  66.         }
  67. }

~BigVent

22
Post New Requests Here / Re: Weather Alert (As service or tray apps)
« on: June 17, 2013, 08:44 AM »
psionics,

   You're most welcome!  I'm VERY happy to hear that this is aiding you!!!  I figured that if it could (save/warn) at least one person then it's worth any amount of time invested!

   Did this app alert you personally?   Is there anything you can see that needs to be adjusted, changed, added?


Again, thank you for the feedback!


~BigVent

23
Post New Requests Here / Re: Weather Alert (As service or tray apps)
« on: May 02, 2013, 04:51 PM »
Seems to be back up now


~BigVent

24
Post New Requests Here / Re: Weather Alert (As service or tray apps)
« on: May 02, 2013, 12:14 PM »
Thank you mouser!!! Much appreciated!

~BigVent

25
Post New Requests Here / Re: Weather Alert (As service or tray apps)
« on: May 01, 2013, 01:09 PM »
Hey psionics, thank you for the feedback!

* if we didn't put an entry on email/txt/smtp functions, will it not function by default? or can we have an enable/disable box for the email/txt/smtp functions(to save bandwidth/sms during non-alerting days) or a button to toggles between alerting/normal days?

  • Now you can select whether or not you'd like to enter your information.  At any time you can rt. click tray icon & change location or email/text information

* have a hyperlink to http://121.58.193.22.../html/wl/wl_map.html  - near the location selector(so they will have the initial idea where they are located)

  • Great idea & has been implemented

* can we use a different icon? (lets look for one)
  • I chose the Philippines flag for the current icon.  If you think of one better just let me know & we'll incorporate

* can we name the apps as floodwatch.exe(instead of pagasa.exe) and rename "Philippines Flood Information and Alert" into "Flood Watch Philippines"

  • Absolutely!  Done

Items that I'll work on:
  • Make a better GUI for the program. (I've only been focused on the functionality)
  • Testing on different OS to ensure everything works properly
  • Will remove the "Press F10 for direct site within the notification

~BigVent

Pages: [1] 2 • next