Zoek een popup programma voor windowsXP

[Gast AlanS]

Weet iemand misschien een programma die een pop up geeft op je scherm.

 

Het is als volgt.

Ik heb een kassasysteem (ebpos) draaien op een xp computer.

Nou zou ik graag willen dat op bepaalde tijden een popup komt met een mededeling. Het is namelijk zo dat personeel heel veel vergeet. Zo moeten bij mij rond de klok van 6 de lichten wat gedimd worden, de luifels verder uit, de menukaarten van de gevel. En op andere tijden zijn er ook werkzaamheden die uitgevoerd moeten worden. Echter het wordt vaak vergeten. wat ik nu zoek is een programma die over mijn possysteem een scherm geeft met een tekst die ik van tevoren kan invoeren.

 

Zie het als een schermpje met bijvoorbeeld de tekst:

Menukaarten binnen halen.

En daaronder twe knoppen. "JA reeds gedaan" of "Nee, doe ik zo"

Bij "nee doe ik zo" moet het popup scherm na een paar minuten weer opnieuw verschijnen.

 

Bestaat zoiets en zo nee is dat door iemand te maken en wat kost me dat dan?

[theparasol]

visualbasic script:

 

gratis, en dermate eenvoudig dat je het denk ik wel zelf kunt!

 

bv:

 

http://www.mna.hkr.se/caspdoc/html/vbscript_msgbox_function.htm

[Gast AlanS]

bedankt, ik ga eens even kijken :-)

[Gast AlanS]

nou, het is boeiend maar voordat ik zover ben dat ik het scriptje geschreven hebt weat ik wil dan ben ik een maand verder hoor :-)

[kees kas]

mijn favoriet voor dit soort taakjes:

 

www.autoitscript.com/AutoIt/

 

kun je eventueel je scriptje naar exe compileren

Code:

;; AutoIt Version: 3.0; Language:       English; Platform:       Win9x/NT; Author:         Jonathan Bennett (jon@hiddensoft.com);; Script Function:;   Demo of using multiple lines in a message box;; Use the @CRLF macro to do a newline in a MsgBox - it is similar to the \n in v2.64MsgBox(0, "AutoIt Example", "Let op de lichten!" & @CRLF & "Was je handen !" & @CRLF & "Vergeet het alarm niet !")

 

 

[theparasol]

Origineel bericht van: AlanS

nou, het is boeiend maar voordat ik zover ben dat ik het scriptje geschreven hebt weat ik wil dan ben ik een maand verder hoor :-)

Start uitvoeren -> Notepad

Dim MyVar

MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")


MSGBox ("U heeft gekozen voor optie: " & MyVar)


Opslaan als:

test.vbs

en dan gewoon dubbelklikken op test.

Er zijn hele lappen code te vinden op het www gewoon zoeken op msgbox en plunderen wat je nodig denkt te zijn.

Over een jaar bouw je zelf dreamboxsettings




-=-=-- timeout vbs code =-=-=-

'*************************************************************
'This program makes use of a recursive procedure HandleTime.
'The important aspects of the code are "Status" and "setTimeOut".
'Status is an attribute of the Window object in VBScript and is used to
'change the status message of the active window.
'setTimeOut is a VBScript function that tells after how much time the timer
'would stop and accordingly it calls a function passed into it to take some
'action when the time is up.
'This procedure calls its self after every 1 sec (I have taken 1sec = 950ms
' here) and accordingly the variables hr, min and sec are decremented.
'*************************************************************
Sub HandleTime
if hr=0 and min=0 and sec=0 then
EndTime
'**When hr, min and sec are all 0, this means that the time is up
'**and EndTime procedure is 'called.
elseif min>=0 and sec>0 then
sec=sec-1
status=hr & ":" & min & ":" & sec
'**Whenever the second changes the Status of the window has to
'be changed.
intTimerID=setTimeOut("HandleTime",950, "VBScript")
'**setTimeOut function returns a unique timer id that is used to
'keep track of the time.
'**When the time is up the timer id is destroyed automatically.
elseif min>0 and sec=0 then
min=min-1
sec=59
status=hr & ":" & min & ":" & sec
intTimerID=setTimeOut("HandleTime",950, "VBScript")
elseif hr>=0 and min=0 then
hr=hr-1
min=59
sec=59
status=hr & ":" & min & ":" & sec
intTimerID=setTimeOut("HandleTime",950, "VBScript")
end if
End Sub

Sub EndTime
clearTimeOut intTimerID
'**clearTimeOut is a built in procedure of VBScript which is used to
'**clear and destroy the timer id explicitly
status = "Your Time Ended"
'**When the time ends the status bar displays this message.
msgbox "Time Up"
End Sub

[Gast AlanS]

Ja ik loop al wat te experimenteren maar ik moet het ook nog zo maken dat hij op bepaalde tijdstippen naar voren komt en dat de antwoordknoppen ook te veranderen zijn. Ga nu even autoit installeren :-)

[Gast AlanS]

Heren jullie hebben mij erg geholpen mijn dank hiervoor.

Voor de timing gebruik ik simpelweg de taakplanner van windows. de tekst aanpassen is een makkie.

 

[Gast AlanS]

Zit toch nog met een probleempje.

Het kassaprogramma vult het hele scherm.

Als de popup komt dan staat het venstertje bovenop het kassaprogramma wat ook moet uiteraard anders zie je hem niet.

Echter op het moment dat ze het venster van de kassa aanraken verwijnt het scherm achter het kassavenster. Hoe kan ik het maken dat de popup bovenop het kassascherm blijft en ze deze eerst moeten wegklikken.

 

Hier een voorbeeld:

 

Citaat:

MsgBox "YOHOOOOO BARMEDEWERKER",32, "TER HERINNERING"

If MsgBox("GEBRUIK JE WEL DE OPENINGSLIJST?", vbYesNo) = vbYes Then

MsgBox "HEEL FIJN :-)"

Else

MsgBox "DE LIJST GEBRUIKEN ZORGT ERVOOR DAT JE NIETS VERGEET EN IS DAAROM VERPLICHT. DUS GEBRUIK HEM ALSNOG AUB."

End If

[rlckring]

Er zijn een aantal flags voor een msgbox..

 

Probeer ze eens een voor een uit of doe ze allemaal.

 

ApplicationModal

SystemModal

MsgBoxSetForeground

 

MsgBox("GEBRUIK JE WEL DE OPENINGSLIJST?", vbYesNo + ApplicationModal + SystemModal + MsgBoxSetForeground)

 

[Gast AlanS]

nope helaas, dat geeft geen verandering het popupscherm gaat na het aantoetsen van een produkt op het kassascherm naar de achtergrond.

[Ome Merde]

kunnen ze het niet onthouden zeg je ?

dan is dit misschien de oplossing

 

 

 

merDe

[Gast AlanS]

moeimaker :-p

 

Een kennis heeft me dit scriptje gegeven maar dat geeft bij mij een errormelding

 

Citaat:

DIM OnTop = 4096

 

DIM TimeOut= 300

 

 

 

MsgBox ( "YOHOOOOO BARMEDEWERKER", OnTop + 32, "TER HERINNERING" ,TimeOut )

 

 

If MsgBox("GEBRUIK JE WEL DE OPENINGSLIJST?", OnTop + vbYesNo , “”, TimeOut ) = vbYes Then

MsgBox "HEEL FIJN :-)" , OnTop , “” , 3

Else

MsgBox ("DE LIJST GEBRUIKEN ZORGT ERVOOR DAT JE NIETS VERGEET EN IS DAAROM VERPLICHT. DUS GEBRUIK HEM ALSNOG AUB." , OnTop, “ ” , 10)

End If

[Gast AlanS]

deze error

[rlckring]

Gek want bij mij blijfd ie wel op de voorgrond, bij IeBrowser vensters, windows mappen, bittorrent, en waarschijnlijk andere programmas ook.

 

Ik had dit geknipt en geplakt in een .txt bestandje en hernoemd naar .vbs

 

 

Dim MyVar

 

MyVar = MsgBox ("Hello World!", vbYesNoCancel + vbQuestion + vbSystemModal, "MsgBox Example")