Mensajes

La desventaja que si es un SO Win XP desatendido estos en ocasiones el EMI lo traen desactivado y este tipo de codigos no sirven de nada!¡, ya que dependen de otras caracteristicas.

P.D.: Me quedo con APIS.

Sangriento Infierno Lunar!¡.

Código (Vb) [Seleccionar] Expandir


'   //  //  //  //  //  //  //  //  //  //  //  //  //  //  //  //
'   //  Se nesesita solo un ListBoX  =  List1//  //  //  //
'   //  //  //  //  //  //  //  //  //  //  //  //  //  //  //  //
Private Sub Combinaciones(Palabra As String, Optional strFixed As String)
   Dim Recorrer As Integer
   If Len(Palabra) <> 1 Then
       For Recorrer = 1 To Len(Palabra)
           Combinaciones Left$(Palabra, Recorrer - 1) & Mid$(Palabra, Recorrer + 1), strFixed & Mid$(Palabra, Recorrer, 1)
       Next Recorrer
   Else
       List1.AddItem strFixed & Palabra
   End If
End Sub


Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    List1.visible = false
   Call Combinaciones("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
    List1.visible = true
End Sub


Sangriento Infierno Lunar!¡.

Text1.Text = a + 1

eso no da error eso da como resultado 1 y si a fuese asi un string que contiene algo solo lo concatena con el 1 al final.

Text1.Text = VAL(a)  + VAL(1)

No tiene caso poner val(1) 1 se etiende como numero siempre y cuando no este entre comillas o en una vairable tipo string variant o similar

Ducles Lunas!¡.

[.NET]

La cosa por lo que entiendo es que el .NET el FrameWork que ejecuta el Script... bueno el "Programa" tiene un modulo que administra la memoria, por decirlo en Español y en VB6 no esta esto pero bueno!¡.

Dulces Lunas!¡.

Existen gran cantidad de códigos por la red (algunos míos ) que permiten llamar APIs de forma Dinámica... es decir sin declararlas...

Que modesto nos salio... JAAAaajajaja!¡.

lo de hash y ASM recuerdo que me lo menciono mi primo que ya tiene 30 y pico de años... jamas le entendi ni jota... me lo decia en su lenguaje... ASM!¡.

Este tipo de cosillas se queman muuy rapido, pero bueno!¡.

Dulces Lunas!¡.

[ADO.NET]

Te recomiendo realises la conexion ado y crees tus funciones aparte dejando el form limpio de este tipo de cosas... asi lo hago yo en .NET ADO.NET aun que este ado la funcion deberia seria devolverte el RecordSet, despues trabajas sobre este con la conexion cerrada y en otra funcion guardas el RecordSet pasandolo en dicha funcion!¡.

Dulces Lunas!¡.

Call CloseHandle(hFile)

debe ir despues de ReadFile(), aun ta mal. faltan toques jeje

Dulces Lunas!¡.

[!=]

el signo de != = diferente de entonces en vb6 puedes usar <> o

Código (Vb) [Seleccionar] Expandir


if Not Variable = Variable then
    ...
else
    ...
end if


Dulces Lunas!¡.

[DUC]

Y el codigo completo de la segunda forma es:

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "abrahametalero.sytes.net", 666
Label1.Caption = "Conectando"
If Err Then Exit Sub
End Sub

(Por ahora esto es todo el codigo)
Agamos la prueba si funciona...
yo le puse que se conectara a mi no-ip.....

Esto causa Grasia... quiso Ocultar su DNS pero se nota en el Codigo que puso... de hecho tambien en la Imagen en el Log del DUC.

Dulces Luanas!¡.

Código (vb) [Seleccionar] Expandir



Option Explicit

Sub main()
Dim StrFileData         As String
    GetLineFromFile "c:\liberar memoria ram.bas", 2, StrFileData
    MsgBox StrFileData
    GetLineFromFile "c:\liberar memoria ram.bas", 8, StrFileData
    MsgBox StrFileData
    GetLineFromFile "c:\liberar memoria ram.bas", 10, StrFileData
    MsgBox StrFileData
End Sub

Public Function GetLineFromFile(StrFile As String, NumberFile As Long, ByRef StrLine As String) As Long
Dim i                   As Long
Dim StrByte             As String * 1
Dim ff                  As Integer
    If Dir(StrFile, vbArchive) <> "" Then
        ff = FreeFile
        Open StrFile For Input As #ff
            Do
                i = i + 1
                If i < NumberFile Then
                    Line Input #ff, StrByte
                Else
                    Line Input #ff, StrLine
                End If
            Loop Until i = NumberFile Or EOF(ff) = True
            GetLineFromFile = Len(StrLine)
        Close #ff
    End If
End Function



Dulces Lunas!¡.