Tutos geek

Tutoriaux linux, debian, android et autres

Continuer a utiliser DS3 Tool en mode offline

18 avril 2017 - Aucun commentaire

Le programme DS3 Tool dont j'ai déjà parlé ici ne fonctionne plus car au démarrage il accède à un site qui n'est plus en ligne.
Qu'à cela ne tienne, il existe une version du programme en mode offline.

Récupérez-le ici, ici ou chez moi.
File: MotionJoy_offline_071001_signed.zip
   CRC32 : C674579B
   MD5 : 2610ADF07D5560B1B3361FE0B7F89B52
   SHA1 : 48FCC8D1950D42080DC925385B222A3115B33935
   SHA256 : 3A3C9D10DF7E801CB0D4AF0AE715F84D17E1E888CD182BAC08A1CCF85A33CC6F

Si vous aviez déjà le programme original installé, désinstallez-le.
Installez MotioninJoy_071001_signed, mais ne le démarrez pas tout de suite.
Copiez le contenu du dossier offline dans le dossier ds3 du répertoire d'installation (Par défaut dans C:\Program Files\MotioninJoy).
Créez-vous un raccourci vers DS3_Tool_Local.exe car c'est lui que vous devrez démarrer maintenant.

Re-configurez le programme comme expliqué dans mon premier billet et tout devrait rouler.


Source
Youtube : Motioninjoy - How To Fix Error: The request could not be satisfied


Versions
Windows 7 x64 - SP1 ENG
DS3 Tool 0.7.1001
Driver XBox : Xbox 360 Accessories Software 1.2

Jouer avec des manettes PS3 sur Windows

04 mars 2016 - 2 commentaires

1. Installer les drivers Xbox en 1er, DS3 Tool va se servir de ceux-ci. (via Microsoft, via pumbaa.ch)
File: Xbox360_64Eng.exe
   CRC-32: 04f0468f
   MD4: f6fbefc0e1c7e3032b6b5338f6613f03
   MD5: 4c7fbad5bbebc0d3807129092a1de4b9
   SHA-1: 00f7246437c53f3aba5516ac3fc572181c24c666

2. Installer DS3 Tool (via xinputer, via pumbaa.ch)
File: MotioninJoy_071001_signed.exe
   CRC-32: 1e840493
   MD4: 6b14396f91e0a087b6c3cf6f39f1fe8e
   MD5: 5ae1bf5713cf1f0d682561d34779214d
   SHA-1: 2d1c95e94b86e2a465ce6e39858ab612dc2fafd5

3. Lancer DS3 Tool

4. Brancher la (les) manette(s) avec le câble USB (je ferai un 2ème tuto avec bluetooth si j'y arrive)

5. Dans Driver Manager, sélectionner les manettes et cliquer sur Load drivers.
Windows va mettre un message d'alerte qu'il faut accepter.
Après un petit temps d'attente vous devriez voir un Vu s'afficher à droite.


6. Dans Profiles, sélectionner une manette et cliquer sur Enable pour que joysticks fonctionnent. Recommencer pour chaque manette.


Notez qu'une fois l'installation terminée il ne semble pas requis que DS3 Tool soit lancé pour que les manettes fonctionnent.

EDIT : A chaque redémarrage de la machine il faut lance DS3 Tool, activez les manettes que vous voulez utiliser et ensuite vous pourrez fermer le programme.

EDIT2 : Le programme ne fonctionne plus en l'état, allez voir mon deuxième billet pour le refaire marcher.


Sources
JV #17, page 72


Versions
Windows 7 x64 - SP1 ENG
DS3 Tool 0.7.1001
Driver XBox : Xbox 360 Accessories Software 1.2

Macro VBA - Fractionner une feuille en plusieurs feuilles

16 décembre 2015 - 2 commentaires

Ça ne va pas arriver souvent, vu que je prône l'utilisation de logiciels libres, mais voici un script VBA pour Excel que j'ai du faire au boulot.

La tâche : j'ai une feuille contenant un tas de rapport de ventes, les uns à la suite des autres, séparés par une ligne vide à chaque fois.
Il fallait splitter chaque rapport dans une nouvelle feuille.

Vu que j'ai du écrire 3 lignes de VBA dans ma vie, il y a plus de 15 ans, j'étais passablement rouillé.
Tellement rouillé qu'en fait j'ai juste été pomper des bouts de codes à droite à gauche pour les mélanger ensemble et espérer que ça marche.
Et ça marche !
Par contre pour le style, on repassera. J'ai tenté de nettoyer le code après coup mais il reste probablement des horreurs qui feront bondir les puristes.

Fichier source


Résultat final


Algorithme en 2 mots
Je duplique la feuille de base, je cherche la 1ère ligne vide, je copie la plage jusqu'à la ligne vide dans une nouvelle feuille au nom du client, je supprime la plage sélectionnée et je recommence.
A la fin je supprime la feuille dupliquée.

Code source
Sub split()
    Dim firstPage As Worksheet
    Set firstPage = Sheets(1) ' La page de référence, à parser et spliter
    
    ' https://msdn.microsoft.com/en-us/library/office/ff837784.aspx
    firstPage.Copy After:=firstPage ' On copie la page de base
    
    Dim copyPage As Worksheet
    Set copyPage = Sheets(2) ' La page copiée, qu'on peut modifier
    copyPage.Name = "temp"
    
    Dim nextBlankRow As Long
    nextBlankRow = firstBlankRow(copyPage)

    While (nextBlankRow > 0)
        Dim clientName As String
        clientName = findClientName(copyPage.Range("A:A"))
        
        Sheets.Add After:=Sheets(Sheets.Count) ' crée une nouvelle feuille et l'ajoute à la fin du classeur
        
        Dim newPage As Worksheet
        Set newPage = Sheets(Sheets.Count) ' On récupère la feuille nouvellement créée
        newPage.Name = clientName ' renome la nouvelle feuille
    
        Dim nbCol As Long
        nbCol = copyPage.UsedRange.Columns.Count
        
        Dim currentRange As Range
        Set currentRange = copyPage.Range("A1", copyPage.Cells(nextBlankRow, nbCol))
        
        ' http://stackoverflow.com/questions/21648122/excel-vba-copy-range-and-paste-values-in-another-sheets-specific-range
        currentRange.Copy ' Copie des valeurs de la 1ère page
        newPage.Range("A1").PasteSpecial xlPasteValues ' on colle dans la nouvelle feuille
        newPage.Columns.AutoFit ' ajuster la taille des colones : http://www.extendoffice.com/documents/excel/1174-excel-split-data-into-multiple-worksheets-based-on-column.html
        newPage.Range("A1").Select ' lâche la sélection
        
        currentRange.Delete ' Supprime la plage pour pouvoir recommencer avec la suivante
        nextBlankRow = firstBlankRow(copyPage)
    Wend
    
    Application.DisplayAlerts = False
    copyPage.Delete
    Application.DisplayAlerts = True
    
    firstPage.Select
    firstPage.Range("A1").Select
End Sub

Function findClientName(fullCol As Range) As String
    For Each cell In fullCol.Cells
        If cell.Value <> "" Then
            findClientName = cell.Value
            Exit For
        End If
    Next
End Function

Function firstBlankRow(ws As Worksheet) As Long
'returns the row # of the row after the last used row
'Or the first row with no data in it
'http://stackoverflow.com/questions/12497804/finding-first-blank-row-then-writing-to-it

    Dim rngSearch As Range, cel As Range
    With ws
        Set rngSearch = .UsedRange.Columns(1).Find("") '-> does blank exist in the first column of usedRange
        If Not rngSearch Is Nothing Then
            Set rngSearch = .UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks)
            For Each cel In rngSearch
                If Application.WorksheetFunction.CountA(cel.EntireRow) = 0 Then
                    firstBlankRow = cel.Row
                    Exit For
                End If
            Next
        Else '-> no blanks in first column of used range
            If Application.WorksheetFunction.CountA(Cells(.Rows.Count, 1).EntireRow) = 0 Then '-> is the last row of the sheet blank?
                '-> yeap!, then no blank rows!
                firstBlankRow = -1
                'MsgBox "Whoa! All rows in sheet are used. No blank rows exist!"
            Else
                '-> okay, blank row exists
                firstBlankRow = .UsedRange.SpecialCells(xlCellTypeBlanks).Row + 1
            End If
        End If
    End With
End Function


Le fichier qui contient tout
Fichier

Créer une macro VBA
Menu Outils, Macro, Visual Basic Editor

Lancer une macro VBA
Menu Outils, Macro, Macros, sélectionner Feuil1.split (nom de la feuille original + nom de la méthode Sub)

Notez que, par défaut, si vous ouvrez un fichier avec une macro le programme vous avertira des problèmes de sécurité et les désactivera.
Pour les autoriser, rendez-vous dans le menu Outils, Options, onglet Sécurité, bouton Sécurité des macros et sélectionnez Moyen ou Faible.



Sources
Copier une plage de valeurs
Trouver la prochaine ligne vide
Ajuster la taille des colones
Dupliquer une feuille


Versions
Microsoft Excel 2002 (10.2614.2625)
Microsoft Visual Basic 6.3

Conditions d'utilisation abusives de Windows 10

30 juillet 2015 - 4 commentaires

Suite au dernier article vous vous demandiez peut-être "oui mais, et pourquoi ne pas passer à Windows 10 ?"
J'ai personnellement des tas de raison, mais en voici une rédhibitoire : Les conditions d'utilisation abusives de Windows 10.

  • "Windows génère un identifiant publicitaire unique pour chaque utilisateur d'un appareil. Votre identifiant publicitaire peut être utilisé par les développeurs d'applications et les réseaux publicitaires pour proposer des publicités plus pertinentes" ;

  • "Lorsque le dispositif de cryptage est activé, Windows chiffre automatiquement le disque dur sur lequel Windows est installé et génère une clé de récupération. La clé de récupération de BitLocker pour votre appareil est automatiquement sauvegardée en ligne dans votre compte Microsoft OneDrive" ;

  • Par défaut, "lorsque vous vous connectez à Windows grâce à un compte Microsoft, Windows synchronise certains de vos paramètres et de vos données avec les serveurs Microsoft", dont "l'historique de votre navigateur, vos favoris et les sites web que vous avez ouverts" ainsi que "les noms et mots de passe pour la sauvegarde de vos applis, sites web, borne portables et réseau Wi-Fi". Pour désactiver ce transfert vers les serveurs de Microsoft, il faut penser à se rendre dans la section "Comptes de Paramètres / Paramètres de synchronisation".

  • "Microsoft recueille régulièrement des informations basiques à propos de votre appareil Windows. (...) Ces données sont transmises à Microsoft et stockées à l'aide d'un ou plusieurs identifiants uniques". Il s'agit notamment "données d'utilisation des applis pour les applis qui fonctionnent sur Windows", ou des "données sur les réseaux auxquels vous vous connectez, comme les réseaux mobiles, Bluetooth, les identifiants (BSSID et SSID), les critères de connexion et la vitesse des réseaux Wi-Fi auxquels vous êtes connecté". Microsoft précise que "certaines données diagnostiques sont essentielles au fonctionnement de Windows et ne peuvent pas être désactivées si vous utilisez Windows" ;

  • Dans le nouveau navigateur Microsoft Edge, lorsque AutoSearch et Search Suggestions sont activés, le navigateur envoie à Bing "les informations que vous entrez dans la barre d'adresse du navigateur", "même si vous avez sélectionné un autre fournisseur de recherche par défaut". Microsoft ajoute que "les données de navigation recueillies en relation avec ces fonctionnalités sont utilisées dans les données globales", c'est-à-dire qu'elles participent à établir le profil publicitaire de l'utilisateur ;

  • "Lorsque vous utilisez OneDrive, nous recueillons des données sur votre utilisation du service, ainsi que sur le contenu que vous stockez" ;

  • "Pour permettre à Cortana de fournir des expériences personnalisées et des suggestions pertinentes, Microsoft recueille et utilise différents types de données, comme la localisation de votre appareil, les données de votre calendrier, les applis que vous utilisez, les données de vos emails et de vos messages textes, les personnes que vous appelez, vos contacts et la fréquence de vos interactions avec eux sur votre appareil. Cortana en apprend également à votre sujet en recueillant des données sur votre manière d'utiliser votre appareil et d'autres services Microsoft, comme votre musique, vos réglages d'alarme, si l'écran verrouillé est activé, ce que vous regardez et achetez, votre historique de navigation et de recherche Bing, et bien plus."

  • "Pour fournir une reconnaissance vocale personnalisée, nous enregistrons l'entrée de votre voix, ainsi que vos nom et surnom, les événements récents de votre calendrier et les noms des personnes avec qui vous avez rendez-vous, et des informations sur vos contacts, notamment leurs noms et surnoms" ;

  • "Microsoft n'utilise pas ce que vous dites dans les emails, les discussions, les appels vidéo ou la messagerie vocale, ni vos documents, photos ou autres fichiers personnels pour vous envoyer des annonces ciblées", mais il utilise tout de même "d'autres informations que nous recueillons à votre sujet au fil du temps en utilisant vos données démographiques, vos requêtes de recherche, vos centres d'intérêt et vos favoris, vos données d'utilisation, et vos données de localisation" ;

  • "Nous accéderons à, divulguerons et préserverons les données personnelles, notamment votre contenu (comme le contenu de vos emails, d'autres communications privées ou des fichiers de dossiers privés), lorsque nous pensons de bonne foi qu'il est nécessaire de le faire", notamment pour "répondre à des requêtes légales valides";

  • "Les données personnelles recueillies par Microsoft peuvent être stockées et traitées aux États-Unis ou dans tout autre pays dans lequel Microsoft, ses filiales ou prestataires de services sont implantés" ;

  • "Dans Outlook.com, lorsque votre dossier Éléments supprimés est vidé, ces éléments effacés restent dans notre système pendant 30 jours maximum avant suppression définitive" ;

EDIT : Une partie des mouchard est désactivable dans les options d'installation (bien camouflées), mais
"En définitive, l’utilisateur qui se lance dans ces produits et services doit avoir conscience que des informations sont envoyées, plus ou moins nombreuses en fonction de certains choix. Il peut désactiver des services ou des fonctionnalités ainsi qu’une partie des informations statistiques, mais il existe une partie incompressible sans laquelle les produits ne fonctionneront pas. Le problème reste que beaucoup ne liront pas ces conditions et que d’autres se demanderont quel choix ils peuvent bien avoir quand il s’agit de passer par un éditeur aussi « incontournable »."


Source : http://www.numerama.com/magazine/33357-windows-10-microsoft-et-vos-donnees-privees-ce-que-vous-devez-savoir.html
Source : http://www.nextinpact.com/news/95400-microsoft-unifie-declarations-confidentialite-ses-services.htm
Source : https://tuxicoman.jesuislibre.net/2015/07/linstallation-par-defaut-de-windows-8-1-ou-comment-legalement-autoriser-les-usa-a-nous-espionner.html

Activer Windows via Microsoft Toolkit

23 juillet 2015 - 73 commentaires

Introduction

Même avec une licence valable Microsoft arrive à nous faire regretter d'être sur son OS...
Au boulot j'ai un PC sous Windows 7 avec licence valide, évidemment, et comme je suis développeur j'ai plusieurs machines virtuelles qui me servent pour les tests.
Impossible de valider ma clé sur la VM !

Pour vérifier si votre version est activée ou non
- Faites un clique-droit sur votre Poste de travail
- Propriété
- En bas de la page sous Activation de Windows


Heureusement il y a Findus une solution facile.

Microsoft Toolkit

MS Toolkit, malgré son nom n'est pas développé par Microsoft (loin de là).
Ce petit programme permet de bidouiller pas mal de choses au niveau des clés de produit (Windows, Office, ...) mais la fonction qui nous intéresse est l'activation EZ.
En un clique on va créer une petit émulateur KMS qui va répondre à Windows quand ce dernier tentera de valider sa clé.

Téléchargez microsoft toolkit 2.5.2 (lien direct, lien T411)
MD5 : BA07172487AAED1C8A8C9A807F96F112
SHA1 : 1E6465F8EBA701B62FDB0D8F1E6BD62F988F7835

Si vous optez pour le téléchargement via torrent et que vous n'avez pas de client BitTorrent installé je vous conseille µTorrent mais en version 2.2.1 (lien direct, lien google drive)
Ne téléchargez pas les version ultérieures pourries de pubs et de spywares !
SHA1 : 76CB0DEF3EE130F4BDDB6893ACBCD6A7284F336B

Le programme nécessite .net framework 4 ou plus.
Si vous ne l'avez pas déjà (le programme émet une erreur au lancement) téléchargez-le sur le site officiel

Cliquez sur le petit bouton Windows


Et dans l'onglet Activation, cliquez sur EZ Activator


Après quelque secondes vous devriez voir le message suivant


Un petit reboot et c'est tout bon.


Source : Korben via Matronix


Versions :
Windows 7 Pro 64 bits - SP1
µTorrent 2.5.2
Microsoft Toolkit 2.2.1
Dotnet framework 4.0.30319

Supprimer la notification de Windows 10 (GWX) depuis Windows 7

16 juillet 2015 - 11 commentaires

Problème

Depuis quelque temps Windows fait sa propre pub en nous incitant à passer à Windows 10.
Et quand je dis "inciter" je devrais dire "forcer la main au pied de biche et en laissant traîner la chaussure dans le cadre de porte".

Car on a une superbe notification qui apparaît dans le systray.


Impossible à désactiver, impossible à cacher (si vous lui demander de disparaître elle reviendra au prochain reboot) et vous allez voir que pour s'en débarrasser réellement il faut être motivé, car on ne peut pas (de manière simple) supprimer les exécutables responsables ni désactiver la tâche planifiée associée.
On a ici un comportement de malware, ni plus ni moins !

Solution

Nous allons donc supprimer les exécutables et la tâche planifiée qui font apparaître cette horreur.

Supprimer les exécutables

1. Reprendre la main sur le dossier GWX

  • Trouvez le dossier C:\Windows\System32\GWX et faite un click-droit dessus.
  • Allez dans les Propriété puis sur l'onglet Sécurité.
  • Cliquez sur Avancé puis sur l'onglet Propriétaire et sur le bouton Modifier.
  • Sélectionnez votre propre nom (le nom du PC), cochez "Remplacer le propriétaire des sous-conteneurs et des objets" et valider avec OK.


2. Changer les permissions du dossier

  • Quittez les Paramètres de sécurité avancés pour GWX mais restez dans les propriétés du dossier, onglet Sécurité.
  • Cliquez sur Modifier (les autorisations), sélectionnez Utilisateurs, cochez Contrôle total et validez avec OK.


3. Supprimer le dossier

Vous pouvez maintenant supprimer ou renommer le dossier GWX, à votre convenance.
Si vous optez pour le renommage (plus sage), renommez aussi les 4 exécutables, on n'est jamais trop paranoïaque prudent.


Désactiver la tâche planifiée

4. Supprimer les clés de registre Task

  • Ouvrez la base de registre (bouton Démarrer, tapez regedit et validez avec Enter) et trouvez la clé suivante :
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\TaskCache\Tasks\
  • En dépliant ce nœud vous verrez de nombreux sous-nœud avec des noms abscons. Il faut tous les parcourir et supprimer ceux qui pointent sur GWX.
  • Commencez par faire une sauvegarde du nœud Tasks (click-droit, Exporter)
  • Faite Ctrl-F pour ouvrir la boite de dialogue de recherche, tapez "gwx" et validez avec Enter.
  • Supprimez le nœud sélectionné et appuyez sur F3 pour aller au résultat suivant.
  • Répétez l'opération autant de fois que nécessaire (moins d'une dizaine pour ma part) et arrêtez-vous dès que vous sortez du nœud Tasks.

5. Supprimer les clés de registre Setup

Le dernier F3 vous a normalement envoyé sur le nœud suivant (si ce n'est pas le cas cherchez-le manuellement)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\TaskCache\Tree\Microsoft\Windows\Setup\
  • Faite de nouveau une sauvegarde (click-droit, Exporter)
  • Puis supprimez les 2 sous-nœud : "gwx" et "GWXTriggers"

Vérification

Tâches planifiées

Ouvrez le menu Démarrer, Panneau de configuration, Outils d'administration et lancez le Planificateur de tâches.
Dépliez Bibliothèque du Planificateur de tâches, Microsoft, Windows, Setup et vérifiez que gwx et GWXTriggers sont vides.


Ouf, c'est bon !
Après un redémarrage du système l'icône aura disparu.

Merci Microsoft de nous rendre la vie aussi facile...

EDIT : Ah et pensez à désactiver les mises à jour automatiques.
Continuez de faire les MAJ importante mais ne laissez pas Windows les installer toutes automatiquement, sinon il va ré-installer GWX...


Source : http://www.dedoimedo.com/computers/windows-7-to-10-gwx-how-to-remove.html


Version : Windows 7 Pro 64 bits - SP1