Comment empêcher l'affichage d'une fenêtre DOS.

dim z, ram

ram_installee()

end

sub ram_installee()
    file_open_write 1,"test.bat"
    file_writeln 1,"@ echo off"
    file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
    file_close 1
    execute_wait "test.bat"

    if object_exists(9998)=1 then delete 9998
    create_hide
    memo 9998
    text 9998,clipboard_string_paste$
    z=val(item_read$(9998,3))/1000000000
    ram=int(z*10)/10
    message "RAM installée: "+str$(ram)+" Go."
    create_show
end_sub

SUB Exprog(pr$)
  ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
  ' - exemple:  Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
  DIM_LOCAL vb$,vt$,q$,p$,k%: q$ = CHR$(34)
  vb$ = "Z:\Vb.vbs": vt$ = "Z:\Tmp.bat"
  p$ = pr$: k% = INSTR(p$," "): IF k%>0 THEN p$ = LEFT$(p$,k%-1)
  IF UPPER$(FILE_EXTRACT_EXTENSION$(p$))<>".BAT"
      FILE_OPEN_WRITE 9,vt$
          FILE_WRITELN 9,"@echo off"
          FILE_WRITELN 9,pr$
      FILE_CLOSE 9: pr$ = vt$
  END_IF
  FILE_OPEN_WRITE 9, vb$: ' ===== Création du script .vbs =====
      FILE_WRITELN 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
  FILE_CLOSE 9
  EXECUTE_WAIT "WSCRIPT.exe|"+vb$: ' ===== Exécution du script =====
  FILE_DELETE vb$: IF FILE_EXISTS(vt$) = 1 THEN FILE_DELETE vt$
END_SUB

sub ram_installee()
    file_open_write 1,"test.bat"
    file_writeln 1,"@echo off"
    file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
    file_close 1
   
    ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
    ' - exemple:  Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
    dim_local pr$, vb$, vt$, q$
   
    pr$="test.bat"
    q$ = chr$(34)
    vb$ = "Vb.vbs": vt$ = "tmp.bat"
 
    file_open_write 9, vb$: ' ===== Création du script .vbs =====
    file_writeln 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
    file_close 9
    execute_wait "WSCRIPT.exe|"+vb$: ' ===== Exécution du script =====
    file_delete vb$: if file_exists(vt$) = 1 then file_delete vt$
 
    if object_exists(9998)=1 then delete 9998
    create_hide
    memo 9998
    text 9998,clipboard_string_paste$
    z=val(item_read$(9998,3))/1000000000
    ram=int(z*10)/10
    ' message "RAM installée: "+str$(ram)+" Go."
    create_show
end_sub