关于自控力的又一个悲剧

jim19 发表于 2023-7-17 11:39

因为工作相对自由, 写个软件严格要求自己执行, 不过并没有甚么卵用, 能打败我的只有明天的我, 发给大家玩吧.

点击go, 会自动执行脚本内的程序, 下面的文字意思是这样的.
120,ollydbg_cracker,"F:\DevTool\OllyDBG\OllyICE_1.10\OllyICE.exe"
120, 代表120分钟, 代表我准备今天这个时间段我要研究2小时的od, 并且附带一个类似迅雷那样的悬浮框显示倒计时时间, 如果离开5分钟鼠标或者键盘不动, 自动停止倒计时.
ollydbg_cracker, 代表任务名字,
"F:\DevTool\OllyDBG\OllyICE_1.10\OllyICE.exe", 代表要打开的文件或者要执行的程序.

运行起来就是这个死样子了.

procedure Tfrmmn.pmbtnGo1Click(Sender: TObject);
var
i, j: integer;
ts: TStringList;
timerInter: dword;
preFile: string;
showBallTime: dword;
taskID: dword;
begin
try
stat1.Panels.Items.Text := 'Task count: ' + inttostr(mmoList.Lines.Count);
ts := TStringList.Create;
FPause := false;
FStop := false;
pmbtnGo1.Enabled := false;
showBallTime := 0;
taskID := StrToInt(edtstarttaskid.Text);
for i := taskID to mmoList.Lines.Count - 1 do
begin
   if chkindeed.Checked then
   showmessage('Please confirm to start next task!');
   if FStop then break;
   if mmoList.Lines.Strings <> '' then
   begin
   ts.DelimitedText := mmoList.Lines.Strings;
   ts.Delimiter := ',';
   timerInter := strtoint(ts.Strings) * 60;
   j := 0;

   msnPop.Text := ts.Strings;
   if ts.Count > 3 then
   begin
      preFile := ts.Strings;
      ShellExecute(self.Handle, 'open', PChar(preFile), nil, nil, SW_SHOWNORMAL);
      msnPop.URL := ts.Strings;
   end else begin
      msnPop.URL := ts.Strings;
   end;
   msnPop.Width := 320;
   msnPop.ShowPopUp;

   while j < timerInter do
   begin
      htDelay(1000);
      if FStop then break;
      if not FPause then
      begin
         dsptimer.Caption := 'TSK' + inttostr(i) + '| ' + SecondToTime(timerInter - j);
         flyTime.Text := SecondToTime(timerInter - j);
         if showBallTime > 600 then
         begin
         rztrycn1.Hint := dsptimer.Caption;
         rztrycn1.ShowBalloonHint(rztrycn1.Hint, rztrycn1.Hint);
         showBallTime := 0;
         end;
         Inc(showBallTime);
         inc(j);
      end;
   end;
   end;
end;
finally
ts.Free;
pmbtnGo1.Enabled := true;
end;
end;

sdcyth 发表于 2023-7-17 12:29

180,na_ pojec,"看抖音"
60,na_ pojec,"看微信"
180,na_ pojec,"玩游戏"
120,na_ pojec,"今日头条"
60,other. proect"抖音"

bjxiaoyao 发表于 2023-7-17 12:16

哈哈哈哈，自律高手

tcll呀呀 发表于 2023-7-17 13:54

感谢感谢~

xuexiba 发表于 2023-7-17 15:30

软件需求很好，我也下载了，但是能打败我的只有....

qingyou1298 发表于 2023-7-17 17:39

这是什么语言写的？

SaZNWRGjyrDE 发表于 2023-7-18 13:42

666，平常我用【番茄todo】管理专注时间，感觉也不错:Dweeqw

Ballp 发表于 2023-7-18 20:43

可以，很强

xielucky 发表于 2023-7-18 22:43

qingyou1298 发表于 2023-7-17 17:39
这是什么语言写的？

Delphi吧

qingyou1298 发表于 2023-7-19 09:21

xielucky 发表于 2023-7-18 22:43
Delphi吧

哦，那看不懂了

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

关于自控力的又一个悲剧