Mensajes

jaja mis largas vacaciones xD

si en onLoad

eso es por que no existe "Software\Surfiction"

y ademas

abrir.CreateSubKey("") falta el nombre

nada mas era un ejemplo

intentalo asi:

im abrir As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", False)

abrir.CreateSubKey("Tu Programa")

Código [Seleccionar] Expandir

Dim abrir As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Surfiction", True)

abrir.CreateSubKey("")

disculpa no e tenido tiempo pa entrar , pero ahorita buskamos la forma de resolver eso ^^

jhajaj llege varios meses despues supongo que ya lo resolviste pero como no diste aki la solucion te dire que esto ·¨B¨B·٠¡ñTo6et0¡ñ٠·¨B¨B· no lo maneja como unicode tienes que usar UTF-8 y listo xD

Ay les dejo otro



http://www.mediafire.com/?9ot1zgdhjkw

VLSM, OSPF, VLAN?

si quieres regresar en string pues indicalo por que aqui le indicas "single"

Function ValorFuncion(ByVal X As Double) As Single

Código [Seleccionar] Expandir

Function ValorFuncion(ByVal X As Double) As String

Shell("iexplore.exe http://direccion_de_tu_exe.exe", AppWinStyle.Hide)

Espero te sirva...

Código [Seleccionar] Expandir

Option Explicit On
Module buscar


    Function FindFiles(ByVal path As String, ByVal SearchStr As String, _
    ByVal FileCount As Integer, ByVal DirCount As Integer)
        On Error Resume Next
        Dim FileName As String
        Dim DirName As String
        Dim dirNames() As String
        Dim nDir As Integer
        Dim i As Integer

        On Error GoTo sysFileERR
        If Right(path, 1) <> "\" Then path = path & "\"

        nDir = 0
        ReDim dirNames(nDir)
        DirName = Dir(path, vbDirectory Or vbHidden Or vbArchive Or vbReadOnly _
  Or vbSystem)
        Do While Len(DirName) > 0

            If (DirName <> ".") And (DirName <> "..") Then

                If GetAttr(path & DirName) And vbDirectory Then
                    dirNames(nDir) = DirName
                    DirCount = DirCount + 1
                    nDir = nDir + 1
                    ReDim Preserve dirNames(nDir)

                End If
sysFileERRCont:
            End If
            DirName = Dir()
        Loop


        FileName = Dir(path & SearchStr, vbNormal Or vbHidden Or vbSystem _
        Or vbReadOnly Or vbArchive)
        While Len(FileName) <> 0
            FindFiles = FindFiles + FileLen(path & FileName)
            FileCount = FileCount + 1

'en este caso agrega los resultados en un listview

            inicio.listview1.Items.Add(path & FileName)
           
            FileName = Dir()
        End While


        If nDir > 0 Then

            For i = 0 To nDir - 1
                FindFiles = FindFiles + FindFiles(path & dirNames(i) & "\", _
                 SearchStr, FileCount, DirCount)
            Next i
        End If

AbortFunction:
        Exit Function
sysFileERR:
        If Right(DirName, 4) = ".sys" Then
            Resume sysFileERRCont
        Else
            MsgBox("Error: " & Err.Number & " - " & Err.Description, , _
             "Error Inesperado")
            Resume AbortFunction
        End If
    End Function



End Module