/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Overvågningsprogram
Fra : Asbjørn


Dato : 29-03-03 00:54

Hvordan kan man lave et program der holder øje med om et bestemt program går
ned?

 
 
Asbjørn (29-03-2003)
Kommentar
Fra : Asbjørn


Dato : 29-03-03 00:56

Asbjørn postede <sg5ha.1724$mI2.317470@news000.worldonline.dk> i
dk.edb.programmering.basic.visual-basic, med emailadressen
newsgroup@phps.dk

> Hvordan kan man lave et program der holder øje med om et bestemt program
> går ned?

det er et VB6 program som skal checke om et andet VB6 program går ned.

Robert (31-03-2003)
Kommentar
Fra : Robert


Dato : 31-03-03 13:22

Det program som du skal overvåge har en titel!!


Flg. tester på om Notepad er startet. Titlen på en Notepad med en tom fil
er: "Untitled - Notepad"

Kald funktionen isAlive - til at teste om et program kører.

Bruger API funktionen FindWindow.

'START
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long

Function isAlive(sTitle As String) As Boolean

Dim WinWnd As Long

WinWnd = FindWindow(vbNullString, sTitle)

If WinWnd = 0 Then
isAlive = False
Else
isAlive = True
End If

End Function

Private Sub Command1_Click()

MsgBox isAlive("Untitled - Notepad")

End Sub



Asbjørn (01-04-2003)
Kommentar
Fra : Asbjørn


Dato : 01-04-03 19:06

Robert postede <b69bro$6eq$1@news.net.uni-c.dk> i
dk.edb.programmering.basic.visual-basic, med emailadressen
nospam@remove-this-runge.dk

> Det program som du skal overvåge har en titel!!
>
>
> Flg. tester på om Notepad er startet. Titlen på en Notepad med en tom fil
> er: "Untitled - Notepad"
>
> Kald funktionen isAlive - til at teste om et program kører.
>
> Bruger API funktionen FindWindow.
>
> 'START
> Option Explicit
>
> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
>
> Function isAlive(sTitle As String) As Boolean
>
> Dim WinWnd As Long
>
> WinWnd = FindWindow(vbNullString, sTitle)
>
> If WinWnd = 0 Then
> isAlive = False
> Else
> isAlive = True
> End If
>
> End Function
>
> Private Sub Command1_Click()
>
> MsgBox isAlive("Untitled - Notepad")
>
> End Sub

har løst det med regdb da jeg også skulle vide hvad programmet var nået til.

noget i retning af:

if getsetting(time over 5 min then
killprocess
ignore address
start program again
...

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste