Foro de elhacker.net

• Visual Basic Script (VBS)
• Visual Basic for Applications (VBA)
• PowerShell
• javascript (mejor no lo tomes cómo una opción por el momento en lo relacionado con apps/tareas de escritorio)

CMD.exe /C Help

@ECHO OFF
:: Check Windows version: NT 4 or later required
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
:: Check number of command line arguments: 1 and only 1 required
IF     "%~1"=="" GOTO Syntax
IF NOT "%~2"=="" GOTO Syntax
:: Check if the command line argument consists of zeroes and ones only
ECHO "%~1"| FINDSTR /R /B /C:"\"[01][01]*\"$" >NUL || GOTO Syntax
 
:: Initialize the variables
SET Binary=%~1
SET Decimal=0
SET DigVal=1
 
:: Display the initial binary value
SET Binary
 
:Loop
:: Extract the last digit from the binary number
IF %Binary% GTR 1 (
	SET Digit=%Binary:~-1%
	SET Binary=%Binary:~0,-1%
) ELSE (
	SET /A Digit = %Binary%
	SET Binary=0
)
:: Add the digit's value to the decimal result
IF %Digit% EQU 1 SET /A Decimal = %Decimal% + %DigVal%
:: Increment the digit's value (multiply by 2)
SET /A DigVal *= 2
:: If the value of the remaining digits is
:: greater than 0, loop to the next iteration
IF %Binary% GTR 0 GOTO Loop
 
:: Clean up aal variables but one
SET Binary=
SET Digit=
SET DigVal=
 
:: Display the decimal result
SET Decimal
 
:: Exit with the decimal result as return code
EXIT /B %Decimal%
 
 
:Syntax
ECHO Bin2Dec.bat,  Version 1.00 for Windows NT 4 and later
ECHO Convert binary numbers to decimal
ECHO.
ECHO Usage:  BIN2DEC  binary_number
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com

 
import wireframe
import pygame
 
class ProjectionViewer:
    """ Displays 3D objects on a Pygame screen """
 
    def __init__(self, width, height):
        self.width = width
        self.height = height
        self.screen = pygame.display.set_mode((width, height))
        pygame.display.set_caption('Wireframe Display')
        self.background = (10,10,50)
 
        self.wireframes = {}
        self.displayNodes = True
        self.displayEdges = True
        self.nodeColour = (255,255,255)
        self.edgeColour = (200,200,200)
        self.nodeRadius = 4
 
    def addWireframe(self, name, wireframe):
        """ Add a named wireframe object. """
 
        self.wireframes[name] = wireframe
 
    def run(self):
        """ Create a pygame screen until it is closed. """
 
        running = True
        while running:
            for event in pygame.event.get():
                if event.type == pygame.QUIT:
                    running = False
 
            self.display()  
            pygame.display.flip()
 
    def display(self):
        """ Draw the wireframes on the screen. """
 
        self.screen.fill(self.background)
 
        for wireframe in self.wireframes.values():
            if self.displayEdges:
                for edge in wireframe.edges:
                    pygame.draw.aaline(self.screen, self.edgeColour, (edge.start.x, edge.start.y), (edge.stop.x, edge.stop.y), 1)
 
            if self.displayNodes:
                for node in wireframe.nodes:
                    pygame.draw.circle(self.screen, self.nodeColour, (int(node.x), int(node.y)), self.nodeRadius, 0)
 
if __name__ == '__main__':
    pv = ProjectionViewer(400, 300)
 
    cube = wireframe.Wireframe()
    cube.addNodes([(x,y,z) for x in (50,250) for y in (50,250) for z in (50,250)])
    cube.addEdges([(n,n+4) for n in range(0,4)]+[(n,n+1) for n in range(0,8,2)]+[(n,n+2) for n in (0,1,4,5)])
 
    pv.addWireframe('cube', cube)
    pv.run()

@ECHO OFF
:: Check Windows version: NT 4 or later required
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
:: Check number of command line arguments: 1 and only 1 required
IF     "%~1"=="" GOTO Syntax
IF NOT "%~2"=="" GOTO Syntax
:: Check if the command line argument consists of zeroes and ones only
ECHO "%~1"| FINDSTR /R /B /C:"\"[01][01]*\"$" >NUL || GOTO Syntax
 
:: Initialize the variables
SET Binary=%~1
SET Decimal=0
SET DigVal=1
 
:: Display the initial binary value
SET Binary
 
:Loop
:: Extract the last digit from the binary number
IF %Binary% GTR 1 (
	SET Digit=%Binary:~-1%
	SET Binary=%Binary:~0,-1%
) ELSE (
	SET /A Digit = %Binary%
	SET Binary=0
)
:: Add the digit's value to the decimal result
IF %Digit% EQU 1 SET /A Decimal = %Decimal% + %DigVal%
:: Increment the digit's value (multiply by 2)
SET /A DigVal *= 2
:: If the value of the remaining digits is
:: greater than 0, loop to the next iteration
IF %Binary% GTR 0 GOTO Loop
 
:: Clean up aal variables but one
SET Binary=
SET Digit=
SET DigVal=
 
:: Display the decimal result
SET Decimal
 
:: Exit with the decimal result as return code
EXIT /B %Decimal%
 
 
:Syntax
ECHO Bin2Dec.bat,  Version 1.00 for Windows NT 4 and later
ECHO Convert binary numbers to decimal
ECHO.
ECHO Usage:  BIN2DEC  binary_number
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com

Dim bin As String = "101001001" ' 329
Dim dec As Integer = Convert.ToInt32(bin, fromBase:=2)
Console.WriteLine(dec)