XProfan

Kompilieren Markieren Separieren

TestCode
print Hallo Welt
waitInput
end

Heute Abend (auch wenn Roland noch keine Runtime ohne o.g. Usermessages-Bug versandt hat) werde ich den Handler für das xprf-Protokoll wohl erstmalig vorstellen können und bitte daher dann um wohlwollende Tests. Nehmt Euch heute Abend also alle Frei: also kein Kochen, kein Bügeln (ja, sex fällt auch aus!), kein TV-Gucken und schon garnicht die Fussball-WM weiter verfolgen!

Download

XP-Script.exe (1MB) bitte NICHT HERUNTERLADEN!!!, <b>45 x geladen</b>.

That*s laif!

Nico
Madysa

Du versuchst es aber auch immer wieder!

Nico Madysa

Näh! Ich erzeuge mir einen Programm-Host-Thread welcher mir eine Download-ID und eine Posting-ID bietet. Diese wiederum werden genutzt um im Programm z.B. Versionsinfos bzw. Updates zu beziehen. Ich muss also zuerst Platzhalter definieren um danach im Programm die IDs eintragen zu können.

In Summe ists Wurscht ob jemand nun den Platzhalter läd, mein Hinweis ist eher ein Download lohnt nicht-Hinweis welcher aber sicherlich noch irreführender wäre wenn dieser tatsächlich Download lohnt nicht lauten würde.

So, wer möchte kann gerne mal eine Vorabversion testen: [...]

Zunächst vlt. ersmal auf Desktop speichern und von dort ausführen.

Wer XP-Script aktiviert hat kann z.B. Abspielenbutton von Codeboxen nutzen:
Kompilieren Markieren Separieren

cls
print "Hallo Welt "
print &getTickCount
waitInput
end

(was allerdings bei manchen Codes communityseitig noch etwas Nacharbeit bedarf)
Kompilieren Markieren Separieren

cls
waitinput
end

Hier ein ausführlicherer Test für den ausführen-Button.
Kompilieren Markieren Separieren

'Gemerkt/Separiert von https://xprofan.com/thread.core?p=6926#6926
DEF @FindFirstChangeNotification(3) !kernel32,FindFirstChangeNotificationA
DEF @WaitForSingleObject(2) !Kernel32,WaitForSingleObject
DEF @FindNextChangeNotification(1) Kernel32,FindNextChangeNotification
DEF @FindCloseChangeNotification(1) Kernel32,FindCloseChangeNotification
Declare Change_Pfad$,Change_Handle&,Change_Notify&
Windowstyle 31+512
Windowtitle Änderung eines Orners
Window 0,0-640,440
LET Change_Pfad$=@ChooseDir$(Bitte einen Orner zum Überwachen wählen:)

IF Change_Pfad$<>

    Let Change_Handle&=@FindFirstChangeNotification(@ADDR(Change_Pfad$),1,$1 | $2 | $4 | $8)
    Let Change_Notify&=-1

    Whilenot @or(Change_Notify&=0,%menuitem=-2)

        Let Change_Notify&=@WaitForSingleObject(Change_Handle&,500)
        @FindNextChangeNotification(Change_Handle&)

    wend

    IF %MENUITEM<>-2

        @Messagebox(In Pfad +Change_Pfad$+ gab es Änderungen! Eine neue Sicherung muß durchgeführt werden!,Hinweis,64+4096)

    endif

    @FindCloseChangeNotification(Change_Handle&)

endif

RGH

Ich bekomme lediglich beim versuchten Aktivieren von XProfan-Script folgende Fehlermeldung:

Die NTVDM-CPU hat einen ungültigen Befehl entdeckt. CS:0b9d IP:01a7 OP: .....

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Ist glatt meine Lieblingsfehlermeldung!

Da es fix gehen muss (weil ich eigentlich grad die tcpipdll programmiere) erzeuge ich heute Abend erstmal die Beta von XP-Script, danach gehts dann an die Fehlersuche.

Christian
Eichler

Bei mir versucht der Installer jedes mal was downzuloaden, nämlich die Install von XProfanFree ... selbst, wenn XProfanFree schon installiert ist ...

Grüße Christian

Debian Lenny, Intel Celeron 2,8 Ghz, 768 MB Ram && Win XP Pro, Intel C2D 1,66Ghz, 2 GB Ram ... PROFAN² 6.6

Jac
de
Lad

...und ich es zum Beispiel nicht brauche, da ich ja die Vollversion habe.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Rolf
Koch

Sehe es genauso wie Jac. Bei mir wird bei aktivieren auch immer wieder XProfanFree runtergeladen um danach zu installieren und dann bekomme ich gesagt, daß es nicht möglich war zu aktivieren.