Mikä vika tässä Visual Basic koodissa on?
Koodi käy läpi kaikki prosessit jotka ovat käynnissä ja hakee niiden tiedostonimen esim. "VB6.exe" mutta ongelma on yksinkertaisessa ehtolausessa enkä kertakaikkiin tajua mikä tuossa voi olla vikana.
Tässä kohdassa se hakee jokaisen prosessin tiedostonimen kerrallaan kunnes kaikki ollaan käyty läpi.
Do While r
If uProcess.szExeFile = "VB6.EXE" Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
pistin tuohon väliin ehdon eli kun esim. se löytää muistista "VB6.exe":n niin se tekee jotain.
Ongelman tästä tekee se että vaikka "VB6.exe" olisikin käynnissä niin silti en saa esim. tässä tapauksessa tuota ilmoitusta eli en tajua miksi se ei löydä tuota "VB6.exe" tiedostoa tuolla IF-lauseella kun se muuten löytää sen.
Siis jos muutan tuon koodin tälläiseksi:
Do While r
MsgBox uProcess.szExeFile
r = ProcessNext(hSnapShot, uProcess)
Loop
Niin se näyttää jokaisen prosenssin tiedostonimen kerrallaan jotka ovat käynnissä niin siinä se kumminkin löytää tuon "VB6.exe" tiedoston joka on käynnissä mutta ei sitten kun laitan siihen väliin tuon ehtolauseen, miksi?
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
If uProcess.szExeFile = "VB6.EXE" Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
Tässähän ei ollut koko koodi kun osa on moduulissa enkä viitsinyt liittää sitä tähän kun se on aika pitkä pätkä koodia ja tästä olisi tullut niin pitkä ja sekava viesti, mutta voin sen tietysti laittaa tähän jos joku haluaa testata tätä :)
Voin jo arvata että tässä on jokin todella yksinkertainen ratkaisu mutta kun en vain tajua niin en... välillä suututtaa todella jos on ollut jokin todella yksinkertainen ratkaisu ja olen miettinyt sitä varmaan 10 minuuttia ja sitten kun huomaan että tuossahan se vika on niin sitten vähän... (kyllähän te tiedätte) ;)
Koodi käy läpi kaikki prosessit jotka ovat käynnissä ja hakee niiden tiedostonimen esim. "VB6.exe" mutta ongelma on yksinkertaisessa ehtolausessa enkä kertakaikkiin tajua mikä tuossa voi olla vikana.
Tässä kohdassa se hakee jokaisen prosessin tiedostonimen kerrallaan kunnes kaikki ollaan käyty läpi.
Do While r
If uProcess.szExeFile = "VB6.EXE" Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
pistin tuohon väliin ehdon eli kun esim. se löytää muistista "VB6.exe":n niin se tekee jotain.
Ongelman tästä tekee se että vaikka "VB6.exe" olisikin käynnissä niin silti en saa esim. tässä tapauksessa tuota ilmoitusta eli en tajua miksi se ei löydä tuota "VB6.exe" tiedostoa tuolla IF-lauseella kun se muuten löytää sen.
Siis jos muutan tuon koodin tälläiseksi:
Do While r
MsgBox uProcess.szExeFile
r = ProcessNext(hSnapShot, uProcess)
Loop
Niin se näyttää jokaisen prosenssin tiedostonimen kerrallaan jotka ovat käynnissä niin siinä se kumminkin löytää tuon "VB6.exe" tiedoston joka on käynnissä mutta ei sitten kun laitan siihen väliin tuon ehtolauseen, miksi?
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
If uProcess.szExeFile = "VB6.EXE" Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
Tässähän ei ollut koko koodi kun osa on moduulissa enkä viitsinyt liittää sitä tähän kun se on aika pitkä pätkä koodia ja tästä olisi tullut niin pitkä ja sekava viesti, mutta voin sen tietysti laittaa tähän jos joku haluaa testata tätä :)
Voin jo arvata että tässä on jokin todella yksinkertainen ratkaisu mutta kun en vain tajua niin en... välillä suututtaa todella jos on ollut jokin todella yksinkertainen ratkaisu ja olen miettinyt sitä varmaan 10 minuuttia ja sitten kun huomaan että tuossahan se vika on niin sitten vähän... (kyllähän te tiedätte) ;)
Vastaukset 2
Vanhimmat
Siinä prosessin nimessä on stringin loppumerkkinä NULL kuten C:ssä . Basicissa sensijaan ei ole.
Kokeile sitä silmukkaa näin:
Do While r
i = InStr(1, uProcess.szexeFile, Chr(0))
If Left$(uProcess.szexeFile, i - 1) = "VB6.EXE" Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
Tai näin:
Do While r
If uProcess.szExeFile = ("VB6.EXE" Chr$(0) )Then
MsgBox uProcess.szExeFile
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
Ahaaa... nyt tajusin.. kiitos paljon avusta.
Tuo ylimäinen luuppi toimi :)