Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › .NET Languages
Vb 08 Und Batch Befehle! Vb 08 Und Batch Befehle!
You last visited: Today at 04:24

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Vb 08 Und Batch Befehle!

Discussion on Vb 08 Und Batch Befehle! within the .NET Languages forum part of the Coders Den category.

Closed Thread
 
Old   #1
 
elite*gold: 0
The Black Market: 77/0/1
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Vb 08 Und Batch Befehle!

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
Algaten™ is offline  
Old   #2
 
Madd Eye's Avatar
 
elite*gold: 260
The Black Market: 3/0/0
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
LEs den Code in einen String ein und dann mit diesem Code

Code:
Process.Start("cmd", "/c"+ batchstring)
Madd Eye is offline  
Old   #3
 
P-a-i-n's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2009
Posts: 1,258
Received Thanks: 396
Quote:
Originally Posted by algaten View Post
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


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
P-a-i-n is offline  
Old   #4
 
elite*gold: 0
The Black Market: 77/0/1
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by P-a-i-n View Post
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:
Code:
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
Algaten™ is offline  
Old   #5
 
Madd Eye's Avatar
 
elite*gold: 260
The Black Market: 3/0/0
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
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
Madd Eye is offline  
Thanks
1 User
Old   #6
 
elite*gold: 0
The Black Market: 77/0/1
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by Madd Eye View Post
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
Danke sry das ichso spät antworte haben Stoppelmarkt (Volskfest usw google hilft)
Und bin deswgeen nicht oft on gegangen
Algaten™ is offline  
Old   #7
 
Yakiyo's Avatar
 
elite*gold: 0
The Black Market: 46/0/1
Join Date: Apr 2009
Posts: 1,898
Received Thanks: 303
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 <:
Yakiyo is offline  
Old   #8
 
elite*gold: 0
The Black Market: 77/0/1
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by friseur View Post
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 <:
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
Algaten™ is offline  
Closed Thread

« [VB.NET]GetWindow anstadt GetProcessesByName | [C#]Über Buttons Dateien öffnen? »

Similar Threads Similar Threads
wdf batch extractor
05/21/2010 - CO2 Weapon, Armor, Effects & Interface edits - 2 Replies
When I run the wdf batcher a shit load of error messages come up saying "wdfextractor.exe has stopped working" But the extractor is still running and extacting files from 3dtexture :S Im running windows 7 64 bit, idk if that has anything to do with it. Will it still work if I ignore the error messages and let it extract? Sorry Huseby, but you closed my previous thread lol
another batch of keys try??
03/12/2010 - Heroes of Newerth - 1 Replies
8274827xm9vl8t4 imhsxpyips2i7oa e2kt0o49q3iwgku iyywtzjp0opdi31 uuklhotsebqkoo1 mr0vvo7ynvsbwud tg5rvq1drqngauw 1zuuiq8kavmpxuq 73z758sjom4x3kx 1fa4ddl94eh7i0h
last batch of key.....
03/11/2010 - Heroes of Newerth - 1 Replies
nvn1b9uh91ts2ek lfm68cfd7aeb7fp gaofzcw1rp3elrz i8a1ldecmsh5w4c 38sj88r30nz5mic gic78cd84ajbz4v gfgrl2pas1jkhin j6dn1aqft5ze2y6 7br9u7pvistm8hp ezy6xr7lavkkl4v
Chinesiche GM Befehle + Italian Befehle...kann nix mit anfangen vllt kriegt ihrs hin.
05/18/2009 - Metin2 Private Server - 11 Replies
Blub kann damit nix anfangen villeicht wisst ihrs wenn ihr was raus habt wäre es nett wen ihrs mir per pn oder hier im Thread posten würdet bitte keine lügen oder scheiße labern sowas kann ich auf den Tod nicht ausstehen. hauter rein Thx könnt ihr geben wenns euch geholfen hat unso...naja viel spass. Finalmente commandi GM !! Metin2 --- GM COMMAND --- 測試的時候請& #20351;用香港龍駒 8204;試伺服器. 登入測試伺服& #22120;流程如下: 1.安裝香港龍駒 ;主程式



All times are GMT +2. The time now is 04:24.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.