• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • CodeS-SourceS
begin process at 2008 07 20 15:01:51
1 213 292 membres
207 nouveaux aujourd'hui
14 166 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

3 commentaire(s) de UKR6900 sur des sources sur tout CodeS-SourceS

Le : 24/06/2006 12:50:45
Source : FERMETURE APPLICATION
Correction pour que ça marche avec VB6 + exemple de code un peu plus explicite(voir ci-dessous avec Notepad).
Corrections:
Inversion dans l'API FindWindow entre lpClassName et
lpWindowName dans ton code (ça ne peut pas marcher) +
déclaration du handle changer le nom et emplacement
A+

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE = &H10
Private lHandle As Long

Private Sub Command1_Click()
  lHandle = FindWindow("Notepad", vbNullString)
'Mettre exactement le nom du programme tel qu'il est notté quand CTRL-ALT-SUP
  Call PostMessage(lHandle, WM_CLOSE, 0, 0)
End Sub

Private Sub Form_Load()
  Shell "notepad", vbNormalFocus
End Sub

Le : 24/06/2006 09:53:42
Source : CHANGEUR DE TITRE! DÉMONSTRATION DES APIS : SETWINDOWTEXT, FINDWINDOW
Ce code n'a pas fonctionné essaye plutot ceci

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim lhandle As Long 'défini le handle de la fenêtre recherché

Private Sub Command1_Click()
  Shell "Notepad", vbNormalFocus
  lhandle = FindWindow("Notepad", vbNullString) 'trouve le handle grâce au titre de la fenêtre
  If (lhandle <> 0) Then
    SetWindowText lhandle, "Hello World" 'change le titre de la fenêtre
  End If
End Sub

ce code est testé avec le process "Notepad" correction:
le handle doit être de type long
Lancer le process notepad pour tester avec la commande "shell"
Contrôler si le handle différent de NULL ->fenêtre trouvée
Lancer la commande pour changer le titre
A++

Le : 02/06/2006 12:13:33
Source : GESTION BASE DE REGISTRE (LOCAL OU DISTANTE)AVEC DES FONCTIONS API(NEW)
Dans un code source ,il manque toujour quelque chose
c'est ça enrichir un code au fur et mesure des besoins.
Mais celui-ci est une base importante pour une programmation
système des base de registre.(Contrôle des paramétrages Anti-virus, création des
clé pour contrôle des logs etc...)
Ce sont les fonctions qui sont importantes,pas le code qui donne un exemple d'utilisation des fonctions.
Et celui qui comprend pas l'intérêt de ce code, c'est qu'il ne travaille pas dans le bon domaine de programmation et voilà....
Moi dans le temps, j'aurai été content de trouver des exemples comme celui-ci.
A bon entendeur, A+


[ ]

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
JavaToolBox TechHeadBrothers.com ASP-PHP.NET ComScripts.com DOTNET-PROJECT.COM Moteur de recherche Mozbot


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,0625-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.