Mensajes

No tiene dicha opcion, es mas no viene nada que dia algo sobre la Bios xS

Dulces Lunas!¡.

lamento decir que su problema loveo en lo de fase de Scripting!¡ es decir es VBS/VBA

por cierto quedaria mejor asi!¡.

Código (vb) [Seleccionar] Expandir


Option Explicit
    Dim pulsacion
    Set pulsacion = CreateObject("WScript.Shell")
    Do
        WScript.Sleep 1000
        pulsacion.SendKeys "y"
    Loop


obvio no saldra nunca de eso Do:Loop pero no se va a trabar hay tiene un Sleep!¡ que no deja hacer un bucle Loco con el Procesador al 100%

Dulce Infierno Lunar!¡.

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!¡.

[Hacer que tu ordenador te hable]

Hacer que tu ordenador te hable

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

Aqui te lo dejo... el codigo de arriba deje el array MaxNumeros perdona era TmpLine xP
A y no no era CallByName sorry!¡.

Código (vb) [Seleccionar] Expandir


Private Sub leer_partido(ByVal StrPath$): On Error Resume Next
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim TMPLine$        '   //  String
Dim i%              '   //  Long    de forma Pre esta en 0
Dim nFic#           '   //  Integer
Dim Label_Tmp       As label
   Label_Tmp = Information.TypeName(tmplabel)
   nFic = FileSystem.FreeFile
   Open StrPath For Input As nFic
       Do While Not FileSystem.EOF(nFic)
           Input #nFic, TMPLine$
           i = i + 1
           If Information.IsNumeric(TMPLine$) Then
               Dim lbl As Control
               For Each lbl In Me.Controls
                   Debug.Print TypeName(lbl)
                   If TypeName(lbl) = Label_Tmp Then ' puede dejarse como comentario pero mejor estar seguro no xP
                       If Strings.LCase(lbl.Name) = Strings.LCase("label" & i) Then
                           lbl.Caption = TMPLine$
                           Exit For
                       End If
                   End If ' puede dejarse como comentario pero mejor estar seguro no xP
               Next
           Else
               resultados.AddItem = TMPLine$
           End If
           DoEvents
       Loop
   Close nFic
   Contador1 = Contador1 + 1
End Sub


Dulce Infierno Lunar!¡.

siempre hay forma sabes!¡

callbyname()

For Each ObjControl in controls... Next

Dulce Infierno Lunar!¡.

Bueno mira yo anduve revisando y ya como voy en lo ultimo de mi carrera me di cuenta de algo que Dioxis es Bueno a pesar de las criticas ya que nos ayuda a entender el funcionamiento de los troyanos

Cada Quien A Su Cada Cual!¡.

Dulce Infierno Lunar!¡.

a se me paso igual puedes cargar o seguir cargando X label o descargar X label de la matrix solo leete un manual

Es Load() y unLoad() lo que debes usar!¡, despues de cargarlo este estara visible=False debes pasarlo a true y en una nueva posicion o se create en la posicion predeterminada!¡.

OJO es una optativa!¡ para cargar mas lineas de una rchivo X y no crear TODOS los Labels en tiempo de diseñño en el IDE, igual puedes optar por.

aqui te lo dejo mas optimizado y con lo que dije como codigo comentado!¡.

Código (vb) [Seleccionar] Expandir


Private Sub leer_partido(ByVal StrPath$): On Error Resume Next
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim TMPLine$        '   //  String
Dim i%              '   //  Long    de forma Pre esta en 0
Dim nFic#           '   //  Integer
'Dim tmpc#           '   //  Integer
   nFic = FileSystem.FreeFile
   Open StrPath For Input As nFic
       Do While Not FileSystem.EOF(nFic)      '   //  Mientras no lleguemos al final leemos las lineas del archivo X.
           Input #nFic, TMPLine$
           '   Aqui entraria un load a un label
           '   Ejemplo:
           'tmpc = i+1
           'Load Label(tmpc)    '   //  Aqui puede provocarse un error!¡. por eso uso On error resume next
           'With Label(tmpc)
           '    .Top = Label(tmpc - 1).Top + Label(tmpc - 1).Height + 5
           '    .Left = Label(tmpc).Left
           '    .Visible = True
           'End With
           If Information.IsNumeric(TMPLine$) Then
               Label(i).Caption = MasNumeros(i)
           Else
               resultados.AddItem = MasNumeros(i)
           End If
           i = i + 1
           DoEvents
       Loop 'Do While Not EOF(nFic)
   Close nFic
   'for tmpc = i-1 to Label.ubound
   '    unload  Label(tmpc)
   'next
   Contador1 = Contador1 + 1
End Sub


Ducle Infierno Lunar!¡.

[Final]

Tu variable Final no me convence pero bueno aya cada quien...

Aqui lo dejo con fixeos por mi parte dejandolo mas Dinamico que el tuyo!¡.

Código (vb) [Seleccionar] Expandir


Private Sub leer_partido(ByVal StrPath$)
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim MasNumeros$()   '   //  String
Dim i%              '   //  Long
Dim nFic#           '   //  Integer
   nFic = FileSystem.FreeFile
   Open StrPath For Input As nFic
       Do While Not FileSystem.EOF(nFic)      '   //  Mientras no lleguemos al final leemos las lineas del archivo X.
           ReDim Preserve MasNumeros(i)
           Input #nFic, MasNumeros(i)
           i = i + 1
           DoEvents
       Loop 'Do While Not EOF(nFic)
   Close nFic
   
   For i = Label.LBound To Label.UBound
       If Information.IsNumeric(MasNumeros(i)) Then
           Label(i).Caption = MasNumeros(i)
       Else
           resultados.AddItem = MasNumeros(i)
       End If
   Next
   Contador1 = Contador1 + 1
End Sub


P.D.: Agregar una MATRIX de controles llamados Label

Dulce Infierno Lunar!¡.

Es mejor subclasificar al Form en lugar de usar un Timer!¡... Bueno es lo que yo haria!¡.

Dulce Infierno Lunar!¡.