ยินดีต้อนรับแขกผู้มาเยือน กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน
ส่งอีเมล์ยืนยันการใช้งาน?
 
Please Login!

ผู้เขียน หัวข้อ: ขอโค๊ดปิด Processes ครับ /ได้แล้วครับก็เลยเอามาแจกซะ  (อ่าน 1864 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ mrwinai

  • ทีมงาน MIDI & SF
  • *
  • โพสต์: 1,483
  • คูลเฟิร์ม: 28793
  • zula: 11781
  • เพศ: ชาย
    • ดูรายละเอียด
  • OS: WindowsBrowser: Firefox
  • สิ่งทั้งปวงไม่ควรยึดมั่นถือมั่น

  • ล็อคอิน @ วันนี้ เวลา 12:14:12
ขอรบกวนท่านเทพทุกๆท่านเลยนะครับ
คือว่า...ต้องการปิดการทำงานของโปรแกรมบางโปรแกรมด้วยการใช้สคริปน่ะครับ
เช่นต้องการปิดโปรแกรม Internet Download Manager
ถ้าเป็นสคริป .bat  จะใช้ TASKKILL /f /t /im IDMan.exe
1.อยากทราบว่า...สามารถใช้สคริปอื่นๆ เช่น .vbs และ .au3 หรือ สคริปอื่นๆแทน .bat ได้หรือไม่?
2. ถ้าได้ ขอโค๊ดของสคริปเหล่านั้นด้วยครับ
ขอบพระคุณครับ

โค๊ดปิด Processes Internet Download Manager


โค๊ดปิด Processes.bat
------
TASKKILL /f /t /im IDMan.exe
***************************
โค๊ดปิด Processes.vbs
------
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'IDMan.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
WScript.Quit
***************************
โค๊ดปิด Processes.au3
-------
ProcessClose("IDMan.exe")
$PID = ProcessExists("IDMan.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)
***************************

Note : ถ้าท่านใดมีโค๊ดแบบอื่นๆก็ช่วยนำมาเพิ่มเติมให้ด้วยนะครับ
ขอบคุณครับ

Coolfirmed by (0)สมาชิก:
 
« แก้ไขครั้งสุดท้าย: 19 มิถุนายน 2010, 10:04:25 โดย mrwinai »
Warning !!! You Must Use The  Button "Coolfirm"  For Thanks
Do Not Type "Thanks" Or Similar Comments (In Any Language)

รายละเอียด Meeting ครั้งที่ 3 - อัพเดทล่าสุด 21 พ.ค.54 โดย: พวกกัน

ออฟไลน์ kaimuk

  • นักเรียนมัธยม
  • *
  • โพสต์: 229
  • คูลเฟิร์ม: 325
  • zula: 565.5
    • ดูรายละเอียด
  • OS: WindowsBrowser: Firefox
  • เดาเอา

  • ล็อคอิน @ เมื่อวานนี้ เวลา 10:28:52
Re: ขอโค๊ดปิด Processes ครับ
« ตอบกลับ #1 เมื่อ: 19 มิถุนายน 2010, 08:51:42 »
ใน VB
 For Each MainTarget In Process.GetProcesses
            If MainTarget.ProcessName.ToString = "spicetray" Then
                MainTarget.Kill()
            End If
        Next MainTarget
แต่น่าจะมีอันสั้นกว่านีนะ  |n11:|
Coolfirmed by (1)สมาชิก:
รับเป็นที่ปรึกษาสำหรับนักศึกษาที่ทำโปรเจ็คจบด้วย Vb.Net (ไม่คิดตังค์ เพราะผมอยากเห็นคนไทยเรียนจบ)

ออฟไลน์ mrwinai

  • ทีมงาน MIDI & SF
  • *
  • โพสต์: 1,483
  • คูลเฟิร์ม: 28793
  • zula: 11781
  • เพศ: ชาย
    • ดูรายละเอียด
  • OS: WindowsBrowser: Firefox
  • สิ่งทั้งปวงไม่ควรยึดมั่นถือมั่น

  • ล็อคอิน @ วันนี้ เวลา 12:14:12
Re: ขอโค๊ดปิด Processes ครับ
« ตอบกลับ #2 เมื่อ: 19 มิถุนายน 2010, 09:54:24 »
ใน VB
 For Each MainTarget In Process.GetProcesses
            If MainTarget.ProcessName.ToString = "spicetray" Then
                MainTarget.Kill()
            End If
        Next MainTarget
แต่น่าจะมีอันสั้นกว่านีนะ  |n11:|

ขอบคุณครับ
Coolfirmed by (0)สมาชิก:
 
Warning !!! You Must Use The  Button "Coolfirm"  For Thanks
Do Not Type "Thanks" Or Similar Comments (In Any Language)

รายละเอียด Meeting ครั้งที่ 3 - อัพเดทล่าสุด 21 พ.ค.54 โดย: พวกกัน

ออฟไลน์ sak2005

  • สมาชิกกิตติมศักดิ์
  • *
  • โพสต์: 1,933
  • คูลเฟิร์ม: 7823
  • zula: 3651.75
  • เพศ: ชาย
    • ดูรายละเอียด
  • OS: WindowsBrowser: Firefox
  • ตำแหน่ง:ครูผู้ให้

  • ล็อคอิน @ วันนี้ เวลา 04:44:51
Re: ขอโค๊ดปิด Processes ครับ /ได้แล้วครับก็เลยเอามาแจกซะ
« ตอบกลับ #3 เมื่อ: 14 พฤษภาคม 2012, 04:50:15 »
ลองรันคำสั่งนี้ค้างไว้ จากนั้นให้เปิดโปรแกรมเครื่องคิดเลขขึ้นมาทดสอบ (เขียนให้ศึกษารูปแบบคำสั่งที่เขียน)

AutoIt v3 (*.au3)
โค๊ด: [Select]
$App = "Calculator Plus"
Do
ToolTip("Calc is UnProcess")
Sleep(100)
Until WinGetProcess($App) <> -1
ToolTip("Calc is Process")
Sleep(1000)
ToolTip("")
$btn = MsgBox(36, "", "Do you wanted to ExitApp?")
If $btn = 6 Then WinClose($App)
Sleep(1000)
$pid = Run("notepad.exe")
While ProcessExists($pid)
ToolTip("notepad is Process")
If ProcessExists($pid) = 0 then ExitLoop
Sleep(100)
WEnd
ToolTip("")
MsgBox(0, "", "notepad is UnProcess", 2)
Exit

หรือรัน Command

โค๊ด: [Select]
#include <Process.au3>
Global $App = @SystemDir & "\Calc.exe"
Run($App)
$btn = MsgBox(36, "", "Do you wanted ExitApp?")
If $btn = 6 Then _RunDos("taskkill /f /im Calc.exe")
Coolfirmed by (1)สมาชิก:
« แก้ไขครั้งสุดท้าย: 14 พฤษภาคม 2012, 16:11:15 โดย sak2005 »
จำเป็นต้องใช้ FlashPlayer

คำคม: เมื่อเวลาเปลี่ยน.. ทุกอย่างเปลี่ยน..