Discussion :

[pascb423]

Bonjour avec le code suivant, je copie le presse papier dabs une variable et si le presse papier ne contient pas le mot Afficher on recommence, mais, le premier passage sa marche et au deuxième j'ai l'erreur suivante:

Une exception non gérée du type 'System.Runtime.InteropServices.ExternalException' s'est produite dans System.Windows.Forms.dll

Informations supplémentaires*: Échec de l'opération du Presse-papiers demandée.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
boucle:
        Clipboard.Clear()
        p.X = 117
        p.Y = 111
        Cursor.Position = p
        System.Threading.Thread.Sleep(1000)
 
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'Enfonce le bouton de la souris 
        System.Threading.Thread.Sleep(500)
        p.X = 162
        p.Y = 111
        Cursor.Position = p
        System.Threading.Thread.Sleep(500)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) ' le relève 
        SendKeys.Send("^{c}")
        '   System.Threading.Thread.Sleep(1000)
        'If googletr <> "Afficher" Then
        googletr = Clipboard.GetText()
        'End If
        'googletr = My.Computer.Clipboard.GetText()
        If googletr <> "Afficher" Then GoTo boucle

[strikel]

Bonjour,

ça pique déjà un peu les yeux de voir du vieux code VB6 mélangé avec du .Net et je ne comprends pas trop le but de ton code ?
Tu simules un clic, envoie un Ctrl+C et récupère le presse papier ?

Commence par placé un try catch et identifié la ligne qui te pose problème
Probable que ce soit ton sendkey

[ACIVE_CS]

Bonjour,
waouh... pour piquer les yeux, ça pique... ça faisait long-temps que j'ai pas vu des 'goto'

pascb423, j'ai compris que tu veux faire un copier de quelque chose
A quoi correspond tes coordonnées 117 et 162?
Si c'est une page web il existe d'autres moyens pour faire ce que tu cherches.

[pascb423]

bonjour, oui c'est une page web

[ACIVE_CS]

Connais-tu les balises qui contiennent ce que tu cherches?
Tu peux utiliser un WebBrowser par exemple comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Class Form1
    Dim PageWeb As New WebBrowser
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler PageWeb.DocumentCompleted, AddressOf Page_DocumentCompleted
        Dim TaPageWeb As String = "http://www.adressip.com/" 'A remplacer par ta page
        PageWeb.Navigate(TaPageWeb)
    End Sub
 
    Private Sub Page_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        System.IO.File.WriteAllText(Application.StartupPath & "\doc.txt", PageWeb.Documenttext)
        Process.Start("notepad.exe", Application.StartupPath & "\doc.txt")
    End Sub
End Class

Déjà dans le bloc notes qui va s'ouvrir regarde si tu trouves ce qui t'intéresse (fais un Ctrl+F)

Par exemple, si tu veux récupérer le texte dans la balise '<Title...> on peux faire comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    Private Sub Page_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        Dim Element As HtmlElement = PageWeb.Document.GetElementsByTagName("Title").Item(0)
        Dim Texte As String = element.InnerText
        MsgBox(Texte)
    End Sub

[pascb423]

ok merci, je vais essayer