「BeTrayed – 托盘也能快速启动程序」的评论 http://inloveinparis.com/betrayed/ 分享免费、小巧、实用、有趣、绿色的软件 Fri, 27 Nov 2009 19:41:06 +0000 hourly 1 https://wordpress.org/?v=6.8.1 评论者:Roysing http://inloveinparis.com/betrayed/comment-page-1/#comment-52181 Fri, 27 Nov 2009 19:41:06 +0000 http://inloveinparis.com/betrayed/#comment-52181 回复给 sfufoet

@sfufoet, 樓下士多: 或许你可以通过Live Mesh来解决SkyDrive Explorer的登录问题
http://leestore.blogspot.com/2009/11/winskydrive-explorerwindows-live.html

]]>
评论者:rox http://inloveinparis.com/betrayed/comment-page-1/#comment-32013 Tue, 23 Dec 2008 01:23:04 +0000 http://inloveinparis.com/betrayed/#comment-32013 PStart 100% free
http://www.pegtop.net/start/

]]>
评论者:sfufoet http://inloveinparis.com/betrayed/comment-page-1/#comment-31804 Fri, 19 Dec 2008 11:27:20 +0000 http://inloveinparis.com/betrayed/#comment-31804 回复给 kunfei

@kunfei, 哇。多谢啦。

]]>
评论者:kunfei http://inloveinparis.com/betrayed/comment-page-1/#comment-31800 Fri, 19 Dec 2008 11:09:31 +0000 http://inloveinparis.com/betrayed/#comment-31800 ahk可以实现

#Persistent ; 保持脚本运行,直到用户终止它。
;~ 菜单
;~ 窗口
muw:=110 ;按钮宽
muh:=24 ;按钮高
jj:=1 ;按钮间距
wjj:=%muw%+%jj%
hjj:=%muh%+%jj%
;~ 窗口参数
Gui, -Caption +AlwaysOnTop +E0x200 +ToolWindow
TransColor = ECE5F7 ;窗口背景颜色
Gui, Color, %TransColor% ; This color will be made transparent later below.
;~ 遍历文件夹
x:=0
z:=0
a:=0
Loop, D:\程序\*, 2 ;一层文件夹
{
Filename_%FileCount%:=A_LoopFileName
fname:=Filename_%FileCount%
c:=x*wjj
Gui, Add, Text, x%c% y%jj% w%muw% h%muh%, %fname% ; 创建分类标题。
y:=0
Loop, D:\程序\%fname%\*.lnk ;二层文件夹
{
z++
y++
a:=x*wjj
b:=y*hjj
ButtonName:=A_LoopFileName
Button%z%:=A_LoopFileLongPath
StringSplit, pos, ButtonName, `.
Menu, %fname%, add, %pos1%, MenuHandler ; 创建子菜单项。
Gui, Add, Button, x%a% y%b% w%muw% h%muh% gRunFile, %pos1% ; 创建子按钮。
}
Menu, tray, add, %fname%, :%fname% ; 创建父菜单项。
x++
}
Menu, tray, Add ;分割线
;~ 窗口控制
k_MenuItemHide = 隐藏窗口
k_MenuItemShow = 显示窗口
Menu, Tray, Add, %k_MenuItemShow%, k_ShowHide
;~ 功能菜单
Menu, 功能菜单, Add, (显/隐)系统文件, showhidesysfile
Menu, 功能菜单, Add ;分割线
Menu, 功能菜单, Add, 帮助, runhelp
Menu, 功能菜单, Add, 重新载入, k_Menureload
Menu, 功能菜单, Add, 退出, k_MenuExit
Menu, Tray, Add, 功能菜单, :功能菜单
Menu, Tray, Default, %k_MenuItemShow%
;~ 删除标准菜单
Menu, Tray, NoStandard
;~ 显示窗口
Gui, Show, Hide,快速启动
k_IsVisible = n
return

;~ 运行窗口程序
RunFile:
MouseGetPos,,,,zn ;获取当前按钮ID
RunFileName := %zn%
Gosub, k_showhide
run, %RunFileName%
Return

;~ 运行菜单程序
MenuHandler:
RunFileName = D:\程序\%A_ThisMenu%\%A_ThisMenuItem%.lnk
run, %RunFileName%
Return

;~ 打开帮助
runhelp:
run, AutoHotkey.chm,, max
Return

;~ 重载
k_Menureload:
Reload
Sleep 1000 ; 如果成功,reload 将会在 Sleep 期间关闭这个实例,因此下一行命令将从不执行。
MsgBox, 4,, 脚本不能被重载。你想打开它来编辑吗?
IfMsgBox, Yes, Edit
Return

;~ 显示隐藏窗口
~RButton & ^!k::
#Space::
k_ShowHide:
if k_IsVisible = y
{
Gui, Hide
Menu, Tray, Rename, %k_MenuItemHide%, %k_MenuItemShow%
k_IsVisible = n
}
else
{
Gui, Show
Menu, Tray, Rename, %k_MenuItemShow%, %k_MenuItemHide%
k_IsVisible = y
}
return

;~ 退出
k_MenuExit:
ExitApp

;~ 窗口最大化或恢复
^!k::
WinGetPos, , , oldw, oldh, A
WinMaximize,A
WinGetPos, , , neww, newh, A
if (neww=oldw and newh=oldh)
{
WinRestore,A
}
Else Return
Return
;~ 窗口最小化
^!l::
WinMinimize,A
Return

#q::
Drive, Eject
; 如果很短时间内完成了这条命令,托盘很可能已经弹出了。
; 那样的话,收回托盘。
if A_TimeSinceThisHotkey < 2000 ; 调整到合适的时间。
Drive, Eject,, 1
return

#InstallKeybdHook
#InstallMouseHook
#Persistent
KeyHistory
XButton1::
Drive, Eject
; 如果很短时间内完成了这条命令,托盘很可能已经弹出了。
; 那样的话,收回托盘。
if A_TimeSinceThisHotkey < 2000 ; 调整到合适的时间。
Drive, Eject,, 1
return

#F5::
showhidesysfile:
Run, control.exe /name Microsoft.FolderOptions
WinWait, 文件夹选项
Sleep, 50
Send, +{Tab}
Sleep, 10
send, {Right}
Sleep, 10
Loop, 2
{
Send, {Tab}
Sleep, 10
}
Loop, 12
{
Send, {Down}
Sleep, 10
}
Send, {Space}
WinWait, 警告,,0.2
Sleep, 50
if ErrorLevel = 0
{
Send, {Left}
Send, {Enter}
Sleep, 50
Send, {Enter}
}
Else
Send, {Enter}
Return

]]>
评论者:Gyteng http://inloveinparis.com/betrayed/comment-page-1/#comment-31565 Wed, 17 Dec 2008 07:28:17 +0000 http://inloveinparis.com/betrayed/#comment-31565 回复给 sfufoet

@sfufoet, 教育网的特点就是:1.很多网站打不开,2.很多网站有时能打开。
我最近经常要在不能用鼠标的时候使用笔记本,发觉小众里边的某些软件挺好的。

]]>
评论者:Jiahua http://inloveinparis.com/betrayed/comment-page-1/#comment-31552 Wed, 17 Dec 2008 05:18:36 +0000 http://inloveinparis.com/betrayed/#comment-31552 回复给 sfufoet

@sfufoet, 现在浏览正常了!

]]>
评论者:Enson http://inloveinparis.com/betrayed/comment-page-1/#comment-31517 Wed, 17 Dec 2008 01:34:16 +0000 http://inloveinparis.com/betrayed/#comment-31517 回复给 Enson

@Enson, 真的…

]]>
评论者:xhr http://inloveinparis.com/betrayed/comment-page-1/#comment-31515 Wed, 17 Dec 2008 01:32:14 +0000 http://inloveinparis.com/betrayed/#comment-31515 名字不太好,参考betray的英文意义。。

]]>
评论者:yicaofeiying http://inloveinparis.com/betrayed/comment-page-1/#comment-31510 Wed, 17 Dec 2008 00:54:35 +0000 http://inloveinparis.com/betrayed/#comment-31510 回复给 Marson

@Marson,
早就发现了。hoho

]]>
评论者:yicaofeiying http://inloveinparis.com/betrayed/comment-page-1/#comment-31508 Wed, 17 Dec 2008 00:53:17 +0000 http://inloveinparis.com/betrayed/#comment-31508 回复给 Enson

@Enson,
“如果能变成菜单形式,设置多几个程序就不会把托盘都占了。”

还不如找一个文件夹直接在任务栏建一个工具栏
点开就是菜单
并且还简单,把快捷方式复制进去就好了。

]]>