elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11
1  Programación / Ejercicios / Re: ejercicios c++ en: 13 Julio 2008, 00:34 am
hi, io tambn se podria dcir q me estoy iniciando, no entiendo muxo, vi tu code y no hay q declarar a la funcion Suma ?¿ osea hay definistes la funcion pero no hay q declararla previamente? o es solo para las funciones miembro o tampoco o como es el asunto salu2s
2  Programación / Programación Visual Basic / Descargando Partes en: 10 Julio 2008, 13:12 pm
hola 1 salu2, me preguntaba si alguien tiene alguna idea de como descargar las 'ramas' o como se llame de una pagina web x ejemplo si quisiera descargar todas las paginas que esten en 'http://foro.elhacker.net/programacion_vb-b50.0/' como haria? alguna api q me facilite la tarea ? salu2s  ;)
3  Programación / Programación Visual Basic / Re: Reconocimiento de objetos en: 7 Julio 2008, 20:20 pm
hi , buscasbas hacer algo asi para reconocer captchas o q salu2s
4  Programación / Programación Visual Basic / Re: 'Split' o 'Partir' Bmp ¿? en: 7 Julio 2008, 04:41 am
bueno ya lo termine con un simple codigo , muchas gracias hans el topo salu2s  ;)
5  Programación / Programación Visual Basic / Re: 'Split' o 'Partir' Bmp ¿? en: 7 Julio 2008, 01:34 am
ya lo habia conseguido pero en ves d qdarme de la forma 1,2,3,4,5,... me qdo de la forma 2,1,4,3,6,5... stoy probando con este codigo y ahora no se como recorrer el listbox 2  :huh: q contiene la lista de archivos para ir pasandoselos al comando rename de la shell , seguire probando

Código
  1. '---------------------------------------------------
  2.    'Agregar lña referencia a Microsoft Scripting Runtime
  3. '---------------------------------------------------
  4.  
  5.  
  6. Private Sub Command1_Click()
  7. On Error GoTo errsub
  8.  
  9.    Dim Fso As FileSystemObject
  10.    Dim El_Directorio As Folder
  11.  
  12.    Screen.MousePointer = vbHourglass
  13.  
  14.    DoEvents
  15.    List1.Clear
  16.  
  17.  
  18.    Set Fso = New FileSystemObject
  19.    Set El_Directorio = Fso.GetFolder(Trim$(Text1))
  20.  
  21.    List1.AddItem Trim$(Text1)
  22.  
  23.   ' Comienza a listar las carpetas
  24.    Call Listar_Directorios(El_Directorio)
  25.  
  26.    Screen.MousePointer = vbDefault
  27.  
  28. 'Error
  29. Exit Sub
  30.  
  31. errsub:
  32.    MsgBox Err.Description, vbCritical
  33.    Screen.MousePointer = vbDefault
  34.  
  35. End Sub
  36.  
  37.  
  38. Private Sub Listar_Directorios(ByVal El_Directorio As Folder)
  39.  
  40.    On Error GoTo errsub
  41.  
  42.    ' Variable de tipo Folder
  43.    Dim Subdirectorio As Folder
  44.  
  45.    ' Recorre los subdirectorios
  46.    For Each Subdirectorio In El_Directorio.SubFolders
  47.        'Agrega el path
  48.        List1.AddItem El_Directorio.Path & "\" & Subdirectorio.Name
  49.  
  50.        'sigue listando los directorios
  51.        Listar_Directorios Subdirectorio
  52.  
  53.    Next
  54.  
  55. Exit Sub
  56.  
  57. 'Error
  58. errsub:
  59. 'Error de permiso denegado
  60. If Err.Number = 70 Then
  61.   Resume Next
  62.  
  63. ElseIf Err.Number = 91 Then
  64.   Screen.MousePointer = vbDefault
  65.   Exit Sub
  66. Else
  67.   MsgBox Err.Description, vbCritical
  68.   Exit Sub
  69. End If
  70. End Sub
  71.  
  72. Private Sub Form_Load()
  73.    Command1.Caption = " Listar "
  74.    Text1 = "c:\a"
  75. End Sub
  76.  
  77. Private Sub List1_Click()
  78.  
  79.    'Variable de tipo FILE y FOLDER para listar los archivos de un path
  80.    Dim El_Archivo As File
  81.    Dim El_Directorio As Folder
  82.  
  83.    'Si no hay items en el List sale
  84.    If List1.ListIndex = -1 Then Exit Sub
  85.  
  86.    List2.Clear
  87.  
  88.    'Nuevo objeto FileSystemObject
  89.    Set Fso = New FileSystemObject
  90.  
  91.    ' Obtiene el directorio
  92.    Set El_Directorio = Fso.GetFolder(List1.List(List1.ListIndex))
  93.  
  94.  
  95.    ' Lista los ficheros de esta carpeta
  96.    For Each El_Archivo In El_Directorio.Files
  97.       'Añade la ruta
  98.       List2.AddItem El_Archivo.Name
  99.  
  100.    Next El_Archivo
  101.  
  102. End Sub
6  Programación / Programación Visual Basic / Re: 'Split' o 'Partir' Bmp ¿? en: 6 Julio 2008, 23:51 pm
lo e hecho de esta forma xq no se hacerlo de otra, alguien me podria dcir com hacerlo bn para no tardarme tanto  :huh:

Código
  1. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  2.  
  3. Private Sub Form_Load()
  4. Text2.Text = 1
  5. End Sub
  6.  
  7. Private Sub Timer1_Timer()
  8. Dim lnghWnd As Long, Texto As String
  9. Dim O As Variant
  10. Dim Var As Variant
  11. lnghWnd = GetForegroundWindow
  12. Texto = String(255, Chr(O))
  13. GetWindowText GetForegroundWindow, Texto, 255
  14. Me.Caption = Texto
  15. Var = Left$(Form1.Caption, 49)
  16. Label1.Caption = Var
  17. End Sub
  18.  
  19. Private Sub renombrar()
  20. Dim ArchivoOrigen As String
  21. Dim ArchivoDestino As String
  22. Set fs = CreateObject("Scripting.FileSystemObject")
  23. ArchivoOrigen = "C:\Documents and Settings\SPC\Escritorio\PARTES DERECHA DE JPGS\" & Text1.Text & ".jpg"
  24. ArchivoDestino = "C:\Documents and Settings\SPC\Escritorio\PARTES DERECHA DE JPGS\" & Text2.Text & ".jpg"
  25. fs.CopyFile ArchivoOrigen, ArchivoDestino
  26. fs.deletefile ArchivoOrigen
  27. Text2.Text = Text2.Text + 2
  28. End Sub
  29.  
  30.  
  31. Private Sub Timer2_Timer()
  32. SendKeys "{ENTER}"
  33. Timer2.Enabled = False
  34. Timer3.Enabled = True
  35. End Sub
  36.  
  37. Private Sub Timer3_Timer()
  38. Text1.Text = Label1.Caption
  39. SendKeys "%{F4}"
  40. SendKeys "{DOWN}"
  41. renombrar
  42. Timer3.Enabled = False
  43. Timer2.Enabled = True
  44. End Sub
  45.  
  46. Private Sub Timer4_Timer()
  47. Timer2.Enabled = True
  48. End Sub

de esta forma consigo lo q quiero pero aparte de q tarda un monton xq son un viaje de hojas  :huh: :huh:
7  Programación / Programación Visual Basic / Re: 'Split' o 'Partir' Bmp ¿? en: 6 Julio 2008, 20:41 pm
vale ya lo e hecho, como tenia prisa pues tuve q meterle por fuerza bruta con las apis mouse_event y SetCursorPos  :xD , ara lo q no se es como ordenar las hojas, tengo que colocarlas en orden, por ahora estan asi 1,3,5,7... y en otra carpeta estan las pares 2,4,6,... y pues obviamente tengo que colocarlas bien 1,2,3.. para eso supongo que tengo que cambiar los nombres de las hojas impares a numeros impares y las pares a nros pares ya que ambas carpetas tienen el mismo nro de archivos y con los mismos nombres, alguna idea o api que me pueda facilitar la tarea? digo para cambiar los nombres y eso  :huh: :huh: :huh: :huh: salu2s
8  Programación / Programación Visual Basic / Re: 'Split' o 'Partir' Bmp ¿? en: 6 Julio 2008, 03:00 am
Bueno ya lo he conseguido usando fireworks ara solo me qda inventar algo en vb para q sea automatizado gracias de todas formas salu2s
9  Media / Diseño Gráfico / Re: partir imagenes / bmp's en: 6 Julio 2008, 02:59 am
Bueno ya lo he conseguido usando fireworks ara solo me qda inventar algo en vb para q sea automatizado gracias de todas formas salu2s
10  Media / Diseño Gráfico / partir imagenes / bmp's en: 6 Julio 2008, 01:10 am
Hola 1 salu2, me preguntaba si alguien conoce x casualidad algun metodo si es posible automatizado para partir muchas imagenes que estan en formato bmp en 2 partes quedando de esta forma 2 archivos bmp por cada imagen (bmp) alguna idea  :huh: desde ya muchas gracias.. salu2s
Páginas: [1] 2 3 4 5 6 7 8 9 10 11
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines