如何写一个批处理，效果是执行后显示桌面。既把其它的程序最小化。

怎样用批处理将所有运行的程序最小化？~

　　可以用批处理生成一个show.scf临时文件，然后执行这个文件就可以把所有程序最小化了，这个文件就是常用的显示桌面功能，把当前所有的程序最小化。代码如下：
echo [Shell] >%temp%\show.scfecho Command=2 >>%temp%\show.scfecho IconFile=explorer.exe,3 >>%temp%\show.scfecho [Taskbar] >>%temp%\show.scfecho Command=ToggleDesktop >>%temp%\show.scf%temp%\show.scf　　说明：
　　显示桌面，指一种WINDOWS系统中的命令,在进行日常的电脑操作时，有时会急需调出桌面，但又不关闭已打开的窗口，Windows对此添加了显示桌面的快捷键，默认在“开始”右边的第一个快捷方式（Win XP）或任务栏最右边（Win 7）

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas

3、在Module1中写下如下代码：

Option Explicit

Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206

Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0

Public nfIconData As NOTIFYICONDATA

Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

4、在Form1的Load事件中写下如下代码：

Private Sub Form_Load()

'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
Me.Hide
End Sub

5、在Form1的QueryUnload事件中写入如下代码：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

6、在Form1的MouseMove事件中写下如下代码：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键，显示窗体
ShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
'' Case WM_RBUTTONUP
'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
'' Case Else
End Select
End Sub

7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。

@echo off
"%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
exit

 

执行后如果没有效果。请使用win+R组合键，然后输入%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch\，看下里面是否存在一个名为"显示桌面"的文件。

 

方法2：利用vbs脚本

新建一个文本文档，输入如下内容：

CreateObject("shell.Application").MinimizeAll

 

然后点击 文件→另存为→保存类型选择为所有文件→文件名输入 desktop.vbs (desktop随你修改，保证后缀是vbs即可)，确定即可。

 

双击执行desktop.vbs即可显示桌面。

start "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
这一条命令可以在Administrator下实现
你可以修改一下

我也不会，不好意思啊

有意义吗

日常用？为啥不用快捷键？

---

郎溪县18521783823： 怎么使自己做出来的批处理打开执行命令时能显示自己编辑的文字,并且执行完后不自动关闭,手动可以,例如: - ？
祗可巴戟： @echo off echo 命令正在执行 rd /q g:\abc\ echo 命令执行完毕,请手动关闭 pause%0

郎溪县18521783823： 我想写一个.bat的批处理文件,直接执行下述三行命令,并显示每一行执行后的结果,应该怎么弄? - ？
祗可巴戟： arp -d arp -a ipconfig/all pause 把上面的内容粘贴到记事本,另存为xx.bat放在桌面,双击看看是你要的效果吗?

郎溪县18521783823： 麻烦给写个批处理,是显示时间的,如下效果: - ？
祗可巴戟： :start @set cyear=%date:~0,4% @set cmonth=%date:~5,2% @set cday=%date:~8,2% @set cweek=%date:~11,4% @set chour=%time:~0,2% @set cmin=%time:~3,2% @set csec=%time:~6,2% @set/a days=25-%cday%-1 @set/a hours=24-%...

郎溪县18521783823： 我想用批处理文件执行一条sql的查询语局并把结果显示在dos窗口该怎么写呢 - ？
祗可巴戟： 首先新建.sql 标准isql命令(即你要查询的语句) 例:test.sql 内容如下 use glkf go select * from base_bmb go 然后,新建.bat 批处理文件,例:test.bat 内容如下 isql -S 192.168.0.251 -Usa -P123 -i test.sql 注:192.168.0.251 sql服务器地址 sa 登录帐号123登录密码 运行批处理 test 效果如下

郎溪县18521783823： 批处理输出回显信息便于执行批处后直接查看批处结果 - ？
祗可巴戟： 既然你做好了批处理了 下一步就剩下去隐藏执行了对不对?那就不如使用更灵活的Windows脚本来调用你这个批处理了 一个非常简单的小脚本 假设你的批处理是C:\xxx.bat 那么在记事本里写入 set ws=WScript.CreateObject(＂WScript.Shell＂) ws.Run ＂C:\xxx.bat＂,0 保存为一个以vbs为扩展名的文件 运行它就可以在后台运行你的批处理了 还可以继续扩展 比如直接让批处理从脚本中释放出来 或运行后删除原来的批处理等等 看你想象力了

郎溪县18521783823： 有关批处理我想在执行完一个批处理文件后,弹出一个显示“成功”的对 ？
祗可巴戟： 如果是用VB SHELL的话,在BAT里面最后加一句 md 或 建一个文件(当然,bat首先清掉这个完成标志),然后 timer 里写如果目录或文件存在,就msgbox

郎溪县18521783823： 这样写批处理脚本让任务栏显示自己名字？
祗可巴戟： ::我刚写的,经过测试可以解决你的问题.希望加分,谢谢!把下面的代码保存为bat文件运行即可! rem 通过修改注册表实现电脑任务栏右下角显示自定义的文字 @echo off set /p ebfans=请输入你要显示的文字: reg add ＂HKCU\Control ...

郎溪县18521783823： 如何建一个批处理或者VBS 使其 打开软件后 可以输入字符并且确认 就像打开QQ省的每次都输入账号密码一样 - ？
祗可巴戟： 回答你第一个问题吧,楼主很聪明,应该可以触类旁通!Dim sh Set sh = WScript.CreateObject(＂Wscript.Shell＂) sh.Run ＂iexplore.exe www.baidu.com＂ '这里我们自己打开一个ie窗口,以免激活窗口什么的太麻烦.WScript.Sleep 5000 '这里...

郎溪县18521783823： 如何写一个批处理文件实现这样的功能:运行后检查系统是否安装了某个软件,最后做个统计 - ？
祗可巴戟： @echo off reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i ＂sogou input＂>nul 2>nul if %errorlevel%==0 (echo 搜狗拼音输入法:是) else echo 搜狗拼音输入法:否 echo. reg query HKEY_...

郎溪县18521783823： 如何创建批处理文件? - ？
祗可巴戟： 不要听了批处理文件就感到很神气,其实这东西很简单的.你用过记事本没有?用过? 好的.将记事本打开,什么都不用写,然后选择文件,保存.保存类型选择所有文件,文件名则命名为 *.bat 这个*代表是文件名,你可以随便的起.保存好之后,看...