ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Personnaliser le titre du navigateur Internet Explorer   


L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle

Note des membres
pas de note

Contributions > 09 - Automation > Internet Explorer

Personnaliser le titre du navigateur Internet Explorer
# 0000000608
ajouté le 06/06/2008 22:10:06 et modifié le 06/06/2008
consulté 7847 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0
Description
*Personaliser le titre de la barre du navigateur Internet Explorer en toute sécurité. *Introduire le nouveau libellé qui apparaîtra sur toutes vos fenêtres Iexplore *Testé avec succès sous Windows XP SP2 par écriture dans le registre de la nouvelle clé autant de fois que vous le souhaitez. *benameuryousfi1@gmail.com mai 2008.
Code source :
*Personaliser le titre de la barre du navigateur Internet Explorer
*Introduire le nouveau libellé qui apparaîtra sur toutes vos fenêtres Iexplore
*Testé avec succès sous Windows XP SP2 -Ecriture dans le registre de la nouvelle clé
*benameuryousfi1@gmail.com

cr=chr(13)
yform=createObject('yie_title')
yform.show
read events
return

DEFINE CLASS yie_title AS form
  Top = 133
  Left = 235
  Height = 90
  Width = 355
  ShowWindow = 2
  DoCreate = .T.
  BorderStyle = 2
  Caption = "Changer le titre de la barre <Iexplore>"
  HalfHeightCaption = .T.
  MaxButton = .F.
  Name = "Form1"

  ADD OBJECT text1 AS textbox WITH ;
    Height = 27, ;
    Left = 0, ;
    Top = 48, ;
    Width = 241, ;
    Name = "Text1"

  ADD OBJECT label1 AS label WITH ;
    BackStyle = 0, ;
    autosize=.t.,;
    Caption = "Entrer la valeur de la clé (nouveau titre)", ;
    Height = 25, ;
    Left = 12, ;
    Top = 12, ;
    Width = 144, ;
    Name = "Label1"

  ADD OBJECT command1 AS commandbutton WITH ;
    Top = 24, ;
    Left = 262, ;
    Height = 27, ;
    Width = 84, ;
    Caption = "Ok", ;
    Name = "Command1"

  ADD OBJECT command2 AS commandbutton WITH ;
    Top = 57, ;
    Left = 264, ;
    Height = 27, ;
    Width = 84, ;
    Caption = "Annuler", ;
    Name = "Command2"

  PROCEDURE command1.Click
       if messagebox("Voulez vous écrire dans le registre cette nouvelle clé ?",4+64,"Nouvelle clé")=6
     oShell = CreateObject("WScript.Shell")
    xcle = allt(thisform.text1.value)

    If EMPTY(xcle)
      xcle= "[B.YOUSFI]"
    ENDI

    oShell.Popup( "Création de la clé : Window Title de Iexplore.....Valeur="+xcle)
    oShell.RegWrite( "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", xcle)

    apIE=createObject("internetexplorer.application")
    apIE.navigate("About:Blank")
    DO WHILE apIE.Busy OR apIE.ReadyState # 4
    ENDDO

    inkey(1)
    apIE.visible=.t.
    xx="Regarder la barre de titre du navigateur IEXPLORE !"+cr+;
        "Votre nouvel intitulé ="+xcle+"<br>Vous pouvez revenir à l'ancien sans problème !"+cr+;
        "Le programme utilise Wscript.shell pour écrire dans le registre la nouvelle clé dans "+cr+;
        "[HKCU\Software\Microsoft\Internet Explorer\Main\Window Title]"
    apIE.document.parentWindow.alert(xx)
    apIE.quit
    endi

    clea
    thisform.release



  ENDPROC

    PROCEDURE Destroy
    clea Events
    ENDPROC

ENDDEFINE
*
*-- EndDefine: yie_title
****************************
Commentaires
Aucun commentaire enregistré ...
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3