TROUVER LA POSITION DE LA SOURIS

Type POINTAPI
        x As Long
        y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

' Ensuite dans le Code de votre Formulaire mettez ceci :

Private Sub Timer1_Timer()
    Dim pos As POINTAPI
    Dim ret As Long

    ret = GetCursorPos(pos)
    Text1.Text = Str(pos.x) + " " + Str(pos.y)
End Sub

• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)
• IMPRIMER LE CONTENU D'UN RICHTEXTBOX
• TESTEUR DE REGEX (REGULAR EXPRESSIONS)
• FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAGE FORCÉ)
• COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

• PHOTOCOPIEUR
• COMMANDE D'UNE CARTE D'INTERFACE PARALLELE À BASE D'UN PPI 8255 D'INTEL
• PORT PARALLÈLE VS2008
• LISTE HARD
• TESTER VOTRE ÉCRAN DE POCKET PC (COMPACT FRAMEWORK)

• CLIC-CLIC - COMPTER LE NOMBRE DE CLICS DE VOTRE SOURIS
• CAMEMBERT INTERACTIF
• GÉNÉRATEUR DE CHAINES PSEUDO-ALÉATOIRES
• ENREGISTREMENT ET RETRANSCRIPTION DES ACTIONS SOURIS
• MONIPWEB V1.0 - RÉCUPERER SON ADRESSE IP WEB, INTERNET EN VISUAL BASIC 2005