Sovietik
Hectopat
- Katılım
- 5 Şubat 2021
- Mesajlar
- 172
Daha fazla
- Sistem Özellikleri
- Asus B450M-Dragon Ryzen 5 5600 Asus RTX 3060Tİ Dual XPG 3200mhz ramfsp 650w 80+ Bronz
- Cinsiyet
- Erkek
Selam yazılıma yeni başladım kendime kolaylık olsun diye ufak çaplı bir uygulama geliştirek istiyorum.
Visual Studio'dan yazıyorum. Böyle bir hata aldım ve bu durum benim için içinden çıkılamaz bir hal aldı.
Visual Studio'dan yazıyorum. Böyle bir hata aldım ve bu durum benim için içinden çıkılamaz bir hal aldı.
Kod:
result = Msgbox ("Sir do you want to close all application ?", vbYesNo, "Maxim")
Select Case result.
Case vbYes.
MsgBox("Ok sir have good day!")
Dim objShell.
Set objShell = CreateObject("WScript.Shell")
Set objWmi = GetObject("winmgmts:")
strWmiq = "select * from Win32_Process where name='chrome.exe'"
Set objQResult = objWmi.Execquery(strWmiq)
For Each objProcess In objQResult.
intRet = objProcess.Terminate(1)
Next.
Case vbNo.
MsgBox("Ok sir good bye!")
End Select.
Son düzenleyen: Moderatör:
