Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ProzessID rausfinden und schließen
Autor: mollte
Datum: 17.09.07 20:15
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject 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 TerminateProcess Lib "kernel32" (ByVal _ hProcess As Long, ByVal uExitCode As Long) As Long Const PROCESS_TERMINATE = &H1 Public lTaskID As Long Public Sub cmdTerminate_Click() Call cmdTerminate End Sub Private Sub Command1_Click() End End Sub Private Sub Form_Load() ' alle laufenden Programme ermitteln GetWindowList ListView1 End Sub Private Sub Killniinst32_Click() killprocess (hWnd) GetWindowList ListView1 End Sub 'Löschen der Eintraege bei Click auf Reset Private Sub Reset_Click() Dim DefaultUserName As Object Dim DefaultPassword As Object Dim DefaultDomainName As Object Dim AutoAdminLogon As Object 'Set DefaultUsername = CreateObject("wscript.shell") 'Call DefaultUserName.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "", "REG_SZ") Set DefaultPassword = CreateObject("wscript.shell") Call DefaultPassword.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "", "REG_SZ") 'Set DefaultDomainName = CreateObject("wscript.shell") 'Call DefaultDomainName.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", "", "REG_SZ") 'Set AutoAdminLogon = CreateObject("wscript.shell") 'Call AutoAdminLogon.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon") End Sub 'Eintragen der Werte in die Registrierung Private Sub Command3_Click() Dim Reg As Object Set Reg = CreateObject("wscript.shell") ' Suppose Write App to Startup with Computer Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" If Text2.Text = Text4.Text Then Dim Reg1 As Object Dim Reg2 As Object Dim Reg3 As Object Dim Reg4 As Object Set Reg1 = CreateObject("wscript.shell") Call Reg1.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", Text1.Text, "REG_SZ") Set Reg2 = CreateObject("wscript.shell") Call Reg2.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", Text2.Text, "REG_SZ") Set Reg3 = CreateObject("wscript.shell") Call Reg3.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", Text3.Text, "REG_SZ") Set Reg4 = CreateObject("wscript.shell") Call Reg4.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ") Else MsgBox "Password not match" End If End Sub

ProzessID rausfinden und schließen	3.682	mollte	17.09.07 19:50
Re: ProzessID rausfinden und schließen	2.006	Martoeng	17.09.07 20:00
Re: ProzessID rausfinden und schließen	2.113	mollte	17.09.07 20:15
Re: ProzessID rausfinden und schließen	1.971	mollte	17.09.07 20:16
Re: ProzessID rausfinden und schließen	1.579	mollte	19.09.07 18:52
Sendmessage in das ListView1	1.556	mollte	19.09.07 21:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen