V3.10 du 26/06/2014 - codes 9 et 10 pour WB_function

Nouvelle version:
KGF.dll V3.10 du 26/06/2014

Nouveauté:
nouveau codes fonction 9 et 10 pour la fonction WB_function

Le code 9 sélectionne la totalité du contenu du WB% sélectionné (ctrl/A).
Le code 10 copie tout le texte sélectionné dans le presse-papier (ctrl/C).

Modules modifiés:
KGF.dll
KGF.chm
KGF.doc
KGF.pdf

La doc et les sources sont à jour.

Merci Klaus pour tes efforts.

La sélection (CTRL a) fonctionne, mais le retour est le contenu du presse papier avant, c'est à dire ton code que j'ai copié, pour le reporter. J'ai fait plusieurs essais.

Etrange. Chez moi, je mets n'importe quoi dans le presse-papier, puis je lance le code. Et voici le résultat:
[img][/img]
Et on a bien le texte de la page d'accueil du forum...

Désolé, je me suis endormi.

J'ai compris

Spoiler:

As-tu fais une copie manuellement avant de lancer le programme, et gardé en mémoire la copie du forum?

Y-a-t-il quelqu'un pour essayer à son tour, et voir si c'est un problème personnel?

Regarde cette version légèrement modifiée de ma démo:

Code:

dim url$, res%, WB%, hnd%, car$

url$ = "http://panoramic.1fr1.net"

width 0,800
height 0,800

dll_on "KGF.dll"

WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,10,10,400,300)
res% = dll_call2("WB_Url",WB%,adr(url$))
hnd% = dll_call2("WB_Function",WB%,8)

memo 2 : top 2,320 : left 2,10 : width 2,400 : height 2,300
bar_both 2
item_add 2,"Contenu initial"
clipboard_paste 2 : ' je mets cette ligne dans le presse-papier !

' car$ = "a"
' res% = dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,1,0)
' res% = DLL_call1("ClipboardCopy",hnd%)
' res% = DLL_call1("CopyToClipboard",hnd%)

res% = dll_call2("WB_Function",WB%,9)    : ' équivalent de ctrl/A
res% = dll_call2("WB_Function",WB%,10)  : ' équivalent de ctrl/C
clipboard_paste 2

end

Je mets explicitement le texte "Contenu initial" dans le presse-papier (lignes 17 et 18). Puis j'utilise WB_function pour copier le texte du forum Panoramic (lignes 25 et 26), et la ligne 27 restitue ce nouveau contenu du presse-papier dans le mémo 2. Le résultat de la fonction ne dépend pas du tout du contenu précédent du presse-papier !

Est-ce que quelqu'un d'autre pourrait essayer (après avoir téléchargé la nouvelle version, bien sûr !) ?

Désolé, toujours le même problème.

A propos, mais au delà du problème. J'ai régulièrement ce message avec le browser:


Est-ce un problème personnel?

Je remarque ceci:

Code:

item_add 2,"Contenu initial"
clipboard_paste 2 : ' je mets cette ligne dans le presse-papier !

Tu vas un peu vite. Tu ne mets rien dans le presse papier, puis le contenu est vide.

Pour copier le contenu d'un memo, il faut le sélectionner avant.

J'y pense, puisse que tu es capable de sélectionné le contenu d'un browser, peut-être que ce ne serait pas idiot de pouvoir sélectionner celui d'un memo
Peut-être que finallement ça marche si on a le handle. J'ai pas le temps d'essayer maintenant.

Bon. D'accord. Je suis allé un peu vite au niveau de la manipulation du presse-papier.

Mais essaie ceci:

Code:

dim url$, res%, WB%, hnd%, car$
label lancer

url$ = "http://panoramic.1fr1.net"

width 0,800
height 0,800

dll_on "KGF.dll"

WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,10,10,400,300)
res% = dll_call2("WB_Url",WB%,adr(url$))
hnd% = dll_call2("WB_Function",WB%,8)

memo 2 : top 2,320 : left 2,10 : width 2,400 : height 2,300
bar_both 2
item_add 2,"Contenu initial"

button 10 : top 10,200 : left 10,450 : caption 10,"Lancer..."
on_click 10,lancer
message "Surligner le texte dans le mémo svp..."

memo 3 : top 3,250 : left 3,450 : width 3,300
item_add 3,"Recevra le contenu initial du presse-papier.
end

lancer:

clipboard_copy 2 : ' je mets cette ligne dans le presse-papier !
clipboard_paste 3
item_add 3,"Ceci est le contenu AVANT WB_Function !"

res% = dll_call2("WB_Function",WB%,9)    : ' équivalent de ctrl/A
res% = dll_call2("WB_Function",WB%,10)  : ' équivalent de ctrl/C
clipboard_paste 2

end

La manipulation du WB% se fera par un clic sur le bouton "Lancer...". Auparavant, il faut surligner le texte dans le mémo de gauche ("Contenu initial"). On verra apparaître ce texte dans le mémo de droite, comme preuve que le presse-papier contient bien un texte tout à fait différent de ce que la fonction WB_Function pourra y mettre. Puis, le mémo du bas recevra le texte de la page d'accueil du forum.

Je pense que là, c'est clair. Je ne vois vraiment pas comment mieux démontrer la chose.

Hello every one.

En lançant le dernier code de Klaus, je reçois la même erreur de script que celle signalée par Cosmos70.
En validant cette fenêtre d’erreur (soit par Oui soit par Non), le programme s’exécute.
J'ai tapé un texte dans le memo, je l'ai sélectionné, j'ai cliqué sur 'Lancer' et j’obtiens ceci







Alors, c'est à toi, cher Klaus de conclure!

Merci d'essayer, Papydall.

Le message d'erreur sur le script est normal - si tu regardes le lien dans le message d'erreur, tu vois qu'il s'agit d'un problème de pub ou de tracker, dont le script n'est pas entièrement pris en compte par le composant WebBrowser. Il suffit de cliquer sur Oui pour passer outre. Pas d'incidence sur la suite du programme.

Ensuite, il faut surligner le texte dans le mémo en bas à gauche, à l'aide de la souris, puis cliquer sur le bouton "Lancer...". Le texte surligné devrait alors apparaître dans le mémo de droite, avec une remarque supplémentaire. Puis, le contenu du mémo en bas a gauche sera rempli par le texte pur de la page d'accueil du forum, celle qui est affichée dans l'objet WebBrowser en haut à gauche.

Et cet affichage du texte de la page web est l'effet recherché. Voici ce que ça donne:
[img][/img]
Comme tu vous, le texte dans le mémo en bas à gauche est surligné. Maintenant, on clique le bouton:
[img][/img]
Et on voit le résultat préconisé.

Désolé Klaus .

Après avoir surligné le texte dans le mémo en bas à gauche, à l'aide de la souris, puis après avoir cliqué sur le bouton "Lancer...". Le texte surligné est bien dans le mémo de droite, avec une remarque supplémentaire. Mais le contenu du mémo en bas a gauche reste désespéramment vide!






PS :

J’ai ajouté message res% après

Code:

res% = dll_call2("WB_Function",WB%,9)    : ' équivalent de ctrl/A
message res%  : '  ===> 0
res% = dll_call2("WB_Function",WB%,10)  : ' équivalent de ctrl/C
message res%  : '  ===> 0
 

pour voir le retour de l’appel aux deux fonctions de la DLL : le résultat est 0 pour les deux appels.
Je pense que l’appel a échoué.

Re PS :

Tu détermines le handle par :

Code:

 hnd% = dll_call2("WB_Function",WB%,8)

puis tu n'utilises nulle part dans le code ce handle.
Tu as peut-être sauté une ligne dans ton code!

La, je suis perplexe. Je vois que WB_Function code 9 a bien fonctionné puisque tout est sélectionné dans la fenêtre du browser. Donc, tu es bien avec la bonne version de KGF.dll. Alors, le code 10 pour la copie devrait fonctionner aussi, et je n'ai pas d'explication dans l'immédiat.

Revoie mon dernier post : je l'ai édité.

Bon je reprends ici :

Tu détermines un handle par :

Code:

hnd% = dll_call2("WB_Function",WB%,8)

puis tu n'utilises nulle part dans le code ce handle.
Tu as peut-être sauté une ligne dans ton code!

J'ai regardé avec (frozen) Windows Info d'AutoIt.

Je ne retrouve pas le handle correspondant

J'ai ajouté:

Code:

' clipboard_paste 2 à la suite de:

item_add 2,"$ WB%=" + hex$(wb%)
item_add 2,"$ hnd%=" + hex$(hnd%)

Peut-être y-a-t-il un handle pour le browser, et un autre pour le contenu qui pourrait être un onglet.

Edit
Je viens d'essayer avec deux onglets dans un navigateur:
On a un handle différent pour chaque onglet, donc le contenu pourrait-être différent du browser

@Papydall:
Le handle retourné par la fonction avec le code 8 n'est effectivement pas utilisé par la suite. C'est un résidu d'un des codes postés précédemment (copie de l'image du WebBrowser). On n'a pas besoin du handle pour ce qui est montré dans la démo actuelle. La copie du texte du WebBrowser dans le presse-papier est obtenu par une fonction OLE qui utilise la valeur de WB% comme identifiant, et non le handle.

@Cosmos70:
La handle dans la variable hnd% est bien le bon, celui de la fenêtre du WebBrowser ouverte dans la form 0. Tu ne peux pas comparer avec les onglets d'un autre browser, fut-ce InternetExporer. L'objet WebBrowser utilisé ici est certes basé sur InternetExplorer, mais il n'est pas multi-onglet. Le handle retourné par le code 8 est bien le bon ! Mais, comme je l'ai dit ci-dessus, il n'est pas utilisé pour ce qui nous intéresse ici.

Il n'y a pas de problème. J'ouvrais éventuellement une piste, vu que ça ne fonctionne pas chez moi.

Je n'ai pas tes informations, et il n'y que toi qui peut éventuellement ce qui cloche.

Je continue à chercher. Mais il est plus facile de diagnostiquer quelque chose qui ne marche pas chez moi, au lieu d'avoir un truc qui marche chez moi, mais pas ailleurs.

Je suis actuellement sous Windows 8.1 64 bits, avec l'éditeur Panoramic et KGF.dll en 32 bits. Est-ce que tu es sous XP ? Je peux encore avoir accès à un XP, et également à un W7, pour tester. Dis-moi dans quel environnement tu es...

Ich bin unter Windows 7  

Chrome comme navigateur

Essai fait sous W7. Effectivement, échec sous W7 ! Je suis bluffé ! Je vais chercher plus loin...

Je pense que

Code:

res% = dll_call2("WB_Function",WB%,9)    : ' équivalent de ctrl/A

fait bien son boulot à savoir : sélectionner le texte ; mais le problème se situe peut-être dans

Code:

res% = dll_call2("WB_Function",WB%,10)  : ' équivalent de ctrl/C

qui ne copie pas la sélection.


J'essaie d'apporter mon aide mais j'avoue que ça me dépasse!

PS : J’ai changé
url$ = "https://panoramic.1fr1.net"
Par une autre url$ = "http://www.pcastuces.com/pratique/bureautique/openoffice/openoffice.htm"
Alors je n’ai plus le message Erreur de script

Je viens de faire un essai avec ce bout de code en AutoIt:

Code:

MouseClick("left", 200,200, 1, 0)

Send("^a")
Sleep(100)
Send("^c")
MsgBox(0, "Clipboard contains:", ClipGet())

J'ai fait l'essai dans le navigateur avec Chrome.
J'avais sélectionné avant :
J'essaie d'apporter mon aide mais j'avoue que ça me dépasse!
et j'obtiens ceci:



Mais dans un éditeur de texte, j'ai la page copiée.


Donc dans la réception du code dans la boite de message, j'ai toujours le texte copié avant, mais dans un EditPad, j'ai la page complète.

Y-a-t'il différente copie?

J'ai modifié quelque chose dans KGF.dll, pour le code 10 de WB_Function. Rechargez svp KGF.dll et réessayez avec le code que j'ai publié en dernier. Chez moi, ça marche maintenant en W8 et W7.

Bravo Klaus!

Cela marche. Je ne sais pas si lors d'un tableau il y a des tabulations mise en place comme séparateur, mais on copie la page.

Pour les tabus, je ne sais pas. Mais je suis content d'avoir mis le problème technique KO !

Oui, mais malheureusement je suis obligé de faire une copie manuelle.

Dans une ligne qui dans le code html est mise en tableau, toutes les colonnes du tableaux sont mis bout à bout sans séparateur. C'est malheureusement pas la bonne solution pour moi. Mais tu as fait ton travail, et je t'en félicite.