Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: MODIFICATEUR D'INDICE DE PERFORMANCE WINDOWS 7 VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Mer 14 Déc - 12:45 (2011)    Sujet du message: MODIFICATEUR D'INDICE DE PERFORMANCE WINDOWS 7 VB.net Répondre en citant








  1.     Imports System.Xml  
  2.     Imports System.IO  
  3.     Public Class frmMain  
  4.     Dim myXmlDocument As XmlDocument = New XmlDocument()  
  5.     Dim MyXMLNode As XmlNode = myXmlDocument.SelectSingleNode("/WinSAT/WinSPR/SystemScore")  
  6.     Dim NomFinal As String = ""  
  7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  8.     Dim target As String = "C:\Windows\Performance\WinSAT\DataStore"  
  9.     Dir(target)  
  10.     cbDD.Value = "7,9"  
  11.     cbGame.Value = "7,9"  
  12.     cbGlobal.Value = "7,9"  
  13.     cbRam.Value = "7,9"  
  14.     cbProcesseur.Value = "7,9"  
  15.     cbGrap.Value = "7,9"  
  16.     If (NomFinal.Length <= 0) Then  
  17.     ofdFichier.Title = "Choisir une image à ajouter."  
  18.     ofdFichier.DefaultExt = ".jpg"  
  19.     ofdFichier.Filter = "Fichiers XML (*.xml)|*.xml"  
  20.     ofdFichier.InitialDirectory = target  
  21.     ofdFichier.AddExtension = True  
  22.     ofdFichier.CheckFileExists = True  
  23.     ofdFichier.CheckPathExists = True  
  24.     ofdFichier.DereferenceLinks = True  
  25.     ofdFichier.ReadOnlyChecked = False  
  26.     ofdFichier.ShowReadOnly = False  
  27.     'Choisir un fichier xml  
  28.     Dim FichierChoisi As DialogResult = ofdFichier.ShowDialog()  
  29.     'On s'assure que tout est bon  
  30.     If (FichierChoisi <> Windows.Forms.DialogResult.Cancel) Then  
  31.     'On ajoute le document dans le xml  
  32.     NomFinal = ofdFichier.FileName  
  33.     myXmlDocument.Load(NomFinal)  
  34.     End If  
  35.     Else  
  36.     myXmlDocument.Load(NomFinal)  
  37.     End If  
  38.     End Sub  
  39.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  40.     Dim pName As XmlNode = myXmlDocument.SelectSingleNode("WinSAT/WinSPR")  
  41.     Dim TempString As String = ""  
  42.     Dim FileTempp As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "/test.xml"  
  43.     TempString = "<SystemScore>" + cbGlobal.Value.ToString.Replace(",", ".") + "</SystemScore>"  
  44.     TempStringTempString = TempString + "<MemoryScore>" + cbRam.Value.ToString.Replace(",", ".") + "</MemoryScore>"  
  45.     TempStringTempString = TempString + "<CpuScore>" + cbProcesseur.Value.ToString.Replace(",", ".") + "</CpuScore>"  
  46.     TempStringTempString = TempString + "<CPUSubAggScore>" + cbProcesseur.Value.ToString.Replace(",", ".") + "</CPUSubAggScore>"  
  47.     TempStringTempString = TempString + "<VideoEncodeScore>" + cbGrap.Value.ToString.Replace(",", ".") + "</VideoEncodeScore>"  
  48.     TempStringTempString = TempString + "<GraphicsScore>" + cbGrap.Value.ToString.Replace(",", ".") + "</GraphicsScore>"  
  49.     TempStringTempString = TempString + "<Dx>" + cbGrap.Value.ToString.Replace(",", ".") + "</Dx9SubScore>"  
  50.     TempStringTempString = TempString + "<Dx>" + cbGrap.Value.ToString.Replace(",", ".") + "</Dx10SubScore>"  
  51.     TempStringTempString = TempString + "<GamingScore>" + cbGame.Value.ToString.Replace(",", ".") + "</GamingScore>"  
  52.     TempStringTempString = TempString + "<StdDefPlaybackScore>TRUE</StdDefPlaybackScore>"  
  53.     TempStringTempString = TempString + "<HighDefPlaybackScore>TRUE</HighDefPlaybackScore>"  
  54.     TempStringTempString = TempString + "<DiskScore>" + cbDD.Value.ToString.Replace(",", ".") + "</DiskScore>"  
  55.     pName.InnerXml = TempString  
  56.     myXmlDocument.Save(NomFinal)  
  57.     End Sub  
  58.     Sub Dir(ByVal sDirectory As String)  
  59.     Dim sFiles() As String  
  60.     Dim DateFinal As Date = "2000-01-01 00:00:00"  
  61.     Dim DateTemp As Date  
  62.     Dim i As Integer  
  63.     Dim tempfile As String = ""  
  64.     Dim Explode() As String  
  65.     Dim Explode2() As String  
  66.     ' pour avoir les noms des fichiers et des sous-répertoires  
  67.     sFiles = Directory.GetFiles(sDirectory)  
  68.     For i = 0 To sFiles.GetUpperBound(0)  
  69.     Explode = sFiles(i).Split("\")  
  70.     ExplodeExplode2 = Explode(Explode.Length - 1).Split(".")  
  71.     If (Explode2(Explode2.Length - 1) = "xml") Then  
  72.     If (Explode2(3).Substring(4, Explode2(3).Length - 4) = "Formal") Then  
  73.     DateTemp = Explode2(0) + ":" + Explode2(1) + ":" + Explode2(2)  
  74.     If (DateTemp > DateFinal) Then  
  75.     NomFinal = sFiles(i)  
  76.     DateFinal = DateTemp  
  77.     End If  
  78.     End If  
  79.     End If  
  80.     tempfiletempfile = tempfile + sFiles(i) + vbCrLf  
  81.     Next  
  82.     End Sub  
  83.     End Class 


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 12:45 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com