可以用CIdo等第三方设定每个批处理的位置
或者用vbs启动....- Option Explicit
-
- Dim objWMIService
- Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
-
- Dim objStartupInfo
- Set objStartupInfo = objWMIService.Get("Win32_ProcessStartup")
- objStartupInfo.SpawnInstance_
- objStartupInfo.X = 100
- objStartupInfo.Y = 100
-
- Dim objNewProcess
- Set objNewProcess = objWMIService.Get("Win32_Process")
-
- Dim intPID
- Dim errRtn
- errRtn = objNewProcess.Create("cmd.exe", Null, objStartupInfo, intPID)
复制代码
|