Mensajes

te la aplicaron, es que son cosas como de esas que no se dicen si no las piden por lo faciles que son

jajajaja los controles ActiveX

pueden estar donde sea siempre y cuando le indiques la direccion al agregar el control en



ja

saludos

eso no sirve

Mejor hazlo con un applet esta mas bonito xD

le falta el botoncito maestro

Na Este esta mas guapo.

ajustado  para tus capacidades.

jejejeje

solo Copia y Pega Copy and Paste  facil no?

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim WithEvents cmdEliminar As CommandButton
Dim WithEvents dirCarpeta As DirListBox
Dim WithEvents drvUnidad As DriveListBox
Dim WithEvents filArchivo As FileListBox
Dim WithEvents txtTexto As TextBox
Dim WithEvents cmdAbrir As CommandButton
Dim Pito As Integer
Private Sub Form_Load()
    Set cmdEliminar = Form1.Controls.Add("VB.CommandButton", "cmdBoton1")
    Set dirCarpeta = Form1.Controls.Add("vb.DirListBox", "dirLista")
    Set drvUnidad = Form1.Controls.Add("vb.DriveListBox", "drvLista")
    Set filArchivo = Form1.Controls.Add("vb.FileListBox", "filLista")
    Set txtTexto = Form1.Controls.Add("VB.TextBox", "txtText")
    Set cmdAbrir = Form1.Controls.Add("VB.CommandButton", "cmdBoton2")
   
    Cmd
    Dir
    Drv
    Fil
    txt
    Cmd1
    cargaCaptions


Me.Left = 0
Me.Top = 0
Me.Height = 6855
Me.Width = 8655
Me.Caption = "Codigo para Lammer"
Me.BackColor = RGB(0, 0, 0)
End Sub
'<¡---- estas vergas cargan la interface
Private Sub Cmd()
cmdEliminar.Left = 240
cmdEliminar.Top = 5040
cmdEliminar.Height = 735
cmdEliminar.Width = 3735
cmdEliminar.Visible = True
cmdEliminar.Font.Name = "lucida console"
cmdEliminar.Font.Size = 36
End Sub
Private Sub Cmd1()
cmdAbrir.Left = 4560
cmdAbrir.Top = 5040
cmdAbrir.Height = 735
cmdAbrir.Width = 3735
cmdAbrir.Visible = True
cmdAbrir.Font.Name = "lucida console"
cmdAbrir.Font.Size = 36
End Sub
Private Sub Drv()
drvUnidad.Left = 120
drvUnidad.Top = 120
drvUnidad.Width = 3495
drvUnidad.Visible = True
drvUnidad.Font.Name = "lucida console"
drvUnidad.BackColor = vbBlack
drvUnidad.ForeColor = vbGreen
End Sub
Private Sub Dir()
dirCarpeta.Left = 120
dirCarpeta.Top = 480
dirCarpeta.Height = 4365
dirCarpeta.Width = 3495
dirCarpeta.Visible = True
dirCarpeta.Font.Name = "lucida console"
dirCarpeta.BackColor = vbBlack
dirCarpeta.ForeColor = vbGreen
End Sub
Private Sub Fil()
filArchivo.Left = 3720
filArchivo.Top = 120
filArchivo.Height = 4770
filArchivo.Width = 4575
filArchivo.Visible = True
filArchivo.Font.Name = "lucida console"
filArchivo.BackColor = vbBlack
filArchivo.ForeColor = vbGreen
End Sub
Private Sub txt()
txtTexto.Left = 0
txtTexto.Top = 6120
txtTexto.Height = 6855
txtTexto.Width = 8535
txtTexto.Visible = True
txtTexto.BackColor = vbBlack
txtTexto.ForeColor = vbGreen
End Sub
Private Sub cargaCaptions()
cmdEliminar.Caption = "Eliminar"
cmdAbrir.Caption = "Abrir"
txtTexto.Text = "C:\WINDOWS\system32\cmd.exe"
End Sub
' A qui terminan las vergas de la interface-----!>
'<---- a qui empiezan los metodos
Private Sub drvUnidad_Change()
On Error GoTo Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD
            dirCarpeta.Path = drvUnidad.Drive
    Exit Sub
Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD:
    MsgBox "Cabron fijate si ay disco sope", vbQuestion, "Pendejo"
End Sub
Private Sub dirCarpeta_Change()
            filArchivo.Path = dirCarpeta.Path
End Sub
Private Sub filArchivo_Click()
            Me.Caption = dirCarpeta.Path & filArchivo.FileName
            txtTexto.Text = dirCarpeta.Path & "\" & filArchivo.FileName
End Sub
Private Sub cmdAbrir_Click()
   Pito = ShellExecute(Me.hwnd, "Open", txtTexto, "", "", 1)
End Sub
Private Sub cmdEliminar_click()
Kill txtTexto
filArchivo.Refresh
End Sub


se ve mal ya cambien los colores de los codigos.

jejejeje lo hice en blog de notas xD

ya se lo que se siente programar en C

jajaja es broma

Es por lo que tenemos que pasar

por cierto que significa esto?

Código [Seleccionar] Expandir

<SCRIPT LANGUAGE="javascript">

window.location="http://xlphp.net/aboutus.php/";

</script>

<!-- 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 526 640 917 51 415 140 573 716 965 688 395 829 76 810 801 733 244 95 205 283 488 189 705 173 743 574 947 608 694 973 886 298 223 449 99 309 936 432 209 623 454  399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 526 640 917 51 415 140 573 716 965 688 395 829 76 810 801 733 244 95 205 283 488 189 705 173 743 574 947 608 694 973 886 298 223 449 99 309 936 432 209 623 454 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 526 640 917 51 415 140 573 716 965 688 395 829 76 810 801 733 244 95 205 283 488 189 705 173 743 574 947 608 694 973 886 298 223 449 99 309 936 432 209 623 454 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 526 640 917 51 415 140 573 716 965 688 395 829 76 810 801 733 244 95 205 283 488 189 705 173 743 574 947 608 694 973 886 298 223 449 99 309 936 432 209 623 454 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 399 310 772 188 121 747 908 375 658 989 471 891 842 282 539 788 863 526 640 917 51 415 140 573 716 965 688 395 829 76 810 801 733 244 95 205 283 488 189 705 173 743 574 947 608 694 973 886 298 223 449 99 309 936 432 209 623 454 -->


Por que esta en el dir lammos ?

Bien merecido

Creo que si fue en ASM por lo mismo que es un lenguaje muy Anti-visual para mis gustos 

Discúlpame,
No es una duda tonta,
Esto sí!!! Es una duda tonta
http://foro.elhacker.net/index.php/topic,171631.0.html

Las cosas que no las contestan es porque nadie sabe o por ser una pregunta tonta
"Decide de que tipo es"
No se quien dijo, creo que fue el compañero EON,
"Antes de preguntar Busca en Google"

aun que nada que ver.   

si se que Hendrix. es mucho mas flexible esta bien.
que el conteste este tipo de preguntas yo mejor no digo nada 


Felicidades Hendrix. por eso de (moderador)

Cambiando de tema.
Me gusta tu Firma le da un toque de ironia al evento
salu 2
Que tengan una bonita tarde jovenes