Google хром - не запускается из верхнего и левого края 0 пикселей

Question

Google Chrome Stable я использую в ОС Windows 8.1 и в ОС Windows 8.1 Pro с пути запуска следующим образом:

timeout 5 > nul 
ping 127.0.0.1 -n 11 > nul 
@start /b cmd /c "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" --kiosk http://www.stackoverflow.com 

• 10% при загрузке работает точно так же, как полноэкранный режим.

• НО, 90% раз при загрузке он не работает, это запустить хрому, но не запускает его сверху, слева 0 пиксельный

• если я вручную запустить этот пакетный файл, то время 100%, то работает успешно, но когда его автоматизировано, тогда начинаются беспорядки

Может ли кто-нибудь помочь? (у меня эта проблема уже около 3 месяцев, и ее худшее из-за того, что не удалось найти какое-либо решение для решения этой проблемы навсегда)

Answer 1

Я работаю над windows 7 32 бит, поэтому я создал этот vbscript чтобы создать ярлык в папке автозагрузки и запустить пакетный файл в скрытом режиме.

Shortcut4Batch.vbs

Option Explicit 
Dim PathApplication,ShortcutName,VbsPath 
VbsPath = Wscript.ScriptFullName 
PathApplication = "C:\Users\Hackoo\Desktop\Hackoo\BAT\stackoverflow\KioskChrome.bat" 
ShortcutName = "KioskChrome" 
Call Shortcut(VbsPath,ShortcutName) 
Call Hidden_Run(Dblquote(PathApplication)) 
'********************************************************************************* 
Sub Shortcut(PathApplication,ShortcutName) 
    Dim objShell,StartFolder,objShortCut,MyTab 
    Set objShell = CreateObject("WScript.Shell") 
    MyTab = Split(PathApplication,"\") 
    If ShortcutName = "" Then 
     ShortcutName = MyTab(UBound(MyTab)) 
    End if 
    StartFolder = objShell.SpecialFolders("Startup") 
    Set objShortCut = objShell.CreateShortcut(StartFolder & "\" & ShortcutName & ".lnk") 
    objShortCut.TargetPath = Dblquote(PathApplication) 
    ObjShortCut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,-25" 
    objShortCut.Save 
End Sub 
'********************************************************************************* 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'********************************************************************************* 
Function Hidden_Run(MyProgram) 
    Dim ws,Result 
    Set ws = CreateObject("wscript.Shell") 
    Result = ws.run(MyProgram,0,True) '0 to hide the program 
    Hidden_Run = Result 
End Function 
'********************************************************************************* 

KioskChrome.bat

@echo off 
@start /b cmd /c "%programfiles%\Google\Chrome\Application\chrome.exe" --kiosk http://www.stackoverflow.com