Quand je ne peux pas accéder à ces jours-ci, j'ai passé en revue les choses sur le disque dur et j'ai trouvé cette chose. En raison de mon niveau limité et aucune recherche sur le DHTML, je l'ai fait très grossièrement. Je l'ai collé pour attirer Jade. J'espère que certains experts pourront aider à modifier ou à trouver de meilleures choses.
L'environnement de test est Windows XP Professional Edition SP2. J'ai temporairement trouvé des bugs dans la coloration du code. Bien qu'il existe des solutions, en raison de la quantité de code (il est vraiment ennuyeux d'écrire du code dans le bloc-notes), il n'a pas été corrigé pour le moment. De plus, il est prévu que l'achèvement automatique et d'autres fonctions seront ajoutés à l'avenir.
PS: utilisez le script VBS + DHTML, la fonction principale est remplie par l'expression régulière + WMIC, le code doit être enregistré en tant que fichier de type HTA, et bien sûr, il peut également être changé en un script VBS pur, mais c'est beaucoup moins efficace et le code est plus compliqué.
Le code est le suivant:
<html>
<adal>
<Title> Code Editor </Title>
<Hta: application sélection = "no" scroll = "no" contextMenu = "no" />
<Script linguisse = "vbscript">
'*********************************************************************
'Le script commence
'*********************************************************************
Set shell = createObject ("wscript.shell")
Set fso = createObject ("scripting.fileSystemObject")
'*********************************************************************
'Voyager sur tous les types de fichiers locaux
'*********************************************************************
Sub OptionAdd (FEXT)
str = "<select size =" "1" "name =" "objoption" "onchange =" "testsub" ">"
Définir objdatafiles = getObject ("winmgmts:" _
& "{ImpersonationLevel = imite}! //./ root / cimv2")
Définissez ColFiles = objdatafiles. _
ExecQuery ("SELECT * FROM CIM_DATAFILE où extension = '" & fext & "'")
Pour chaque objfile à Colfiles
str = str & "<option valeur =" "" & objfile.name & "" ">" & _
objfile.name & "</ option>"
suivant
str = "<label> Fichier de script local: </ label>" & str & "</lect>"
foroption.innerhtml = str
Sub-Sub
'*********************************************************************
'Conversion des couleurs
'*********************************************************************
Sous-modiqueur
Si cxs.value = "vbs" alors
Winmain.innerhtml = changevbs (winmain.innertext)
else 'script cmd
Winmain.innerhtml = changecmd (winmain.innertext)
terminer si
Sub-Sub
'*********************************************************************
'Module de conversion VBS
'*********************************************************************
Fonction ChangeVBS (STEXT)
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
'COMMANDE DE COMMENTER
re.Pattern = "(/'.*)/r/n"
stext = re.replace (stext, "<font color = # 339999> $ $ </font> <p>")
'Convertir le symbole en [bleu]
re.Pattern = "(/(|/)|/&|/+|/--|/*|/%|/:|/ ;|/.|/" "&") "
stext = re.replace (stext, "<font color = # 993333> $ $ </font>")
stext = "<table