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


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / programa que funcione solo con un proceso en: 19 Enero 2010, 01:16
hola a todos
bueno por ejemplo tengo el notepad.exe
yo quiero enviar teclas (sendkeys) pero que solamente funcione con el proceso de notepad.exe, con ningun otro mas.. como tendria que hacer..

2  Programación / Programación Visual Basic / Shell en: 6 Diciembre 2009, 05:21
Hola gente de elhacker
bue yo quisiera hacer lo siguiente
por ejemplo
tengo una carpeta llenisima de archivos, uno de todos esos archivos se llama programa.exe

entonces yo pongo mi programa que cree en visual basic en la carpeta que esta llenisima de archivos  y al apretar el un boton ejecute automaticamente la aplicacion programa.exe
Alguien me ayudaria? :)
3  Programación / Programación Visual Basic / Enviando Paket's Al Servidor en: 1 Noviembre 2009, 20:48
Bue Tengo Este Codigo

Código
  1.      Solucionado  :D
  2.  

Bien, Tengo Un Problema En La Linea De IP's

y No Se Que Puede Ser


Código
  1.         Winsock1.Connect "IPDELSERVIDOR", PUERTO

bue eso es 1 cosa... si yo quisiera que el programa mande el paket al proceso notepad.exe se podra hacer eso..?
4  Programación / Programación Visual Basic / Crear un bot que escriba en: 26 Octubre 2009, 19:58
bue ya me ayudaron tantas veces que 1 vez mas creo que no le hace daño a nadie xD

bue estoy "intentando" crear un tipo bot que escriba solo

¿escriba solo?

si que escriba solo, es que tengo unos numeros que son muy largos y los tengo que poner seguido.. al codigo y a mano estoy como 2 hs

bue yo por ejemplo

yo tengo el notepad.exe ejecutado

entonces yo le doy la condicion al programa que cuando aprete por ejemplo yo quiero que el programa escriba "Hola"

al apretar commandbutton que balla escribiendo letra por letra en este caso Hola al notepad.exe
5  Programación / Programación Visual Basic / ayuda agregar textos en: 25 Octubre 2009, 18:10
bueno yo quiero saber como puedo agregar textos a otro texto por ejemplo

yo tengo un bloc de notas que esta en C:\notepad.txt

y ese notepad adentro contiene una palabra por ejemplo hola

y  abajo de hola yo quiero agregarle como andas

entonces el notepad.txt quedaria

hola
como andas

como seria el codigo?

yo intente hacerlo pero lo que pasaba es que se me borraba el hola y nunca quedaba  :¬¬
6  Programación / Programación Visual Basic / TextBoxs -.-" en: 26 Septiembre 2009, 20:35
Bien... este es uno de esos problemas que no los puedo arreglar
bien
Yo por ejemplo tengo un textbox y un command button
yo se que para que en el textbox aparezca algo cuando apretan el commandbutton el codigo es

Código
  1. Private Sub Command1_Click()
  2. Text1 = "Ejemplo :D"
  3. End Sub

Bien. Si Yo Quisiera Que Cuando Apreten El CommandButton Apasca por ejemplo en el text1

Código:
Ejemplo
ElHacker.Net

Seria que aparezca el "Ejemplo" arriba y "ElHacker.Net" Debajo.
Se puede hacer eso? Por que intente de todas maneras y No logre nada..
7  Programación / Programación Visual Basic / Problemita path en: 25 Septiembre 2009, 18:28
Bue este problemita me ta rompiendo vastantes las %"·&% :xD

este es el codigo

Código
  1. Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
  2.                            ByVal La_cadena As String, _
  3.                            ByVal Nueva_Cadena As String)
  4.  
  5. On Error GoTo errSub
  6. Dim F As Integer
  7. Dim Contenido As String
  8.  
  9.  
  10.    F = FreeFile
  11.  
  12.    Open El_Archivo For Input As F
  13.  
  14.    Contenido = Input$(LOF(F), #F)
  15.  
  16.    Close #F
  17.  
  18.    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)
  19.  
  20.  
  21.    F = FreeFile
  22.  
  23.    Open El_Archivo For Output As F
  24.  
  25.    Print #F, Contenido
  26.  
  27.  
  28.    Close #F
  29.  
  30.    MsgBox " Listo!!! ", vbInformation
  31. Exit Sub
  32.  
  33. 'Error
  34.  
  35. errSub:
  36. MsgBox Err.Description, vbCritical
  37. Close
  38. End Sub
  39.  
  40.  
  41. Private Sub Command1_Click()
  42. If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
  43.   MsgBox " datos incompletos ", vbCritical
  44.   Exit Sub
  45. End If
  46.  
  47. Call Reemplazar_Texto(Text1, Text2, Text3)
  48.  
  49. End Sub
  50.  

Bien la idea es la siguiente:
El
Text1 = "" <-- Es la ruta que esta al archivo
Text2 = "" <-- Busca
Text3 = "" <-- Reemplaza
CommandButton1 <-- Guarda los cambios

Código
  1. Private Sub Command1_Click()
  2. If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
  3.   MsgBox " datos incompletos ", vbCritical
  4.   Exit Sub
  5. End If
  6.  
  7. Call Reemplazar_Texto(Text1, Text2, Text3)
  8.  
  9. End Sub

Bue yo quiero que el Text1 Tenga 2 Rutas Que reemplaze en 2 Lugares por ej:
C:\Texto.txt y D:\Texto.txt
8  Programación / Programación Visual Basic / Problemita en souce Busqueda/Reemplazo/ en: 23 Septiembre 2009, 19:54
Bien tengo este souce :

Código
  1. Option Explicit
  2.  
  3. '***************************************************************************
  4. '*  Name         : Buscar y Reemplazar En Word desde vb
  5. '*  Controles    : Un CommandButton y tres textbox _
  6.                   (txt_Buscar, txt_Buscar y txt_path )
  7. '***************************************************************************
  8.  
  9. Function Buscar_Reemplazar_En_Word(Cadena_Origen As String, _
  10.                                   Cadena_reemplazo As String, _
  11.                                   Path_Word As String) As Boolean
  12.  
  13.    On Error GoTo Err_Buscar
  14.  
  15.    Dim Obj_Word As Object
  16.  
  17.    'Crea una nueva referencia para poder acceder al documento
  18.    Set Obj_Word = CreateObject("Word.Application")
  19.  
  20.    ' aplicación de word no visible
  21.    Obj_Word.Visible = False
  22.  
  23.    'Abre el archivo especificado mediante el método Open y algunas opciones
  24.    Obj_Word.Documents.Open FileName:=Path_Word
  25.  
  26.  
  27.    ' Coloca la selección al comienzo del documento
  28.    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _
  29.                                         Which:=wdGoToNext, _
  30.                                         Name:="1"
  31.  
  32.  
  33.  
  34.    Obj_Word.Selection.Find.ClearFormatting
  35.    Obj_Word.Selection.Find.Replacement.ClearFormatting
  36.  
  37.    ' Propiedades de la búsqueda y reemplazo
  38.    With Obj_Word.Selection.Find
  39.        .Text = Cadena_Origen
  40.        .Replacement.Text = Cadena_reemplazo
  41.        .Forward = True
  42.        .Wrap = wdFindAsk
  43.        .Format = False
  44.        .MatchCase = False
  45.        .MatchWholeWord = False
  46.        .MatchWildcards = False
  47.        .MatchSoundsLike = False
  48.        .MatchAllWordForms = False
  49.    End With
  50.  
  51.    ' Ejecuta la búsqueda y reemplazo
  52.    Obj_Word.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
  53.  
  54.   'Cierra el documento abierto ( TRue es para guardar los cambios )
  55.    Obj_Word.ActiveDocument.Close True
  56.  
  57.    'Destruye las variables de objeto y cierra la aplicación de word
  58.    Obj_Word.Quit False
  59.    Set Obj_Word = Nothing
  60.  
  61.    'Ok
  62.    Buscar_Reemplazar_En_Word = True
  63.  
  64.    Exit Function
  65.  
  66. 'Error
  67. Err_Buscar:
  68.    MsgBox Err.Description, vbCritical
  69.  
  70.    On Error Resume Next
  71.    'cierra la aplicación de word
  72.    Obj_Word.Quit False
  73.    'Elimina la referencia de la memoria
  74.    Set Obj_Word = Nothing
  75. End Function
  76.  
  77. Private Sub Command1_Click()
  78.  
  79.    Dim ret As Boolean
  80.  
  81.    ' Comienza la búsqueda y reemplazo en el documento
  82.    ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
  83.                                    txt_Buscar, _
  84.                                    txt_Path)
  85.  
  86.    If ret Then
  87.        MsgBox " Listo ", vbInformation
  88.    End If
  89.  
  90.  
  91. End Sub
  92.  
  93. Private Sub Form_Load()
  94.    Command1.Caption = " Buscar y reemplazar "
  95.    txt_Buscar = " Acá colocar la palabra a buscar "
  96.    txt_reemplazar = " Acá colocar la palabra de reemplazo"
  97.    txt_Path = " Colocar el path del documento "
  98. End Sub

Tengo Un Error En:

Código
  1.    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _
Páginas: [1]
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines