/ 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
luk program ned fra vb6
Fra : Ts


Dato : 05-04-05 20:56

Hej NG....
Jeg skal have lave et program / script der
1) lukker et program ned (evt. kontrolere programmet er lukket) ?
2) overskriver nogle filer
3) åbner programmet igen.

punkt 2 og 3 kan jeg nok godt selv klare, men hvordan klarer jeg punkt1 ?

Nogle der har nogle gode ideér ?

 
 
jada (06-04-2005)
Kommentar
Fra : jada


Dato : 06-04-05 09:10

Hejsa

Du skal bruge API funktioner for at få det til at virke. Jeg har indsat et
lille eksempel, som kan lukke lommeregneren i Windows. For at få det til at
virke på andre programmer, skal du udskifte "Lommeregner" med det som står i
titellinien på det aktuelle program.

Indsæt dette i "General" sektionen:

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

Dette trigges af en knap:

Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Lommeregner")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error!!!"
End If
Else
MsgBox "Lommeregneren er ikke åben"
End If

Mvh Peter


"Ts" <askme@.dk> skrev i en meddelelse
news:4252ed64$0$234$edfadb0f@dread12.news.tele.dk...
> Hej NG....
> Jeg skal have lave et program / script der
> 1) lukker et program ned (evt. kontrolere programmet er lukket) ?
> 2) overskriver nogle filer
> 3) åbner programmet igen.
>
> punkt 2 og 3 kan jeg nok godt selv klare, men hvordan klarer jeg punkt1 ?
>
> Nogle der har nogle gode ideér ?



Ts (07-04-2005)
Kommentar
Fra : Ts


Dato : 07-04-05 17:51

jada wrote:
> Hejsa
>
> Du skal bruge API funktioner for at få det til at virke. Jeg har indsat et
> lille eksempel, som kan lukke lommeregneren i Windows. For at få det til at
> virke på andre programmer, skal du udskifte "Lommeregner" med det som står i
> titellinien på det aktuelle program.
>
> Indsæt dette i "General" sektionen:
>
> Declare Function FindWindow Lib "user32" Alias _
> "FindWindowA" (ByVal lpClassName As String, _
> ByVal lpWindowName As String) As Long
> Declare Function PostMessage Lib "user32" Alias _
> "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
> ByVal wParam As Long, lParam As Any) As Long
> Public Const WM_CLOSE = &H10
>
> Dette trigges af en knap:
>
> Dim winHwnd As Long
> Dim RetVal As Long
> winHwnd = FindWindow(vbNullString, "Lommeregner")
> If winHwnd <> 0 Then
> RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
> If RetVal = 0 Then
> MsgBox "Error!!!"
> End If
> Else
> MsgBox "Lommeregneren er ikke åben"
> End If
>
> Mvh Peter
>
>
> "Ts" <askme@.dk> skrev i en meddelelse
> news:4252ed64$0$234$edfadb0f@dread12.news.tele.dk...
>
>>Hej NG....
>>Jeg skal have lave et program / script der
>>1) lukker et program ned (evt. kontrolere programmet er lukket) ?
>>2) overskriver nogle filer
>>3) åbner programmet igen.
>>
>>punkt 2 og 3 kan jeg nok godt selv klare, men hvordan klarer jeg punkt1 ?
>>
>>Nogle der har nogle gode ideér ?
>
>
>
Mange tak....

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

Månedens bedste
Årets bedste
Sidste års bedste