做好网（Beta）

我的InBox是是AutoHotKey写的，是从我正在使用的脚本中单独提出来的。可能某些方面还不够完善，现在把源码帖出来，有兴趣的朋友可以一起完善 ：）

InBox

</p>
<h1>NoTrayIcon                                                                 ;隐藏图标</h1>
<p>!s::Goto, 012                                                               ;012 保存并关闭编辑窗口<br />
~$MButton::goto,008                                                 ;008 鼠标中键功能</p>
<p>;=========================================== 008 鼠标中键功能<br />
    008:<br />
    CoordMode, Mouse, Screen        ;指定鼠标坐标以屏幕为基准<br />
    a := 5                                          ;a=最多离开边缘多少像素<br />
    MouseGetPos, x, y<br />
    if(x>A_ScreenWidth-(a+1) && y>=a)       ;右<br />
        {<br />
        SoundBeep, 2000, 20<br />
        goto,117                                                                ;117 任务Inbox<br />
        }<br />
Return ;*********************************End</p>
<p>;=========================================== 012 保存并关闭编辑窗口<br />
    012:<br />
    IfWinActive ,ahk_class AutoHotkeyGUI<br />
    {<br />
        SplashTextoff<br />
        goto,ButtonOK?<br />
    }<br />
Return ;*********************************End</p>
<p>;=========================================== 117 快速Inbox<br />
    117:<br />
    Gui, Destroy<br />
    SplashTextoff<br />
    Myaaa=D:\Program Files\AutoHotKey\My soft\MyTask.txt<br />
    Mybbb=D:\Program Files\AutoHotKey\My soft\MyNote.txt<br />
    Myccc=I:\MyData\记事本.txt<br />
    ;==============================功能按钮</p>
<pre><code>Gui, 1: +LastFound +AlwaysOnTop +ToolWindow ;-Caption
Gui, Add, Tab2, x0 y1 w420 h100 Choose1 TOP vMytab, 任务|日志

Gui, Add, Edit, x5 y35 w265 h60 v任务录入  ;
Gui, Add, ComboBox, R7 x273 y35 w78 vDan Choose7 ,当前|近日|某时|想法|有趣|思考|计划
Gui, Add, ComboBox, R7 x273 y65 w78 vYou Choose4 ,约 1H|约 2H|约 4H|不估时|约 1天|约 2天|约 1周
Gui, Add, Button, x353 y33 w63 h63 ,OK?

Gui, tab, 2
Gui, Add, Edit, v日志录入 x5 y35 w265 h60  ;
Gui, Add, ComboBox, vWho R6 x273 y35 w78 Choose2 ,朋友|自己|客户|网友|同事|同学
Gui, Add, ComboBox , vWhat R8 x273 y65 w78 Choose3 ,电话|会议|备忘|已发出|离开|抵达
Gui, Add, ComboBox , vWhere R6 x355 y65 w60 Choose3 ,家里|街上|公司|旅途中|外地
Gui, Add, Button, x353 y33 w63 h32 ,OK?

Gui, Show, h100 w420, > InBox...
;WinSet, Transparent, 180,> InBox...
Return

;=============================功能按钮

ButtonOK?:
Gui, Submit,nohide
goto,%Mytab%处理
Return

任务处理:
Gui, Submit
StringLen, Length,任务录入
if %Length%=0
{
Gui, Destroy
Return
}
if You=不估时
{
You=00
}
else if You=约 1H
{
You=01
}
else if You=约 2H
{
You=02
}
else if You=约 4H
{
You=04
}
else if You=约 1天
{
You=08
}
else if You=约 2天
{
You=16
}
else if You=约 1周
{
You=40
}

StringReplace, 任务录入, 任务录入, `r`n,<br>,all
StringReplace, 任务录入, 任务录入, `n ,<br>,all
StringReplace, 任务录入, 任务录入, <br><br> ,<br>,all

FormatTime, TimeString, Time,yyMMdd,HH:mm:ss
TimeString=%TimeString%,贾峰,任务,Inbox,%任务录入% @ %Dan% (预估 %You% 小时)
FileAppend, 1|%Dan%|%You%|%任务录入%`n, %Myaaa%
FileAppend, %TimeString%`n, %Mybbb%
    SoundBeep, 1500, 50
    SoundBeep, 1500, 50
Gui, Destroy

Return

日志处理:
Gui, Submit
StringReplace, 日志录入, 日志录入, `r`n,<br>,all
StringReplace, 日志录入, 日志录入, `n ,<br>,all
StringReplace, 日志录入, 日志录入, <br><br> ,<br>,all
FormatTime, TimeString, Time,yyMMdd,HH:mm:ss
TimeString1=%TimeString%,%Who%,%What%,日志,%日志录入% @ %Where%
TimeString2=%Who%' %What% | %日志录入% | %TimeString% @ %Where%
FileAppend, 2|%TimeString2%`n, %Myaaa%
FileAppend, %TimeString1%`n, %Mybbb%
    SoundBeep, 1500, 50
    SoundBeep, 1500, 50
Gui, Destroy

Return
</code></pre><p>Return ;*********************************End</p>
<p>;****************说明******************<br />
; #=Win; ^=Control; != Alt; +=Shift;<br />
;**************************************<br />

如果你还不了解AHK，请Google之，或查看我以前整理的资料： http://changyun.net/node/1594