sebdraluorg

salut a tous, huum wai je doute que les options WinAces se trouvent la! ca c'est pour l'option envoyer vers comme le dit l'astuce sinon va faire un tour dans regedit regarde dans : HKEY_CLASSES_ROOT\*\shellex regarde si tu vois une clef nommee WinAce

salut proximad, Je sais pas ce qu'est netcat mais je pense que tu as deux sollution soit tu ecris ton batch via ton prog VB soit tu executes tes commandes directement via VB voir une troisieme sollution tu appel ton batch depuis ton code VB Mais il serait plus facile de t'aider si tu nous donnais un bout de ton code batch voila en esperant t'aider @+

y a po de koi l'etre c'est moi qui te remercie de t'etre penche sur mon probleme sinon saurais tu s'il existe des progs pour faire un dump sur une dll afin de voir les fonctions contenues dans celle-ci ? merci encore @+

salut GEN, Merci pour ta reponse mais en fait j'utilisais deja cet Api mais il ne permet pas de voir la memeoire vive en cache il permet d'avoir la ram totale, ram dispo, fichier d'échange... En fait je suis en train de travailler sur un code pour optimiser la ram et j'aimerai aller plus loin que le simple FreeMem = space(x) j'aimerai bien savoir combien il y a dans le cache pour calculer combien de ram peut être liberee sans que cela se traduise par une perte de performances. enfin voila merci quand meme @+

salut, bienvu GEN le pire c'est que je lui ai recopier le code avec les \ a l' /nvers

salut a tous, voici un petit script qui permet d'ajouter le raccourci que l'on veut dans le menu demarrer en dessous de "executer" je n'ai pu tester que sur XP donc a voir pour d'autre OS Option Explicit On Error Resume Next Dim ss, p1, p2, p3, p4, reponse Set ss = WScript.CreateObject("WScript.Shell") p3 = InputBox("Veuillez entrer le nom du racoursis", "ENTREZ LE NOM DU RACCOURCI","Exemple : Regedit") p2 = InputBox("veuillez entrer le chemin complet de la cible ","ENTREZ LE CHEMIN DE LA CIBLE", "exemple : C:\WINDOWS\Regedit.exe") p1 = "HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\" p4 = InputBox("Entrez le chemin complet pour l'icone", "") ss.RegWrite p1, p3 ss.RegWrite p1 & "Infotip", p3 ss.RegWrite p1 & "DefaultIcon\", p4 ss.RegWrite p1 & "InProcServer32\","%systemroot%\system32\shdocvw.dll", "REG_EXPAND_SZ" ss.RegWrite p1 & "InProcServer32\ThreadingModel","Apartment" ss.RegWrite p1 & "Instance\CLSID","{3f454f0e-42ae-4d7c-8ea3-328250d6e272}" ss.RegWrite p1 & "Instance\InitPropertyBag\CLSID","{13709620-C279-11CE-A49E-444553540000}" ss.RegWrite p1 & "Instance\InitPropertyBag\Command","&Ouvrir" ss.RegWrite p1 & "Instance\InitPropertyBag\method","ShellExecute" ss.RegWrite p1 & "Instance\InitPropertyBag\Param1", p2 ss.RegWrite p1 & "shellex\ContextMenuHandlers\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\","" ss.RegWrite p1 & "shellex\MayChangeDefaultMenu\","" ss.RegWrite p1 & "ShellFolder\Attributes",0,"REG_DWORD" ss.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ShowOEMLink\NoOEMLinkInstalledd",0,"REG_DWORD" MsgBox "Les inforamtions ont bien ete enregistree " & vbCrLf & "pour appliquer les paramettres maintenant veuillez redemarrer", 64, "Confiramtion" reponse = MsgBox ("voulez vous redemarrer maintenant?", 36, "redeamrrer") if reponse = vbYes then ss.run "shutdown -r -t 00" Set ss = Nothing voila il suffit de faire un copier coller dans le bloc note et de sauvegarder sous l'extention .vbs Oup's desole je viens de m'apercevoir que l'astuce etait deja sur le site dans Personalisation... Desole

salut a tous, as tu essayer avec l'api ShellExecute ? exemple: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellEx "N:/Documentation/site/telechargement/telechargement.htm" End Sub Public Function ShellEx(FileOrURL As String, Optional Parametres As String = "") Dim start As Long start = ShellExecute(hwnd, "Open", FileOrURL, Parametres, App.Path, 1) End Function voila en esperant t'aider @+

salut a tous, les premieres choses a faire serait de verifier les temperatures du processeur et de la carte mere dans le bios, et de faire un scan antivirus voir une verifications des mises a jour sinon regarde aussi dans Msconfig si tu ne vois pas un truc du genre Dumprep si oui vire le et essai de nous dire qoui dej apour les temperatures

salut final_flo , Peux tu donner plus de precisions sur le reboot , avec ou sans message d'erreur je suppose que sans ms bon.. puis est ce que windows demarre ou est-ce que ca plante avant? sinon as tu simplement verifier les temperatures dans le bios ?

salut a tous, je cherche un api pour trouver la memoire "systeme cache " comme dans le gestionnaire de taches en dessous de memoire disponible . j'ai trouve pour toutes les autres info de la ram mais pas celle ci si quelqun a un idee? merci d'avance @+

salut, Bon a savoir... merci en fait je pensais qu'il s'arretait des qu' il rencontrait une erreur de quelque nature.

salut a tous, merci pour vos remarques Euh bein pour changer le nombre de boucles c'est simple suffit d'enlever un zero.. Pour ce qui est de compiler le code c'etait pas le but car tout le monde n'as pas les dll necessaire. J' en ai bien fais un en vb ms avec "While GetTickCount < TempsDepart + 20000" la procedure ne dure que 20 secondes quelle que soit la performence du proco et va effectuer un max de boucles durant ces 20 secondes c 'est plus simple mais bon ... merci encore et si vous avez d'autres suggestions n'hesitez pas

salut, merci en effet j'avais bien une erreur dans les declaration de "GetMemoryInfo" et pour la premiere appli qui tournait plus c'etait une erreur dans le Systray merci encore car je commencais a me taper la tete au mur. mais c'est quand meme bizare que le debogage ne trouvait aucune erreur et j'utilise pourtant Option Explicit mais bon now ca fonctionne c'est ce qui compte merci a tous @+

salut, en fait l'application se coupe (se ferme) des que le timer se met en marche si je le met a interbal 100 l'appli n'a meme pas le temps de se lancer si je le mets a interval 2000 par exemple l'appli se ferme apes 2 secondes Pourtant tant ke je ne compile pas ca marche tres bien meme en debogage ca ne foire qu'une fois compile. voici une partie du code" Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = True GetMemoryInfo Dim ram As long Dim RAMTotal As Long Dim RAMDispo As Long Dim RAMuTIL As Long Dim PCRAMDispo As Long Dim PCRAMuTIL As Long RAMTotal = TotalPhysicalMemory / 1024 / 1000 RAMDispo = AvailablePhysicalMemory / 1024 / 1000 RAMuTIL = RAMTotal - RAMDispo PCRAMDispo = RAMDispo / RAMTotal * 100 PCRAMuTIL = RAMuTIL / RAMTotal * 100 Label1.Caption = "MEMOIRE VIVE TOTALE = " & RAMTotal & " Mo" Label2.Caption = "MEMOIRE DISPONIBLE = " & RAMDispo & " Mo" Label3.Caption = "MEMOIRE UTILISEE = " & RAMuTIL & " Mo" ReyProgressBar1.Max = 100 ReyProgressBar1.Value = PCRAMDispo ReyProgressBar1.CaptionMask = PCRAMDispo & "%" End Sub

salut a tous, voila mon probleme, j'ai cree une petite application sous vb utilisant un timer jusque la tout est ok je compile mon application tout vas tres bien, puis deux trois jours apres je reouvre mon projet pour faire quelques modifications puis je compile mon code et vlatil pas que celle ci se coupe des que le timer se met en marche J'essai en vain de regler le probleme puis laisse tombe ce projet faute de temps et je commence un nouveau et vlatil pas de nouveau le meme probleme Quelqu'un aurait il une idee ? merci d'avance @+

salut a tous, As tu un message pour te prevenir de l'arret du systeme ou pas? si oui kel est il ? enfin dans tous les cas le mieux est de demarrer en mode sans echec et de faire un scan par la meme occasion verifie les fichiers qui se lancent au demarrage via msconfig ou regedit . voila en esperant t'aider @+

salut, pour desactiver le fire wall de XP tu vas dans menu demarrer puis panneau de configuration et la tu cherches parefeu windows et la tu aura un option pour le desactiver. Apres pour etre sure que ca ne foire plus a cause du fire wall XP tu peux taper tape net stop alg dans executer du menu demarrer ca fermera completement le service en esperant t'aider @+

salut a tous, salut tu parle bien de la frequence en MHz ? si oui remplace ton code par celui-ci Set read = Wscript.CreateObject("Wscript.shell") freq = read.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz") a = 0 tim1 = time reponse = MsgBox (" CE TEST VA EFFECTUER 100 MILLIONS DE BOUCLES " _ & vbCrLf & "" & vbCrLf & " ET CALCULER LE TEMPS QU' IL AURA PRIS AINSI QUE " _ & vbCrLf & "" & vbCrLf & " LE NOMBRE DE BOUCLES EFFECTUEE A LA SECONDE" _ & vbCrLf & "" & vbCrLf & " POUR DEMARRER LE TEST APPUYEZ SUR OK", 1, "TEST DE PERFORMENCE") Select Case reponse Case vbOK do a = a + 1 if a = 100000000 then tim2 = time Diff = DateDiff( "s", tim1, tim2) op = 100000000 / Diff ops = round(op, 0) mi = diff / 60 min = round(mi, 1) MsgBox " TEMPS EN MINUTES = " &min & " " _ & vbCrLf & "" & vbCrLf & " TEMPS EN SECONDES = " &Diff & " " _ & vbCrLf & "" & vbCrLf & " MOYENNE DE BOUCLES PAR SECONDE " _ & vbCrLf & "" & vbCrLf & " SUR 100 MILLIONS DE BOUCLES = " &ops _ & vbCrLf & "" & vbCrLf & " FREQUENCE DU PROCESSEUR = " & freq & " MHz", 0, "Resultats" wscript.quit end if loop Case vbCancel wscript.quit End Select salut Normalement ton anti-virus doit te proposer une option du geenre autoriser ce script sinon va voir dans les options et egarde dans blockage de script si tu ne peux pas en autoriser un merci encore pour vos remarques @+

salut, oui en effect il ne filtre pas ce qui sort mais bon a moin d'etre une banque ou une societe je vois pas trop l'interet de filtrer ce qui sort! Oups! sur ce coup la je vais me ramasser des critiques

salut a tous, Non le firewall integre dans le SP2 masque tous les ports par defaut

salut, le fichier ne s'appele pas chkdsk/f mais chkdsk.exe et /f est un paramettre qui doit etre precede d'un espace comme ceci chkdsk /f et de meme pour sfc /scannow

salut, wai mais ton service est desactive ou tu n'en a jamais fais manuellement pcq XP le fait automatiquement donc sauf si tu as desactive la surveillance tu devrais avoir des points de restauration

salut, as tu essayeune restauration systeme?

salut a tous, as tu finalement le fichier chkdsk.exe ou pas? si oui vas dans invite de commande et tape ceci "echo o|%SystemDrive%\WINDOWS\system32\chkdsk /F" ce qui verifiera le disk et corrigera les eventuelles erreur au prochain demarrage donc redemarre et reessaye de defragmenter. si tu ne l'as pas le mieux est d'incerer ton cd de XP et de taper ceci dans executer: sfc /scannow ce qui verifiera les fichiers systemes et les recopiera s'il sont absent ou endomage voila en esperant t'aider @+

salut, sorry c'est vrai que j'aurai pu mettre une box au debut je fs ca tout de suite voila j'ai modifier le code j'ai mis une box de demarrage merci