Temas

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..

[elhacker]

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?

[Bue Tengo Este Codigo]

Bue Tengo Este Codigo

Código (vb) [Seleccionar] Expandir

     Solucionado  :D


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

y No Se Que Puede Ser

Código (vb) [Seleccionar] Expandir

        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..?

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

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  

[Bien... este es uno de esos problemas que no los puedo arreglarbienYo por ejemplo tengo un textbox y un command buttonyo se que para que en el textbox aparezca algo cuando apretan el commandbutton el codigo es]

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 (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text1 = "Ejemplo :D"
End Sub

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

Código [Seleccionar] Expandir

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..

[Bue este problemita me ta rompiendo vastantes las %"·&% este es el codigo]

Bue este problemita me ta rompiendo vastantes las %"·&%

este es el codigo

Código (vb) [Seleccionar] Expandir


Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
                            ByVal La_cadena As String, _
                            ByVal Nueva_Cadena As String)

On Error GoTo errSub
Dim F As Integer
Dim Contenido As String

   
    F = FreeFile

    Open El_Archivo For Input As F

    Contenido = Input$(LOF(F), #F)

    Close #F

    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)

   
    F = FreeFile

    Open El_Archivo For Output As F

    Print #F, Contenido
   

    Close #F
   
    MsgBox " Listo!!! ", vbInformation
Exit Sub

'Error

errSub:
MsgBox Err.Description, vbCritical
Close
End Sub


Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text1, Text2, Text3)

End Sub


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 (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text1, Text2, Text3)

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

[Bien tengo este souce :]

Bien tengo este souce :

Código (vb) [Seleccionar] Expandir

Option Explicit

'***************************************************************************
'*  Name         : Buscar y Reemplazar En Word desde vb
'*  Controles    : Un CommandButton y tres textbox _
                 (txt_Buscar, txt_Buscar y txt_path )
'***************************************************************************

Function Buscar_Reemplazar_En_Word(Cadena_Origen As String, _
                                  Cadena_reemplazo As String, _
                                  Path_Word As String) As Boolean
   
   On Error GoTo Err_Buscar
   
   Dim Obj_Word As Object
   
   'Crea una nueva referencia para poder acceder al documento
   Set Obj_Word = CreateObject("Word.Application")

   ' aplicación de word no visible
   Obj_Word.Visible = False
   
   'Abre el archivo especificado mediante el método Open y algunas opciones
   Obj_Word.Documents.Open FileName:=Path_Word

   
   ' Coloca la selección al comienzo del documento
   Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _
                                        Which:=wdGoToNext, _
                                        Name:="1"
   
   
 
   Obj_Word.Selection.Find.ClearFormatting
   Obj_Word.Selection.Find.Replacement.ClearFormatting
   
   ' Propiedades de la búsqueda y reemplazo
   With Obj_Word.Selection.Find
       .Text = Cadena_Origen
       .Replacement.Text = Cadena_reemplazo
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   
   ' Ejecuta la búsqueda y reemplazo
   Obj_Word.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
   
  'Cierra el documento abierto ( TRue es para guardar los cambios )
   Obj_Word.ActiveDocument.Close True
   
   'Destruye las variables de objeto y cierra la aplicación de word
   Obj_Word.Quit False
   Set Obj_Word = Nothing
   
   'Ok
   Buscar_Reemplazar_En_Word = True
   
   Exit Function

'Error
Err_Buscar:
   MsgBox Err.Description, vbCritical
   
   On Error Resume Next
   'cierra la aplicación de word
   Obj_Word.Quit False
   'Elimina la referencia de la memoria
   Set Obj_Word = Nothing
End Function

Private Sub Command1_Click()
   
   Dim ret As Boolean
   
   ' Comienza la búsqueda y reemplazo en el documento
   ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
                                   txt_Buscar, _
                                   txt_Path)

   If ret Then
       MsgBox " Listo ", vbInformation
   End If


End Sub

Private Sub Form_Load()
   Command1.Caption = " Buscar y reemplazar "
   txt_Buscar = " Acá colocar la palabra a buscar "
   txt_reemplazar = " Acá colocar la palabra de reemplazo"
   txt_Path = " Colocar el path del documento "
End Sub

Tengo Un Error En:

Código (vb) [Seleccionar] Expandir

    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _