Re: Soutien scolaire en langues.

Publié par Anonyme le 02/03/2020 08:30:36

Bonjour.

Merci Coyotte2611 d'avoir éclairé ma lanterne à ce sujet, dont je ne connaissais pas l'existence.

Pour info, au lancement de mon logiciel, la sub suivante se lance.
Le problème vient-il de là ?
La sub crée un script vbs, qui pose peut-être problème !

Qu'en pensez-vous ?



sub ram_installee()
dim_local vb$, q$

file_open_write 1,"test.bat"
file_writeln 1,"@echo off"
file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
file_close 1

q$=chr$(34)
vb$="Vb.vbs"

file_open_write 9,vb$
file_writeln 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+"test.bat"+q$+",0,True"
file_close 9
execute_wait "WSCRIPT.exe|"+vb$
file_delete vb$

memo 9998
text 9998,clipboard_string_paste$
for k%=count(9998) to 1 step -1
te$=trim$(item_read$(9998,k%))
if numeric(te$)=1 then exit_for
next k%
ram=int((val(te$)/100000000))/10
end_sub