Agui，自己电脑autohotkey相关信息，比较全有意思！
MODIFIED=20160703
;- A_VARIABLE
;- https://autohotkey.com/docs/Variables.htm
;------------------------------------------------------------------------
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir, %A_ScriptDir%
SetTitleMatchMode 2
SetBatchLines, -1
FormatTime, Suomi , L1035, dddd MMMM yyyy-MM-dd
Filename1=AHK-A_Variables User=%a_username% Computer=%a_computername% %a_osversion% AHK-Version=%a_ahkversion% %suomi%
url=http://www.netikus.net/show_ip.html ;- to show public IP-address
Adr:= UrlDownloadToVar( URL ) ;- desactivate this when no internetconnection
Gui,2:default
Gui,2: -DPIScale
Gui,2:Font,s12 , Lucida Console
Gui,2:Color,Black
wa:=A_screenwidth
ha:=A_screenHeight
LH :=(ha*89 )/100 ;- LV height
GH :=(ha*93 )/100 ;- GUI height
LW :=(wa*98.5)/100 ;- LV width
GW :=(wa*99 )/100 ;- GUI width
T1 :=(wa*12)/100
T2 :=(wa*10)/100
T3 :=(wa*75)/100
t2a:=(t1+t2)
Gui,2: Add, ListView,grid backgroundGray cWhite x2 y2 h%LH% w%lw% gMyLV1 vLV1 +altsubmit -multi, Name|AHK-A_Variable|Show Result ( open Info/Folder/File/URL with mouse-click )
LV_ModifyCol(1, T1), LV_ModifyCol(2, T2), LV_ModifyCol(3, T3) ;- column width
Gui,2:show,x1 y1 h%gh% w%gw%,%filename1%
gosub,smalltools
gosub,e4xvar
e5x:= % ShellFolder()
e6x=%e4x%%e5x%
gosub,fillx
return
FileExit:
2Guiclose:
exitapp
;--------------------------
fillx:
Gui,2:submit,nohide
Gui,2:ListView, LV1
LV_Delete()
GuiControl, -Redraw, LV1
loop,parse,e6x,`n,`r
{
y=%a_loopfield%
if y=
continue
LV_Add("", StrSplit(y,",")*)
}
LV_ModifyCol(1, "Logical SortAsc")
GuiControl, +Redraw, LV1
return
;----------------------------
mylv1:
Gui,2:ListView, LV1
if A_GuiEvent = Normal
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
stringmid,C3a,C3,2,2
stringmid,C3b,C3,1,2
stringmid,C3c,C3,1,4
MouseGetPos,x,y
{
;if x>%T2a%
{
if (c3a=":\" or c3b="::" or c3c="http" or c3c="www.")
{
run,%c3%
return
}
else
{
msgbox, 262208,INFO ,C1=%c1%`nC2=%c2%`nC3=%c3%
return
}
return
}
}
}
return
;-------------------------------
smalltools:
SysGet, VirtualWidth , 78
SysGet, VirtualHeight, 79
EnvGet, EnvGetVar, Path ;- see #Noenv
return
;-------- http://www.autohotkey.com/forum/topic36688.html ---
;MsgBox % ShellFolder() ; To retrieve all
;MsgBox % ShellFolder( "My Pictures" ) ; To retrieve Pictures folder
;return
ShellFolder( VN="" ) {
v:=""
Static Subkey:="Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
If ( VN="")
{
Loop, HKCU, %SubKey%, 0
{ VarSetCapacity( Spaces,30,32 )
RegRead, Value, HKCU, %SubKey%, %A_LoopRegName%
v .= ((v<>"") ? "`n" : "" ) (A_LoopRegName) ",RegRead," Value
}
} Else
RegRead, V, HKCU, %SubKey%, %VN%
Return V
}
UrlDownloadToVar(URL) {
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", URL)
WebRequest.Send()
Return WebRequest.ResponseText
}
e4xVar:
e4x=
(
_A-Variables,,https://autohotkey.com/docs/Variables.htm
MyComputer,CLSID,::{20d04fe0-3aea-1069-a2d8-08002b30309d}
MyNetworkPlaces,CLSID,::{208d2c60-3aea-1069-a2d7-08002b30309d}
NetworkConnections,CLSID,::{7007acc7-3202-11d1-aad2-00805fc1270e}
Printers,CLSID,::{2227a280-3aea-1069-a2de-08002b30309d}
RecycleBin,CLSID,::{645ff040-5081-101b-9f08-00aa002f954e}
ScheduledTasks,CLSID,::{d6277990-4c6a-11cf-8d87-00aa0060f5bf}
ahk-Version,a_ahkversion,%a_ahkversion%
unicode,a_IsUnicode,%a_IsUnicode%
ipaddress-1 private,a_ipaddress1,%a_ipaddress1%
ipaddress-2,a_ipaddress2,%a_ipaddress2%
ipaddress-3,a_ipaddress3,%a_ipaddress3%
ipaddress-4,a_ipaddress4,%a_ipaddress4%
ipaddress-0 public,www.netikus.net,%adr%
64-bit,a_Is64bitOS,%a_Is64bitOS%
ahk-path,a_ahkpath,%a_ahkpath%
ahk-scriptfullpath,a_scriptfullpath,%a_scriptfullpath%
ahk-HWND,a_scriptHwnd,%a_scriptHwnd%
ptr-size,a_ptrsize,%a_ptrsize%
appdata,a_appdata,%a_appdata%
appdatacommon,a_appdatacommon,%a_appdatacommon%
personal mydocuments,a_mydocuments,%a_mydocuments%
programfiles,a_programfiles,%a_programfiles%
programs,a_programs,%a_programs%
programsCommon,a_programsCommon,%a_programsCommon%
start Menu,a_StartMenu,%a_StartMenu%
startMenuCommon,a_StartMenuCommon,%a_StartMenuCommon%
startup,a_Startup,%a_Startup%
startupCommon,a_StartupCommon,%a_StartupCommon%
temp,a_Temp,%a_Temp%
username,a_username,%a_username%
DATE,a_YYYY-A_MM-a_DD a_hour:a_min:a_sec,%A_YYYY%-%A_MM%-%a_DD% %a_hour%:%a_min%:%a_sec%
DATE_NOW,a_now,%a_now%
DATE_UTC,a_nowUTC,%a_nowUTC%
DATE_Weekday,a_wday,%a_wday%
desktop,a_desktop,%a_desktop%
desktopcommon,a_desktopcommon,%a_desktopcommon%
computername,a_computername,%a_computername%
windir,a_windir,%a_windir%
language,a_language,%a_language%
iconhidden,a_iconhidden,%a_iconhidden%
ahk-scriptworkingdir,a_workingdir,%a_workingdir%
admin,a_IsAdmin,%a_IsAdmin%
osType,a_OsType,%a_OsType%
osversion,a_osversion,%a_osversion%
os64bit,a_Is64bitOS,%a_Is64bitOS%
MouseSpeed,a_defaultmousespeed,%a_defaultmousespeed%
GUI,a_defaultgui,%a_defaultgui%
Listview,a_defaultListview,%a_defaultListview%
ScreenWidthVirtual,,%VirtualWidth%
ScreenHeightVirtual,,%VirtualHeight%
ScreenWidth,a_ScreenWidth,%a_ScreenWidth%
ScreenHeight,a_ScreenHeight,%a_ScreenHeight%
ScreenDPI,a_ScreenDPI,%a_ScreenDPI%
ErrorLast,a_LastError,%a_LastError%
Envget,Envget,_%envgetvar%
cmd command,comspec,%comspec%
Encoding,a_FileEncoding,%a_FileEncoding%
Compiled,a_iscompiled,%a_iscompiled%
ahk-ScriptName,a_scriptname,%a_scriptname%
ahk-ScriptDir,a_scriptdir,%a_scriptdir%
Workingdir,a_workingdir,%a_workingdir%
Critical,a_IsCritical,%a_IsCritical%
)
return
;================= END script ===========================
牛