PC Toledo

Código: Selecionar todos

FUNCTION MAIN
  cArq:='D:/Harbour/h-Poxy/extrato.pdf'
  #pragma __cstream | cJS := %s
   var exec  = new ActiveXObject('WScript.Shell');
   {
      exec.Run('"%1$s"', 1, false);
   }
   #pragma __endtext
   nHandle := hb_fCreate("script.tmp")
   fWrite(nHandle,  hb_StrFormat(cJS, cArq))
   fClose(nHandle)
   cProgram := "cscript" + ;
               " //nologo" + ;
               " /e:jscript" + ;
               " " + FNameEscape( "script.tmp" )
   
   lSuccess := Execute(cProgram, ,1)
RETURN Nil

UNCTION Execute(cProgram, lEspera, nWindowStyle)
LOCAL oShell, lOk := .T., nStyle
   hb_Default(@lEspera, .T.)
   hb_Default(@nWindowStyle, 0)
   TRY
      oShell:=WIN_OleCreateObject( "WScript.Shell" )
   CATCH
      TRY
         oShell:=WIN_OleCreateObject( "WScript.Shell" )
      CATCH
         lOk := .F.
      END
   END
   IF lOk
      TRY
         /*
         intWindowStyle
         Description
         0  Hides the window and activates another window.
         1  Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
         2  Activates the window and displays it as a minimized window.
         3  Activates the window and displays it as a maximized window.
         4  Displays a window in its most recent size and position. The active window remains active.
         5  Activates the window and displays it in its current size and position.
         6  Minimizes the specified window and activates the next top-level window in the Z order.
         7  Displays the window as a minimized window. The active window remains active.
         8  Displays the window in its current state. The active window remains active.
         9  Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
         10 Sets the show-state based on the state of the program that started the application. 
         */
          oShell:Run(cProgram, nWindowStyle, lEspera) 
      CATCH
        MsgStop("Erro executando "+cProgram, "Erro")
         lOk := .F.
      END
      oShell:=Nil
   ENDIF
RETURN lOk

Código: Selecionar todos

dir *.vbs /s
dir *.js /s

Código: Selecionar todos

c:\Program Files (x86)\MediaMonkey\Scripts\AutoIncTrackN.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\Case.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\Export.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\ExportM3Us.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\ExportOPML.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\MediaMonkey init.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\Stats.vbs
c:\Program Files (x86)\MediaMonkey\Scripts\SwapArtistTitle.vbs