Vb 08 Und Batch Befehle!

Quote:

Originally Posted by algaten Hi ich habe diesen code Code: cls @echo off title Folder Geheim IF EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" GOTO UNLOCK IF NOT EXIST Geheim GOTO MDLOCKER echo Welche funktion wollen sie tun ?!. :CONFIRM echo Bist du dir sicher den Ordner zu Locken? (Ja/Nein) set/p "cho=>" IF %cho%==Ja GOTO LOCK IF %cho%==ja GOTO LOCK IF %cho%==Nein GOTO END IF %cho%==nein GOTO END echo Invalid Choice. GOTO CONFIRM :LOCK ren Geheim "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" echo Ordner Locked. GOTO END :UNLOCK echo Schreiben sie das passwort um den Ordner zu unlocken! : set/p "pass=>" IF NOT %pass% == hummel GOTO FAIL attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Geheim echo Ordner unlock erfolgreich. GOTO END :FAIL echo Falsches Password! GOTO END :MDLOCKER md Geheim echo Ordner erstellt! Sachen rein und Locken !. GOTO END :END PAUSE Ausn im Internet Möchte nun aber nur das hier verwenden Code: attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Geheim ren Geheim "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Nun weiss ich aber nicht wie ich den code in Vb Starte:confused:

Quote:

Originally Posted by P-a-i-n du weißt schon das das Visual Basic Script ist nicht Visual Basic ;) wie madd eye schon sagt nutz process.start oder eben "shell" damit geht alles genau so und meist leichter wenn du bezeichnung nicht weiß google nach cmd befehle VB unterstützt alle ;)

Dim batch As String
            batch = ("")

Quote:

Originally Posted by Madd Eye Versuchs mal so Erstell ne Textbox (oder Label) und dann einen Button Der Button Code: Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Lines() As String Lines = TextBox1.Text.Split(Environment.NewLine) For i = 0 To Lines.Length Process.Start("cmd", "/c " & Lines(i)) Next End Sub Im Der Textbox (oder Label) steht dann dein Batchcode also folgendes Code: attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Geheim ren Geheim "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Edit: bitte ohne leere Zeilen

Quote:

Originally Posted by friseur Code: Dim pfad As String Dim stream As IO.StreamWriter pfad = "c:\test.bat" stream = New IO.StreamWriter(pfad, False) stream.WriteLine("attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD 08002B30309D}"") stream.WriteLine("ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Geheim") stream.WriteLine("ren Geheim "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"") stream.WriteLine("attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"L1"") stream.Close() Shell(pfad, AppWinStyle.MinimizedFocus) Probier soetwas mal. Wenns nicht geht, spiel dran rum bis es geht. Erklären muss ich da nichts <: