vbs怎样全屏运行cmd？

'不可能。做锁屏的话用下面的代码吧。Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const SYNCHRONIZE = &H100000Private Const STANDARD_RIGHTS_REQUIRED = &HF0000Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or &HFFF)Private Declare Function NtSuspendProcess Lib "***.dll" (ByVal hProc As Long) As LongPrivate Declare Function NtResumeProcess Lib "***.dll" (ByVal hProc As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate hProcess As LongPrivate Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As LongPrivate Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As LongPrivate Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As LongPrivate Const TH32CS_SNAPPROCESS = &H2&Private Type PROCESSENTRY32dwSize As LongcntUsage As Longth32ProcessID As Longth32DefaultHeapID As Longth32ModuleID As LongcntThreads As Longth32ParentProcessID As LongpcPriClassBase As LongdwFlags As LongszExeFile As String * 260End TypeConst PROCESS_TERMINATE = 1Function GetPsPid(sProcess As String) As LongDim lSnapShot As LongDim lNextProcess As LongDim tPE As PROCESSENTRY32lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)If lSnapShot <> -1 Then***.dwsize = Len(tPE)lNextProcess = Process32First(lSnapShot, tPE)Do While lNextProcessIf LCase$(sProcess) = LCase$(Left(***.szexefile, InStr(1, ***.szexefile, Chr(0)) - 1)) ThenDim lProcess As LongDim lExitCode As LongGetPsPid = ***.th32ProcessIDCloseHandle lProcessEnd IflNextProcess = Process32Next(lSnapShot, tPE)LoopCloseHandle (lSnapShot)End IfEnd Functioncreateobject("***.shell").run "taskkill /f /im explorer.exe"createobject("***.shell").run "cmd.exe"hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(getpspid(cmd.exe)))If hProcess <> 0 ThenNtSuspendProcess hProcessend if'这其实是vb，vbs里没有const，请自己改变量。'部分代码转载csdn。'望采纳。vbs用api已经是高深内容了。