Vb 08 Und Batch Befehle!

[Algaten™]

Hi ich habe diesen 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

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

[Madd Eye]

LEs den Code in einen String ein und dann mit diesem Code

Process.Start("cmd", "/c"+ batchstring)

[P-a-i-n]

Originally Posted by algaten

Hi ich habe diesen 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

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

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

[Algaten™]

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

Das ist Batch......

Hab gegoogelt aber das mit dem string nicht gefunden...

EDIT:
Nur wenn ich jetzt den code bei:

Dim batch As String
            batch = ("")

einfüge kommt nen Fehler

EDIT²:
Bin nun abwesend bin aber draufgekommen im label den code das label unsichtbar und den code vom label auszulesen

EDIT³:
Wieda da
Habs nun getestet
Hat nicht geklappt der ordner bleibt sichtbar

[Madd Eye]

Versuchs mal so
Erstell ne Textbox (oder Label)
und dann einen Button
Der Button 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

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

[Algaten™]

Originally Posted by Madd Eye

Versuchs mal so
Erstell ne Textbox (oder Label)
und dann einen Button
Der Button 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

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

Danke sry das ichso spät antworte haben Stoppelmarkt (Volskfest usw google hilft)
Und bin deswgeen nicht oft on gegangen

[Yakiyo]

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 <:

[Algaten™]

Originally Posted by friseur

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 <:

Möchte ja keine BAt datei schreiben
Hatte schon genug mit meiner .ini datei

Werde mich später drum kümmern aber habe jetzt genug beispielcodes danke!
#closerequest