SVM n°145 janvier 1997
SVM n°145 janvier 1997
  • Prix facial : 29 F

  • Parution : n°145 de janvier 1997

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (204 x 280) mm

  • Nombre de pages : 316

  • Taille du fichier PDF : 280 Mo

  • Dans ce numéro : la micro en 1997... l'explosion technologique.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 170 - 171  |  Aller à la page   OK
Pages suivantes >
170 171
programmation Notre gagnant : Christophe Chantraine, de Toulouse, pour son programme Boss. Le module BOSS.BAS VISUAL BASIC Se rire du boss ! Un programme Visual Basic qui, d'une pression sur Echap, referme d'urgence tel ou tel jeu ouvert sur le bureau de Windows 3.1. Q celle qu'en soit la raison (mais on ne se fait pas trop d'illusion...), fermer en urgence une application Windows n'est pas si facile. Christophe Chantraine nous propose donc une solution pour Windows 3.1, avec son programme Boss. Le principe est simple : on demande à Boss de surveiller une application particulière qui, dès que l'on pressera la touche Echap, réduira sa fenêtre pour ne laisser qu'une icône sur le bureau, ou mieux encore, se refermera. Le plus simple est de voir ensemble un exemple, avec le jeu de cartes Solitaire. D'abord, vous devrez lancer le jeu et noter le nom qu'il inscrit dans sa barre de titre (il s'agit donc du mot Solitaire). Dans le Gestionnaire de fichiers, créez alors une nouvelle icône, par exemple dans le groupe Accessoires (menu Fichier, Nouveau, Programme). En supposant que Boss se trouve dans le'déclaration des fonctions et procédures nécessairen Declare Function findwindow% Lib "user" (ByVal 1pClassName As Any, ByVal 1pCaption As Any)1 Declare Function GetAsyncKeyState Lib "User" (ByVal vKey As Integer) As Integen Declare Sub closeWindow Lib "User" (ByVal hWnd As Integer)s'déclaration des constantes ! " Global Const VK_ESCAPE = &HIB'touche ESC1 Global Const VK_SPACE = &H20'touche Espace ! " Global Const nill = 0&1'variable contenant le nom du programme à surveiller !'Global pgmSurveil La feuille BOSS.FRM Sub Form_Load 01'Récupération du programme à surveillent pgmSurveil$ = Command$1'Placement de la fenêtre hors écran boss.Left = -50001 boss.Top = -50001'Message de confirmation) rep% = MsgBox("Voulez-vous surveiller " + pgmSurveil$ + " ? ", 4, "Attention, voilà le boss ! ")1 répertoire C:\VB\Prg, dans la zone Ligne de commande, tapez : C:\VB\Prg\Boss.exe Solitaire Maintenant, après avoir lancé le Solitaire, vous n'aurez plus qu'à double-cliquer sur cette icône pour lancer Boss. Ce dernier vous demande s'il doit effectivement surveiller le Solitaire. Répondez Oui, retournez dans le jeu de cartes... et pressez la touche Echap sitôt qu'un importun franchit la porte ! Plus tard, en refermant le Solitaire, pressez encore Echap afm de clore également Boss. Jouer sur le temps écoulé entre deux manip du clavier Pour créer le programme dans Visual Basic 3.0, il suffit d'une feuille contenant une minuterie (objet Timer) dotée des propriétés suivantes : Enabled = True, Intervalle = 100, Name = Timerl. Pour l'essentiel, le programme détermine le temps écoulé entre deux interrogations du clavier. La If rep% <> 6 Then Endl touche (ici Echap, mais ce pourrait être Espace...) est surveillée par l'intermédiaire de la fonction Windows GetAsyncKeyState, qui reçoit en paramètre un code correspondant à la touche. La fonction findWindows trouve alors l'identifiant (Handle) de la fenêtre du programme surveillé, qui sera mise en icône avec close- Windows. Pour réellement fermer le programme, faites les modifications suivantes. Dans les déclarations, ajoutez : Declare Function sendmessage& Lib "user" (ByVal hWnd%, By Val wMsg%, ByVal wParam%, ByVal lParam As Long) ! [Global Const wm_syscommand = &H1121 Global Const sc_close = &HFO 601 Et dans le programme, à la place de Call closeWindow(Handle%), indiquez : xTemp = sendmessage (Handle%,wm_syscommand, sc _close, nill)9 [CONCOURS PERMANENT DE PROGRAMMATION Vous aussi, vous pouvez participer. Il vous suffit d'adresser un listing complet de votre programme, une disquette, un texte descriptif et une photo d'identité à : SVM, 1, rue du Colonel Pierre-Avia, 75503 Paris Cedex 15. Chaque mois, une prime de 2 000 F récompensera le gagnant.'Vérification de l'existence de l'application à surveiller !'Handle% = findwindow(nill, pgmSurveil$YJ If Handle% = 0 Then MsgBox "L'application " + pgmSurveil$ + " n'est pas lancée", 16, "Attention, voilà le boss ! "11 End9 [End 111 End Subi 91 Sub Timerl_Timer Oq 91'capture des événements clavier par le liment xTemp% = GetAsyncKeyState(VK_ESCAPE)q'si la touche VK_ESCAPE a été appuyée, récupération'de l'identifiant de la fenêtre et mise en icône ! " If xTemp% < 0 Then Handle% = findwindow(nill, pgmSurveil$yJ If Handle% <> 0 Then Call closeWindow(Handle%J Elsel MsgBox "Fin de la mission de surveillance", 16, "Attention, voilà le boss !'l EnnEnd In End In Le signe 11 ne doit pas être tapé. Il indique que vous devez End Subll presser la touche entrée pour passera la ligne suivante.
CARTE DE FIDELITEerriderbund - LIVING BOOKS - SVM « Achetez le jeu MYST et deux titres éducatifs Broderbund ou Living Books et gagnez un CD-ROM gratuit 1* » **'A CHOISIR PARMI LA LISTE SUIVANTE : MAIS OU SE CACHE CARMEN SANDIEGO-EDITION JUNIOR ?, KID PIX STUDIO, MATHÉMAGIQUE, PRINT SHOP DELUXE, LE LIEVRE ET LA TORTUE, GRAND-MÈRE ET MOI, HARRY ET LA MAISON HANTÉE. -r INSCRIVEZ ICI LE TITRE DU CD-ROM ACHETÉ ET AGRAFEZ LA PREUVE D'ACHAT CORRESPONDANTE TICKET DE CAISSE ET VIGNETTE TROUVÉE DANS LA BOITE. Nom PRENOM ADRESSE Broderbund casse ses prix ! Courez vite chez votre revendeur pour découvrir nos prix exceptionnels ! Remplissez votre carte de fidélité Broderbund-Living Books et gagnez un CD-ROM gratuit pour l'achat de Myst et de deux titres éducatifs.* Pour tout achat d'un CD-ROM de la gamme, abonnez-vous à SVM dans des conditions exceptionnelles : I an (11 numéros + 4 CD-ROM) pour 199 FF** au lieu de 343 FF***. Retrouvez tous les produits des gammes Broderbund et Living Books et gagnez de nombreux lots et des CD-ROM de démonstration lors de la campagne d'animations menée du I- Octobre 1996 au 30 Janvier 1997. Vous pouvez consulter la liste des points de vente concernés sur le 3615 Ubi Soft ou sur le site Web : http//:www.ubisoft.fr *OFFRE VALABLE JUSQU'AU 30 JANVIER 1997. **OFFRE VALABLE JUSQU'AU 30/04/1997, RÉSERVÉE A LA FRANCE MÉTROPOLITAINE ET UNIQUEMENT VALABLE POUR UN PREMIER ABONNEMENT A SVM.'4*PRIX DE VENTE DES MAGAZINES CHEZ VOTRE MARCHAND DE JOURNAUX. CODE POSTAL VILLE PAYS INSCRIVEZ ICI LE TITRE DU CD-ROM* QUE VOUS SOUHAITEZ RECEVOIR Pour recevoir votre CD-ROM gratuit, il vous suffit de retourner cette carte complétée à l'adresse suivante OPERATION SPECIALE BRODERBUND, CIO STARPACK INTERNATIONAL LTD. Unit A. Sovereign Park Brenda Road. Hartlepool. Cleveland TS25 1 NN. ROYAUME-UNI. **Offre valable jusqu'au 30 Janvier 1997 0 1. «.1alertr.dedru...P., V ; t19 C Broderbund 711(513° ? J'. Ubi Soft Interetie St.r'Eç fer Cree" on GD- Mtc, O 1



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


SVM numéro 145 janvier 1997 Page 1SVM numéro 145 janvier 1997 Page 2-3SVM numéro 145 janvier 1997 Page 4-5SVM numéro 145 janvier 1997 Page 6-7SVM numéro 145 janvier 1997 Page 8-9SVM numéro 145 janvier 1997 Page 10-11SVM numéro 145 janvier 1997 Page 12-13SVM numéro 145 janvier 1997 Page 14-15SVM numéro 145 janvier 1997 Page 16-17SVM numéro 145 janvier 1997 Page 18-19SVM numéro 145 janvier 1997 Page 20-21SVM numéro 145 janvier 1997 Page 22-23SVM numéro 145 janvier 1997 Page 24-25SVM numéro 145 janvier 1997 Page 26-27SVM numéro 145 janvier 1997 Page 28-29SVM numéro 145 janvier 1997 Page 30-31SVM numéro 145 janvier 1997 Page 32-33SVM numéro 145 janvier 1997 Page 34-35SVM numéro 145 janvier 1997 Page 36-37SVM numéro 145 janvier 1997 Page 38-39SVM numéro 145 janvier 1997 Page 40-41SVM numéro 145 janvier 1997 Page 42-43SVM numéro 145 janvier 1997 Page 44-45SVM numéro 145 janvier 1997 Page 46-47SVM numéro 145 janvier 1997 Page 48-49SVM numéro 145 janvier 1997 Page 50-51SVM numéro 145 janvier 1997 Page 52-53SVM numéro 145 janvier 1997 Page 54-55SVM numéro 145 janvier 1997 Page 56-57SVM numéro 145 janvier 1997 Page 58-59SVM numéro 145 janvier 1997 Page 60-61SVM numéro 145 janvier 1997 Page 62-63SVM numéro 145 janvier 1997 Page 64-65SVM numéro 145 janvier 1997 Page 66-67SVM numéro 145 janvier 1997 Page 68-69SVM numéro 145 janvier 1997 Page 70-71SVM numéro 145 janvier 1997 Page 72-73SVM numéro 145 janvier 1997 Page 74-75SVM numéro 145 janvier 1997 Page 76-77SVM numéro 145 janvier 1997 Page 78-79SVM numéro 145 janvier 1997 Page 80-81SVM numéro 145 janvier 1997 Page 82-83SVM numéro 145 janvier 1997 Page 84-85SVM numéro 145 janvier 1997 Page 86-87SVM numéro 145 janvier 1997 Page 88-89SVM numéro 145 janvier 1997 Page 90-91SVM numéro 145 janvier 1997 Page 92-93SVM numéro 145 janvier 1997 Page 94-95SVM numéro 145 janvier 1997 Page 96-97SVM numéro 145 janvier 1997 Page 98-99SVM numéro 145 janvier 1997 Page 100-101SVM numéro 145 janvier 1997 Page 102-103SVM numéro 145 janvier 1997 Page 104-105SVM numéro 145 janvier 1997 Page 106-107SVM numéro 145 janvier 1997 Page 108-109SVM numéro 145 janvier 1997 Page 110-111SVM numéro 145 janvier 1997 Page 112-113SVM numéro 145 janvier 1997 Page 114-115SVM numéro 145 janvier 1997 Page 116-117SVM numéro 145 janvier 1997 Page 118-119SVM numéro 145 janvier 1997 Page 120-121SVM numéro 145 janvier 1997 Page 122-123SVM numéro 145 janvier 1997 Page 124-125SVM numéro 145 janvier 1997 Page 126-127SVM numéro 145 janvier 1997 Page 128-129SVM numéro 145 janvier 1997 Page 130-131SVM numéro 145 janvier 1997 Page 132-133SVM numéro 145 janvier 1997 Page 134-135SVM numéro 145 janvier 1997 Page 136-137SVM numéro 145 janvier 1997 Page 138-139SVM numéro 145 janvier 1997 Page 140-141SVM numéro 145 janvier 1997 Page 142-143SVM numéro 145 janvier 1997 Page 144-145SVM numéro 145 janvier 1997 Page 146-147SVM numéro 145 janvier 1997 Page 148-149SVM numéro 145 janvier 1997 Page 150-151SVM numéro 145 janvier 1997 Page 152-153SVM numéro 145 janvier 1997 Page 154-155SVM numéro 145 janvier 1997 Page 156-157SVM numéro 145 janvier 1997 Page 158-159SVM numéro 145 janvier 1997 Page 160-161SVM numéro 145 janvier 1997 Page 162-163SVM numéro 145 janvier 1997 Page 164-165SVM numéro 145 janvier 1997 Page 166-167SVM numéro 145 janvier 1997 Page 168-169SVM numéro 145 janvier 1997 Page 170-171SVM numéro 145 janvier 1997 Page 172-173SVM numéro 145 janvier 1997 Page 174-175SVM numéro 145 janvier 1997 Page 176-177SVM numéro 145 janvier 1997 Page 178-179SVM numéro 145 janvier 1997 Page 180-181SVM numéro 145 janvier 1997 Page 182-183SVM numéro 145 janvier 1997 Page 184-185SVM numéro 145 janvier 1997 Page 186-187SVM numéro 145 janvier 1997 Page 188-189SVM numéro 145 janvier 1997 Page 190-191SVM numéro 145 janvier 1997 Page 192-193SVM numéro 145 janvier 1997 Page 194-195SVM numéro 145 janvier 1997 Page 196-197SVM numéro 145 janvier 1997 Page 198-199SVM numéro 145 janvier 1997 Page 200-201SVM numéro 145 janvier 1997 Page 202-203SVM numéro 145 janvier 1997 Page 204-205SVM numéro 145 janvier 1997 Page 206-207SVM numéro 145 janvier 1997 Page 208-209SVM numéro 145 janvier 1997 Page 210-211SVM numéro 145 janvier 1997 Page 212-213SVM numéro 145 janvier 1997 Page 214-215SVM numéro 145 janvier 1997 Page 216-217SVM numéro 145 janvier 1997 Page 218-219SVM numéro 145 janvier 1997 Page 220-221SVM numéro 145 janvier 1997 Page 222-223SVM numéro 145 janvier 1997 Page 224-225SVM numéro 145 janvier 1997 Page 226-227SVM numéro 145 janvier 1997 Page 228-229SVM numéro 145 janvier 1997 Page 230-231SVM numéro 145 janvier 1997 Page 232-233SVM numéro 145 janvier 1997 Page 234-235SVM numéro 145 janvier 1997 Page 236-237SVM numéro 145 janvier 1997 Page 238-239SVM numéro 145 janvier 1997 Page 240-241SVM numéro 145 janvier 1997 Page 242-243SVM numéro 145 janvier 1997 Page 244-245SVM numéro 145 janvier 1997 Page 246-247SVM numéro 145 janvier 1997 Page 248-249SVM numéro 145 janvier 1997 Page 250-251SVM numéro 145 janvier 1997 Page 252-253SVM numéro 145 janvier 1997 Page 254-255SVM numéro 145 janvier 1997 Page 256-257SVM numéro 145 janvier 1997 Page 258-259SVM numéro 145 janvier 1997 Page 260-261SVM numéro 145 janvier 1997 Page 262-263SVM numéro 145 janvier 1997 Page 264-265SVM numéro 145 janvier 1997 Page 266-267SVM numéro 145 janvier 1997 Page 268-269SVM numéro 145 janvier 1997 Page 270-271SVM numéro 145 janvier 1997 Page 272-273SVM numéro 145 janvier 1997 Page 274-275SVM numéro 145 janvier 1997 Page 276-277SVM numéro 145 janvier 1997 Page 278-279SVM numéro 145 janvier 1997 Page 280-281SVM numéro 145 janvier 1997 Page 282-283SVM numéro 145 janvier 1997 Page 284-285SVM numéro 145 janvier 1997 Page 286-287SVM numéro 145 janvier 1997 Page 288-289SVM numéro 145 janvier 1997 Page 290-291SVM numéro 145 janvier 1997 Page 292-293SVM numéro 145 janvier 1997 Page 294-295SVM numéro 145 janvier 1997 Page 296-297SVM numéro 145 janvier 1997 Page 298-299SVM numéro 145 janvier 1997 Page 300-301SVM numéro 145 janvier 1997 Page 302-303SVM numéro 145 janvier 1997 Page 304-305SVM numéro 145 janvier 1997 Page 306-307SVM numéro 145 janvier 1997 Page 308-309SVM numéro 145 janvier 1997 Page 310-311SVM numéro 145 janvier 1997 Page 312-313SVM numéro 145 janvier 1997 Page 314-315SVM numéro 145 janvier 1997 Page 316