XProfan

- Page 1 -

Frank
Abbing

with the Dll-list is nothing to begin.

Starte time my small code and go with the Cursor over the String your Program. becomes the Text in my Window with Fenstertext displayed? if so is the already The half-way leasing...

Compile Mark Separation

(W) 2003 Frank Abbing
Declare sx&,sy&,bereich#,be#,erg&,erg2&,x&,y&,text$
Dim be#,8
Dim bereich#,1024
DEF GetCursorPos(1) !USER32,GetCursorPos
DEF WindowFromPoint(2) !USER32,WindowFromPoint
DEF ChildWindowFromPoint(3) !USER32,ChildWindowFromPoint
Def GetSysColor(1) !USER32,GetSysColor
Def ScreenToClient(2) !USER32,ScreenToClient
Def GetClassName(3) !USER32,GetClassNameA
Def GetWindowText(3) !USER32,GetWindowTextA
DEF NewWindowPos(7) !USER32,SetWindowPos
DEF AllocConsole(0) !KERNEL32,AllocConsole

Proc DText

    Parameters xx&,yy&,ttext$
    Drawtext xx&,yy&,ttext$

EndProc

Windowtitle Fensterhandles...
windowstyle 26
window (%maxx/2-112),(%maxy/2-80)-224,164
settruecolor 1
cls GetSysColor(15)
NewWindowPos(%hwnd,-1,0,0,0,0,$13)
Usefont MS Sans Serif,13,0,0,0,0
SetDialogFont 1

whilenot %mousepressed=2

    Sleep 10
    GetCursorPos(be#)
    x&=Long(be#,0)
    y&=Long(be#,4)
    erg&=@WindowFromPoint(x&,y&)

    If erg&<>0

        ScreenToClient(erg&,be#)
        x&=Long(be#,0)
        y&=Long(be#,4)
        erg2&=@ChildWindowFromPoint(erg&,x&,y&)

    EndIf

    TextColor 0,GetSysColor(15)
    DText 8,8, Maus Position X = +Str$(x&)+
    DText 8,21,Maus Position Y = +Str$(y&)+
    DText 8,38,Handle eigenes Fenster = $+@Hex$(%hwnd)+
    DText 8,55,Handle unter Mauszeiger = $+@Hex$(erg&)+
    DText 8,68,Handle unter Mauszeiger (Child) = $+@Hex$(erg2&)+
    GetClassname(erg&,bereich#,128)Declare sx&,sy&,text$,x&,y&,bereich#
    text$=String$(bereich#,0)
    DText 8,85,Klassenname = +text$+
    GetWindowText(erg&,bereich#,128)
    text$=String$(bereich#,0)
    DText 8,98,Fenstername = +text$+
    @SendMessage(erg&,13,128,bereich#)
    text$=String$(bereich#,0)
    DText 8,111,Fenstertext = +text$+

wend

Dispose be#
Dispose bereich#

ss=s4 href='./../../Function-References/XProfan/end/'>end

Uwe
Skärke

Hello Frank

you are there, is Yes class, have but integrally beautiful long slept ...

but even Have I Pinned, there is what there *freu*

so now must I first time reading what You made up have...

okay, the verswuch I time.. and spark you on ...

LG, Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

Uwe
Skärke

Hi Frank,

you should whom XProfan-Community-Nobel-Price get...

means to Auswertung :

lever under Cursor unde Cursor (Child) is always same, but each
Start of Orbitron differently (z.B. $206DC)

with Klassenname appear with whom me interessierenden boxing always TEdit
with Fenstername appear never what, nothing, niente, nada

... and the gei.... is, with Fenstertext standing very the I need, Azimut Elevation,frequency ...

now must I only yet try To understand wadduda made have...

LG, Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

Frank
Abbing

Hi.

lever under Cursor unde Cursor (Child) is always same, but each
Start of Orbitron differently (z.B. $206DC)

Yes, this is so too logical.

with Klassenname appear with whom me interessierenden boxing always TEdit

OK, no windows-übliches Editfeld...

with Fenstername appear never what, nothing, niente, nada

too logical.

... and the gei.... is, with Fenstertext standing very the I need, Azimut Elevation,frequency ...

Bingo! accordingly can you your think about perform.

now must I only yet try To understand wadduda made have...

you mußt now consider, whether your Orbitron-Window always on the selbem Space standing and always in the Vordergrund. if so, can solid Positionsangaben use in lieu of of Mouse-Coordinates.
If No, must You differently vorgehen. you mußt Orbitron.exe discern (over Prozesshandle or Windowname), the concerned Control with the Text lokalisieren (Fenstertext and Klassenname) and then read. this is The method, The I use would.

Uwe
Skärke

okay, ...

the second Variante would me rather fallen, though custom I there once more your Help

because i think, that with different Bildschirmauflösungen too The Positionsdaten different are and möglicherweise the Orbitron too times not in full-screen mode runs...

... and always think about, you have it here with a Vorschulkind To do...

PS: and thanks, hope I have you not whom sunday vermasselt

TOSHIBA TECRA S1 / PROFAN 7.0

Frank
Abbing

... and always think about, you have it here with a Vorschulkind To do...

For this is the Topic really To difficult. I can think, that You this program benötigst. rather would but, with einfacheren Things To begin...

on the Screenshots my I To award discern, that the of you required Information in several Controls hide. is the right?
I should very know, which information(en) You constantly benötigst.

- Page 2 -

Uwe
Skärke

well Yes, one grows with its releases, if I always only the light make would, can I warscheinlich not time upright weg

means, The in the Image ruddy besprühten Controls must I permanent read, The Change itself each second...

see you soon, LG, Uwe

orb.JPG	196 kB

Hochgeladen:	11/25/07

Downloadcounter:
		Download

TOSHIBA TECRA S1 / PROFAN 7.0

Frank
Abbing

Have something together gebastelt, knows but not, whether the so under Profan 7 runs. Ggf. are Umbauten vonnöten.
The code finds any your begehrten Controls, but it'll your task his To decide, which Controls where correctly. are. probably is the Order but always same.
Compile Mark Separation

Declare Entry#,err&,handle&,cpid&,text$,text2$,pid&,cname#,z&,a&,x&,y&,zahl&
Struct PROCESSENTRY32=dwSize&,
cntUsage&,
th32ProcessID&,
th32DefaultHeapID&,
th32ModuleID&,
Threads&,
th32ParentProcessID&,
pcPriClassBase&,
dwFlags&,
szExeFile$(260)
Dim Entry#,PROCESSENTRY32
Entry#.dwSize& = SizeOf(Entry#)
Def CreateToolhelp32Snapshot(2) !Kernel32, CreateToolhelp32Snapshot
Def Process32First(2) !Kernel32, Process32First
Def Process32Next(2) !Kernel32, Process32Next
Def CloseHandle(1) !Kernel32, CloseHandle
Def GetCurrentProcessID(0) !Kernel32, GetCurrentProcessId
Def GetWindow(2) !USER32,GetWindow
Def GetClassName(3) !USER32,GetClassNameA
Def GetWindowThreadProcessId(2) !USER32,GetWindowThreadProcessId
Def GetParent(1) !USER32,GetParent
zahl&=1

Proc FillProcessList

    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            text$=Str$(Entry#.th32ProcessID&)
            text2$=Entry#.szExeFile$
            Case Lower$(text2$)=orbitron.exe:Return Int(Val(text$))

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    Case Lower$(text2$)=orbitron.exe:Return Int(Val(text$))

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

    Return 0

EndProc

Proc EnumChildren

    Parameters parent&
    Declare result&,cn$
    Dim cname#,256
    GetClassName(parent&,cname#,64)
    cn$=String$(cname#,0)
    result&=GetWindow(parent&,5)

    While result&<>0

        GetWindowThreadProcessId(result&,addr(x&))

        If x&=pid&

            AddString Str$(zahl&)+. Controlhandle +Str$(result&)+ +Chr$(34)+GetText$(result&)+Chr$(34)
            Inc zahl&
            EnumChildren result&

        EndIf

        result&=GetWindow(result&,2)

    EndWhile

    Dispose cname#

EndProc

Cls
pid&=FillProcessList()

If pid&

    EnumChildren %desktop
    ListBox$(Ermittelte Orbitron-Control-Texte:, 1)
    WaitInput

Else

    MessageBox(Prozess Orbitron nicht aktiv...,Meldung:,64)

EndIf

Dispose Entry#
End

Uwe
Skärke

Hello Frank.
many Thanks, haste you yet The half-way night around the ears beaten, can I warscheinlich never again well make...
i'll the test times and Message give, can though yet little last, must on the side yet Ackern..

LG, Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

11/26/07 ▲

Frank
Abbing

I Have only two Source combined and the Orbitron installs, was ne half-way hour work.
is really one interessantes Tool, this Orbitron. What exactly want You really to that whom Satelliten funken?

11/26/07 ▲

Uwe
Skärke

Hello Frank, i was time on Dienstreise and so lane of „WINDOW“.
yesterday have I XProfan 10 get and will be the then today same time install, time see whether then your Tool funktioniert…
otherwise is with the whom Amateurfunksatelliten so, that one tappt im dunkeln in the first as repeater using, the means, one sends z. Bsp. On 145 MHz Language or Telegraphie signals to supra and the Sat mail The equal again on 435 MHz down and by the large Ausleuchtung (by the Höhe the Sat) You can then to that Bsp. an Funkverbindung on UKW with spain set up, whether well one on UKW by the Erdkrümmung only so around the 300 To 400 km far comes. The others Variant The, that one directly with the Crew the ISS or former with the MIR kommuniziert and then get is a QSL-ticket to verification the Funkverbindung, talk does one itself there usually over technical Topics. the nice is, that one too with very geringen Sendeleistungen large distances überbrücken can.
naturally Send The Sats too Telemetriedaten, so that one anytime over the status the electronics on board informed is. The Sats go in the rule too through Funkamateure develops and then with the rockets the Russen or the Space Shuttle in that All befördert…
Link for More Info : www.amsat-dl.org
so, now becomes I once more little with XProfan 10 fummeln…
LG, Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

12/08/07 ▲

Frank
Abbing

Jau! sound Real superinteressant...

12/08/07 ▲