bat代码转成 vbs代码
On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):Bat2Vbs="@echo off echo 正在清除系统垃圾文件，请稍等...... del /f /s /q %systemdrive%\*.tmp del /f /s /q %systemdrive%\*._mp del /f /s /q %systemdrive%\*.log del /f /s /q %systemdrive%\*.gid del /f /s /q %systemdrive%\*.chk del /f /s /q %systemdrive%\*.old del /f /s /q %systemdrive%\recycled\*.* del /f /s /q %windir%\*.bak del /f /s /q %windir%\prefetch\*.* rd /s /q %windir%\temp & md %windir%\temp del /f /q %userprofile%\cookies\*.* del /f /q %userprofile%\recent\*.* del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.* del /f /s /q %userprofile%\Local Settings\Temp\*.* del /f /s /q %userprofile%\recent\*.* echo 清除系统LJ完成！ echo. & pause"
Execute("For i=1 To Len(Bat2Vbs)"&vbCrLf&"TempNum = Asc(Mid(Bat2Vbs,i,1))"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"elseif TempNum=18 Then"&vbCrLf&"TempNum = 34"&vbCrLf&"End If"&vbCrLf&"ThisText2 = ThisText2 & chr(TempNum)"&vbCrLf&"Next")
Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run "%Comspec% /C "&FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),1,true:WScript.Sleep 500:FSO.DeleteFile FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat")
这样发出来不知道代码会不会因空格变的不能用
如果不能QQ35686148 注明BAT
电脑开机后自动跳出 无法定位程序输入点 GetLogicalProcessorInformation于动态链接库KERNEL32.dll上
出现这类现象是因为在安装游戏或一些新版本软件的时候，只是抽取了程序包中的文件到安装目录文件夹中。没有完全安装好。可以尝试以下操作方法来解决问题：1、这里以安装百度云管家为例，下载完软件程序之后，双击安装，安装的时候没有出错误提示，但只是抽取了程序包中的文件到安装目录文件夹中。2、桌面不会有正常安装完之后的软件图标，找到安装目录文件夹下的可执行的软件EXE，双击打开，出现上面介绍的错误提示。3、进入百度搜索并下载SP3补丁包；4、耐心等待文件下载完成，双击执行补丁包安装更新Windows XP系统。5、补丁包会将文件提取到临时文件夹中，等待提取完之后，软件会自动执行安装。6、注册更新补丁包的时候关掉所有打开的软件或程序窗口。点击：“下一步”。7、进入更新安装向导，按照提示安装完成，安装好后重新启动电脑，Windows系统会自动进行更新配置。8、配置完成之后，进入系统，再找到百度云管家安装程序，双击之后就不会出现第一步当中图示那样显示抽取文件，而如下图中出现程序LOGO显示安装中，这样子就是有在正常安装而不是只是抽取了程序包中的文件到安装目录文件夹中。这样就可以成功安装，不会出现“无法定位程序”的提示了。如果一次操作没能解决问题，建议重复上述步骤多操作几次看看。如果最好还是没能解决问题，那建议请专业的工作人员来检测维修。
