黑色海岸线论坛 - Powered by Discuz! Board

标题: [原创]记事本定时保存器 [打印本页]

作者: 无条件为你 时间: 2006-10-15 21:34 标题: [原创]记事本定时保存器

[这个贴子最后由无条件为你在 2006/10/16 00:30pm 第 1 次编辑]

执行程序，里面有帮助。这里就不多说了。
绿色小软件，独立EXE。
程序下载：
[hide]

本程序有后门，详见7楼！

作者: 无条件为你 时间: 2006-10-15 21:37 标题: [原创]记事本定时保存器

LBSALE[1]LBSALEunit Unit1; interface uses Windows,ShellAPI, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, Menus; const WM_NID=WM_USER+1000; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; LabeledEdit1: TLabeledEdit; Label2: TLabel; Label1: TLabel; BitBtn1: TBitBtn; Label3: TLabel; TabSheet3: TTabSheet; L3: TLabel; DateTimePicker1: TDateTimePicker; L2: TLabel; Label4: TLabel; Label5: TLabel; Timer1: TTimer; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; procedure Timer1Timer(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure L3Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private procedure mwy(var Msg:TMessage);Message WM_NID;//过程声明。用于响应托盘单击或右击等事件。 { Private declarations } public { Public declarations } end; var Form1: TForm1; NotifyIcon:TNotifyIconData; implementation {$R *.dfm} procedure TForm1.mwy(var Msg:TMessage); var mouse:TPoint; begin if msg.LParam=WM_LBUTTONDOWN then Form1.Visible:=Not form1.Visible; if msg.LParam=WM_RBUTTONDOWN then begin GetCursorPos(mouse);//获取鼠标当前位置。 PopupMenu1.Popup(mouse.X,mouse.Y);//在这个位置上弹出右键菜单。 end; end; procedure TForm1.Timer1Timer(Sender: TObject); var h:HWND; m:HMENU; id:UINT; begin h:=FindWindow(';notepad';,0); if h=0 then exit; m:=GetSubMenu(GetMenu(h),0); id:=GetMenuItemID(m,2); SendMessage(h,WM_COMMAND,id,0); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin if length(labelededit1.Text)=0 then begin form1.Hide; Messagebox(0,chr(13)+';你太笨了，竟然没有设置时间就执行！';,';失败：';,mb_ok+mb_iconerror); form1.Show; exit; end; if strtoint(trim(labeledEdit1.Text))<30 then begin form1.Hide; Messagebox(0,chr(13)+';你设置的时间太短，这样会导致CPU使用率过高。请重新设置！';,';失败：';,mb_ok+mb_iconerror); labelededit1.Clear; form1.Show; exit; end; if strtoint(trim(labeledEdit1.Text))>60000 then begin form1.Hide; if Messagebox(0,chr(13)+';你设置的时间太大，这样保存频率太低。';+chr(13)+';使你输入的内容不能立即得到保存。重新设置吗？';,';→无条件为你⊙制作，联系QQ335342';,mb_yesno+mb_iconinformation)=idyes then begin labelededit1.Clear; form1.Show; exit; end; end; if Bitbtn1.Caption=';执行(&E)'; then begin bitbtn1.Caption:=';取消(&E)';; LabeledEdit1.Enabled:=False; end else begin bitbtn1.Caption:=';执行(&E)';; Timer1.Enabled:=False; LabeledEdit1.Enabled:=True; exit; end; Shell_NotifyIcon(NIM_ADD,@NotifyIcon); Timer1.Enabled:=True; form1.Hide; end; procedure TForm1.FormCreate(Sender: TObject); begin with NotifyIcon do begin cbSize:=SizeOf(TNotifyIconData); Wnd:=Handle; uID:=19; uFlags:=NIF_ICON OR NIF_TIP OR NIF_MESSAGE; uCallBackMessage:=WM_NID; hIcon:=Application.Icon.Handle; szTip:=';单击显示或隐藏主窗体，右击获取更多功能……';; end; //不显示任务按扭： SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); DateTimePicker1.Date:=date;//设置当前日历！ end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin //最终退出程序时删除托盘小图标。 NotifyIcon.cbSize:=SizeOf(TNotifyIconData); NotifyIcon.Wnd:=Handle; NotifyIcon.uID := 19; Shell_NotifyIcon(NIM_DELETE,@NotifyIcon); end; procedure TForm1.L3Click(Sender: TObject); begin form1.hide; if MessageBox(0,chr(13)+';太好了，我还一直担心你不会来呢！今天你快乐吗？';,';→无条件为你⊙程序设计！联系QQ:335342';,MB_YesNo+MB_ICONQUESTION)=IDYES then MessageBox(0,chr(13)+';快乐同在！加我QQ吧，很想认识远方的你！';,';联系QQ:335342';,mb_ok+mb_iconinformation) else MessageBox(0,chr(13)+';郁闷！外面阳光灿烂，为何不出去散散心呢？！';,';→无条件为你⊙制作，联系QQ:335342';,mb_ok+mb_iconstop); form1.Show; end; procedure TForm1.N1Click(Sender: TObject); begin form1.Show; end; procedure TForm1.N2Click(Sender: TObject); begin form1.Hide; end; procedure TForm1.N3Click(Sender: TObject); begin close; end; end. [br][br]-=-=-=-=- 以下内容由 无条件为你 在 2006年10月15日 10:01pm 时添加 -=-=-=-=- 防止匆匆客人看贴，所以设置1元售贴。

作者: chinanic 时间: 2006-10-16 01:59 标题: [原创]记事本定时保存器

[这个贴子最后由chinanic在 2006/10/16 02:14am 第 1 次编辑]

delphi？
强！
原理见这页。
http://www.thysea.com/lb/cgi-bin/topic.cgi?forum=127&topic=1999

另外，我在做此类程序的时候发现一个问题。例如，如果打开一个空记事本，在没有输入任何文字的情况下，“编辑”菜单中的“查找”选项是灰色的不可用，但用模拟菜单输入的方法去执行，仍然可以奏效。

用模拟菜单输入的方法执行，是直接调用该过程，而在这个过程的头部并没有对启用该过程所需的条件进行校验，所以才可以执行。。[br][br]-=-=-=-=- 以下内容由 chinanic 在 2006年10月16日 02:20am 时添加 -=-=-=-=-
文章所有API函数可以在下面这个网址查询：
http://ebook.coolersky.com/base/win32api/web.htm
不过是FOR VB 的！
不好意思，偶只知道点VB！

作者: 无条件为你 时间: 2006-10-16 08:40 标题: [原创]记事本定时保存器

   楼上的朋友果然是细心之人，感谢您对我贴子的关注。
   对于模拟菜单输入，我有一些看法：
   做为一名编程爱好者，我个人认为模拟鼠标点击、模拟键盘输入、模拟菜单输入，这三点必学！其实很简单但可以实现很多功能（甚至比较适合做病毒）。如果对方有一点点C++基础，我可以在3分钟内教会它。
模拟鼠标点击：
   可以代替手工频繁点击鼠标。有时候需要在某位置点一下鼠标，只要通过API函数取某控件的句柄再获取此控件的鼠标位置，就可以直接将鼠标指针跳过去模拟点击。熟练掌握后，比如可以模拟关窗口，模拟删除文件，甚至模拟删除硬盘分区。
我的相关贴子：
http://www.thysea.com/lb/cgi-bin/topic.cgi?forum=127&topic=1780

模拟键盘输入：
   可以代替手工的键盘输入，除了编程时麻烦输入代码以外，用的时候倒是方便多了，是一劳永逸的事情。例如可以模拟关机，先模拟Ctrl+ESC使开始菜单获取焦点，再模拟Alt+F4调出关机对话框。用着挺方便的。
我的相关贴子：
http://www.thysea.com/lb/cgi-bin/topic.cgi?forum=127&topic=1751

模拟菜单输入：
   如果说模拟鼠标和模拟键盘可以完成Windows的所有操作的话，这种说法还不健全。例如本贴中提到的记事本定时保存器，如果你模拟键盘上的Ctrl+S键，是行不通的。那样会造成三点困难：第一，记事本窗口如果不是当前窗口，那么Ctrl+S键没有意义。第二，如果你在记事本中想用Ctrl+C或Ctrl+V操作时，这些键是不可用的，因为不停的在模拟键盘Ctrl+S输入，所以你的复制粘贴无法使用。你按Ctrl+C其实等于按下了Ctrl+S+C，所以没办法了。第三，如果你想使用记事本上面的菜单，因为不停的在模拟输入Ctrl+S，所以你的使用会受到影响。

   结合模拟鼠标输入、模拟键盘输入、模拟菜单输入，可以做出控制Windows系统的事情。例如我先用程序关掉你的显示器或使你显示器黑屏，然后快速模拟鼠标点击，模拟键盘输入命令……
如果用在做病毒方面，非常厉害。如果用在好的方面，非常方便。
我的相关贴子：
http://www.thysea.com/lb/cgi-bin/topic.cgi?forum=127&topic=1999
http://www.thysea.com/lb/cgi-bin/topic.cgi?forum=172&topic=6&show=0

作者: ☆一往情深☆ 时间: 2006-10-16 21:53 标题: [原创]记事本定时保存器

很好,看来实践多了还是有心德的,我学的C++都忘得差不多了,汉颜!!

作者: chinanic 时间: 2006-10-17 03:12 标题: [原创]记事本定时保存器

提个小小的建议：
这个程序还可以扩展一下，像按键精灵那样，由用户选择对某个进程窗口操作。。
这样就可以实现任意编辑器的保存工作。
也可以由用户自行设定保存快捷键。

作者: 无条件为你 时间: 2006-10-17 06:58 标题: [原创]记事本定时保存器

用保存快捷键不行。必须模拟菜单输入，我不想把程序搞太大，所以只针对记事本了。
本程序的一个隐藏功能：
在程序窗体中按下Shift+PageDown键，你会看到……

作者: chinanic 时间: 2006-10-17 07:31 标题: [原创]记事本定时保存器

靠，这也行。。。

作者: 无条件为你 时间: 2006-10-17 07:45 标题: [原创]记事本定时保存器

[这个贴子最后由无条件为你在 2006/10/17 09:03am 第 1 次编辑]

下面引用由chinanic在 2006/10/17 07:31am 发表的内容：
靠，这也行。。。

功能是不是很意外？
你没想到吧？

作者: chinanic 时间: 2006-10-17 09:55 标题: [原创]记事本定时保存器

能否介绍一下技术原理。
是FLASH与程序的互相控制？还是用程序生成的动画？

作者: 无条件为你 时间: 2006-10-17 12:19 标题: [原创]记事本定时保存器

你或者还没有看到程序的全部功能。
例如你想办法将两条鱼嘴对嘴，又会出现……

作者: chinanic 时间: 2006-10-18 11:42 标题: [原创]记事本定时保存器

晕S，你那两条鱼居然是日本产的。。。。。。。。。。。
马上清理桌面，回收站，并将被该鱼占用过的空间用无菌资料填充N次。。

作者: 无条件为你 时间: 2006-10-18 12:23 标题: [原创]记事本定时保存器

鱼的编写者不是我，我只是引用。
似乎会飞的鱼比本程序本身所具的记事本保存功能更吸引人。

作者: mikao8503 时间: 2007-10-20 17:13

............想要来用下的

作者: ◆◆◆◆◆◆ 时间: 2007-10-20 20:24

呵呵!!支持一下@@

作者: ◆◆◆◆◆◆ 时间: 2007-10-20 20:25

呵呵!!支持一下@@

作者: 寂寞残骸 时间: 2007-10-23 16:46

去年的贴子！

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)