XProfan

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

- Page 8 -

Yes,

the allows XProfan not -

one Return within While/ Repeat Loop.

One Programmierfehler.

creep with Break durchbrechen.

XProfan X2
Windows 8 Pro, AMD A4-3400 APU with Radeon(tm) HD Graphics

Rolf
Koch

Jepp, Have something like in recollection. Well, the can I Yes solve.
How the life so game, is me too yet the printer verreckt LOOOOL. means Have I Fileprinter tuned and see there (after I it testweise without XPSE walk let), there comes nothing on. HEEEEUUUULLLL.
so How the program looks, would it very the, I wants, even the important DOKUMENTTITEL is thereby!

Nachtrag: alike whether the printer on the A..h is, Druckaufträge weg Yes out and to that testing reicht it. come means on. but remainder, time look.

Nachtrag 2: in the Profaninterpreter runs it correct, if I it purely How written with Profan compiliere and a Exe create, comes a EAccess Violation

????

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Rolf Koch (11.11.12)

Jepp, Have something like in recollection. Well, the can I Yes solve.

This will but not so simply his, because very on this place must You out from the procedure, otherwise become You a Error Message get. whether XProfan the allows ?, MUSS permit

. by me functions the only so

functions because The EXE ?

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

XProfan X2
Windows 8 Pro, AMD A4-3400 APU with Radeon(tm) HD Graphics

Rolf
Koch

No unfortunately not Andreas, How written EAccess Violation ..... something with Reading address.
one can still out? because is a globale Variable setting and to the Return these filling, or be I too long out been? ^^
means wrong framed.
instead of Return a variable fill so meant I.

XProfan X2
Windows 8 Pro, AMD A4-3400 APU with Radeon(tm) HD Graphics

Rolf
Koch

in a whether it Erfolgsversprechend is, but Have straight over the computer of my woman a pressure rausgeschickt. As I said in the Interpreter runs it Yes and this pressure watts nice displayed.
The question is now: behave itself one directly angeschlossener printer by Netzwerkkabel just as? means The question, becomes really everything quizzed?
then should I only yet whom code laufbar get as EXE.
can it hardly expect, because these thing nagt already Monatelang on me rum what about me turn yet ex.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

@Andreas: what speaks against Break and against it, to the Schleifenkörper

The function To leave? Return within creep bring Stacks confusion -

at interpretierten XProfan imho gleichermassen How at nativen (n)Profan.

therefore reports XPSE the too as error, XProfan reports the imho first to Laufzeit

as error but I white not whom versions.

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hello Rolf,
,
the ought to with windows7 too with the Dll functions, only rather, there no Zweitprocess needed becomes.
The Calling the function ought to so looks:

Result$ = String$(WMIResult1("SELECT Document,Caption,TimeSubmitted FROM Win32_PrintJob","root\\CIMV2","","",""),0)

means any Leerstrings too empty let, not 0.0.0.0

XProfan X2
Windows 8 Pro, AMD A4-3400 APU with Radeon(tm) HD Graphics

Rolf
Koch

Okay I try it then again so

XProfan X2
Windows 8 Pro, AMD A4-3400 APU with Radeon(tm) HD Graphics

Rolf
Koch

Ähhh Andreas the following lying me in Your code to:
Compile Mark Separation

WINDOW 800,700
CLS
Var OldR& = 0
Var s& = Create("listbox",%hwnd,"",10,20,200,600)
Var s2& = Create("listbox",%hwnd,"",210,20,500,600)
Var ende& = 0

WhileNot ende&

    WaitInput 200'alle 200 Millisekunden aktualisieren
    'Daten von Printjobs auflisten
    '                               Parameter: 'Query,'Adresse,'IP,Computername,Passwort,Listbox1,Listbox2
    OldR& = external("AMP_WMI.DLL","WMIResult","Win32_PrintJob","root\CIMV2","192.168.0.3","","",S&,S2&)
    'Prozessordaten auflisten
    'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_Processor","root\CIMV2","","","",S&,S2&)
    'Cdrom drives auflisten
    'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_CDROMDrive","root\CIMV2","","","",S&,S2&)
    'Sound-Device auflisten
    'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_SoundDevice","root\CIMV2","","","",S&,S2&)
    'Base-Board auflisten
    'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_Bios","root\CIMV2","","","",S&,S2&)
    Locate 0,0
    Print " Anzahl : " ;oldR&

    If OldR& = 0

        SendMessage(s&,$184,0,0)'listen löschen
        SendMessage(s2&,$184,0,0)

    EndIf

EndWhile

End

where building I because your Result$ String one? Sorry!