电脑记事本可以做出哪些小玩意,大家知道吗?

一些小玩意

关机
@echo off
shutdown /s /t 60 /c “1分钟后关机”
(文件后缀名改为.bat方可起作用)

取消关机
@echo off
shutdown /a
(文件后缀名改为.bat方可起作用)

无限弹出窗口
:start
start cmd
goto start
(文件后缀名改为.bat方可起作用)
温馨提示:长按开关机键

最近网上挺火的:按钮小程序
msgbox"确定!",0,“一个小程序”
msgbox"xxx",1,“aaa”
a=msgbox(“sss”)
if a=1 then
msgbox"www",1,“qqq”
b=msgbox(“ooo”)
end if
if b=1 then
msgbox"zzz",1,“ddd”
c=msgbox(“uuu”)
end if
if c=1 then
msgbox"rrr",1,“iii”
d=msgbox(“vvv”)
end if
(文件后缀名改为.vbs方可起作用)

欢迎各位大神补充

简单的记事本程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Menus, BandActn, StdActns, ActnList, ExtActns, ExtCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; ImageList1: TImageList; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton3: TToolButton; ToolButton2: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; StatusBar1: TStatusBar; Memo1: TMemo; ActionList1: TActionList; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; EditSelectAll1: TEditSelectAll; EditUndo1: TEditUndo; EditDelete1: TEditDelete; FileNew: TAction; FileOpen: TAction; FileSave: TAction; FileExit: TAction; FormatST: TAction; FormatKT: TAction; FormatLS: TAction; FormatRed: TAction; FormatBlue: TAction; FormatBlack: TAction; CustomizeActionBars1: TCustomizeActionBars; N20: TMenuItem; N21: TMenuItem; R1: TMenuItem; B1: TMenuItem; K1: TMenuItem; N15: TMenuItem; SearchFind1: TSearchFind; SearchReplace1: TSearchReplace; ComboBox1: TComboBox; RichEditUnderline1: TRichEditUnderline; FileOpen1: TFileOpen; mmnBold: TMenuItem; mmnItalic: TMenuItem; mmnUnderline: TMenuItem; procedure FileNewExecute(Sender: TObject); procedure FileOpenExecute(Sender: TObject); procedure FileSaveExecute(Sender: TObject); procedure FileExitExecute(Sender: TObject); procedure FormatSTExecute(Sender: TObject); procedure FormatKTExecute(Sender: TObject); procedure FormatLSExecute(Sender: TObject);
评论 5
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值