它出错了,原因是第四行缺少对象“objFSO”
时间: 2023-12-13 19:06:02 浏览: 20
非常抱歉,我犯了一个错误。在第四行中,确实缺少了一个创建文本文件的 `FileSystemObject` 对象。以下是修正后的代码:
```
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objGraphics = objShell.Environment("Process")
objGraphics("TMP") = WScript.ScriptFullName
Set objFile = objFSO.CreateTextFile(WScript.ScriptFullName, True)
objFile.WriteLine "Dim w, h, x, y"
objFile.WriteLine "Set objWMIService = GetObject(""winmgmts:\\.\root\cimv2"")"
objFile.WriteLine "Set colItems = objWMIService.ExecQuery(""Select * From Win32_DesktopMonitor"")"
objFile.WriteLine "For Each objItem in colItems"
objFile.WriteLine " w = objItem.ScreenWidth / 2"
objFile.WriteLine " h = objItem.ScreenHeight / 2"
objFile.WriteLine "Next"
objFile.WriteLine "Set objWMIService = GetObject(""winmgmts:\\.\root\cimv2"")"
objFile.WriteLine "Set colItems = objWMIService.ExecQuery(""Select * From Win32_PointingDevice"")"
objFile.WriteLine "For Each objItem in colItems"
objFile.WriteLine " x = objItem.ScreenWidth / 2"
objFile.WriteLine " y = objItem.ScreenHeight / 2"
objFile.WriteLine "Next"
objFile.WriteLine "Set objFile = objFSO.CreateTextFile(""heart.vbs"", True)"
objFile.WriteLine "objFile.WriteLine ""Set objShell = CreateObject(""WScript.Shell"")"""
objFile.WriteLine "objFile.WriteLine ""For i = 1 To 360 Step 1"""
objFile.WriteLine "objFile.WriteLine "" x = w + 80 * Cos(i * 3.14159265358979 / 180)"""
objFile.WriteLine "objFile.WriteLine "" y = h + 80 * Sin(i * 3.14159265358979 / 180)"""
objFile.WriteLine "objFile.WriteLine "" objShell.SendKeys ""{ASC 3}"" & x & "","" & y"""
objFile.WriteLine "objFile.WriteLine ""Next"""
objFile.Close
objShell.Run "wscript.exe heart.vbs"
```
请再次尝试运行修正后的代码,如果还有问题,请告诉我。