Tutorial compilador batch

Solo disponible en BuenasTareas
  • Páginas : 30 (7290 palabras )
  • Descarga(s) : 0
  • Publicado : 10 de noviembre de 2011
Leer documento completo
Vista previa del texto
Crear un Compilador de Batch en Visual Basic 6.0 – By Dhck oNe or Deunder_Talker

1.- Introducción Hola ! , Te preguntaras como hacer un compilador en Visual Basic ? , bueno para ello hize este tuto , para que puedas crear tu propio compilador de batch , realmente puede ser de cualquier tipo de archivo , algunos que nos podrian convenir son los de las extensiones .js , .vbs , .bat , .cmd ,entre otros xD, y te preguntaras como funciona esto ? bueno un compilador se basa en un editor o compiler y una stub , y te preguntaras ¿con que se come eso ? bueno el editor es el encargado de meterle los datos a la stub , y la stub lo que hace es extraer los datos que le pego el editor , procesas del modo que mas se le plasca la gana y ejecutar el archivo que originalmente el editor le pego. 2.-Construcción del Editor Bueno empezemos manos a la obra ! xD ... Abramos el vb y creemos un proyecto comun y corriente xD,Primero coloquemosle dos Textbox , para que sea mas comodo uno nombralo txtFile y el otro txtIcon , ambos deben tener la propiedad “Locked” en True , luego crea Dos labels una Con el Carption “Archivo :” y la otra “Icono” luego coloca 5 CommandButton o 5 Command_XP al primeroPonle el nombre de cmdFile y caption “...” o “Examinar” , el segundo cmdIcon y caption “...” o “Examinar”, el tercero cmdCompiler y caption “Compilar” o “Build” o “Make” o que se yo xD,el cuarto cmdAbout y caption “Acerca de Mi” o “Acerca de ...”,el quinto cmdCode y Caption “Ver Codigo” o similare ,tambien un CheckBox con nombre “chkEjecución” y caption “Ejecución Visible esto se deberia ver igual osimilar a esto :

[Me quedo un poko estrecho =$]

Bueno ya paso la entretencion de hacer la interface ...jeje... ahora nos vamos a ir al codigo Primero que todo vamos a crear un modulo que emula o crea el CommondDialog pero con las APIs (Copia y pega)
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long Private DeclareFunction GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hWndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As StringlpstrTitle As String

http://www.invisiblehack.foros.st http://www.code-makers.es http://foro.elhacker.net

1

Crear un Compilador de Batch en Visual Basic 6.0 – By Dhck oNe or Deunder_Talker
flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Public Function OpenDlg(hwnd As Long, Filter AsString, Title As String, Inidir As String) As String Dim OFName As OPENFILENAME With OFName .lStructSize = Len(OFName) 'Establecemos el hwnd del form .hWndOwner = hwnd 'Establecemos el numero de instancia de la aplicacion .hInstance = App.hInstance 'Establecemos el filtro de archivos a mostrar, _ en este caso txt y todos los ficheros .lpstrFilter = Filter 'Acá debemos crear un buffer para el archivo.lpstrFile = Space$(254) 'Establecemos el tamaño maximo retornado .nMaxFile = 255 'Creamos un buffer para el titulo del archivo .lpstrFileTitle = Space$(254) 'Establecemos el tamaño maximo retornado .nMaxFileTitle = 255 'Establecemos el directorio por defecto que mostrará el dialogo .lpstrInitialDir = Inidir 'El title .lpstrTitle = Title 'Flasgs que detereminan caracteristicas del dialogo .flags = 0End With 'Abrimos el cuadro de diálogo pasándole _ a GetOpenFileName la estructura anterior If GetOpenFileName(OFName) Then OpenDlg = OFName.lpstrFile Else OpenDlg = "" End If End Function Public Function SaveDlg(hwnd As Long, Filter As String, Inidir As String, Title As String) As String Dim OFName As OPENFILENAME With OFName 'Establecmos el tamaño de la extructura .lStructSize = Len(OFName)...
tracking img