PureBasic Forums - English

Oh! I see So i done it

Thanks a lot This is the last function for my program. A few month we search how to made it.




Dear moderator - can you rename topic to:
Read DirectUIHWND class window and select item.[solved]

In Windows 7 i think can be selected harddisk drive C for example.

And about errors:
If GetBSTR(BSTR_wsText) = "File"
ErrorCode = *aAccessible\accSelect(#SELFLAG_TAKEFOCUS | #SELFLAG_TAKESELECTION, vt)
Debug ErrorCode
ErrorBuffer$ = Space(255)
FormatMessage_(#FORMAT_MESSAGE_FROM_SYSTEM, 0 ...

luiiiiiiiiiiiiiiiiiiiiiiiiiis!!! Say something! I dont know what i must to put in replace 'vt' in this command. It dont want to make select.

Unbelievable! I am a sleep and i see a dream! Work, even better than original!

Last one ask - how to make select function? I mean:

#SELFLAG_TAKESELECTION = 2
#SELFLAG_TAKEFOCUS = 1
;http://msdn.microsoft.com/en-us/library/windows/desktop/dd318474(v=vs.85).aspx

If *aAccessible\get_accName ...

Yes. I have code and exe file by compiled someone on another forum. On XP and on 7 this exe works fine. And it reads some item, that our code marks like "Empty Name".

Your new code works on XP, but missed some item:
http://i40.fastpic.ru/big/2012/0916/e6/cdb5e4a29638335bc93dc271ad4298e6.jpg

Why ...

And one more: i think If-Else a little wrong.
Your code two If's:
If AccessibleChildren(*aAccessible, 0, count, @ChildArray(0), @iObtained) = #S_OK
For i = 0 To iObtained - 1
ProcessChild(*aAccessible, aOffset$, ChildArray(i))
Next
ElseIf *aAccessible\QueryInterface(@IID_IEnumVARIANT, @*enum ...

I found why on windows 7 this code is work. This part of code even not used! :)

Try to change:
If AccessibleChildren(*aAccessible, 0, count, @ChildArray(0), @iObtained) = #S_OK
For i = 0 To iObtained - 1
ProcessChild(*aAccessible, aOffset$, ChildArray(i))
Next
ElseIf *aAccessible ...

Yes i = 0 - error.
http://i41.fastpic.ru/big/2012/0914/d5/7573edf1d18f2d583c4d7258768090d5.jpg


I open My Computer and compile this code. It start show items, and after few enumaration stops and show this IMA. Unicode compiler check, threat safe check. Windows is XP. PB have o Droopy - it can be ...

I try to find some analog command in another language. Maybe it will help to you?

(Delphi)
(Sender as TButton) := 'Button0';

(C++ Builder)
((TButton*)(Sender))->Caption = "Button0";

easy to say...

IMA

That already done is awesome! Your little delphi knowledge for me is like great library.

EnableExplicit - it is possible make this code without this EnableExplicit? I mean main code of program creates without this EnableExplicit. If i will turn on this command - it will need to define whooooole variables (for 4000 strings of code it will many many many variables) If is not, hmm, i do ...

What language of example i dont know. This code read window that have DirectUIHWND class. With youre 0 is work fine - show 7 :) But now how to make work next command - AccessibleChildren:
Macro DEFINE_GUID(Name, l, w1, w2, b1, b2, b3, b4, b5, b6, b7, b8)
CompilerIf Defined(Name, #PB_Variable)
If ...

Why i have only 1 child item in my code? That example have 7!

Open My Computer and check unicode in compiler:
Macro DEFINE_GUID(Name, l, w1, w2, b1, b2, b3, b4, b5, b6, b7, b8)
CompilerIf Defined(Name, #PB_Variable)
If SizeOf(Name) = SizeOf(GUID)
Name\Data1 = l
Name\Data2 = w1
Name\Data3 = w2 ...