Add another column

garry · Post by **garry** » 31 Jan 2022, 14:41

sorry , I just added a Title before TD_Bank Calendar and TV_GUIDE
works with transparent background ( from amateur+ )
EDIT : added Gui,2: minimize ( GUI minimized after start a button )

Code: Select all

;- 20220131 small changes > must contain > "Title;;FontSize|FONT|BackGroundColor|TextColor;" 
;-                          BANK;;15 Bold|Verdana|Green|Black;
;- Add another column - Page 4 
;- https://www.autohotkey.com/boards/viewtopic.php?p=441845#p441845
;-
;-- Date-modified =20220130     GUI background transparent user amateur+
;-- Date-modified =20220128     GUI transparency change with button alt+up/down
;-- Date-modified =20211107     not needed add # for title,Font/Color definitions are in column3 
;-- Date-modified =20211106     different fonts and size for buttons
;-- Date-modified =20211104/3   different colors for BUTTONS after TITLE or SPACE 
;-- Date-modified =20210917/3   csv Halifax / TITLE-button has another color / +Resize 
;-- Date-modified =20210917/2   add TITLE or SPACE between buttons
;-- Date-modified =20210915     color buttons
;-- Date-modified =20210914     one button starts 3 URL's or programs 
;--------------------------------------------------------------------------------
#warn
#NoEnv
#Singleinstance,force
filename1:="Jr's Shortcut's"
setworkingdir,%a_scriptdir%
Settitlematchmode,2
Gui,2:default
Gui,2: -DPIScale +Resize +Hwnduid
transform,s,chr,127    ;- delimiter for stringsplit
WA:=A_screenwidth,HA:=A_screenheight,xx:=100
color_to_make_invisible := 123456
Gui,2:Color, % color_to_make_invisible, Black   ;-blue/black
;--------------------
col1:="",col2:="",col3:="",col4:=""
vert:=18                    ;-- change here how many vertikal buttons want have ( inclusive EMPTY-LINE and TITLE )
;                           but then also change GuiSize ( Width and Height )
;                           add a separator line for better view after defined variable 'vert' ) here after line 18 > ==============                         
;--------------------
;-
;- I don't know which is the best font-size depending screen-size or scaling 
;------ BUTTON-TITLE ---------------
FontTitle:="Trebuchet MS" ,SizeTitle:="16 norm bold",colbgr:="RED",coltxt:="Yellow"
;----------------------------------
;---------------------  Button-NAME - URL1 - URL2 - URL3 ----------------------------------------------------
;- if Column-2 is empty :
;- all definitions are in Column-3  : FontSize|FONT|BackGroundColor|TextColor
;-
;- TOOLS;;11 norm|Verdana|D5D1C9|black;
;- CHARMAP_CALC_NOTEPAD;charmap;calc;notepad             ;-- run URL or program (1-3)
;------------------------------------------------------------------------------------------------------------
;-
sectx=   
(Ltrim comments Join`r`n % 
Halifax_Retales;;12 italic|Courier New|B7E5B0|Black;
Halifax_Retales_Chat;https://www.facebook.com/groups/HalifaxReTalesChat/?fref=mentions;;
Halifax_Retales_Facebook;https://www.facebook.com/HalifaxReTales;;
Halifax_Retales_Faves;https://faves.retales.ca/;;
Halifax_Retales_Twitter;https://twitter.com/HalifaxReTales;;
MAP;;14|Courier New|Blue|Yellow;
Halifax_Peninsula;https://skyscraperpage.com/forum/forumdisplay.php?f=223;;
_S;;;
Utilities;;13 Bold|Verdana|C8D0D4|Black;
Bell_Aliant;https://mybell.bell.ca/Login?TYPE=33554433&REALMOID=06-000db269-81bc-1874-88d4-791a8e75d0dd&GUID=&SMAUTHREASON=0&METHOD=GET&SMAGENTNAME=-SM-QKP7nnHXh2qXJfMWInHziJlTBdI9C7eOEOJRmIO63Oa%2fimktrTgbipB8hCBdh8Ey&TARGET=-SM-HTTPS%3a%2f%2fmybell%2ebell%2eca%2fMobility%3fAcctNo%3d8D711C5DA4B3704F0A5FE8ED0DB141225B124765045364C13F3345E0CA9697EBA72FAFBE86087BF101511830FD449071%26SubNo%3d13180274;;
NS_Power;https://myaccount.nspower.ca/;;
Revenue_Canada;https://cms-sgj.cra-arc.gc.ca/gol-ged/awsc/cms/login?TYPE=33554432&REALMOID=06-26a97681-2e5a-105d-9505-84cb2b4afb5e&GUID=&SMAUTHREASON=0&METHOD=GET&SMAGENTNAME=-SM-GgEvYn3OZXQNOspDHK1HhUDfU85UA5Hn6uCn82KAPP5ZRYxHSPl9zbYgX%2bo%2fKX8ekTfnHiefEV9WuLhWoiWhmWgZUuDe6Y0zIdGX7J%2biBrvr%2fcy6jEzpUhFtfkK6Yo8B&TARGET=-SM-HTTPS%3a%2f%2fcms--sgj%2ecra--arc%2egc%2eca%2fgol--ged%2fawsc%2fcms%2fmacauth%3fTYPE%3d33554432%26REALMOID%3d06--00ba5d0a--2e5a--105d--9505--84cb2b4afb5e%26GUID%3d%26SMAUTHREASON%3d0%26METHOD%3dGET%26SMAGENTNAME%3d--SM--GgEvYn3OZXQNOspDHK1HhUDfU85UA5Hn6uCn82KAPP5ZRYxHSPl9zbYgX-%2bo-%2fKX8ekTfnHiefEV9WuLhWoiWhmWgZUuDe6Y0zIdGX7J-%2biBrvr-%2fcy6jEzpUhFtfkK6Yo8B%26TARGET%3d--SM--HTTPS-%3a-%2f-%2fcms----sgj-%2ecra----arc-%2egc-%2eca-%2fgol----ged-%2fawsc-%2fcms-%2fpostlogin-%3fSAMLRequest-%3dfVCxboMwEN3zFcg7GJsawgmQImWJlC5t1aFLdXEs4ghs6jNKP7---%2BEDm2X3nDD07t3771mN8eLezIfs6GY7JdlHUbrXcsuMU4EnOuRUuqvmQ6YYtBZrzONd---%2FRGfJpPg9WccBwkkWfJYd---%2Byd1WYrarqqjZVqUp1lltVFDpHVZ---%2Brh6qUUp3MQiWazcFRRBdbJnMpUiHSvHiRAkQJon5jyasJtJqRWc6Sz3Fw1LI5OPBIlsDhaAiihufd4xEWDkzBR6---%2F9wLpNskzjSMD6KHxfwwL8r4BEJtwbYN3ge---%2BsyXPPj3---%2FwN---%2F1HuNg3---%2FXWP3BQ---%3D---%3D-%26RelayState-%3dac0922f7e6f35cdaa2770815347a7f9b9e57e960-%26SigAlg-%3dhttp---%3A---%2F---%2Fwww-%2ew3-%2eorg---%2F2001---%2F04---%2Fxmldsig----more---%23rsa----sha256-%26Signature-%3dXpv3M3aTaIDMkv---%2FbtxIVHkf6HZ9xjEVFvwwLv04---%2FywTRliKa2H---%2B8IpSAnvLVp0ZduiXVpwZp0V9---%2FpSxnMaF0fH---%2BstWQutSK9DYJNchp---%2B---%2ByjlnAFhfAS0LKzpTvIU7nsewuOMyMnJxGZlx5buBAUhg8HczSK3Z0xQpMGKTXBzXy8SXxwc1BPnpal---%2BGPUVlahYEtdiDFJJDw52BYYbgGbWa---%2F31A5erC6DLfEfr6a0A5GXipKMh47kd3aC1BrGC4Nk---%2Fud6AeesmzgBuf1MoJ---%2B0DXAg48Suuz8qgxdMy9l3nzvlk57---%2FZJrUHU3YRF77nr2pYTnm8UYRdsLZsx---%2FVoVWTi0g---%3D---%3D-%26SMPORTALURL-%3d3s3oC2jIJ0qEQ12Yiq9kAEjDKEUuKufwTJYavzvDtmH65tOSqAjOcKBbNnWrHFISoEmNt55oyAIlNgDZ---%2FeXB9Z---%2Fegu2zyozy;;
Tim_Hortons;https://www.timhortons.ca/;;
Tools;;;
This_PC;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\PC Tool's\This PC.ahk;;
_S;;;
BANK;;15 Bold|Verdana|Green|Black;
TD_Bank;https://authentication.td.com/uap-ui/index.html?consumer=easyweb&locale=en_CA#/login/easyweb-getting-started;;
==================================================
Programs;;13 Bold|Verdana|FF8000|Black;
AutoHotkey_A;A:\
CCleaner_Portable;E:\PortableApps\PortableApps\ccPortable\ccPortable.exe;;
Equalizer_APO;C:\Users\Jr\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Equalizer APO 1.2.1\Configuration Editor.lnk;;
Microsoft_Config_Center;C:\Program Files\Microsoft Mouse and Keyboard Center\MouseKeyboardCenter.exe;;
Revo_Uninstaller;E:\PortableApps\PortableApps\RevoUninstallerPortable\RevoUninstallerPortable.exe;;
Portable_Apps;E:\PortableApps\Start.exe - Shortcut.lnk;;
Sandisk_E;E:\;;
System_Explorer;E:\PortableApps\PortableApps\SystemExplorerPortable\SystemExplorerPortable.exe;;
_S;;;
Shopping;;13 Italic|Verdana|FF8000|Black;
Amazon_Canada;https://www.amazon.ca/;;
Amazon_Canada_Phone;https://gethuman.com/phone-number/Amazon-Canada;;
Costco_Canada;https://www.costco.ca/?langId=-24;;
Walmart_Canada;https://www.walmart.ca/en;;
_S;;;
_S;;;
_S;;;
==================================================
Sports;;14 |Courier new|B7E5B0|Black;
Sportsnet;https://www.sportsnet.ca/;;
TSN;https://www.tsn.ca/live/schedule;;
ESPN;https://www.espn.com/;;
_S;;;
_S;;;
_S;;;
_S;;;
Transportation;;13 Bold|Verdana|C8D0D4|Black;
Halifax_Transit;https://www.halifax.ca/;;
Halifax_Transit_Alerts;https://www.halifax.ca/transportation/halifax-transit/service-disruptions?utm_source=citynews%20halifax&utm_campaign=citynews%20halifax%3A%20outbound&utm_medium=referral;;
Halifax_Transit_Twitter;https://twitter.com/hfxtransit;;
Stanfield_Airport;;13 Bold|Verdana|Silver|Black;;
Halifax_Airport;https://halifaxstanfield.ca/flight-information/departures/;;
Halifax_Airport_Twitter;https://twitter.com/HfxStanfield;;
_S;;;
TIMETABLE;;14 Bold|Verdana|Green|Black;
Calendar;C:\Users\Jr\AppData\Roaming\Microsoft\Windows\Network Shortcuts\Shortcuts\Calendar - Shortcut.lnk;;
==================================================
GMail;;12|Lucida Console|FF8000|Black;
GMail_Login;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Login.ahk;;
GMail_Logout;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Logout.ahk;;
GMail_Relogin;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Relogin.ahk;;
News;;13 Bold|Verdana|00FFFF|Black;
Chronicle_Herald;https://www.thechronicleherald.ca/;;
Global_News;https://globalnews.ca/halifax/;;
CityNews_Everywhere;https://www.halifaxtoday.ca/;;
NY_Post;https://nypost.com/;;
Las_Vegas_Sun;https://lasvegassun.com/;;
CNN_News;https://www.cnn.com/;;
Favorites;;13 Bold|Verdana|FF8000|Black;
Firefox_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Firefox Portable.ahk;;
Brave_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Brave Portable.ahk;;
Your_Phone;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Your Phone.ahk;;
TV_Show_Tracker;C:\Users\Jr\Desktop\Send_2TVShowTracker.ahkC038;;
_S;;;
_S;;;
==================================================
AutoHotkey_Shortcuts;;12 Bold|Verdana|B7E5B0|Black;
AHK_Scripts;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts;;
AHK_Task_Manager;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\AHK Tool's\Ahk Task Manager.ahk;;
Forums;https://www.autohotkey.com/boards/viewforum.php?f=4&sid=e5b0a65879e2859a80dd02103f5b3813;;
Script_Editor;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Notepad++Portable.ahk;;
_S;;;
_S;;;
Weather;;12 Bold|Verdana|C8D0D4|Black;
Weather_Network;https://www.theweathernetwork.com/ca/weather/nova-scotia/halifax;;
National_Hurricane_Center;https://www.nhc.noaa.gov/?atl;;
Canada_Hurricane_Center;https://weather.gc.ca/hurricane/track_e.html;;
_S;;;
_S;;;
_S;;;
_S;;;
_S;;;
TELEVISION;;14 Bold|Verdana|Green|Black;
TV_Guide;https://www.tvtv.ca/ns/halifax/lu4663D;;
==================================================
)
;---------------------
loop,parse,sectx,`n,`r
  {
  x:=a_loopfield
  if x contains =====
     continue
  stringsplit,k,x,`;
  col1 .= k1 . s ,  col2 .= k2 . s ,  col3 .= k3 . s ,  col4 .= k4 . s
  }
stringsplit,q,col1,%s%
stringsplit,m,col2,%s%
stringsplit,n,col3,%s%
stringsplit,o,col4,%s%
;-----------------------
i:=0,totx:=(q0-1),x:= (wa*1)/xx ,y:= (ha*1)/xx,  w:= (wa*13 )/xx,h:= (ha*2.5)/xx,v:=(ha*3)/xx        ;- button x y w h v=distance vertical
;------------------------------
Loop,%totx%
  {
  i++
  BTName := q%i%
  column2:= m%i%
  if (btname="_S")
    {
    Gui,2:Add,Text,            x%x%   y%y% w%w%  h%h% center,                               ;- if space added
    column3:= n%i%,    column4:= o%i%
    stringsplit,z,column3,`|
    }
  ;-----------------
  else if (column2="" and btname !="_S")    ;- add title and background
    {
      Gui,2:font,s%SizeTitle% ,%FontTitle%
      Gui,2:Add,Progress,        x%x%   y%y% w%w%  h%h%  Disabled Background%colbgr%       ;- TITLE Button-backgroundcolor
      Gui,2:Add,Text,            xp    yp     wp    hp   c%coltxt%  BackgroundTrans Center 0x200 gStart1 v%btname%_%i% ,%btname%
      column3:= n%i% ,      column4:= o%i%
      stringsplit,z,column3,`|
    }
  else
    {
    ;---------------------------
    ;- after TITLE or SPACE > other buttons color background and text
    ;---
    Gui,2:font,s%z1%,%z2%
    Gui,2:Add,Progress,            x%x%   y%y% w%w%  h%h%  Disabled Background%Z3%
    Gui,2:Add,Text,                xp    yp     wp    hp   c%Z4%  BackgroundTrans Center 0x200 gStart1 v%btname%_%i% ,%btname%
    }
  y+=%v%
  Md:=mod(i,vert)
  if md=0
     x+=(wa*14)/xx,y:=(ha*1)/xx   ;- if modulo = 0 them move to new x (right)  y (top)
  }
;--------- GUISIZE -------------------------------------------------------
x:=(wa*17)/xx,y:=(ha*20)/xx,w:=(wa*71)/xx,h:=(ha*55)/xx   ;- GUI x y w h
Gui,2:Show, x%x% y%y% h%h% w%w%,%filename1%
WinSet, TransColor, % color_to_make_invisible, ahk_id %uid%
Return
;-------------------------------------------------------------------------
2Guiclose:
exitapp
;-------------------------------------------------------------------------
esc::exitapp
;--------------- start --------------------------
start1:
gui,2:submit,nohide
Mousegetpos,,,,Ctrl       ;- Button1
r:= a_guicontrol          ;- vVar ( Buttonname )
stringtrimleft,ct,ctrl,6  ;- Button-(1)
clm2:= m%ct%,clm3:= n%ct%,clm4:= o%ct%
;msgbox, 262208, ,R=%r%`nCT=%ct%`nCTRL=%ctrl%`nURL1=%clm2%`nURL2=%clm3%`nURL3=%clm4%
try
 run,%clm2%
catch,err 
 gosub,checkerror
try
 run,%clm3%
;catch,err 
; gosub,checkerror
try
 run,%clm4%
catch,err 
 gosub,checkerror
Gui,2:minimize
return
;-----------------
Checkerror:
    x1:="Message=" . err.Message
    x2:="Extra  =" . err.extra
    x3:="File   =" . err.file
    x4:="Line   =" . err.line
    x5:="What   =" . err.what
    msgbox, 262208,ERROR,Error=`n%x1%`n----------------------`n%x2%`n%x3%`n%x4%`n%x5%`n--------------------`n
return
;================================ END SCRIPT ================================

jrachr · Post by **jrachr** » 31 Jan 2022, 15:17

@garry. Work's like a charm garry. Interesting bug but glad it was fixable. As I said get rid of everything up to the last one as it work's fine. One question. I know I can change the background of the titles easily. But is it possible to either make background transparent or hide title of say the Bank title or Television title. Not a deal just a question. Thank's again for your help. BTW. I lived in Lahr as a kid for a couple of years. Glad you liked the music. Cheer's

@amateur+. Thank you for your help in this Amateur. Cheer's

Post by **gregster** » 31 Jan 2022, 15:29

jrachr wrote: ↑
31 Jan 2022, 15:17
@garry [...] As I said get rid of everything up to the last one as it work's fine.

If that means butchering this topic, I am strongly against it. That would be against the spirit of our forums.
People should still be able to follow the flow of the topic.

But, @jrachr , if you want to add a link to the topic start (first post) which links to the "final" version of the script, go ahead.

jrachr · Post by **jrachr** » 31 Jan 2022, 15:45

@garry. One last question. Before when I clicked on any of my buttons the gui closed . Now it does not. Any ideas? Tk's

@gregster. I am not against it at all gregster. Garry's suggestion a few post's back was maybe having to many of the same scripts on his own and cleaning it up a little. Lol. I certainly have no issue with this topic at all and by no means want it gone. I appreciate all the help I get here and if some of the questions it bring's up help other's great. Cheer's

garry · Post by **garry** » 31 Jan 2022, 16:31

@jrachr small modified last script, GUI minimize after start a button
I'll contact you via mail ( private messages )
@gregster maybe 'jrachr' open a new thread and I don't answer , many users have a better solution with arrays etc ... I'll try to answer with mail to make small wanted changes with this script

jrachr · Post by **jrachr** » 31 Jan 2022, 16:41

@garry. Understood. Thank you.

Post by **gregster** » 31 Jan 2022, 16:48

garry wrote: ↑
31 Jan 2022, 16:31
@gregster maybe 'jrachr' open a new thread and I don't answer , many users have a better solution with arrays etc ... I'll try to answer with mail to make small wanted changes with this script

Well, that's of course an option for looking for alternative approaches - but if you like, post your (more or less) final version of your approach here, whenever it's ready.
It might be interesting for many people. Thank you!

garry · Post by **garry** » 01 Feb 2022, 02:02

first and last example works ( between many others ) , but always small changed at least with background transparent ... and it can be better done ... and add comments

jrachr · Post by **jrachr** » 05 Feb 2022, 12:10

I have tried a couple of things but they haven't worked. What I would like to do is open a folder in my existing Gui. I read up on FileCreateDir but that doesn't work. Is it even possible in this setup?

Code: Select all

[code][code][code]
;-  Date-modified =20220204     Gui +Owner +lastfound -caption
;-- Date-modified =20220130     GUI background transparent user amateur+
;-- Date-modified =20220128     GUI transparency change with button alt+up/down
;-- Date-modified =20211107     not needed add # for title,Font/Color definitions are in column3 
;-- Date-modified =20211106     different fonts and size for buttons
;-- Date-modified =20211104/3   different colors for BUTTONS after TITLE or SPACE 
;-- Date-modified =20210917/3   csv Halifax / TITLE-button has another color / +Resize 
;-- Date-modified =20210917/2   add TITLE or SPACE between buttons
;-- Date-modified =20210915     color buttons
;-- Date-modified =20210914     one button starts 3 URL's or programs 
;--------------------------------------------------------------------------------
#warn
#NoEnv
#Singleinstance,force
filename1:="Jr's Shortcut's"
setworkingdir,%a_scriptdir%
Settitlematchmode,2
Gui,2:default
transform,s,chr,127    ;- delimiter for stringsplit
WA:=A_screenwidth,HA:=A_screenheight,xx:=100
Gui,2: -dpiscale  +Owner +LastFound -caption
WinSet, TransColor, EEAA99                                   ;- hide  background
Gui,2: Color, EEAA99                                         ;- color background
;--------------------
col1:="",col2:="",col3:="",col4:=""
vert:=18                    ;-- change here how many vertikal buttons want have ( inclusive EMPTY-LINE and TITLE )
;                           but then also change GuiSize ( Width and Height )
;                           add a separator line for better view after defined variable 'vert' ) here after line 18 > ==============                         
;--------------------
;-
;- I don't know which is the best font-size depending screen-size or scaling 
;------ BUTTON-TITLE ---------------
FontTitle:="Trebuchet MS" ,SizeTitle:="16 norm bold",colbgr:="RED",coltxt:="Yellow"
;----------------------------------
;---------------------  Button-NAME - URL1 - URL2 - URL3 ----------------------------------------------------
;- if Column-2 is empty :
;- all definitions are in Column-3  : FontSize|FONT|BackGroundColor|TextColor
;-
;- Define the next rows :
;- _S;;15 Bold|Verdana|Green|Black;                      ;--  _S only space
;-    OR
;- TOOLS;;11 norm|Verdana|D5D1C9|black;                  ;--  TITLE 
;-
;- CHARMAP_CALC_NOTEPAD;charmap;calc;notepad             ;--  run URL or program (1-3)
;------------------------------------------------------------------------------------------------------------
;-
sectx=   
(Ltrim comments Join`r`n % 
Halifax_Retales;;12 italic|Courier New|B7E5B0|Black;
Halifax_Retales_Chat;https://www.facebook.com/groups/HalifaxReTalesChat/?fref=mentions;;
Halifax_Retales_Facebook;https://www.facebook.com/HalifaxReTales;;
Halifax_Retales_Faves;https://faves.retales.ca/;;
Halifax_Retales_Twitter;https://twitter.com/HalifaxReTales;;
_S;;14|Courier New|Blue|Yellow;
Halifax_Peninsula;https://skyscraperpage.com/forum/forumdisplay.php?f=223;;
_S;;;
Utilities;;13 Bold|Verdana|C8D0D4|Black;
Bell_Aliant;https://mybell.bell.ca/Login?TYPE=33554433&REALMOID=06-000db269-81bc-1874-88d4-791a8e75d0dd&GUID=&SMAUTHREASON=0&METHOD=GET&SMAGENTNAME=-SM-QKP7nnHXh2qXJfMWInHziJlTBdI9C7eOEOJRmIO63Oa%2fimktrTgbipB8hCBdh8Ey&TARGET=-SM-HTTPS%3a%2f%2fmybell%2ebell%2eca%2fMobility%3fAcctNo%3d8D711C5DA4B3704F0A5FE8ED0DB141225B124765045364C13F3345E0CA9697EBA72FAFBE86087BF101511830FD449071%26SubNo%3d13180274;;
NS_Power;https://myaccount.nspower.ca/;;
Revenue_Canada;https://cms-sgj.cra-arc.gc.ca/gol-ged/awsc/cms/login?TYPE=33554432&REALMOID=06-26a97681-2e5a-105d-9505-84cb2b4afb5e&GUID=&SMAUTHREASON=0&METHOD=GET&SMAGENTNAME=-SM-GgEvYn3OZXQNOspDHK1HhUDfU85UA5Hn6uCn82KAPP5ZRYxHSPl9zbYgX%2bo%2fKX8ekTfnHiefEV9WuLhWoiWhmWgZUuDe6Y0zIdGX7J%2biBrvr%2fcy6jEzpUhFtfkK6Yo8B&TARGET=-SM-HTTPS%3a%2f%2fcms--sgj%2ecra--arc%2egc%2eca%2fgol--ged%2fawsc%2fcms%2fmacauth%3fTYPE%3d33554432%26REALMOID%3d06--00ba5d0a--2e5a--105d--9505--84cb2b4afb5e%26GUID%3d%26SMAUTHREASON%3d0%26METHOD%3dGET%26SMAGENTNAME%3d--SM--GgEvYn3OZXQNOspDHK1HhUDfU85UA5Hn6uCn82KAPP5ZRYxHSPl9zbYgX-%2bo-%2fKX8ekTfnHiefEV9WuLhWoiWhmWgZUuDe6Y0zIdGX7J-%2biBrvr-%2fcy6jEzpUhFtfkK6Yo8B%26TARGET%3d--SM--HTTPS-%3a-%2f-%2fcms----sgj-%2ecra----arc-%2egc-%2eca-%2fgol----ged-%2fawsc-%2fcms-%2fpostlogin-%3fSAMLRequest-%3dfVCxboMwEN3zFcg7GJsawgmQImWJlC5t1aFLdXEs4ghs6jNKP7---%2BEDm2X3nDD07t3771mN8eLezIfs6GY7JdlHUbrXcsuMU4EnOuRUuqvmQ6YYtBZrzONd---%2FRGfJpPg9WccBwkkWfJYd---%2Byd1WYrarqqjZVqUp1lltVFDpHVZ---%2Brh6qUUp3MQiWazcFRRBdbJnMpUiHSvHiRAkQJon5jyasJtJqRWc6Sz3Fw1LI5OPBIlsDhaAiihufd4xEWDkzBR6---%2F9wLpNskzjSMD6KHxfwwL8r4BEJtwbYN3ge---%2BsyXPPj3---%2FwN---%2F1HuNg3---%2FXWP3BQ---%3D---%3D-%26RelayState-%3dac0922f7e6f35cdaa2770815347a7f9b9e57e960-%26SigAlg-%3dhttp---%3A---%2F---%2Fwww-%2ew3-%2eorg---%2F2001---%2F04---%2Fxmldsig----more---%23rsa----sha256-%26Signature-%3dXpv3M3aTaIDMkv---%2FbtxIVHkf6HZ9xjEVFvwwLv04---%2FywTRliKa2H---%2B8IpSAnvLVp0ZduiXVpwZp0V9---%2FpSxnMaF0fH---%2BstWQutSK9DYJNchp---%2B---%2ByjlnAFhfAS0LKzpTvIU7nsewuOMyMnJxGZlx5buBAUhg8HczSK3Z0xQpMGKTXBzXy8SXxwc1BPnpal---%2BGPUVlahYEtdiDFJJDw52BYYbgGbWa---%2F31A5erC6DLfEfr6a0A5GXipKMh47kd3aC1BrGC4Nk---%2Fud6AeesmzgBuf1MoJ---%2B0DXAg48Suuz8qgxdMy9l3nzvlk57---%2FZJrUHU3YRF77nr2pYTnm8UYRdsLZsx---%2FVoVWTi0g---%3D---%3D-%26SMPORTALURL-%3d3s3oC2jIJ0qEQ12Yiq9kAEjDKEUuKufwTJYavzvDtmH65tOSqAjOcKBbNnWrHFISoEmNt55oyAIlNgDZ---%2FeXB9Z---%2Fegu2zyozy;;
Tim_Hortons;https://www.timhortons.ca/;;
Tools;;;
This_PC;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\PC Tool's\This PC.ahk;;
_S;;;
_S;;15 Bold|Verdana|Green|Black;
TD_Bank;https://authentication.td.com/uap-ui/index.html?consumer=easyweb&locale=en_CA#/login/easyweb-getting-started;;
==================================================
Programs;;13 Bold|Verdana|FF8000|Black;
AutoHotkey_A;A:\
CCleaner_Portable;E:\PortableApps\PortableApps\ccPortable\ccPortable.exe;;
Equalizer_APO;C:\Users\Jr\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Equalizer APO 1.2.1\Configuration Editor.lnk;;
Microsoft_Config_Center;C:\Program Files\Microsoft Mouse and Keyboard Center\MouseKeyboardCenter.exe;;
Revo_Uninstaller;E:\PortableApps\PortableApps\RevoUninstallerPortable\RevoUninstallerPortable.exe;;
Portable_Apps;E:\PortableApps\Start.exe - Shortcut.lnk;;
Sandisk_E;E:\;;
System_Explorer;E:\PortableApps\PortableApps\SystemExplorerPortable\SystemExplorerPortable.exe;;
_S;;;
Shopping;;13 Italic|Lucida Console|FF8000|Black;
Amazon_Canada;https://www.amazon.ca/;;
Amazon_Canada_Phone;https://gethuman.com/phone-number/Amazon-Canada;;
Costco_Canada;https://www.costco.ca/?langId=-24;;
Walmart_Canada;https://www.walmart.ca/en;;
_S;;;
_S;;;
_S;;;
==================================================
Sports;;14 |Courier new|B7E5B0|Black;
Sportsnet;https://www.sportsnet.ca/;;
TSN;https://www.tsn.ca/live/schedule;;
ESPN;https://www.espn.com/;;
_S;;;
_S;;;
_S;;;
_S;;;
Transportation;;13 Bold|Verdana|C8D0D4|Black;
Halifax_Transit;https://www.halifax.ca/;;
Halifax_Transit_Alerts;https://www.halifax.ca/transportation/halifax-transit/service-disruptions?utm_source=citynews%20halifax&utm_campaign=citynews%20halifax%3A%20outbound&utm_medium=referral;;
Halifax_Transit_Twitter;https://twitter.com/hfxtransit;;
Stanfield_Airport;;13 Bold|Verdana|Silver|Black;;
Halifax_Airport;https://halifaxstanfield.ca/flight-information/departures/;;
Halifax_Airport_Twitter;https://twitter.com/HfxStanfield;;
_S;;;
_S;;15 Bold|Verdana|Green|Black;
Calendar;C:\Users\Jr\AppData\Roaming\Microsoft\Windows\Network Shortcuts\Shortcuts\Calendar - Shortcut.lnk;;
==================================================
GMail;;12|Lucida Console|FF8000|Black;
GMail_Login;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Login.ahk;;
GMail_Logout;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Logout.ahk;;
GMail_Relogin;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Gmail Relogin.ahk;;
News;;13 Bold|Verdana|00FFFF|Black;
Chronicle_Herald;https://www.thechronicleherald.ca/;;
Global_News;https://globalnews.ca/halifax/;;
CityNews_Everywhere;https://www.halifaxtoday.ca/;;
NY_Post;https://nypost.com/;;
Las_Vegas_Sun;https://lasvegassun.com/;;
CNN_News;https://www.cnn.com/;;
Favorites;;13 Bold|Verdana|FF8000|Black;
Firefox_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Firefox Portable.ahk;;
Brave_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Brave Portable.ahk;;
Your_Phone;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Your Phone.ahk;;
TV_Show_Tracker;C:\Users\Jr\Desktop\Send_2TVShowTracker.ahkC038;;
_S;;;
_S;;;
==================================================
AutoHotkey_Shortcuts;;12 Bold|Verdana|B7E5B0|Black;
AHK_Scripts;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts;;
AHK_Task_Manager;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\AHK Tool's\Ahk Task Manager.ahk;;
Forums;https://www.autohotkey.com/boards/viewforum.php?f=4&sid=e5b0a65879e2859a80dd02103f5b3813;;
Script_Editor;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Notepad++Portable.ahk;;
_S;;;
_S;;;
Weather;;12 Bold|Verdana|C8D0D4|Black;
Weather_Network;https://www.theweathernetwork.com/ca/weather/nova-scotia/halifax;;
National_Hurricane_Center;https://www.nhc.noaa.gov/?atl;;
Canada_Hurricane_Center;https://weather.gc.ca/hurricane/track_e.html;;
_S;;;
_S;;;
_S;;;
_S;;;
_S;;;
_S;;15 Bold|Verdana|Green|Black;
TV_Guide;https://www.tvtv.ca/ns/halifax/lu4663D;;
==================================================
)
;---------------------
loop,parse,sectx,`n,`r
  {
  x:=a_loopfield
  if x contains =====
     continue
  stringsplit,k,x,`;
  col1 .= k1 . s ,  col2 .= k2 . s ,  col3 .= k3 . s ,  col4 .= k4 . s
  }
stringsplit,q,col1,%s%
stringsplit,m,col2,%s%
stringsplit,n,col3,%s%
stringsplit,o,col4,%s%
;-----------------------
i:=0,totx:=(q0-1),x:= (wa*1)/xx ,y:= (ha*1)/xx,  w:= (wa*13 )/xx,h:= (ha*2.5)/xx,v:=(ha*3)/xx        ;- button x y w h v=distance vertical
;------------------------------
Loop,%totx%
  {
  i++
  btname:="" , column2:="" , column3:="" , column4:=""
  BTName := q%i% ,  column2:= m%i% , column3:= n%i%, column4:= o%i%
  if (btname="_S")
    {
    Gui,2:Add,Text,            x%x%   y%y% w%w%  h%h% center,                               ;- if space added
    stringsplit,z,column3,`|
    }
  ;-----------------
  else if (column2="" and btname !="_S")    ;- add title and background
    {
      Gui,2:font,s%SizeTitle% ,%FontTitle%
      Gui,2:Add,Progress,        x%x%   y%y% w%w%  h%h%  Disabled Background%colbgr%       ;- TITLE Button-backgroundcolor
      Gui,2:Add,Text,            xp    yp     wp    hp   c%coltxt%  BackgroundTrans Center 0x200  v%btname%_%i% ,%btname%
      stringsplit,z,column3,`|
    }
  else if (BTName !="" and column2 !="") 
    {
    ;---------------------------
    ;- after TITLE or SPACE > other buttons color background and text
    ;---
    Gui,2:font,s%z1%,%z2%
    Gui,2:Add,Progress,            x%x%   y%y% w%w%  h%h%  Disabled Background%Z3%
    Gui,2:Add,Text,                xp    yp     wp    hp   c%Z4%  BackgroundTrans Center 0x200 gStart1 v%btname%_%i% ,%btname%
    }
  y+=%v%
  Md:=mod(i,vert)
  if md=0
     x+=(wa*14)/xx,y:=(ha*1)/xx   ;- if modulo = 0 them move to new x (right)  y (top)
  }

;--- 2 Buttons if needed instead of ESC  or alt+ESC -------------------
/*  
x:=(wa*51)/xx,y:=(ha*57)/xx,w:=(wa*8)/xx,h:=(ha*2.4)/xx 
Gui,2:add,button,x%x% y%y% h%h% w%w% gMinimize,MINIMIZE
;-
x:=(wa*62)/xx,y:=(ha*57)/xx,w:=(wa*8)/xx,h:=(ha*2.4)/xx 
Gui,2:add,button,x%x% y%y% h%h% w%w% gClose,CLOSE
*/  
;--------- GUISIZE -------------------------------------------------------
x:=(wa*17)/xx,y:=(ha*20)/xx,w:=(wa*71)/xx,h:=(ha*60)/xx   ;- GUI x y w h
;x:=(wa*.1)/xx,y:=(ha*.1)/xx,w:=(wa*71)/xx,h:=(ha*60)/xx   ;- GUI x y w h
Gui,2:Show, x%x% y%y% h%h% w%w%,%filename1%
Return
;-------------------------------------------------------------------------
/*
CLOSE:
2Guiclose:
exitapp
;--------------
Minimize:
Gui,2:minimize
return
*/

;-------------------------------------------------------------------------
esc::exitapp                                                                         ;- quit this script with ESC
!esc::Gui,2:minimize                                                                 ;- minimize this script with alt+ESC
;--------------- start --------------------------
start1:
gui,2:submit,nohide
Mousegetpos,,,,Ctrl       ;- Button1
r:= a_guicontrol          ;- vVar ( Buttonname )
stringtrimleft,ct,ctrl,6  ;- Button-(1)
clm2:= m%ct%,clm3:= n%ct%,clm4:= o%ct%
;msgbox, 262208, ,R=%r%`nCT=%ct%`nCTRL=%ctrl%`nURL1=%clm2%`nURL2=%clm3%`nURL3=%clm4%
try
 run,%clm2%
catch,err 
  { 
  gosub,checkerror
  return
  }
try
 run,%clm3%
catch,err
  { 
  gosub,checkerror
  return
  }
try
 run,%clm4%
catch,err 
  { 
  gosub,checkerror
  return
  }
Gui,2:minimize
return
;-----------------
Checkerror:
    x1:="Message=" . err.Message
    x2:="Extra  =" . err.extra
    x3:="File   =" . err.file
    x4:="Line   =" . err.line
    x5:="What   =" . err.what
    msgbox, 262208,ERROR,Error=`n%x1%`n----------------------`n%x2%`n%x3%`n%x4%`n%x5%`n--------------------`n
return
;================================ END SCRIPT ================================

[/code][/code][/code]

garry · Post by **garry** » 05 Feb 2022, 15:24

example create a folder in a_scriptdir

Code: Select all

R3C=%A_scriptDir%\TEST1
ifnotexist,%R3C%
   FileCreateDir,%R3C%

with ahk-script above you can run programs(folder\files) or run URL
example run C:\test
TEST;C:\TEST;;

we can continue with 'private messages' ?

AutoHotkey Community

Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column

Re: Add another column