Mensajes

e me podrian q es AutoIt ?? ...

Muchas Gracias por tus correcciones Maestro Obi-Wan Kenobi  xD pero antes de ello ya habia creado este Script El otro era estatico este ya se mueve xD pues claro que no hace ningun daño ya si uno quiere le dice que apage la pc o la reinicie pero eso no lo pongo aca ... cosa de cada quien xD 

Código [Seleccionar] Expandir


Option Explicit

Dim Obj_SH ' as Object
Dim Str_Nombre ' as String
Dim Str_PC ' as String
Dim Str_Texto ' as String
Dim Palabras(7) ' as String << Array
Dim Int_Tam ' as Integer
Dim x ' as Integer
Dim i ' as Integer

'_________________________________________________________________________

Set Obj_SH = WScript.CreateObject("WScript.Shell")
Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%")
Str_PC = Obj_SH.ExpandEnvironmentStrings("%ComputerName%")

Obj_SH.Run("Notepad.exe")
Obj_SH.AppActivate("Sín Título - Bloc de Notas")

Palabras (0) = "Hola Como Estas " & Str_Nombre
Palabras (1) = ""
Palabras (2) = "Lamento Informarte"
Palabras (3) = "Que La PC : " & Str_PC
Palabras (4) = "Se Encuentra Desprotegida ... "
Palabras (5) = "SaLuDoss"
Palabras (6) = ""
Palabras (7) = "Atte : ZaraKi ..."

For x = 0 To UBound(Palabras)
   Str_Texto = Palabras(x)
   Int_Tam = Len(Palabras(x))

   For i = 1 To Int_Tam
       WScript.Sleep(100)
       Obj_SH.SendKeys( Mid(Str_Texto,i, 1))
   Next
   Obj_SH.SendKeys("{ENTER}")
Next


Hola pues aqui compartiendo con los Newbies como yo una bromilla muy simple haber q les parece .. Esta Hecha con VBS

Código [Seleccionar] Expandir


Option Explicit

Dim Obj_SH ' as Object
Dim Str_Nombre ' as String
Dim Str_PC ' as String
Dim Palabras(8) ' as String << Array
Dim x ' as Integer

'_________________________________________________________________________


Set Obj_SH = WScript.CreateObject("WScript.Shell")

'Si Queremos Molestar y Obligar a Que El Mismo Digite Su Nombre Podriamos Habilitar Esta Linea
'y Comentar esta >> Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%")
'
'Do
' Str_Nombre = InputBox("Ingresa Tu Nombre Quieres ???","Entrada de Datos")
'Loop Until Str_Nombre <> ""


Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%")
Str_PC = Obj_SH.ExpandEnvironmentStrings("%UserDomain%")

Obj_SH.Run("Notepad.exe")
Obj_SH.AppActivate("Sín Título - Bloc de Notas")

Palabras (0) = "Hola Como Estas " & Str_Nombre
Palabras (1) = ""
Palabras (2) = "Lamento Informarte"
Palabras (3) = "Que La PC : " & Str_PC
Palabras (4) = "Se Encuentra Desprotegida ... "
Palabras (5) = "SaLuDoss"
Palabras (6) = ""
Palabras (7) = "Atte : ZaraKi ..."

For x = 0 To UBound(Palabras) - 1
WScript.Sleep(1000)
Obj_SH.SendKeys( Palabras(x) & "{ENTER}")
Next



Ese Array Creo que se Puede Escribir en una Linea ?? ... me podrian dejar la forma .. Gracias
Saludos ! 

Hola disculpenme si este post no va aca pero no c donde ponerlo yo estoy aprendiendo VBS y puedo quiero modernizarme y usar una IDE escuche que todo lo que hago en mi Script podria hacerlo en Visual Basic ?? habra un Enlace donde conseguir esa Herramienta para dejar de lado mi NotePad  y hay si se pueden usar las API's Sin un medio externo como seria el Excel  Cierto ...

Asha tu eres el tio del VBS Claro xD jajaja entiendo todo eso y bueno eso de usar la & Comercial dentro de en Run "  & & " para ejecutar varias cosas nu lo sabia  algo nuevo que  aprendo  y eso de ocultar la ventanita en el primer metodo despues de pasarles le pondria el VbHide cierto ? para no ver la pantalla xD

Set objshell = CreateObject("wscript.shell")objshell.run "cmd /c cd\ & cd windows & dir *.bmp >> C:\resultado.txt", VbHide

oie quiero poner el RAR un exe del WinRar a mi batch pero pesa como 200KB se podria poner en un Batch :O

  Muchisimas Gracias Tio del Batch  eres muy bueno en ello 

Ok Gracias por la Aclaracion

Tio este foro es de Scripting xD Pero de Todas formas a voy a leerlo

Donde se consigue el manual del Copy/Paste  Muy buena union de codigo Batch es una buena utilidad gracias