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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: 1 2 [3] 4
21  Programación / Programación Visual Basic / "modificar" el tamaño de un archivo en: 22 Julio 2010, 04:57 am
bueno de nuevo yo con mis preguntas :p

bueno la pregunta es como puedo con el vb crear o modificar el tamaño de un archivo pero no el original, si no fingir de cierta forma el tamaño del mismo. Digamos hacer que un archivo de 10Mb aparente pesar 500Mb.

bueno si es esto posible me gustaria que alguien me dijera como o alguna pista ya que no logro encontrar nada sobre el tema con mi amigo google :S
22  Foros Generales / Dudas Generales / Duda sobre carrera en: 1 Julio 2010, 03:51 am
bueno estoy pensando en que carrera seguir. Pense en ing. en sistemas, pero a mi lo que realmente me gusta es programar y la seguridad informatica. estuve leyendo pero lo que hay son terciarios o cursos, alguien sabe alguna carrera sobre el tema?? y otra duda, soy de Bs As (Arg) y pense que la mejor universidad de todas las que vi para ir seria la UTN, alguien sabe si hay alguna mejor (relacionada con las carreras de informatica)?
23  Programación / .NET (C#, VB.NET, ASP) / Problema con buscador de texto (vb.net) en: 14 Mayo 2010, 05:54 am
bueno hice una funcion que (segun mi poco conocimiento) deberia buscar y un caracter, y si lo encuentra escribir otro en un richtextbox aparte. El problema es que no funciona y queria saber si alguien me podria explicar que estoy haciendo mal.

Código
  1.    Private Sub Remplazar(ByVal RichTextBox As Object, ByVal Texto As String, ByVal Texto2 As String)
  2.  
  3.        Dim Pos As Integer
  4.  
  5.        If Len(Texto) Then
  6.            For Pos = 0 To Pos < Len(RichTextBox1.Text)
  7.                If Chr(Pos) = Texto Then
  8.                    RichTextBox2.Text = RichTextBox2.Text & Texto2
  9.                End If
  10.            Next
  11.        End If
  12.    End Sub
  13.  
Editado: habia puesto mal el codigo antes ya que habia empezado a intentar ver donde estaba el problema.
24  Programación / Programación Visual Basic / Pregunta sobre un codigo en: 13 Octubre 2009, 02:51 am
hola el otro dia buscando codigos para trabajar con archivos .ini que me pudieran ayudar y servir de guia encontre este, pero hay una cosa que no entendi:
Código
  1. Option Explicit  
  2.  
  3. Const APPLICATION As String = "MiPrograma"  
  4.  
  5. Dim m_Left As Single  
  6. Dim m_Top As Single  
  7. Dim m_Width As Single  
  8. Dim m_Height As Single  
  9.  
  10. Dim Path_Archivo_Ini As String  
  11.  
  12. 'Función api que recupera un valor-dato de un archivo Ini  
  13. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _  
  14.    ByVal lpApplicationName As String, _  
  15.    ByVal lpKeyName As String, _  
  16.    ByVal lpDefault As String, _  
  17.    ByVal lpReturnedString As String, _  
  18.    ByVal nSize As Long, _  
  19.    ByVal lpFileName As String) As Long  
  20.  
  21. 'Función api que Escribe un valor - dato en un archivo Ini  
  22. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _  
  23.    ByVal lpApplicationName As String, _  
  24.    ByVal lpKeyName As String, _  
  25.    ByVal lpString As String, _  
  26.    ByVal lpFileName As String) As Long  
  27.  
  28.  
  29. 'Lee un dato _  
  30. -----------------------------  
  31. 'Recibe la ruta del archivo, la clave a leer y _  
  32. el valor por defecto en caso de que la Key no exista  
  33. Private Function Leer_Ini(Path_INI As String, Key As String, Default As Variant) As String  
  34.  
  35. Dim bufer As String * 256  
  36. Dim Len_Value As Long  
  37.  
  38.        Len_Value = GetPrivateProfileString(APPLICATION, _  
  39.                                         Key, _  
  40.                                         Default, _  
  41.                                         bufer, _  
  42.                                         Len(bufer), _  
  43.                                         Path_INI)  
  44.  
  45.        Leer_Ini = Left$(bufer, Len_Value)  
  46.  
  47. End Function  
  48.  
  49. 'Escribe un dato en el INI _  
  50. -----------------------------  
  51. 'Recibe la ruta del archivo, La clave a escribir y el valor a añadir en dicha clave  
  52.  
  53. Private Function Grabar_Ini(Path_INI As String, Key As String, Valor As Variant) As String  
  54.  
  55.    WritePrivateProfileString APPLICATION, _  
  56.                                         Key, _  
  57.                                         Valor, _  
  58.                                         Path_INI  
  59.  
  60. End Function  
  61.  
  62.  
  63. Private Sub Form_Load()  
  64.  
  65.    'Path del fichero Ini  
  66.    Path_Archivo_Ini = App.Path & "\config.ini"  
  67.  
  68.    ' Lee las Key y  Les envia el valor por defecto por si no existe  
  69.    m_Left = Leer_Ini(Path_Archivo_Ini, "Left", 0)  
  70.    m_Top = Leer_Ini(Path_Archivo_Ini, "Top", 0)  
  71.    m_Width = Leer_Ini(Path_Archivo_Ini, "Width", 5000)  
  72.    m_Height = Leer_Ini(Path_Archivo_Ini, "Height", 5000)  
  73.  
  74.    'Posiciona el formulario con los valores del archivo Ini  
  75.    Move m_Left, m_Top, m_Width, m_Height  
  76.  
  77. End Sub  
  78.  
  79. Private Sub Form_Unload(Cancel As Integer)  
  80.  
  81.    'Escribe en el archivo Ini  
  82.  
  83.    'Posición del Form  
  84.    Call Grabar_Ini(Path_Archivo_Ini, "Left", Me.Left)  
  85.    Call Grabar_Ini(Path_Archivo_Ini, "Top", Me.Top)  
  86.  
  87.    'Tamaño del formulario  
  88.    Call Grabar_Ini(Path_Archivo_Ini, "Width", Me.Width)  
  89.    Call Grabar_Ini(Path_Archivo_Ini, "Height", Me.Height)  
  90.  
  91. End Sub  
  92.  

porque en el evento load del form no se llama a la funcion Leer_Ini, mientras que en el evento Unload del form si se lo hace?

gracias
25  Programación / Programación Visual Basic / duda de los form en: 3 Octubre 2009, 08:28 am
hay alguna manera de hacer el form transparente, pero que a la vez se vea su contenido ???
26  Programación / Programación Visual Basic / seek bar para reproductor de audio en: 30 Septiembre 2009, 00:47 am
hola les comento que estoy haciendo un reproductor de audio utilizando Windows Media Player (WMP) ya que me provee de visualizaciones y es mas facil de usar, pero los botones, comandos, etc. los diseño yo y al diseñar la seek bar con un slider no encontre la forma de conectarla al WMP :S
Mi idea era hacer una seek bar como la del reproductor, es decir si uno hace click en X lugar la cancion se adelante hasta el mismo y que avanze a medida q el tema se reproduce, gracias.
27  Programación / Programación Visual Basic / problema con MMcontrol (control de multimedia) en: 28 Septiembre 2009, 01:18 am
hola tengo un problema con este codigo, no logro que cargue el archivo que elijo desde el commondialog
pero no encuentro el porque

Código:
Private Sub Image5_Click()

On Error Resume Next
CommonDialog1.Filter = "Archivos MP3 (*.mp3)|*.mp3| Archivos MIDI (*.mid)|*.mid| Archivos de audio de Windows (*.wav)|*.wav"
CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"

Label1.Caption = CommonDialog1.FileTitle

End Sub
28  Programación / Programación Visual Basic / Guardar desde commondialog en: 18 Septiembre 2009, 02:28 am
hola queria saber si hay alguna manera de guardar un archivo con el guardar
xq ya hice el guardar como, pero no encontre la forma de hacer el guardar solo :S
si alguien me dice como empezar o donde puedo conseguir algo de informacion se lo voy a agradecer
29  Programación / Programación Visual Basic / problema con Commondialog en: 13 Septiembre 2009, 01:11 am
estoy intentando hacer un editor de texto
el problema surge cuando quiero guardar el text como un archivo
ya que si no especifico la extensión cuando ingreso el nombre no me lo guarda

el codigo q tiene es este

Código:
On Local Error Resume Nex
    CommonDialog1.CancelError = True
    CommonDialog1.DefaultExt = "*.txt"
    CommonDialog1.Filter = "Documentos de texto (*.txt)"
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1
    Close

saben por que no me crea el archivo ????
30  Programación / Programación Visual Basic / Problema con Combobox en: 4 Septiembre 2009, 05:30 am
hola mi problema es que no se como hacer que aparescan todas las fuentes en el
combobox sin tener que ingresar una x una con AddItem.
o sea lo que yo quiero es que en el combobox aparescan todas las fuentes de la
computadora.
gracias
Páginas: 1 2 [3] 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines