Hallo, bei mir erscheinen die massageboxen immer mehrfach:
Code:
Sleep(4000)
MsgBox(4096, "Setup", "Installation erfolgreich abgeschlossen!", 5)
kann jemand helfen?
Massagebox
-
Karlson -
29. August 2006 um 11:41 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Das ist aber nicht das ganze Skript, oder?
Wenn du testweise nur diesen Teil ausführst, dürfte sie nur einmal auftauchen.
Poste aber bitte mal alles.Danke,
peethebee -
Hallo und :willkommen:
daraus kann man beim besten Willen das Problem nicht finden. Ein bisschen mehr Code wäre schon nötig. Irgendwo muss er wohl in einer Schleife stecken.eddy_erpel
-
Hallo, hier ist das script:
run("oriprog.exe")
WinWait("Neuro MEP Setup")
Send("{Enter}")
winwait("Neuro-MEP-Setup" , "Dieses Program wird Neuro-MEP auf dem Computer installieren")
controlclick("Neuro-MEP-Setup", "&Weiter", "Button1")
winwait("Neuro-MEP-Setup" , "Neuro-MEP in folgendem Ordner")
controlclick("Neuro-MEP-Setup", "&Weiter", "Button1")
winwait("Neuro-MEP-Setup" , "Der Assistent ist zur Installation bereit")
MsgBox(4096, "Setup", "Bitte warten...", 5)
controlclick("Neuro-MEP-Setup", "&Installieren", "Button1")
winwait("Neuro-MEP-Setup" , "Programm hat erfolgreichen Neuro-MEP installiert")
controlclick("Neuro-MEP-Setup", "Fertig stellen", "Button4")FileDelete("C:\Dokumente und Einstellungen\All Users\Desktop\Neuro-MEP.lnk")
FileCreateShortcut("C:\Programme\NeuroSoft\Neuro-MEP\mepusb.exe",@DesktopDir & "\Evidence 3002evo.lnk" , "C:\Programme\NeuroSoft\Neuro-MEP")FileCopy ( "splash_deu.bmp", "C:\Programme\NeuroSoft\Neuro-MEP\images" , "1")
FileCopy ( "about_deu.bmp", "C:\Programme\NeuroSoft\Neuro-MEP\images" , "1")Sleep(4000)
MsgBox(4096, "Setup", "Installation erfolgreich abgeschlossen!", 5) -
Ich würde an deiner Stelle statt MsgBox TrayTip benutzen
-
Ich hätte diese Änderungen:
Spoiler anzeigen
Code
Alles anzeigenSplashTextOn("Installation...","Bitte warten...","-1","100","-1","-1",0) BlockInput(1) run("oriprog.exe") WinWait("Neuro MEP Setup") Send("{Enter}") winwait("Neuro-MEP-Setup" , "Dieses Program wird Neuro-MEP auf dem Computer installieren") controlclick("Neuro-MEP-Setup", "&Weiter", "Button1") winwait("Neuro-MEP-Setup" , "Neuro-MEP in folgendem Ordner") controlclick("Neuro-MEP-Setup", "&Weiter", "Button1") winwait("Neuro-MEP-Setup" , "Der Assistent ist zur Installation bereit") controlclick("Neuro-MEP-Setup", "&Installieren", "Button1") winwait("Neuro-MEP-Setup" , "Programm hat erfolgreichen Neuro-MEP installiert") controlclick("Neuro-MEP-Setup", "Fertig stellen", "Button4") FileDelete(@DesktopCommonDir &"\Neuro-MEP.lnk") FileCreateShortcut(@ProgramFilesDir & "\NeuroSoft\Neuro-MEP\mepusb.exe",@DesktopDir & "\Evidence 3002evo.lnk" , @ProgramFilesDir & "\NeuroSoft\Neuro-MEP") FileCopy ( "splash_deu.bmp", @DesktopCommonDir & "\NeuroSoft\Neuro-MEP\images" , "1") FileCopy ( "about_deu.bmp", @DesktopCommonDir & "\NeuroSoft\Neuro-MEP\images" , "1") SplashOff() BlockInput(0) MsgBox(4096, "Setup", "Installation erfolgreich abgeschlossen!", 5)
eddy_erpel -
Spoiler anzeigen
Code
Alles anzeigenSplashTextOn("Installation...","Bitte warten...","-1","100","-1","-1",0) BlockInput(1) run("oriprog.exe") WinWait("Neuro MEP Setup") Send("{Enter}") winwait("Neuro-MEP-Setup" , "Dieses Program wird Neuro-MEP auf dem Computer installieren") controlclick("Neuro-MEP-Setup", "&Weiter", "Button1") winwait("Neuro-MEP-Setup" , "Neuro-MEP in folgendem Ordner") controlclick("Neuro-MEP-Setup", "&Weiter", "Button1") winwait("Neuro-MEP-Setup" , "Der Assistent ist zur Installation bereit") controlclick("Neuro-MEP-Setup", "&Installieren", "Button1") winwait("Neuro-MEP-Setup" , "Programm hat erfolgreichen Neuro-MEP installiert") controlclick("Neuro-MEP-Setup", "Fertig stellen", "Button4") FileDelete(@DesktopCommonDir &"\Neuro-MEP.lnk") FileCreateShortcut(@ProgramFilesDir & "\NeuroSoft\Neuro-MEP\mepusb.exe",@DesktopDir & "\Evidence 3002evo.lnk" , @ProgramFilesDir & "\NeuroSoft\Neuro-MEP") FileCopy ( "splash_deu.bmp", @DesktopCommonDir & "\NeuroSoft\Neuro-MEP\images" , "1") FileCopy ( "about_deu.bmp", @DesktopCommonDir & "\NeuroSoft\Neuro-MEP\images" , "1") BlockInput(0) ControlSetText ( "Installation...", "Bitte warten...", "", "Fertig Danke für das warten" ) sleep(5000) SplashOff ( )
UNGETETS -
danke an alle fleißigen Helfer!
Ich habe mit SpashTextOn alles so machen können wie ich es brauche!
Tschüß
Karlson