| Вопрос: VB6 и командная строка | Добавлено: 04.12.06 05:20 |
Автор вопроса:  Viktor Petrov
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  Viktor Petrov Вопросов: 12 Ответов: 27 |
Профиль | | #16 | Добавлено: 12.12.06 02:07 |
|
Хм, не совсем понял, где у проги находится свойство, которое нужно менять. В подпункте "Свойства", появляющемся при клике правой кнопкой мыши, ничего подобного не обнаружил.
На всякий случай прога, которая вызывается через запрос, вот: http://owl.phy.queensu.ca/~phil/exiftool/exiftool-6.63.zip
Весит 2 мега. |
||
|
Номер ответа: 17 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #17 | Добавлено: 12.12.06 13:55 |
|
Private proc As PROCESSENTRY32, snap As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const TH32CS_SNAPPROCESS = &H2, TH32CS_SNAPheaplist = &H1, TH32CS_SNAPthread = &H4, TH32CS_SNAPmodule = &H8, TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule, MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type Dim i As Long Public Sub KillProc(ArryProsess$()) 'Убивает все процессы которые даны в массиве Dim i As Byte, TheLoop As Long, openproc As Long, term As Long, snap As Long On Error Resume Next snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) proc.dwSize = Len(proc) TheLoop = ProcessFirst(snap, proc) While TheLoop <> 0 For i = 0 To UBound(ArryProsess) If LCase$(Left$(proc.szexeFile, Len(ArryProsess$(i)))) = LCase$(Trim$(ArryProsess$(i))) And Trim$(ArryProsess$(i)) <> "" Then openproc = OpenProcess(1, 0, proc.th32ProcessID) term = TerminateProcess(openproc, -9) End If Next i TheLoop = ProcessNext(snap, proc) Wend CloseHandle snap End Sub |
||
|
Номер ответа: 18 Автор ответа: Viktor PetrovВопросов: 12 Ответов: 27 |
Профиль | | #18 | Добавлено: 12.12.06 22:22 |
| Не совсем понял, как все это запустить. Пихнул код в новый модуль, объявил массив ArryProsess, пихнул в него значение "cmd.exe", ну и вызвал после работы с командной строкой KillProc (ArryProsess). Не заработало, пишет, Type mismatch: array or user-defined type expected | ||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 13.12.06 00:18 |
|
Dim mas() As String
ReDim mas(0) mas(0) = "cmd.exe" Call KillProc (mas) Ты сам можешь хоть что-то запустить, кроме как сам VB ? |
||