elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14
81  Foros Generales / Foro Libre / [Retos] Age Of Empires II The Conquerors en: 27 Agosto 2010, 07:52 am

Bueno me acabe de reinstalar este juego pues la verdad quisiera jugar, alguien se anima?

Alguien juega la version 1.0 Ojo!¡.

VPN por ---> Hamachi


Dulces Lunas!¡.
82  Programación / Programación Visual Basic / Error CopyMemory y estructura SafeArray (Via API) en: 24 Agosto 2010, 02:27 am

Edito:

Antes que nada No es factible hacer un Simple Copymemory por que Crashea!¡ de forma instantanea asi que para esto hay que manipular y bloquear el Array con la estructura SafeArray.

Pero aun no encuentro la Solución
[/i][/b]

intento copiar el contenido de una variable tipo variant a una avriable de matrix variant

Código
  1.  
  2. Dim VarVariant as variant
  3.  
  4.  

a

Código
  1.  
  2. Dim VarVariantDest() as variant
  3.  
  4.  

La cosa es sencilla, copia bien la primera vez posteiormente me crashea... y creo que es por la Estructura SafeArray, ( ya intente varias cosas incluida sin Apis y con solo manejo de la dicha Estructura y sigue de la misma manera!¡. )

Aqui el codigo

Código
  1.  
  2. Option Explicit
  3. Option Base 0
  4.  
  5. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  6.        (Destination As Any, Source As Any, ByVal Length As Long)
  7. Private Declare Function SafeArrayAccessData Lib "Oleaut32" _
  8.        (ByVal psa As Long, pvData As Long) As Long
  9. Private Declare Function SafeArrayUnaccessData Lib "Oleaut32" _
  10.        (ByVal psa As Long) As Long
  11. '   //  msvbvm60.DLL
  12. Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" _
  13.    (Var() As Any) As Long
  14.  
  15. Private Sub Test_Translate()
  16.    Dim VarVariant          As Variant
  17.    Dim VarVariantDest()    As Variant
  18.    Dim aaa(0 To 3)         As Variant
  19.    Dim psa                 As Long
  20.    Dim pData               As Long
  21.  
  22.    aaa(0) = "Miguel"
  23.    aaa(1) = "Angel"
  24.    aaa(2) = "Ortega"
  25.    aaa(3) = "Avila"
  26.  
  27.    VarVariant = aaa
  28.  
  29.    ReDim Preserve VarVariantDest(0 To 7)
  30.    CopyMemory psa, ByVal VarPtr(VarVariant)+8, 4
  31.  
  32.    If SafeArrayAccessData(psa, pData) = 0 Then   ' Bloqueo el Array y obtengo el puntero de varptr(VarVariant(0))
  33.        CopyMemory VarVariantDest(4), ByVal pData, 4 * 16  ' Copio el Contenido
  34.        SafeArrayUnaccessData psa  ' Desbloqueo el array
  35.    End If
  36.  
  37.    For psa = LBound(VarVariantDest) To UBound(VarVariantDest)
  38.        Debug.Print psa, VarVariantDest(psa)
  39.    Next psa
  40. End Sub
  41.  
  42. Private Sub Form_Load()
  43. Dim i       As Byte
  44.    For i = 1 To 10
  45.        Call Test_Translate
  46.        MsgBox "Prueba: " & i
  47.    Next i
  48. End Sub
  49.  
  50.  

Dulces Infierno Lunar!¡.
83  Foros Generales / Foro Libre / tonteas con tu ordenador? en: 18 Agosto 2010, 23:04 pm

Lol



Dulces Lunas!¡.
84  Foros Generales / Foro Libre / 10 que no debes hacer... en: 29 Julio 2010, 09:38 am

Cuando Te Encuentran Con Otra


En la Primera Noche


Si eres ginecólogo


El efecto de 10 drogas al volante


Cuando eres COPILOTO


10 motivos para no tomar drogas antes de una cita


10 cosas que no debe hacer si es maestro

Este video me recuerda mi Primaria, en 3er año el Prof. nos dejaba hacer un desmadre... si hasta peleas habia... lo malo tube 3 sicatrises en la cabeza y mi mandibula rota... pero todo CHIDO!¡. xP



10 cosas que no debes hacer cuando estas en jacuzzy


Kesslers Knigge-10 cosas que no debes decir cuando te pillen en la cama con otra. (Sub.español)


Kesslers Knigge - 10 Cosas que no se debe hacer cuando seas árbitro (Sub. Español)
la 10 esta verga1¡.


10 cosas que no debes de hacer cuando vas de campamento


10 cosas que no debes hacer en una juguetería



aqui uno de los enigmaticos del Programa Otro Rollo

Sketc 10 Cosas Que No Se Deben De Hacer , Despues De Hacer El AMor



Dulces Lunas!¡.
85  Media / Juegos y Consolas / [Imagen/Juego] - Zombie Driver. (ISO,MF,MU) en: 25 Julio 2010, 01:48 am


Tipo y formato: CD imagen ( .ISO )
Crack: Incluido en la imagen
Formato de los Archivos: .RAR
Plataforma: PC
Genero: Survivor – Accion
Idioma: Ingles
Fecha de Salida: Diciembre 2009
Servidor:Mediafire, MegaUpload
Peso: 300 Mb 3 x 100 MB


Caracteristicas

-17 misiones en modo historia con muchos secretos y cientos de bonus
-Conduccion libre por toda la ciudad infestada de miles de zombies
-6 carros distintos incluyendo un super carro desbloqueable
-9 diferentes mejoras para cada carro, las cuales pueden hacer un inocente taxi en una maquina de muerte
-Podras ponerle ametralladoras, lanza-llamas, bazookas y mas armas a todos los carros
-Cada arma posee 3 niveles de actualizacion las cuales tran caracteristicas unicas
-Cientos de zombies distintos


IMAGENES






VIDEOS





Requisitos minimos de sistema

S.O.: XP / Vista
CPU: 1 GHz o superior
RAM: 512 MB minimo, recomendado 1 GB o más
GRAFICOS: 800 x 600 resolucion minima

Instrucciones de Instalacion

Descomprimir usando Winrar

Copiar imagen .cue o montarla y se abrira la ventana de instalacion , e instalar

Jugar (No necesita crack y se pueden poner los parches originales)

Las Ligas para descargar el juego se encuentran en:


Mediafire, Megaupload

http://infrangelux.sytes.net/filex/?dir=/BlackZeroX/Juegos/Links%20Zombie%20Driver

                           

Dulces Lunas!¡.                  

            

86  Programación / Programación Visual Basic / [Src] MultiClic In OneClic en: 18 Julio 2010, 03:22 am
Estoy aburrido...

Esta herramienta solo es para dar X Click con un solo Click automáticamente, auto detecta el click y lo repite en una cantidad "X" y un intervalo "Y"

Soporte para Click

Izquierdo
Derecho
Rueda


Descargar Binario(EXE) / Source (VB6)

Código:

http://infrangelux.sytes.net/filex/?dir=/BlackZeroX/Programacion/vb6/Proyectos/Click%20massive%20In%20one%20click


Sangriento Infierno Lunar!¡.
87  Programación / Programación Visual Basic / [Src/FUD] Change HomePage Chrome,FireFox,Opera,Safari (All Users) CUTRE en: 17 Julio 2010, 09:36 am
Antes qué nada Agradecimientos a Zentido por haberme inducido en la creación del mismo y la misma publicación en este Foro... de igual forma por decirme donde hacer el cambio a la pagina de inicio de FireFox

Binario (Ejecutable) + Source Ahora Soportan

FireFox
Chrome
Opera
Safari <-- Aun le falta unas cosillas xP


Gracias Zentido.

Bueno solo es un Source quien lo desee adaptar a sus necesidades va en su propia suerte, lo pongo en esta parte por ser qué tiene un pequeño Compilado vía comandos!¡, obviamente trae el Código Fuente así qué ustedes sabrán qué harán con el mismo

Ejemplo:

Suponiendo qué el ejecutable esta en C:\

Abrir cmd y escribir:

Código:

c:\>ChangeHomePage.exe "http://InfrAngeluX.sytes.net/"


Descargar Compilado/ Source

Código:

http://infrangelux.sytes.net/filex/index.php?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6


Sangriento Infierno Lunar!¡.
88  Programación / Programación Visual Basic / [Src] GetSimplificNumbers [No es una Compresion] en: 5 Julio 2010, 23:09 pm
Solo es un simple algoritmo para simplificación de números en un array!¡.

la idea es ingresar números y qué los Simplifique, es decir 1,2,3,4,5,9,10,15,16,17,18,555,342,423,422 los ordena de la siguiente manera:

1~5,9,10,15~18,555,342,423,422

si se integra un ordenamiento QuickSort ordenaría adecuadamente!¡.

OJO: NO Es RECOMENDABLE USARLO CON NÚMEROS DECIMALES!¡.

Código
  1.  
  2. '
  3. '   /////////////////////////////////////////////////////////////
  4. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  5. '   //                                                         //
  6. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  7. '   //                                                         //
  8. '   //    |-> Pueden Distribuir Este Código siempre y cuando   //
  9. '   // no se eliminen los créditos originales de este código   //
  10. '   // No importando qué sea modificado/editado o engrandecido //
  11. '   // o achicado, si es en base a este código                 //
  12. '   /////////////////////////////////////////////////////////////
  13. Option Explicit
  14.  
  15. Public Function GetSimplificNumbers(ByRef ArrayOfNumbers() As Variant) As String()
  16. If (Not ArrayOfNumbers) = -1 Then Exit Function '   //  Array entrante, iniciado?.
  17. Dim Lng_ArrayTmp$()                             '   //  Colección de Números Simplificados!¡.
  18. Dim Lng_Ini&, Lng_End&, Lng_Index&              '   //  Variables para el Bucle.
  19. Dim Lng_AntPosNumber&                           '   //  Indice del Numero anterior (Numero del Array entrante).
  20. Dim Lng_ResNumber&                              '   //  residuo de Lng_Index& - Lng_AntPosNumber&.
  21. Dim Lng_ArrayCount&                             '   //  Contador de las dimensiones de Lng_ArrayTmp$.
  22. Dim Bool_Swith                  As Boolean      '   //  swith para saber si se debe simplificar!¡.
  23.  
  24.    '   //  Call Start_QuickSort(ArrayOfNumbers(), AcendetOrder)    '   //  http://foro.elhacker.net/programacion_vb/source_ordenar_array_low_y_fast-t272312.0.html
  25.  
  26.    Lng_Ini = LBound(ArrayOfNumbers):   Lng_End = UBound(ArrayOfNumbers)
  27.    ReDim Lng_ArrayTmp$(Lng_ArrayCount&)
  28.    Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
  29.  
  30.    For Lng_Index& = Lng_Ini + 1 To Lng_End
  31.        Lng_ResNumber& = ArrayOfNumbers(Lng_Index&) - ArrayOfNumbers(Lng_Index& - 1)
  32.        If Lng_ResNumber& > 1 Then
  33.            If Bool_Swith Then
  34.                If Lng_AntPosNumber& > 2 Then
  35.                    Lng_ArrayTmp$(Lng_ArrayCount&) = Lng_ArrayTmp$(Lng_ArrayCount&) & "~" & ArrayOfNumbers(Lng_Index& - 1)
  36.                Else
  37.                    Lng_ArrayCount& = Lng_ArrayCount& + 1
  38.                    ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
  39.                    Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index& - 1)
  40.                End If
  41.            End If
  42.            Lng_ArrayCount& = Lng_ArrayCount& + 1
  43.            ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
  44.            Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
  45.            Bool_Swith = False
  46.        ElseIf Lng_ResNumber& = 1 Then
  47.            If Not Bool_Swith Then Lng_AntPosNumber& = 0
  48.            Bool_Swith = True
  49.            If Lng_Index& = Lng_End Then
  50.                If conversion.cbool(InStr(1, Lng_ArrayTmp$(Lng_ArrayCount& - 1), "~")) Then
  51.                    Lng_ArrayCount& = Lng_ArrayCount& + 1
  52.                    ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
  53.                    Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
  54.                Else
  55.                    Lng_ArrayTmp$(Lng_ArrayCount&) = Lng_ArrayTmp$(Lng_ArrayCount&) & "~" & ArrayOfNumbers(Lng_Index&)
  56.                End If
  57.            Else
  58.                Lng_AntPosNumber& = Lng_AntPosNumber& + 1
  59.            End If
  60.        ElseIf Lng_ResNumber& = 0 Then
  61.            If Lng_AntPosNumber& > 0 Then
  62.                Lng_AntPosNumber& = Lng_AntPosNumber& + 1
  63.            Else
  64.                Lng_AntPosNumber& = 0
  65.            End If
  66.        End If
  67.    Next
  68.    GetSimplificNumbers = Lng_ArrayTmp$
  69. End Function
  70.  
  71.  

Ejemplo:

Código
  1.  
  2. Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
  3. Dim Tmp                                 As Long
  4.    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
  5.    Randomize: NumeroAleatorio = (MinNum - MaxNum + 1) * Rnd + MaxNum
  6. End Function
  7.  
  8. Sub main()
  9. Dim ArrayTmp() As Variant
  10. Dim i&, i2&
  11.    i& = 100
  12.    ReDim ArrayTmp(i&)
  13.    For i2& = 0 To i&
  14.        ArrayTmp(i2&) = CStr(NumeroAleatorio(5, 99))
  15.    Next
  16.    Call Start_QuickSort(ArrayTmp(), AcendetOrder) '   //  http://foro.elhacker.net/programacion_vb/source_ordenar_array_low_y_fast-t272312.0.html
  17.    Call MsgBox(Strings.Join(GetSimplificNumbers(ArrayTmp), ","))
  18. End Sub
  19.  
  20.  

Alternativas:
http://foro.elhacker.net/programacion_visual_basic/src_abbreviatenumericarray_by_psyke1-t298689.0.html

P.D.: No escribí los números yo en Array fueron generados aleatoria-mente!¡.

Sangriento Infierno Lunar!¡.
89  Programación / Programación Visual Basic / [Src][Cls] ManipulacionSimple Excel || Cls_ExcelAplication [Release Memory] en: 20 Junio 2010, 03:02 am
Bueno solo traigo este modulo de clase que sirve para que no se quede en memoria la aplicación Excel cuando la creamos con CreateObject(), por ejemplo, hace poco en este Post

http://foro.elhacker.net/programacion_visual_basic/como_exportar_mshflexgrid1_a_excel_expertos_en_vb60-t297037.0.html

Daba la cuestión que siempre para debugear (para ayudarle a Hunter18) se me quedaba la aplicación Abierta y la memoria bien gracias!¡.

Las funciones qué tiene integradas son dos:

Libro()
Hoja()

En el código fuente ya esta con sus descripciones de uso!¡, todo lo demás esta en cuestión vba (abran excel y hay mas o menos vean las propiedades qué podrán usar en vb6 con el objecto qué provenga del createObject("Excel.Application")).

Cls_ExcelAplication.cls
Código
  1. '
  2. '   /////////////////////////////////////////////////////////////
  3. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  4. '   //                                                         //
  5. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  6. '   //                                                         //
  7. '   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
  8. '   // no se eliminen los creditos originales de este codigo   //
  9. '   // No importando que sea modificado/editado o engrandesido //
  10. '   // o achicado, si es en base a este codigo                 //
  11. '   /////////////////////////////////////////////////////////////
  12. '   //                                                         //
  13. '   //                  Cls_ExcelAplication.cls                //
  14. '   //                                                         //
  15. '   /////////////////////////////////////////////////////////////
  16. '
  17. Rem Opciones.
  18. Option Explicit
  19. Rem End Opciones.
  20.  
  21. Rem Eventos.
  22. Event Errores(ByRef Err As ErrObject)
  23. Rem End Eventos.
  24.  
  25. Rem Declaraciones.
  26. Private Obj_Excel               As Object
  27. Rem End Declaraciones.
  28.  
  29.  
  30.  
  31.  
  32.  
  33. Rem Propiedades.
  34.  
  35. '   //  <Metodo Tipo = Propetiedad Acceso=Publico>
  36. '   //      <Objetivo>
  37. '   //          *   Obtiene la instancia de la aplicacion!¡..
  38. '   //      </Objetivo>
  39. '   //      <Return Tipo=Object Parcial={Excel.Application}>
  40. '   //          Regresa el Objeto {Excel.Application}.
  41. '   //      </Return>
  42. '   //  </Metodo>
  43. Public Property Get Excel() As Object
  44.    Set Excel = Obj_Excel
  45. End Property
  46.  
  47. '   //  <Metodo Tipo = Propetiedad Acceso=Publico>
  48. '   //      <Objetivo>
  49. '   //          *   Obtiene un libro segun los criterios, 1 HOJA!¡..
  50. '   //      </Objetivo>
  51. '   //      <Evaluaciones>
  52. '   //          *   Si no existe el libro se crea uno nuevo!¡, solo por busqueda {Index&}.
  53. '   //          *   Si no se ingresa ningun parametro Opcional se crea un nuevo libro y es devuelto!¡.
  54. '   //      </Evaluaciones>
  55. '   //      <Parametros>
  56. '   //          <Opcional Nombre=Index& Datotipo=Long Predeterminado=-1>
  57. '   //              indice del libro a buscar!¡.
  58. '   //          </Opcional>
  59. '   //          <Opcional Nombre=Hoja Datotipo=Object Predeterminado=Nothing>
  60. '   //              Ignora el parametro {Index&} y procede a buscar en TODOS los libros abiertos la hoja deseada.
  61. '   //          </Opcional>
  62. '   //      </Parametros>
  63. '   //      <Return Tipo=Object Parcial=Workbook>
  64. '   //          Regresa el libro {Workbook} deseado!¡.
  65. '   //      </Return>
  66. '   //  </Metodo>
  67. Public Property Get Libro(Optional ByRef Index& = -1, Optional ByRef Hoja As Object = Nothing) As Object
  68. On Error GoTo EventoError
  69. Dim Lng_IndexLibro&
  70. Dim Lng_IndexHoja&
  71.  
  72.    If Index& <= 0 Then
  73.        Index& = Excel.Workbooks.Count
  74.    End If
  75.  
  76.    If Index& <= 0 And Hoja Is Nothing Then
  77.        Index& = 1
  78.        Set Libro = Excel.Workbooks.Add
  79.        With Libro
  80.            For Lng_IndexHoja& = 1 To .Worksheets.Count - 1
  81.                .Worksheets(Lng_IndexHoja&).Delete
  82.            Next
  83.        End With
  84.    Else
  85.        If Hoja Is Nothing Then
  86.            Set Libro = Excel.Workbooks(Index&)
  87.        Else
  88.            With Excel
  89.                For Lng_IndexLibro& = 1 To .Workbooks.Count
  90.                    With .Workbooks(Lng_IndexLibro&)
  91.                        For Lng_IndexHoja& = 1 To .Worksheets.Count
  92.                            If .Worksheets(Lng_IndexHoja&) Is Hoja Then
  93.                                Set Libro = Excel.Workbooks(Lng_IndexHoja&)
  94.                                Index& = Lng_IndexLibro&
  95.                                Exit Property
  96.                            End If
  97.                        Next
  98.                    End With
  99.                Next
  100.            End With
  101.        End If
  102.    End If
  103. Exit Property
  104. EventoError:
  105.    RaiseEvent Errores(Err)
  106.    Err.Clear
  107. End Property
  108.  
  109.  
  110. '   //  <Metodo Tipo = Propetiedad Acceso=Publico>
  111. '   //      <Objetivo>
  112. '   //          *   Obtiene una Hoja de libro segun los criterios.
  113. '   //      </Objetivo>
  114. '   //      <Evaluaciones>
  115. '   //          *   Si no existen Libros se crea uno nuevo.
  116. '   //          *   Si no existen Hojas se crea una nueva en el libro.
  117. '   //          *   Si no se ingresa ningun parametro Opcional se crea un nuevo Libro, y Hoja son devueltos.
  118. '   //      </Evaluaciones>
  119. '   //      <Parametros>
  120. '   //          <Opcional Nombre=Index& Datotipo=Long Predeterminado=-1>
  121. '   //              indice de la Hoja a buscar!¡.
  122. '   //              Si el parametro es superior a la cantidad de hojas en el libro o si es negativo
  123. '   //              Creara una nueva Hoja.
  124. '   //          </Opcional>
  125. '   //          <Opcional Nombre=Book Datotipo=Object Predeterminado=Nothing>
  126. '   //              Indica el libro donde se buscada, si se deja {Nothing} creara uno nuevo
  127. '   //              y en el parametro {index&} devolvera la posicion de la hoja.
  128. '   //          </Opcional>
  129. '   //      </Parametros>
  130. '   //      <Return Tipo=Object Parcial=Workbook>
  131. '   //          Regresa la Hoja {Worksheets} Indicada.
  132. '   //          Parametro {Book}    Regresa el libro en dado caso que no se aya indicado alguno.
  133. '   //          PArametro {Index&}  Regresa el index de la hoja en el libro indicado en el parametro {Book}, igual si fuese Creado.
  134. '   //          Regresa el
  135. '   //      </Return>
  136. '   //  </Metodo>
  137. Public Property Get Hoja(Optional ByRef Index& = -1, Optional ByRef Book As Object = Nothing) As Object
  138. On Error GoTo EventoError
  139. Dim Lng_IndexLibro&
  140. Dim Lng_IndexHoja&
  141.  
  142.    If Book Is Nothing Then
  143.        Set Book = Libro(Index&)
  144.    End If
  145.    If Index& <= 0 Then
  146.        Set Hoja = Book.Worksheets.Add
  147.        Index& = Book.Worksheets.Count
  148.    Else
  149.        With Book
  150.            If .Worksheets.Count < Index& Then
  151.                Index& = .Worksheets.Count
  152.            End If
  153.            Set Hoja = .Worksheets(Index&)
  154.        End With
  155.    End If
  156.  
  157. Exit Property
  158. EventoError:
  159.    RaiseEvent Errores(Err)
  160.    Err.Clear
  161. End Property
  162. Rem End Propiedades.
  163.  
  164.  
  165.  
  166.  
  167.  
  168. Rem Eventos de Modulo de Clase.
  169.  
  170. '   //  <Metodo Tipo=Proceso Acceso=Local>
  171. '   //      <Objetivo>
  172. '   //          *   Crea la instancia de la aplicacion!¡..
  173. '   //      </Objetivo>
  174. '   //  </Metodo>
  175. Private Sub Class_Initialize()
  176. On Error GoTo EventoError
  177.    Set Obj_Excel = CreateObject("Excel.Application")
  178. Exit Sub
  179. EventoError:
  180.    RaiseEvent Errores(Err)
  181.    Err.Clear
  182. End Sub
  183.  
  184. '   //  <Metodo Tipo=Proceso Acceso=Local>
  185. '   //      <Objetivo>
  186. '   //          *   Liberacion de Memoria.
  187. '   //      </Objetivo>
  188. '   //      <Evaluaciones>
  189. '   //          *   Si hay libros abiertos o cargado los descarga.
  190. '   //          *   Si existe la instancia de la aplicacion la clierra
  191. '   //      </Evaluaciones>
  192. '   //  </Metodo>
  193. Private Sub Class_Terminate()
  194. On Error Resume Next
  195. Dim Lng_IndexLibro&
  196.  
  197.    With Excel
  198.        For Lng_IndexLibro& = 1 To .Worksheets.Count
  199.            .Worksheets(Lng_IndexLibro&).Close
  200.            Set .Libro = Nothing
  201.        Next
  202.    End With
  203.  
  204.    If Not Obj_Excel Is Nothing Then
  205.        Call Obj_Excel.Quit
  206.        Set Obj_Excel = Nothing
  207.    End If
  208.    Err.Clear
  209. End Sub
  210. Rem End Eventos de Modulo de Clase.
  211.  
  212.  

Ejemplo!¡.

Código
  1.  
  2. '
  3. '   /////////////////////////////////////////////////////////////
  4. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  5. '   //                                                         //
  6. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  7. '   //                                                         //
  8. '   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
  9. '   // no se eliminen los creditos originales de este codigo   //
  10. '   // No importando que sea modificado/editado o engrandesido //
  11. '   // o achicado, si es en base a este codigo                 //
  12. '   /////////////////////////////////////////////////////////////
  13. '   //                                                         //
  14. '   //            Ejemplo: Cls_ExcelAplication.cls             //
  15. '   //                                                         //
  16. '   /////////////////////////////////////////////////////////////
  17. '
  18. Option Explicit
  19.  
  20. Private WithEvents InstanciaExcel   As Cls_ExcelAplication      '   //  Solo para controlar Errores xP!¡.
  21.  
  22. Private Sub Form_Load()
  23. 'Dim InstanciaExcel                  As Cls_ExcelAplication     '   //  Declaracion Recomendada!¡.
  24. Dim Obj_Hoja                        As Object
  25. Const SaveOn$ = "c:\BlackZeroX.xls"
  26.    Set InstanciaExcel = New Cls_ExcelAplication
  27.    With InstanciaExcel
  28.        Set Obj_Hoja = .Hoja                                    '   //  Creamos una libro y hoja
  29.        Obj_Hoja.cells(1, 1) = "BlackZeroX"
  30.        Obj_Hoja.cells(2, 1) = "Http://InfrAngeluX.sytes.net"
  31.        Obj_Hoja.cells(3, 1) = "Dulce Infierno Lunar!¡."
  32.        .Libro(, Obj_Hoja).Close True, SaveOn$                  '   //  Guardamos.
  33.        Set Obj_Hoja = Nothing                                  '   //  Terminamos la instancia!¡.
  34.    End With
  35.    Set InstanciaExcel = Nothing
  36.    Call vbShell(SaveOn$, False)
  37. End Sub
  38. Public Function vbShell(StrPath As String, Optional ByVal hHiden As Boolean = False) As Boolean
  39. Dim ret                     As Object
  40.    Set ret = CreateObject("Shell.Application", "")
  41.    vbShell = Not ret Is Nothing
  42.    If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then
  43.        Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
  44.        Set ret = Nothing
  45.    End If
  46. End Function
  47.  
  48.  
  49. Private Sub InstanciaExcel_Errores(ByRef Err As ErrObject)
  50.    Call DebugerVB(Err)
  51. End Sub
  52. Private Sub DebugerVB(ByRef Err As ErrObject)
  53.    With Err
  54.        Debug.Print ""
  55.        Debug.Print String$(30, "-")
  56.        Debug.Print "Source:"; .Source
  57.        Debug.Print "Number:"; .Number
  58.        Debug.Print "Description:"; .Description
  59.        Debug.Print String$(30, "-")
  60.        Debug.Print ""
  61.    End With
  62. End Sub
  63.  
  64.  

Dulce Infierno Lunar!¡.
90  Informática / Hardware / [overclocking] Problemas.... en: 16 Junio 2010, 10:22 am

buena sbueno me llamo la atencion aumentar la velocidad de mi procesador tengo un:

Procesador
AMD Athlon 64 LE-1600
MainBoard
Gigabyte modelo M61PME-S2

Esta algo feo realmente pero bueno!¡.

La cosa que use el EasyTune 6 para realizarle un OC pero la pestaña Tuner ( OC/CverClocking ) me aparece desabilitada. y se diran porque rayos usas un soft para eso, bueno la cosa es que en la Bios de mi MainBoard no viene la opcion para el ( OC/OverClocking ), y pues como en el manual de la MainBoard venia lo del EasyTuner pues... opte por este como unico canal!¡.

La verdad no tengo experiencia alguna con este!¡.

Alguien sabe como rallos le hago el OC al procesador ya mensionado? con la MainBoard que tengo.

P.D.: Acabe de actualizar mi Bios de la MainBoard y aun no aparece la opcion del OverClocking, Tengo Windows 7

Dulce Infierno Luanr!¡.

Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines