lundi 21 décembre 2009

Alarme : Gestionnaire d'évènements


Oh ! Je sais que ça fait longtemps que je n’ai pas écrit d’article sur mon blog, là je suis de retour après deux mois d'absence .Eh ! oui , je reviens avec un nouveau petit projet, c’est un gestionnaire d’événements, genre une alarme ou bien un agenda  si vous voulez :-) .

Le principe est simple, vous programmez les tâches que vous voulez faire pendant votre journée , vous introduisez « Votre tâche » et l’heure où vous devez effectuer cette événement et à partir de là vous aurez une journée organisée…. :p . Je pense que ça existe dans les téléphones portables :) , mais bon ça sert toujours à quelque chose ce genre d'application , surtout du coté programmation .
Au fait, j'ai fait deux programmes , mais je mettrais en évidence le code du deuxième vu qu'il est plus réussi que le premier ( c'est mon avis ) algorithme qui était un petit peu complexe .
Bon voici la procédure d'ajout des événements

On Error Resume Next
For i = 0 To 10
msg(i) = Text1(i)
time1(i) = Text2(i) & ":" & Text3(i) & ":" & Text4(i)
If msg(i) <> "" Then
List1.AddItem time1(i) & " -> " & msg(i)
Text1(i) = ""
Label2 = List1.ListCount
End If
Next i
On a déclaré deux tableaux en public dans un module , le premier sert à enregistrer la tâche et le second sert à enregistrer l'heure . On peut ajouter autant de tâche qu'on veut dans notre listbox .
Pour déclencher notre Alarme , on a tout simplement ajouté un " Timer " dont la procédure est comme suite:
On Error Resume Next
Label1 = Time
If Label2 = 0 Then
Exit Sub
Else
For i = 0 To List1.ListCount
If Label1 = time1(i) Then
mp.FileName = App.Path & "\newemail.wav"
MsgBox "Votre tache : " & msg(i)
End If
Next i
End If
Grâce à la boucle "for .. to ... next " , on parcourt notre liste des tâches .  Un signal sonore a été rajouté .
Toutefois , vous pouvez télécharger et tester cette application en cliquant ici .  C'est une version très simple , et qui pourra être largement améliorée :) , par l'ajout d'un historique d’événements ,amélioration graphique ...ect .
J'ai ajouté quelques trucs que j'ai pas mis sur le blog , vous allez le constater en testant l'application :) .

Si vous avez n'importe qu'elle question n'hésitez surtout pas à me contacter par mail ( vous trouverez mon mail sur mon profil ) :) je serai ravi de vous répondre ;)
N'hésitez pas à me faire part de vos impressions.
@ Bientôt

M.Islem

samedi 26 septembre 2009

Mot de passe du BIOS oublié



Le But de ce petit article c'est de vous montrer comment faire pour la réinitialisation du BIOS (Basic Input Ouput System ) a fin qu'il perde toute trace de mot de passe .
Il existe plusieurs méthodes pour y remédier : Méthodes matérielles et méthodes logicielles , dans cet article , je vais vous montrer une des méthodes matérielles que j'ai testé :-p .
Pourquoi j'ai utilisé une méthode matérielle et pas une méthode logicielle ?
C'est simple , j'avais une machine vraiment infecter de virus , j'avais même pas le droit d'ouvrir un fichier ( doc ,pdf , exe ... ect ) , et même mon antivirus se désactivais tout seul donc , j'ai voulu appliquer un formatage directe afin de désinfecter toute ma machine et j'ai oublié le mot de passe du BIOS :-s .
Cette manœuvre se base essentiellement sur le déplacement du cavalier , qui est rien d'autre qu'une fiche se trouvant sur la carte de mère à proximité de la pile ( la pile sert à régler l'horloge interne de votre ordinateur ) .
Procédure :
  1. Éteigniez et débranchez votre PC ;
  2. Ouvrez le boitier de votre ordinateur , déchargez vous de l'électricité statique ( en touchant une partie métallique de votre unité centrale ) ;
  3. Consultez la documentation de votre carte mère afin de localiser le CAVALIER , si vous n'avez pas de documentation , cherchez sur votre carte mère les inscriptions suivant : CRL BIOS , CLEAR BIOS ,CRL CMOS ,CLEAR CMOS , RESET BIOS ou RESET CMOS . L'image ci dessous illustre le positionnement du cavalier .
  4. Après avoir repérer le cavalier , faites cette manipulation :
- Si le cavalier se trouve sur un connecteur à 3 pins , placez le sur le pin du milieu et le pin non recouvert initialement , patientez une seconde puis remettez le cavalier a sa position d'origine .
- Si le cavalier se trouve sur un connecteur à 2 pins et qu'il n'est branché que sur un seul pin , placez le sur les deux , patientez une seconde puis remettez le a sa position initiale.
5 . Rebranchez le tout et démarrez votre PC , le mot de passe a disparu :-) .

Note : cette procédure est applicable pour les ordinateurs de bureau .

Votez ( Répondre au sondage ) et laissez des commentaires . Merci :-D

M.Islem

jeudi 27 août 2009

Comment supprimer le Winfile.jpg ?


Contrairement a son apparence , Winfile.jpg n'est pas un fichier image comme les autres , c'est tout simplement un virus .
Quelles sont les symptômes qui apparaissent sur votre machine ?
  • Ben , si vous avez un bon antivirus , il va le détecter et l'ignorer ;
  • Vous ne pouvez plus accéder au registre Windows qui est très important ;
  • Vous ne pouvez plus aussi accéder au gestionnaire des taches .
Ces quelques désagréments que j'ai constaté sur ma machine et qui m'a obligé à trouver une solution rapide, efficace sans avoir recourt au formatage.
Comment j'ai constaté l'existence de ce virus ? en plus des points cités précédemment , lorsque j'ai lancé un programme de transfert des fichier (filezilla) j'ai remarqué que Winfile.jpg apparaît sur mon disque dur alors que j'ai fais un nettoyage préalablement mais ....... il était toujours là.
Alors j'ai testé plusieurs logiciel tel que : Combofix , rav , Killbox et en fin Usbfix . Ce dernier m'a désinfecté mon pc .
Comment l'utilisé ?
  • Téléchargez le logiciel sur Usbfix et mettez sur le bureau ;
  • Installez le ;
  • Branchez tous les sources de données externes (flash disque , disque dur externe ...ect ) ;
  • Lancez le programme ;
  • Choisissez "Suppression" afin qu'il supprime l'infection .. lol .
Vous allez avoir les instructions a suivre après exécution.
Note :
Sous Vista : avant de faire les manipulation précédente , Désactivez l'UAC (User Account Control) le temps du nettoyage. Cliquez ici pour voir les manip's .

Je laisse le sondage ouvert .... LOL

M.Islem

mercredi 26 août 2009

Créer vos propre Gadgets !!

Comme le titre l'indique , je vous propose pour mon dernier programme en VB de réaliser une série de gadget Windows , qu'on trouve en téléchargement sur le net chez Yahoo , Google , bon vous allez me dire alors pourquoi se casser la tête a les faire . Bien c'est simple , j'ai voulu voir le principe de fonctionnement de ces gadgets et en plus c'est facile a réaliser , pour ma part j'avais besoin ces derniers jours d'un pense Bête , tout le monde connait ce qu'es que un pense bête ? , Ce type d'application a pour objectif de mémoriser vos taches que vos allez faire plus tard c'est a dire pour ne pas oublier tel ou tel chose , vous l'écrivez sur ce PenseBête [ genre un bloc note ] .
Comment le faire ?
Tout d'abord il faut savoir son principe de fonctionnement , c'est à dire :
  • Il doit s'exécuter au démarrage de votre machine sinon il ne sert a rien ;
  • Il doit être petit et discret ( il ne prend pas beaucoup de place sur l'écran);
  • Il sauvegarde automatique les données que vous écrivez sans confirmer l'enregistrement .
Pour le premier point , c'est simple , après l'installation il doit apparaitre dans le registre windows, dans le dossier [ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] , donc j'ai dû crée un fichier registre ,mais il y a une autre méthode meilleur que celle-la .
Pour le deuxiéme point , j'ai essayé de faire une petite interface et qui a la possibilité de se réduire .
En fin , le dernier point j'ai injecté un Timer afin qu'il enregistre les données a chaque fois que vous écrivez quelque chose , mais je pense que une validation par le bouton "Entrer " du clavier est meilleure .

Voici une partie du code , la plus importante : dans la procédure Form_Load()
Private Sub Form_Load()
On Error GoTo err:

Me.Left = Screen.Width - Me.Width
Open App.Path & "\pensebete.pbc" For Input As #1
txtch = Input(LOF(1), 1)
Close #1
Exit Sub
err: MsgBox "C'est votre premiére utilisation", vbInformation, "Bienvenu"
ShellExecute Me.hwnd, "open", App.Path & "\pb.reg", "", App.Path, 1
End Sub
Là , lorsque vous exécuter l'application , il va ouvrir le fichier de données que vous avez saisi dans une précédente utilisation , s'il ne trouve pas ce fichier , il va afficher le message , et exécuter le fichier pb.reg .

Dans la procédure du Timer
Private Sub tmr_Timer()
On Error Resume Next
Open App.Path & "\pensebete.pbc" For Output As #1
Print #1, txtch
Close #1
Kill App.Path & "\pb.reg"
End Sub
On a création du fichier "pensebete.pbc" qui va contenir les informations que vous allez saisir. Aussi je n'ai pas mis le code mais on a aussi le clic droit [un menu flottant].

Je sais que c'est un code simple , en tout cas laissez des commentaires et répondez au sondage que je viens de mettre sur le blog , si vous le désirez bien sûr :) ;).

Bon ,je vous donne le lien de téléchargement de cette application pense bête version1 afin de l'a tester .

Et je vais aussi mettre le code de l'exécuteur que j'ai présenté.

M.Islem

vendredi 10 juillet 2009

Visual Basic 6 : Reconnaissance Vocale, parlez a votre PC

LA reconnaissance vocale est un sujet très intéressant et qui me plait tout particulièrement car ce type de système me parait magique,…lol, imaginez !!! , que vous parlez a votre ordinateur , par exemple , on lui demande de faire un truc sans lever le petit doigt , comme exécuter un programme , c’est l’idée que j’ai eu après quelques jours de réflexion , enfin j’ai pu crée une première version du programme , un exécuteur Windows c'est-à-dire : a partir de ce programme j’exécute n’importe quel logiciel qui se trouve sur mon ordinateur ,sans passer par le menu « Démarrer » , ni par les raccourcis qui se trouve sur le bureau…. Déjà, j’ai supprimé ces raccourcis car je déteste ça (avis personnel), enfin ce programme été assez original par rapport au programme classique de Windows, si on prend un exemple simple : essayez d’exécuter « MSN Messenger » en passant par « Démarrer > Exécuter », vous aurez rien !! Donc on doit définir le chemin d’accès, mais si vous exécuter « iTunes » ça marche car tous les programmes qui se trouvent dans le dossier « C:/Programfiles/nom_du_logiciel/nom_du_logiciel.exe » s’exécutent facilement.

Sur la deuxième version du programme, plutôt sur la deuxième conception, j’ai essayé d’introduire ce concept de la reconnaissance vocale, et ça donne un produit assez amusant car votre pc devient un esclave de votre voix …. LOL, et tout ce que vous dites, il l’exécute comme par exemple « MSN », « Microsoft Word », ce qui reste intéressant c’est que vous pouvez donner des noms abrégés aux programmes.

Je vais vous introduire le code qui m’a permis de réaliser ce système de reconnaissance vocale,

Tout d’abord ajouter les composants suivant :

  • Direct Speech Recognition (mettez dans la propriété name : vc)
  • Direct Text-To-Speech ( mettez dans la propriété name : spk )

Ajoutez sur le Load_Form , de votre formulaire le code suivant :

Const YOURNAME = "Islem" 'Remplacez par votre nom "

Dim SpeechGrammer As String

SpeechGrammer = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[]" & vbCrLf & _
"=" & YOURNAME

vc.GrammarFromString SpeechGrammer
vc.Activate

spk.Speak "Salut , comment appelles tu ? "

Pour finir , mettez le code suivant dans la procedure : vc_Phrasefinish
Select Case Phrase
Case Is = YOURNAME
spk.Speak "Bonjour" & YOURNAME

End Select


Et maintenant, vous avez la possibilité de discuter avec votre PC … lol. Là, j’ai mis un exemple de code pour vous montrer qu’on peut faire de la reconnaissance vocale avec Visual basic 6, et c’est à vous d’améliorer ce code, et faire des choses extraordinaires.

Je vous donne une explication simple sur ce code :

Bon, à l’exécution, votre machine vous demande « comment appelles-tu ? » Eh ! Oui votre PC vous tutoie ;

Vous allez répondre par la constante déclarée à savoir « Islem », et après, l’étape suivant est que votre machine répond par « Bonjour, islem ».

Allez bon amusement !! Et ne soyez pas fous, comme moi au début de cette expérience … mdr

M.Islem