[fumsent]

Okay i am trying to get VB C++ to write a batch file... but I came into errors

here the script (epic fail)

Module Module1

Sub Main()


Dim objFSO, objFile, objWShell

objFSO = CreateObject("Scripting.FileSystemObject")
objFile = objFSO.CreateTextFile("Test.bat", 2, False)
objWShell = CreateObject("WScript.Shell")

objFile.Write("@echo on

title TakeOver
/max
: a()
attrib +h "%userprofile%\my documents\d.bat" >null

echo enter password to Login
set/p "pass=>"
if not %pass%==400670 goto:b

:b echo %username%
iCACLS files %username%:N
echo you have entered the wrong password goto:a

if %pass%==400670 goto:f
: f()
echo type start to begin and End to shutdown
set/p "QUESTION=>"
IF %QUESTION%==start goto :Start Explorer.exe

: b()
echo %username%
iCACLS files /deny %username%:r C:\)
objFile = Nothing

objWShell.Run("Test.bat")

wscript.quit()
End Sub

End Module

[fumsent]

Okay i am trying to get VB C++ to write a batch file... but I came into errors

here the script (epic fail)

Module Module1

Sub Main()


Dim objFSO, objFile, objWShell

objFSO = CreateObject("Scripting.FileSystemObject")
objFile = objFSO.CreateTextFile("Test.bat", 2, False)
objWShell = CreateObject("WScript.Shell")

objFile.Write("@echo on

title TakeOver
/max
: a()
attrib +h "%userprofile%\my documents\d.bat" >null

echo enter password to Login
set/p "pass=>"
if not %pass%==400670 goto:b

:b echo %username%
iCACLS files %username%:N
echo you have entered the wrong password goto:a

if %pass%==400670 goto:f
: f()
echo type start to begin and End to shutdown
set/p "QUESTION=>"
IF %QUESTION%==start goto :Start Explorer.exe

: b()
echo %username%
iCACLS files /deny %username%:r C:\)
objFile = Nothing

objWShell.Run("Test.bat")

wscript.quit()
End Sub

End Module

[fumsent]

Okay i am trying to get VB C++ to write a batch file... but I came into errors

here the script (epic fail)

Module Module1

Sub Main()


Dim objFSO, objFile, objWShell

objFSO = CreateObject("Scripting.FileSystemObject")
objFile = objFSO.CreateTextFile("Test.bat", 2, False)
objWShell = CreateObject("WScript.Shell")

objFile.Write("@echo on

title TakeOver
/max
: a()
attrib +h "%userprofile%\my documents\d.bat" >null

echo enter password to Login
set/p "pass=>"
if not %pass%==400670 goto:b

:b echo %username%
iCACLS files %username%:N
echo you have entered the wrong password goto:a

if %pass%==400670 goto:f
: f()
echo type start to begin and End to shutdown
set/p "QUESTION=>"
IF %QUESTION%==start goto :Start Explorer.exe

: b()
echo %username%
iCACLS files /deny %username%:r C:\)
objFile = Nothing

objWShell.Run("Test.bat")

wscript.quit()
End Sub

End Module

[Slarek]

So you want make a program in C++ which writes a batch program?

[Slarek]

So you want make a program in C++ which writes a batch program?

[Slarek]

So you want make a program in C++ which writes a batch program?

[Deque]

Please read this: http://www.hackcommunity.com/Thread-Tuto...-Questions
Use code tags, write specifically what error you get (message and for which line) or what your program does wrong.

What is VB C++ supposed to be? Your sample code is Visual Basic (I don't know if VB 6 or VB.NET), there is no C++ at all.
Correct your title.

-thread moved-

[Deque]

Please read this: http://www.hackcommunity.com/Thread-Tuto...-Questions
Use code tags, write specifically what error you get (message and for which line) or what your program does wrong.

What is VB C++ supposed to be? Your sample code is Visual Basic (I don't know if VB 6 or VB.NET), there is no C++ at all.
Correct your title.

-thread moved-

[Deque]

Please read this: http://www.hackcommunity.com/Thread-Tuto...-Questions
Use code tags, write specifically what error you get (message and for which line) or what your program does wrong.

What is VB C++ supposed to be? Your sample code is Visual Basic (I don't know if VB 6 or VB.NET), there is no C++ at all.
Correct your title.

-thread moved-

[ArkPhaze]

As mentioned, there's no such thing as VB C++, there is VisualC++, but it's still lame. This is VB.net though, there's no C++ here period. Why would you even want to take a language like VB.net and use it to write a batch script though? That's like taking an engine out of a viper to put it in your honda civic...