Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Invité de passage
    Homme Profil pro
    Inscrit en
    février 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : février 2013
    Messages : 1
    Points : 0
    Points
    0

    Par défaut Comment faire un compte a rebour

    Bonjour,

    Tout dabord j'espere ne pas mettre trompé de site et que c'est bien de Visual Basic que l'on parle.

    Voici mon probleme:

    Je suis nouveau en Visual Basic et je voudrais savoir comment faire un Timer où quand j'appuie sur un bouton une page web s'ouvre un compte a rebour de x temp se lance et au bout des x temp la page s'ouvre encore, le compte a rebour se relance de x temp et au bout du compte la page s'ourvre, etc...
    et que le compte a rebour soit visible.
    Merci

  2. #2
    Membre chevronné Avatar de DAUDET78
    Homme Profil pro Alphonse Daudet
    retraité
    Inscrit en
    janvier 2008
    Messages
    473
    Détails du profil
    Informations personnelles :
    Nom : Homme Alphonse Daudet
    Âge : 71
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2008
    Messages : 473
    Points : 733
    Points
    733

    Par défaut

    Regarde l’événement Timer et la méthode Show (et la propriété Visible)

    PS : Je parle de VB6

  3. #3
    Expert Confirmé Sénior
    Avatar de hackoofr
    Homme Profil pro Mehdi Tounisiano
    Enseignant
    Inscrit en
    juin 2009
    Messages
    2 614
    Détails du profil
    Informations personnelles :
    Nom : Homme Mehdi Tounisiano
    Âge : 39
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 2 614
    Points : 5 817
    Points
    5 817

    Par défaut Alarme.vbs


    J'ai trouvé dans le net un Vbscript intéressant, juste je l'ai modifié un peu, pour l'exploiter comme une Alerte ou bien une Alarme
    Donc copier et coller ce code et enregistrez-le sous Alarme.vbs
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    Titre = "Alarme"
    Set ws = CreateObject("wscript.Shell")
    alarmDansMin  = Trim ( InputBox( "Dans combien de minutes voulez-vous déclenchez l'alarme ?"&vbcr&"ATTENTION : Taper un Nombre strictement supérieur à 1 !",Titre, "2") )
    If alarmDansMin = ""  Then Wscript.Quit
    If Not IsNumeric(alarmDansMin) or alarmDansMin <= 1 Then
        ws.Popup "Il faut Taper un Nombre strictement supérieur à 1 !","2",Titre,0+16 'Afficher un Popup durant 2 secondes puis quitte le script 
        Wscript.Quit
    End if 
    sMessage = "Reste " & alarmDansMin/2 & " minutes !"
    alarmDansmmsec = alarmDansMin*60*1000 'en millisecondes
    alaramSecondes = alarmDansMin*60 'en secondes
    nMinutes = alarmDansMin/2
    WScript.sleep  alarmDansmmsec/2
    nSeconds = 0
    sMessage = "<font color=red size=4><b>ALARME</b></font>"
    ' Open a chromeless window with message
    with HTABox("lightBlue", 175, 450, 400,100)
        .document.title = "Notification"
        .msg.innerHTML = sMessage
        do until .done.value or (nMinutes + nSeconds < 1)
            .msg.innerHTML = sMessage & "<br>" & nMinutes & ":" & Right("0"&nSeconds, 2) _
            & " restantes <br>"
            wsh.sleep 1000 ' milliseconds
            nSeconds = nSeconds - 1
            if nSeconds < 0 then 
                if nMinutes > 0 then
                    nMinutes = nMinutes - 1
                    nSeconds = 59
                end if
            end if
        loop
        .done.value = true
        .close
    end with
    ws.Popup "LE COMPTE A REBOURS EST FINI !"&vbcr& "on va ouvrir la page de Google","4",Titre,0+64 'Afficher un Popup durant 4 secondes puis quitte le script
    ws.Run "www.google.com"
    Function HTABox(sBgColor, h, w, l, t)
        Dim IE, HTA, sCmd, nRnd
        randomize : nRnd = Int(1000000 * rnd)
        sCmd = "mshta.exe ""javascript:{new " _
        & "ActiveXObject(""InternetExplorer.Application"")" _
        & ".PutProperty('" & nRnd & "',window);" _
        & "window.resizeTo(" & w & "," & h & ");" _
        & "window.moveTo(" & l & "," & t & ")}"""
        Set WshShell = WScript.CreateObject("WScript.Shell")
        with CreateObject("WScript.Shell")
            .Run sCmd, 1, False
            do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
            end with  'WSHShell
            For Each IE In CreateObject("Shell.Application").windows
                If IsObject(IE.GetProperty(nRnd)) Then
                    set HTABox = IE.GetProperty(nRnd)
                    IE.Quit
                    HTABox.document.title = "HTABox"
                    HTABox.document.write _
                    "<HTA:Application contextMenu=no border=thin " _
                    & "minimizebutton=no maximizebutton=no sysmenu=no />" _
                    & "<body scroll=no style='background-color:" _
                    & sBgColor & ";font:normal 10pt Arial;" _
                    & "border-Style:inset;border-Width:3px'" _
                    & "onbeforeunload='vbscript:if not done.value then " _
                    & "window.event.cancelBubble=true:" _
                    & "window.event.returnValue=false:" _
                    & "done.value=true:end if'>" _
                    & "<input type=hidden id=done value=false>" _
                    & "<center><span id=msg>&nbsp;</span><br>" _
                    & "<input type=button id=btn1 value='OK pour ouvrir la page de Google'"_
                    & "onclick=done.value=true><center></body>"
                    HTABox.btn1.focus
                    Exit Function
                End If
            Next
            MsgBox "HTA window not found."
            wsh.quit
    End Function

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro Francis MILLET
    Inscrit en
    décembre 2004
    Messages
    3 466
    Détails du profil
    Informations personnelles :
    Nom : Homme Francis MILLET
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 466
    Points : 5 762
    Points
    5 762

    Par défaut

    Citation Envoyé par New59 Voir le message
    Bonjour,
    ........
    Je suis nouveau en Visual Basic et........
    Merci

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •