[es] - VB6 i taskmanager

Sasa Vitorovic
Beograd

Član broj: 11629
Poruke: 193
*.ptt.yu

Sajt: www.ptt.yu/korisnici/s/a/..

Profil

^{26.11.2003. u 10:54 - pre 248 meseci}

Pozdrav,
Pravim program koji posle x minuta gasi kompjuter.Uradio sam to pomocu timer-a.
Problem nastaje kad korisnik zatvori program i prekine timer.To sam resio sakrivanjem prozora kad ga on pokusa zatvoriti.Ali,kad ponovo otvori program(druga sesija) on ne moze da saradjuje sa prvom sesijom(enabledovanje kontrola...)
Pitanje glasi:kako mogu da objasnim programu da ne pokrece program ako je on vec aktivan (i sakriven),dakle ako ga ima na spisku taskmanagera?

U fudbalu je vazno jedno:a to su dve stvari:rad ,red i disciplina.

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: VB6 i taskmanager

^{26.11.2003. u 11:12 - pre 248 meseci}

Stavi ovo u Sub Main

Code:

    If App.PrevInstance Then
        MsgBox "Previous instance of the application is already running." & _
        vbCrLf & "Please close all previous instances to start a new one.", vbCritical
        Exit Sub
    End If

Blue Man Group

Odgovor na temu

Sasa Vitorovic
Beograd

Član broj: 11629
Poruke: 193
212.62.47.*

Sajt: www.ptt.yu/korisnici/s/a/..

Profil

Re: VB6 i taskmanager

^{26.11.2003. u 16:22 - pre 248 meseci}

Hvala na pomoci.
Jos me interesuje mogu li iz sub maina da aktiviram form iz prve sesije,odnosno da ga ucinim vidljivim.

U fudbalu je vazno jedno:a to su dve stvari:rad ,red i disciplina.

Odgovor na temu

Re: VB6 i taskmanager

^{26.11.2003. u 18:08 - pre 248 meseci}

Sa API funkcijama moze sve :)

u modul stavi ovo:

Code:

Private Declare Function ShowWindow _
   Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


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

Sub Main()

Dim hWnd        As Long
Dim sCaption    As String
Dim lRet        As Long
Const SW_SHOW = 5

   sCaption = Form1.Caption

   'Check for a hidden
   hWnd = FindWindow(vbNullString, sCaption & " - Hidden")
   If hWnd <> 0 Then
      lRet = ShowWindow(hWnd, SW_SHOW) 'show
      End
   Else
      If App.PrevInstance Then ' visible instance - exit
         End    ' exit
      End If
      Form1.Show
   End If
End Sub

a tamo gde sakrivas formu stavi ovo

Code:

Me.Caption = Me.Caption & " - Hidden"
Me.Visible = False

Blue Man Group

Odgovor na temu

Sasa Vitorovic
Beograd

Član broj: 11629
Poruke: 193
212.62.47.*

Sajt: www.ptt.yu/korisnici/s/a/..

Profil

Re: VB6 i taskmanager

^{03.12.2003. u 15:52 - pre 248 meseci}

Hvala,to je to!
A sad vezano za isti program,mogu li da "objasnim" vb6 da neki form postane modalan ne samo za vb6 vec i za ceo win?
Na primer,kad stavim da je neki form modalan i cak stavim ono form1.setfocus on nece da prekida screensaver ili da upali monitor kad je ovaj ugasen.Ima li leka?

U fudbalu je vazno jedno:a to su dve stvari:rad ,red i disciplina.

Odgovor na temu

Re: VB6 i taskmanager

^{03.12.2003. u 16:12 - pre 248 meseci}

stavi ga da bude always on top (imas ovde na forumu potrazi).

Screensaver mozes da zaustavis sa npr.

Code:

SendKeys "%(ESC)"

a verovatno ima i neki API koji to radi. Medjutim, ako screensaver trazi password onda ...

Blue Man Group

Odgovor na temu

Sasa Vitorovic
Beograd

Član broj: 11629
Poruke: 193
212.62.47.*

Sajt: www.ptt.yu/korisnici/s/a/..

Profil

Re: VB6 i taskmanager

^{12.12.2003. u 09:28 - pre 248 meseci}

To je to!A i screensaver sa sifrom mi radi,jer prvo moj program prekine screensaver pa onda trazi sifru.

U fudbalu je vazno jedno:a to su dve stvari:rad ,red i disciplina.

Odgovor na temu