关于自控力的又一个悲剧

jim19

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

点击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", 代表要打开的文件或者要执行的程序.





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


taskDown.rar (258.93 KB, 下载次数: 6)

2023-7-17 11:38 上传

点击文件名下载附件

[Asm] 纯文本查看 复制代码

procedure Tfrmmn.pmbtnGo1Click(Sender: TObject);
var
  i, j: integer;
  ts: TStringList;
  timerInter: dword;
  preFile: string;
  showBallTime: dword;
  taskID: dword;
begin
  try
    stat1.Panels.Items[0].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[i] <> '' then
      begin
        ts.DelimitedText := mmoList.Lines.Strings[i];
        ts.Delimiter := ',';
        timerInter := strtoint(ts.Strings[0]) * 60;
        j := 0;

        msnPop.Text := ts.Strings[1];
        if ts.Count > 3 then
        begin
          preFile := ts.Strings[2];
          ShellExecute(self.Handle, 'open', PChar(preFile), nil, nil, SW_SHOWNORMAL);
          msnPop.URL := ts.Strings[3];
        end else begin
          msnPop.URL := ts.Strings[2];
        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

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

bjxiaoyao

哈哈哈哈，自律高手

tcll呀呀

感谢感谢~

xuexiba

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

qingyou1298

这是什么语言写的？

SaZNWRGjyrDE

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

Ballp

可以，很强

xielucky

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

Delphi  吧

qingyou1298

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

哦，那看不懂了