Allow only one program running at specified time

[erickwidya]

hi all,

we have this situation, we need to 'force' user to do stock opname at specified time, so when the time has arrived..the stock opname program will run while their current running is 'freeze' until the opname is done..

any insight about it?

not sure where to start..

thanks,

[Hakka]

Hi,
I was intrigued by your question, so I started to look around.

Found some code about comparing time and adjusted it a bit:

Dim updateTimeMinimum As String = DateTime.Parse("8:30 AM").ToString("t")
Dim t2 As String = DateTime.Now.ToString("t")
Dim updateTimeMaximum As String = DateTime.Parse("8:35 AM").ToString("t")

If t2 > updateTimeMinimum Then
   If t2 < updateTimeMaximum Then
     MsgBox("going for update")
   End If
End If

there's problably a better or cleaner way, but found it working, hope it helps.

succes!
Paul

[HanneSThEGreaT]

There will have to be some sort of service ( not necessarily a Service in .NET par se ), that runs in the background. When the specified time arrives, it launches whichever program you want to. Only question is, will it always be at the same time, or will the times frequency change ¿

[erickwidya]

thx Hakka, but that's not what i mean..

i just want to make other windows freeze and only running one program (stock opname program)..wait until the opname finish then unfreeze other windows

thx Hannes

Only question is, will it always be at the same time, or will the times frequency change -> for this i'm thinking to using windows Task Scheduler to do it..

my intention is to freeze currently running program and popup stock opname program..

any insight?

thanks,

[Hakka]

Instead of the msgBox (which was an example) you can add

Dim myProcess As Process = System.Diagnostics.Process.Start("updateProgram.exe")
myProcess.WaitForExit()

which will run the updateprogram and freezes the other until the updateprogram ends.

That's about as far as my knowlegde goes rigth now ;-)

[erickwidya]

thx Hakka

that's not working, the currently running program doesn't freeze...

[HanneSThEGreaT]

Why not try the SuspendThread API ¿

[erickwidya]

thx Hannes

any example?

[HanneSThEGreaT]

http://www.vb-helper.com/howto_net_pause_thread.html

[cicatrix]

It's possible by raising the priority of a process to Realtime:

Dim prc As Process = Process.GetCurrentProcess
prc.PriorityClass = ProcessPriorityClass.RealTime

WARNING!
If anything goes wrong the system might not return to its normal state after this.
Always return the priority class to normal after the task is completed.
The system will appear hanged during the execution.
Use with extreme caution! Save your data before testing.

[cicatrix]

.double post, sorry. Please delete this post.