GENERATEUR DE CODE VBSSCRIPT

/* (c)Abdelaziz Rejeb Elalia - Tunisie
contact : http://intersite.site.voila.fr
site web : http://abdelaziz.site.voila.fr
*/
function rac_exe()
{
}
function edicod()
{
rac_exe()
rac_exe_edit = 0;
racourci_nom = new Array;
document.ScriptForm.reset();
document.nb1.src = "imagen/n0.gif";
document.nb2.src = "imagen/n0.gif";
}
i0 = new Image;
i1 = new Image;
i2 = new Image;
i3 = new Image;
i4 = new Image;
i5 = new Image;
i6 = new Image;
i7 = new Image;
i8 = new Image;
i9 = new Image;
imgSrc = new Array;
imgSrc[0] = 'images/n0.gif';
imgSrc[1] = 'images/n1.gif';
imgSrc[2] = 'images/n2.gif';
imgSrc[3] = 'images/n3.gif';
imgSrc[4] = 'images/n4.gif';
imgSrc[5] = 'images/n5.gif';
imgSrc[6] = 'images/n6.gif';
imgSrc[7] = 'images/n7.gif';
imgSrc[8] = 'images/n8.gif';
imgSrc[9] = 'images/n9.gif';
i0.src = imgSrc[0];
i1.src = imgSrc[1];
i2.src = imgSrc[2];
i3.src = imgSrc[3];
i4.src = imgSrc[4];
i5.src = imgSrc[5];
i6.src = imgSrc[6];
i7.src = imgSrc[7];
i8.src = imgSrc[8];
i9.src = imgSrc[9];
i20 = new Image;
i20.src = 'imagen/commun_top_on.gif';
rac_exe_edit = 0;
racourci_nom = new Array;
repertoire = new Array;
function rac_enregistre()
{
rac_exe_edit++;
a=rac_exe_edit-0;
racourci_nom[a] = document.ParaForm.racour.value;
repertoire[a] = document.ParaForm.file.value;
document.ParaForm.file.value = "";
if (rac_exe_edit <10)
{
rac_exe_edit = "0" + rac_exe_edit;
}
else
{
rac_exe_edit = "" + rac_exe_edit;
}
racnb = rac_exe_edit.charAt(0);
document.nb1.src = "imagen/n" + racnb + ".gif";
filnb = rac_exe_edit.charAt(1);
document.nb2.src = "imagen/n" + filnb + ".gif";
}
function editCode()
{
rac_exe()
codtxt = '';
codtxt += '\'*****************************************\n\'editer par l\'editeur de abdelaziz rejeb \- Elalia * Tunisie\n\'contact : http://intersite.site.voila.fr\n\'http:\/\/abdelaziz.site.voila.fr\n\'*****************************************\n';
codtxt += 'Dim WSHShell\nSet WSHShell = WScript.CreateObject\(\"WScript.Shell\"\)\nDim MyShortcut, MyDesktop, DesktopPath\nDesktopPath = WSHShell.SpecialFolders\(\"Desktop\"\)\n';
codtxt += '';
nombrerac = (racourci_nom.length)-1;
a=1;
verif = 0;
while (a <= nombrerac)
{
codtxt += '\nSet rac_exe' + a + ' = WSHShell.CreateShortcut(DesktopPath & \"\\' + racourci_nom[a] + '.lnk")\nrac_exe' + a + '.TargetPath = WSHShell.ExpandEnvironmentStrings\(\"' + repertoire[a] + '")\nrac_exe' + a + '.Save';
a++;
}
codtxt += '';
codtxt += '';
codtxt += '';
document.ScriptForm.code.value = codtxt;
alert('ATTENTION : Le code genere doit etre copier direct dans un fichier VBS pour l\'appliquer\n ou dans un document de texte si vous voulez le modifier   !!!\nhttp://abdelaziz.site.voila.fr');
}	
//////////////
function editeur(obj)
{
var copiercode = document.body.createTextRange();
copiercode.moveToElementText(obj);
copiercode.execCommand("Copy");
}