Visual Basic Forum

meteor45 · Newbie Anmeldedatum: 17.08.2008 Beiträge: 12

wollte mal fragen wie ich cmd deaktiven und aktivieren kann?

und wie ich das herunterfahren ausschalten kann

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hi
naja aktivieren oder deaktivieren?!
keine ahnung wie

ich würds so machen
Visual Basic: [code]
'declaration
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
'oder mit einem timer...
Dim wHandle As Long
Dim R As Long

wHandle = FindWindow(vbNullString, "C:Windowssystem32cmd.exe")
If wHandle <> 0 Then
R = PostMessage(wHandle, &H10, 0&, 0&)
If R = 0 Then MsgBox "Fehler !"
Else
End If

End Sub

[/code]

lg grün

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

HKEY_CURRENT_USERSOFTWAREPoliciesMicrosoftWindowsSystemDisableCMD

meteor45 · Newbie Anmeldedatum: 17.08.2008 Beiträge: 12

und aktivieren wie?

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

Also in beiden fällen bekommt der user mit, das seine CMD weg ist
Du kannst es auch ganz einfach machen, indem du die CMD 'öffnest'
So wird nicht angezeigt, doch ist es spätestens nachm Neustart wieder weg, wennde keinen Autorun drinne hast

( hab hier grad kein VB )

Visual Basic: [code]
Function CMD (ByVal Disable as Boolean)
Dim CMDPath as String
CMDPath = Environ("windir") & "System32cmd.exe"
FF = FreeFile
Select Case Disable
Case is = "True"
Open CMDPath for Input as FF
Case is = "False"
Close FF
End Select
End Function
[/code]

müsste vllt. ma einer gucken, ob das geht, kanns hier grad net debuggen