Bonjour pan59

Windows script host est une fonction incluse dans Windows qui
est très peu utilisée mais qui est requis pour l'exécution de
certains programmes. Malheureusement depuis quelques années
cette fonction est le plus souvent utilisée par des programmes
malveillants pour infecter les ordinateurs: Virus, ransomware et autres.
Il est donc fortement recommandé de désactiver cette fonction, ce
qui est conseillé par tous les sites web sérieux qui traitent du sujet.
Pour le désactiver et le réactiver au besoin, j'utilise un logiciel portable
du nom de Marmiton qu'on ne trouve plus malheureusement sur le web.
Pour ceux que ça intéresse utilisez le lien qui suit pour le télécharger.
Il sera disponible pour quelques jours.

https://send.firefox.com/download/70a0 ... e/#zmPM09DSsq_-At1y-mTU0A

Pour en revenir à ton logiciel, à chaque exécution, il affiche un message
qui dit que le Windows script host est désactivé. (Voir image jointe)
Ce qui me paraît bizarre c'est qu'aucun script ne semble s'exécuter car
Marmiton ne me signale aucun blocage, ce qu'il fait habituellement
pour permettre de placer l'exécutable en liste blanche si il est légitime.
Pourquoi ton programme déclenche cette vérification? Aucune idée.
Il t'appartient de le découvrir. Bonne chance.

Salutations

Fichier(s) attaché(s):

---

  script.jpg (56.14 KB)

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

Bonjour.

Pour Coyotte.

Pourriez-vous tester la nouvelle version de mon logiciel, dans laquelle j'ai supprimé la création du script vbs ?

Version complète non corrigée
--------------------------------
https://mon-partage.fr/f/FiaM8zCM/

Ensuite, télacharger la dernière version compilée de langues.exe, ici:

https://mon-partage.fr/f/0ppE20aA/

Ce fichier exe corrigé, est à placer dans le dossier où vous avez installé le logiciel,
en remplacement de la version précédente.

Merci de me faire connaître le bon fonctionnement ou non .

Citation :

Bingo mon ami. Problème résolu avec le nouveau exe. Bravo!

Bonjour.

Un grand merci d'avoir bien voulu tester mon logiciel.
Tout est rentré dans l'ordre maintenant.

Plus de problème de soi-disant virus.
Plus de problème de script vbs.

GENIAL !!

Bonjour
Fonctionne toujours pas choix géo fermeture du logiciel windows 10 famille 64 bits

Bonjour.

Je me suis connecté à Internet, et ensuite, j'ai cliqué sur le module de géographie.
Après avoir saisi 3 dans le choix du pays, j'ai bien l'écran qui affiche la carte de l'Espagne !!

Un autre utilisateur pourrait-il faire le test ?

Windows 10 famille 64 bits.

Citation :

Pas de problème avec Windows 10 Pro 64 bits.

Ce qui m'agace un peu et j'aimerais comprendre, c'est pourquoi,
lorsque je demande l'Info sur la ville choisie, c'est Internet Explorer
qui est utilisé et non pas le navigateur par défaut???

Bonjour.

Pour Jakez.

Pouvez-vous télécharger les deux modules suivants, puis lancer le code indiqué, avec puis sans connection Internet.

Editeur Panoramic: https://mon-partage.fr/f/q4fGRoYc/
kgf.dll: https://mon-partage.fr/f/rYvJtLuT/

kgf.dll doit être placé dans le même dossier que l'éditeur Panoramic.

Code à tester avec l'éditeur:
------------------------------

dim connection, crlf$, e$
crlf$=chr$(10)+chr$(13)

dll_on "kgf"

InternetGetConnectedState()

end

sub InternetGetConnectedState()
connection()
if connection=1
message "Vous êtes bien connexté à Internet."
else
e$="Ce module nécessite que votre PC soit connecté à Internet."+crlf$
e$=e$+"Or, ce n'est pas le cas actuellement !"+crlf$
e$=e$+"Merci d'établir une connection."
message e$
end_if
end_sub

sub connection()
dll_off:dll_on "wininet"
connection=dll_call2("InternetGetConnectedState",0,0)
dll_off:dll_on "kgf"
end_sub

Bonjour.

Pour Coyotte.

Voici la ligne incriminée qui lance le navigateur, lors du choix d'une ville.

execute_wait "iexplore|https://fr.wikipedia.org/wiki/"+e$

Voici une nouvelle version de langues.exe.
J'ai ajouté un menu permettant de choisir le navigateur.

https://mon-partage.fr/f/rGXXEVZ7/