OVH Cloud OVH Cloud

interrupteur visuel

7 réponses
Avatar
bonjour,

J'ai un besoin que voici :

Soit 2 postes en reseau local .

Une icone verte dans la barre des taches pres de l'horloge windows sur le
poste B

Possibilité pour le poste A de passer l'icone du poste B en rouge et
rebasculer en vert

Une sorte d'interrupteur visuel en fait .

le but etant de signaler a mon collaborateur si je suis disponible ou pas ..

Connaitriez vous un petit soft qui pourrait me faire ca ?

Ou a defaut a qui puis je m'adresse pour developper cette petite application
?

Merci par avance

7 réponses

Avatar
x
france/11/10/2006/16h21/debut_edit
Bonjours,


<smaphi> faisant un rêve (:D) comme S°ny...
a écrit dans le message de news:
452cf528$0$5107$
bonjour,


Merci... ;D


J'ai un besoin que voici :


On est là pour ça !.. ;D


Soit 2 postes informatique en réseau local .


Oui ?!.. huuummm ?.. (:>D)


Une icone verte dans la barre des tâches près de l'horloge Windows sur le
poste B


Verte ?!..


Possibilité pour le poste A de passer l'icone du poste B en rouge et
rebasculer en vert


Basculer l'indicateur ?!.. Ouuuuuuuuuiiiiiiiiiiii !........... (:>D)


Une sorte d'interrupteur visuel en fait .


Visuel ?..
Et les aveugles on y pense ?!...
Ou pour mieux parler !.. (:D)


Le but étant de signaler à mon collaborateur si je suis disponible ou pas
..


Certainement !.. : D


Connaitriez-vous un petit soft qui pourrait me faire ca ?


!!! hummmmmmmmm !... ?.. @-)

OUIiiiiiiiiiiiiiiiiiiiiiii !..........

L'indicateur de présence "SKYPE" !..

Voily !.. Voilou !.. :D)))))))))))))))) ( = Modeste !.. lol ) :D


Ou à défaut:
À qui puis je m'adressé pour developper cette petite application ?


Ici ?.. houuuuuuuuuuuuuuulaaaaaaaaaaaaaaaaaa !.. Houlaaaaaaaaaa !..


Merci par avance


C'est nous qui vous remercions pour votre demande:
Ainsi que pour vos retours futurs ici !.. :D





Note: (Humour au vitriol) :D
Dans le "Dico" Encarta® 2003
Collection Microsoft® Encarta® 2003.
© 1993-2002 Microsoft Corporation.
Tous droits réservés.
= > Le mot "Connaitriez":
De la phrase:
= > Connaitriez vous un petit soft qui pourrait me faire ca ?
"Pointe" immédiatement sur le mot:
= > "" lol :D


Merci...
france/11/10/2006/16h45/debut_edit

Avatar
nospheratus

OUIiiiiiiiiiiiiiiiiiiiiiii !..........

L'indicateur de présence "SKYPE" !..



Skype fonctionne meme sans connexion Internet ?????

Ou à défaut:
À qui puis je m'adressé pour developper cette petite application ?



www.developpez.com ptre. Ici c'est plus un news de dépannage.
--
NosPHeratus
http://www.nosland.com


Avatar
Personne n_est parfait
Bonjour,

"nospheratus"

a écrit dans le message de news:
O$

OUIiiiiiiiiiiiiiiiiiiiiiii !..........

L'indicateur de présence "SKYPE" !..



Skype fonctionne meme sans connexion Internet ?????


Ha ben oui tien !...... 8-D ("PasPenser") lol ;)


Ou à défaut:
À qui puis je m'adressé pour developper cette petite application ?



Chez www.developpez.com peut-être.
= >> Ici c'est plus un news de dépannage.
--
NosPHeratus
http://www.nosland.com




Merci ! 11/10/2006/mercredi/17h29



Avatar
x
france/mer./11/10/2006/18h21/debut_edit
Salut,

Interrupteur visuel:
Une piste:

http://www.vbfrance.com/codes/ERROR-MESSAGE-ENVOYER-MESSAGE-ERREUR-MSGBOX-AVEC-RETOUR_36065.aspx


Les mots attachés à cette source:
Errormessage,
Msgbox,
Winsock,
Alucard49000 (L'auteur !..)


---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------

CITATION LONGUE:
------------------------------
http://www.vbfrance.com/codes/ERROR-MESSAGE-ENVOYER-MESSAGE-ERREUR-MSGBOX-AVEC-RETOUR_36065.aspx

---------------------------------------------------------
---------------------------------------------------------

Date création : 14/02/2006 20:56:05
Date de mise à jour : 16/02/2006 14:23:51

---------------------------------------------------------
---------------------------------------------------------

Bonjour à tous.
Voici donc ma premiere source j'espere qu'elle vous plaiera car je ne suis
encore que débutant !
Donc mon programme est tout simple ! Il permet a une personne de se
connecter, grace au client, sur un ordinateur, ou il y a le server, puis de
lui envoyer des petit message d'erreur ect... rien de bien mechant !!! Une
fois que la "victime" aura repondu au message (OUI, NON, RECOMMENCER...)
vous receverez ce qu'il aura cocher ! C'est plus pour s'amuser mais aussi
pour les debutant pouvoir s'entrainer a dechifrer les codes pas bien dure :D
!
Donc voila je vous laisse vous amusez et a inventer le message le plus délir
:D

---------------------------------------------------------
---------------------------------------------------------

- Client :




Option Explicit


Private Sub connecter_Click()
Winsock.Close
Winsock.Connect ip.Text, "27960"
horsligne.Caption = "En cours..."
connecter.Enabled = False
End Sub

Private Sub deconnecter_Click()
Winsock.SendData "CLOS"
horsligne.Caption = "Hors Ligne"
connecter.Enabled = True
End Sub

Private Sub definirboutton_Click()
Select Case True

Case a.Value = True
Winsock.SendData "BOUT" & vbYesNoCancel
Case b.Value = True
Winsock.SendData "BOUT" & vbOKOnly
Case c.Value = True
Winsock.SendData "BOUT" & vbAbortRetryIgnore
Case d.Value = True
Winsock.SendData "BOUT" & vbYesNo
Case e.Value = True
Winsock.SendData "BOUT" & vbOKCancel
Case f.Value = True
Winsock.SendData "BOUT" & vbRetryCancel

End Select
End Sub

Private Sub definiricone_Click()
If question.Value = True Then
Winsock.SendData "ICON" & vbQuestion
End If
If exclamation.Value = True Then
Winsock.SendData "ICON" & vbExclamation
End If
If erreur.Value = True Then
Winsock.SendData "ICON" & vbCritical
End If
If information.Value = True Then
Winsock.SendData "ICON" & vbInformation
End If
End Sub

Private Sub envoyer1_Click()
Winsock.SendData "MSSG" & message.Text
End Sub

Private Sub envoyer2_Click()
Winsock.SendData "TITR" & windows.Text
End Sub

Private Sub envoyer3_Click()
If exclamation.Value = True Then
Winsock.SendData "AZER"
End If
If erreur.Value = True Then
Winsock.SendData "AZER"
End If
If information.Value = True Then
Winsock.SendData "AZER"
End If
If question.Value = True Then
Winsock.SendData "OUVR"
End If
End Sub



Private Sub erreur_Click()
If erreur.Value = True Then
bouttonmessage.Visible = False
End If

End Sub

Private Sub exclamation_Click()
If exclamation.Value = True Then
bouttonmessage.Visible = False
End If
End Sub

Private Sub information_Click()
If information.Value = True Then
bouttonmessage.Visible = False
End If
End Sub

Private Sub question_Click()
If question.Value = True Then
bouttonmessage.Visible = True
End If
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock.GetData data
Select Case Left(data, 4)

Case "CONN"
horsligne.Caption = "En ligne"

Case "STAT"
horsligne.Caption = "Hors Ligne"

Case "RPSE"
MsgBox "USER : Ok", vbOKOnly, "Reponce"

Case "REPS"
Dim rep As String
MsgBox "USER : " & Right(data, Len(data) - 4), vbOKOnly, "Reponse"

End Select
End Sub

---------------------------------------------------------
---------------------------------------------------------

- Server :




Dim WSHShell
Dim MaClef
Dim MonProg
Dim CheminDeMonProg
Dim r

Private Sub Form_Load()
Set WSHShell = CreateObject("Wscript.Shell")
MonProg = "Form1"
CheminDeMonProg = App.Path & "" & App.EXEName & ".exe"
MaClef = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun"
& MonProg
r = WSHShell.RegWrite(MaClef, CheminDeMonProg, "REG_SZ")

Winsock1.Listen
End Sub

Private Sub rep_Change()

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Winsock1.SendData "CONN"

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Select Case Left(data, 4)

Case "CLOS"
Winsock1.SendData "STAT"
Winsock1.Close
Winsock1.Listen

Case "MSSG"
Dim message As String
message = Right(data, Len(data) - 4)
msg.Text = message

Case "TITR"
Dim titre As String
titre = Right(data, Len(data) - 4)
title.Text = titre

Case "BOUT"
Dim boutton As String
boutton = Right(data, Len(data) - 4)
button.Text = boutton

Case "ICON"
Dim icone As String
icone = Right(data, Len(data) - 4)
types.Text = icone

Case "OUVR"
Dim rep As String
rep = MsgBox(msg.Text, types.Text & button.Text, title.Text)
Dim buffer As Variant
buffer = Array("", "Ok", "Annuler", "Abandonner", "Recommencer", "Ignorer",
"Oui", "Non")

rep = buffer(Val(rep))

Winsock1.SendData "REPS" & rep



Case "AZER"
MsgBox msg.Text, types.Text, title.Text
Winsock1.SendData "RPSE"

End Select
End Sub


---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------


Merci...
france/mer./11/10/2006/18h34/fin_edit
Avatar
x
france/mer./11/10/2006/18h43/debut_edit

Voir aussi ici:
-------------------
http://www.vbfrance.com/codes/MESSAGE-HEURE-PERMET-AFFICHER-MESSAGES-HEURE-PRECISE-SAUVEGARDER_20408.aspx

Date création : 14/02/2004 04:46:08
Date de mise à jour : 16/02/2004 21:41:03

CITATION LONGUE:
-----------------------------
Description:
---------------
Je vous présente ici mon 1 er code en VB qui intégre plusieurs nouveautés :
Ce programme ne permet pas seulement de créer comme de très nombreuses
sources des MsgBox... > IL se ne contente pas que de çà ! ! ! ! ! ! ! ! ! !
! ;)

Il permet non seulement d'enregistrer les messages créés dans un fichier
visual basic script (.vbs sous XP) pour pouvoir visionner les messages
indépendamment du programme. Mais aussi...

Et grande nouveauté !!!! ;-) Ce programme permet d'afficher le message que
l'ont veut à une heure prédéfinie qui elle aussi peut être modifiable par la
suite !!!!

Cette nouvelle fonction permet de faire des rappels, penses-bêtes, blagues
en tout genre...


Soyez indulgents envers le newbie que je suis :p

N'hésitez pas à poster vos remarques, bonnes ou mauvaises...(elles me feront
toujours plaisir !) Et notez aussi pour que je sache ce que je vaut pour une
1ère source.....
Voir Capture

Merci beaucoup !




Gautier

------------------------------------------------------------
------------------------------------------------------------

Explication finale:
----------------------
J'ai assez bien commenté ma source et je pense pas qu'il y ait de problème
de compréhension...
si toutefois une question persiste, n'hésitez pas, postez un commentaire !

Je l'ai testé sur 3 machines différentes ayant Xp et aucun bug...
Ca serait sympa de me dire sous quels systèmes la fonction enregistrer ne
marche pas svp...
Merci!


Bonne prog à tous ;)

Gautier



Mise à jour : - Possibilité de refaire apparaître la form1 en tapant "Gaut"
Permet de rechanger l'heure ou de quitter sans avoir mis de message
-Bugs enlevés quand on ne met aucune caractéristique pour le mess
-Possibilité de mettre plusieurs messages dans "message.vbs" ou un seul

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

Repost et plus dans ce message:
G@@gle ne laisse pas passer les pièces jointes...

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

france/mer./11/10/2006/18h02/debut_edit
Salutations, ami-e-s developpeurs-ppeusses:
Va y en avoir besoin !.. ;D

http://www.dotnet-fr.org/sections.php3?op=viewarticle&artid˜


"Personne n_est parfait"

a écrit dans le message de news:
%
Bonjour,

"nospheratus"

a écrit dans le message de news:
O$

OUIiiiiiiiiiiiiiiiiiiiiiii !..........

L'indicateur de présence "SKYPE" !..



Skype fonctionne meme sans connexion Internet ?????


Ha ben oui tien !...... 8-D ("PasPenser") lol ;)


Ou à défaut:
À qui puis je m'adressé pour developper cette petite application ?



Chez www.developpez.com peut-être.
= >> Ici c'est plus un news de dépannage.
--
NosPHeratus
http://www.nosland.com




Merci ! 11/10/2006/mercredi/17h29




CITATION LONGUE:
------------------------------
http://www.dotnet-fr.org/sections.php3?op=viewarticle&artid˜
Afficher un icône de notification dans la barre de notification
(778 mots dans le texte )
(lu : 3937 fois)



L’astuce .NET du mois!
Par Sylvain Audet – MCP+SB



Afficher un icône de notification dans la barre de notification.

Vous aimeriez donner plus de flexibilité à votre application
en ayant vous aussi un icône à la Outlook ou MSN-Messenger affichée dans la
barre de notification qui est situé au bas à droite de votre écran (à gauche
de l'heure)? Comme toujours, avec .NET, rien de plus simple! Voici comment:

1. 'Défini un objet de type NotifyIcon
2. Dim NotifyIcon1 As New System.Windows.Forms.NotifyIcon
3. NotifyIcon1.Icon = New
System.Drawing.Icon("iconedevotreappli.ico")
4. NotifyIcon1.Text = "Cliquez droit pour afficher le menu
contextuel"
5. NotifyIcon1.Visible = True
6.
7. 'Défini un menu contextuel qui sera associer à notre icône
8. Dim ctxMenu as new System.Windows.Forms.ContextMenu
9. ctxMenu.Menuitems.add("Option1")
10. ctxMenu.Menuitems.add("Option2")
11.
12. 'Associe le menu contextuel à notre icône
13. NotifyIcon1.ContextMenu = ctxMenu

Il est important de noter que par défaut, l'icône de type
NotifyIcon n'est pas visible, il faut donc la mettre visible explicitement
(ligne 5).

Et voilà! J'espère que le contenu de cet astuce saura vous
économiser du temps et vous faire apprécier une fois de plus toute la
simplicité de .NET!

Références :

a.. MSDN Library: NotifyIcon Class


Si vous avez des suggestions d'articles à me faire ou des
commentaires sur cet article, je vous invite à m'en faire part par email à :




Sylvain Audet est analyste de systèmes spécialisé en
développement d'applications Web et Windows.
Il peut être joint à l'adresse suivante:


Octobre 2005

[ Retour Astuce du Mois | Index des sections ]



Merci...
france/mer./11/10/2006/18h09/fin_edit

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

Merci...
france/mer./11/10/2006/18h57/fin_edit




Avatar
x
france/mer./11/10/2006/18h43/debut_edit

Voir aussi ici:
-------------------
http://www.vbfrance.com/codes/MESSAGE-HEURE-PERMET-AFFICHER-MESSAGES-HEURE-PRECISE-SAUVEGARDER_20408.aspx

Date création : 14/02/2004 04:46:08
Date de mise à jour : 16/02/2004 21:41:03

CITATION LONGUE:
-----------------------------
Description:
---------------
Je vous présente ici mon 1 er code en VB qui intégre plusieurs nouveautés :
Ce programme ne permet pas seulement de créer comme de très nombreuses
sources des MsgBox... > IL se ne contente pas que de çà ! ! ! ! ! ! ! ! ! !
! ;)

Il permet non seulement d'enregistrer les messages créés dans un fichier
visual basic script (.vbs sous XP) pour pouvoir visionner les messages
indépendamment du programme. Mais aussi...

Et grande nouveauté !!!! ;-) Ce programme permet d'afficher le message que
l'ont veut à une heure prédéfinie qui elle aussi peut être modifiable par la
suite !!!!

Cette nouvelle fonction permet de faire des rappels, penses-bêtes, blagues
en tout genre...


Soyez indulgents envers le newbie que je suis :p

N'hésitez pas à poster vos remarques, bonnes ou mauvaises...(elles me feront
toujours plaisir !) Et notez aussi pour que je sache ce que je vaut pour une
1ère source.....
Voir Capture

Merci beaucoup !




Gautier

------------------------------------------------------------
------------------------------------------------------------

Explication finale:
----------------------
J'ai assez bien commenté ma source et je pense pas qu'il y ait de problème
de compréhension...
si toutefois une question persiste, n'hésitez pas, postez un commentaire !

Je l'ai testé sur 3 machines différentes ayant Xp et aucun bug...
Ca serait sympa de me dire sous quels systèmes la fonction enregistrer ne
marche pas svp...
Merci!


Bonne prog à tous ;)

Gautier



Mise à jour : - Possibilité de refaire apparaître la form1 en tapant "Gaut"
Permet de rechanger l'heure ou de quitter sans avoir mis de message
-Bugs enlevés quand on ne met aucune caractéristique pour le mess
-Possibilité de mettre plusieurs messages dans "message.vbs" ou un seul

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

Repost et plus dans ce message:
G@@gle ne laisse pas passer les pièces jointes...

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

france/mer./11/10/2006/18h02/debut_edit
Salutations, ami-e-s developpeurs-ppeusses:
Va y en avoir besoin !.. ;D

http://www.dotnet-fr.org/sections.php3?op=viewarticle&artid˜


"Personne n_est parfait"

a écrit dans le message de news:
%
Bonjour,

"nospheratus"

a écrit dans le message de news:
O$

OUIiiiiiiiiiiiiiiiiiiiiiii !..........

L'indicateur de présence "SKYPE" !..



Skype fonctionne meme sans connexion Internet ?????


Ha ben oui tien !...... 8-D ("PasPenser") lol ;)


Ou à défaut:
À qui puis je m'adressé pour developper cette petite application ?



Chez www.developpez.com peut-être.
= >> Ici c'est plus un news de dépannage.
--
NosPHeratus
http://www.nosland.com




Merci ! 11/10/2006/mercredi/17h29




CITATION LONGUE:
------------------------------
http://www.dotnet-fr.org/sections.php3?op=viewarticle&artid˜
Afficher un icône de notification dans la barre de notification
(778 mots dans le texte )
(lu : 3937 fois)



L’astuce .NET du mois!
Par Sylvain Audet – MCP+SB



Afficher un icône de notification dans la barre de notification.

Vous aimeriez donner plus de flexibilité à votre application
en ayant vous aussi un icône à la Outlook ou MSN-Messenger affichée dans la
barre de notification qui est situé au bas à droite de votre écran (à gauche
de l'heure)? Comme toujours, avec .NET, rien de plus simple! Voici comment:

1. 'Défini un objet de type NotifyIcon
2. Dim NotifyIcon1 As New System.Windows.Forms.NotifyIcon
3. NotifyIcon1.Icon = New
System.Drawing.Icon("iconedevotreappli.ico")
4. NotifyIcon1.Text = "Cliquez droit pour afficher le menu
contextuel"
5. NotifyIcon1.Visible = True
6.
7. 'Défini un menu contextuel qui sera associer à notre icône
8. Dim ctxMenu as new System.Windows.Forms.ContextMenu
9. ctxMenu.Menuitems.add("Option1")
10. ctxMenu.Menuitems.add("Option2")
11.
12. 'Associe le menu contextuel à notre icône
13. NotifyIcon1.ContextMenu = ctxMenu

Il est important de noter que par défaut, l'icône de type
NotifyIcon n'est pas visible, il faut donc la mettre visible explicitement
(ligne 5).

Et voilà! J'espère que le contenu de cet astuce saura vous
économiser du temps et vous faire apprécier une fois de plus toute la
simplicité de .NET!

Références :

a.. MSDN Library: NotifyIcon Class


Si vous avez des suggestions d'articles à me faire ou des
commentaires sur cet article, je vous invite à m'en faire part par email à :




Sylvain Audet est analyste de systèmes spécialisé en
développement d'applications Web et Windows.
Il peut être joint à l'adresse suivante:


Octobre 2005

[ Retour Astuce du Mois | Index des sections ]



Merci...
france/mer./11/10/2006/18h09/fin_edit

------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------

Merci...
france/mer./11/10/2006/18h57/fin_edit




Avatar
Voir aussi ici:
http://www.vbfrance.com/codes/MESSAGE-HEURE-PERMET-AFFICHER-MESSAGES-HEURE-PRECISE-SAUVEGARDER_20408.aspx



Merci pour votre retour .

Je pense avoir trouvé mon bonheur :
http://www.branchez-vous.com/logiciel/03-01/07-135501.html
Post-Net est un logiciel que vous pourrez utiliser à la maison aussi bien
qu'au bureau puisque, dans ce dernier cas, >il vous permettra en plus
d'envoyer des petites notes jaunes à vos collègues, de votre poste de
travail au leur, un >peu à la façon d'une messagerie instantanée


voila .. merci encore