Private Sub Form_Load() ' Populate the list on startup Call RefreshProcessList End Sub Hdfilmyzilla Exclusive
Private Sub cmdSaveLog_Click() Dim fNum As Integer ' Save the log to the application folder fNum = FreeFile Open App.Path & "\MouseLog.txt" For Output As #fNum Print #fNum, strLogData Close #fNum MsgBox "Log saved to MouseLog.txt!", vbInformation End Sub Interstellar Hindi Google Drive | Explores The Possibilities
Private Sub cmdKill_Click() ' Warning before killing If MsgBox("Are you sure you want to kill this process?", vbCritical + vbYesNo) = vbYes Then If lstProcess.ListIndex <> -1 Then ' AppActivate tries to switch to the app, sending close command On Error Resume Next AppActivate lstProcess.List(lstProcess.ListIndex) SendKeys "%{F4}" ' Alt + F4 ' If that fails, we can attempt a harder kill via Shell (Advanced) ' Shell "taskkill /f /im " & lstProcess.List(lstProcess.ListIndex), vbHide MsgBox "Termination command sent.", vbInformation End If End If End Sub
' Define the structure for coordinates Private Type POINTAPI X As Long Y As Long End Type