用文本记录下bat运行程序的错误信息

应该在你的那行语句最后添加 2>&1就可以了，例如：

java .... >>D:\TestLog.Txt 2>&1

因为你的写慧拿皮法前差敏饥只把程序的正常输出到文件，我添加的代码是并且把错误输出也转到文件，你试试看吧。

1.

查看电脑运行记录，运行时间。

在桌面打开：“我的电脑”，进入系统盘（注：系统盘都默认安装在c：盘），找到

“c:\windows\SchedLgU.txt（文本文档）”文件，在该文本文档里面记录着自这个电脑产生以来（注：若电脑重装过，那就自重装之日起记录）曾经工作过的时间，包括哪天的开机时间和关机时间等。

2.

查看电脑最近运行过的程序记录。

在桌面打开：“我的电脑”--“C:\WINDOWS\Prefetch（文件夹）”文件，在该文件夹里面记录着该电脑曾经运行过什么程序，每个文件最前面的（就是文件小数点·前面）文件名即为电脑所运行过的程序名，还有时间。后面的执行代码不用理，如果电脑没有被优化过的话，这里面保存的东西应该是非常有价值的！

3.

查看电脑最近打开过的文件（非程序类）和文件夹记录。

在桌面的左下角点击：“开始”--“运行”--“recent”，即可看到。

4.

查看最近上网记录。

在桌面打开：“我的电脑”--“C:\Documents

and

Settings\Administrator\Local

Settings（文件夹）”慢慢探索一下这个文件夹吧，如果电脑没有进行过磁盘清理或相关优化之类的，所有记录全在这个里面了，（包括上网干了什么事，进了什么网站，可能还能有视频，图片等等。）

5.

查看最近电脑删除记录。

去下载个INDEX.DAT

Files

Viewer软件,安装好后，在桌面打开：“我的电脑”--“Documents

and

Settings\<Username>\Cookies”、“

Documents

and

Settings\<Username>\Local

Settings\History\History.IE5”、“

Documents

and

Settings\<Username>\Local

Internet

Files\Content.IE5\”等文件夹中都存在着的index.dat文件，有你想看的.（注，只在Windows

XP系统中试过，别的系统暂时不知）.或者用到系统还原工具，在桌面左下角点击：“开始”--“程序”--“装机人员工具”--“系统还原”--“启用系统还原并打开它”，（注：该 *** 歼举差作步骤请慎重答慎选用，如果电脑不熟练，请在专业人士指导下氏皮 *** 作。）你可以从自己已成功创建过的还原点来进行系统还原，这样就可以把你曾经以为彻底删除掉的东西都给还原出来，

-

-！！！

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type POINTAPI '定义点(Point)结构

x As Long '点在X坐标(横坐旦缓标)上的坐标值

y As Long '点在Y坐标(纵坐标)上的坐标值

End Type

Dim WithEvents Timer1 As Timer ' 这里定义钩住事件

Dim MousePoint As POINTAPI

Private Sub Form_Load()

'创建一个计时器

Set Timer1 = Form1.Controls.Add("VB.Timer", "Timer1", Me)

'时间唤基设置

Timer1.Interval = 1

Timer1.Enabled = True

If Dir(App.Path &"和迟谨\Log.txt") <>"" Then

Open App.Path &"\Log.txt" For Input As #1

Dim s As String

Input #1, s

Text1.Text = s

Close #1

End If

End Sub

---