Jump to content
Sign in to follow this  
cew27

Scriptsafe

Recommended Posts

cew27

hi i made this script to help if you opened a script that disabled task manager

there was a virus going around msn that claimed to be pictures in a rar file but was a script that sent its self to others and disabled task manager

so this should help in those situations

$keyboard = MsgBox(4,"Scriptsafe", "Would you like to use the onscreen keyboard ?")

If $keyboard = 7 Then   
$disable = InputBox("Scriptsafe", "please enter the name of the script you would like to cancel (the name of the file you opened) e.g hello.exe","","",300,150) 
If ProcessExists ($disable) Then 
ProcessClose ($disable) 
EndIf
EndIf
    
If $keyboard = 6 then
Run("osk.exe")  
$disable = InputBox("failsafe", "please enter the name of the script you would like to cancel (the name of the file you opened) e.g hello.exe","","",250,150)   
If ProcessExists ($disable) Then 
ProcessClose ($disable)         
EndIf
Endif

if you have any sugestions on how to make this script better please share :)

Share this post


Link to post
Share on other sites
Valuater

$keyboard = MsgBox(4, "Scriptsafe", "Would you like to use the onscreen keyboard ?")
If $keyboard = 6 Then Run("osk.exe")
$disable = InputBox("Scriptsafe", "please enter the name of the script you would like to cancel (the name of the file you opened) e.g hello.exe", "", "", 300, 150)
If ProcessExists($disable) Then ProcessClose($disable)

8)

BTW: not sure if this on-screen keyboard is available on all OS. it is for Win Xp

Edited by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites
cew27

eeerm .... i made it on vista i assumed that it was the same for xp?

Share this post


Link to post
Share on other sites
ashley

make your own on screen key board:

EDIT: i found one that i made for a friend that plays on runescape and he keeys getting keyloggers!

here it is:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_icon=hiddenkeys\lock.ico
#AutoIt3Wrapper_outfile=hiddenkeys\Hiddenkeys.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
HotKeySet("{F1}", "sendpass")


TrayTip("Tip", "Click on the place that you would like to send your password then press F1",10000)
$HiddenKeys = GUICreate("HiddenKeys", 367, 174, 303, 219)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("", 12, 144, 337, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Tab1 = GUICtrlCreateTab(8, 8, 345, 129)
$small = GUICtrlCreateTabItem("Lower case")
GUICtrlSetState(-1,$GUI_SHOW)
$q = GUICtrlCreateButton("q", 26, 39, 27, 25, 0)
$w = GUICtrlCreateButton("w", 58, 39, 27, 25, 0)
$e = GUICtrlCreateButton("e", 90, 39, 27, 25, 0)
$r = GUICtrlCreateButton("r", 122, 39, 27, 25, 0)
$t = GUICtrlCreateButton("t", 154, 39, 27, 25, 0)
$y = GUICtrlCreateButton("y", 186, 39, 27, 25, 0)
$u = GUICtrlCreateButton("u", 218, 39, 27, 25, 0)
$i = GUICtrlCreateButton("i", 250, 39, 27, 25, 0)
$o = GUICtrlCreateButton("o", 282, 39, 27, 25, 0)
$p = GUICtrlCreateButton("p", 314, 39, 27, 25, 0)
$a = GUICtrlCreateButton("a", 26, 71, 27, 25, 0)
$s = GUICtrlCreateButton("s", 58, 71, 27, 25, 0)
$d = GUICtrlCreateButton("d", 90, 71, 27, 25, 0)
$f = GUICtrlCreateButton("f", 122, 71, 27, 25, 0)
$g = GUICtrlCreateButton("g", 154, 71, 27, 25, 0)
$h = GUICtrlCreateButton("h", 186, 71, 27, 25, 0)
$j = GUICtrlCreateButton("j", 218, 71, 27, 25, 0)
$k = GUICtrlCreateButton("k", 250, 71, 27, 25, 0)
$l = GUICtrlCreateButton("l", 282, 71, 27, 25, 0)
$z = GUICtrlCreateButton("z", 26, 103, 27, 25, 0)
$x = GUICtrlCreateButton("x", 58, 103, 27, 25, 0)
$c = GUICtrlCreateButton("c", 90, 103, 27, 25, 0)
$v = GUICtrlCreateButton("v", 122, 103, 27, 25, 0)
$b = GUICtrlCreateButton("b", 154, 103, 27, 25, 0)
$n = GUICtrlCreateButton("n", 186, 103, 27, 25, 0)
$m = GUICtrlCreateButton("m", 218, 103, 27, 25, 0)
$big = GUICtrlCreateTabItem("Upper case")
$qu = GUICtrlCreateButton("Q", 24, 37, 27, 25, 0)
$au = GUICtrlCreateButton("A", 24, 69, 27, 25, 0)
$zu = GUICtrlCreateButton("Z", 24, 101, 27, 25, 0)
$xu = GUICtrlCreateButton("X", 56, 101, 27, 25, 0)
$su = GUICtrlCreateButton("S", 56, 69, 27, 25, 0)
$wu = GUICtrlCreateButton("W", 56, 37, 27, 25, 0)
$eu = GUICtrlCreateButton("E", 88, 37, 27, 25, 0)
$du = GUICtrlCreateButton("D", 88, 69, 27, 25, 0)
$cu = GUICtrlCreateButton("C", 88, 101, 27, 25, 0)
$vu = GUICtrlCreateButton("V", 120, 101, 27, 25, 0)
$fu = GUICtrlCreateButton("F", 120, 69, 27, 25, 0)
$ru = GUICtrlCreateButton("R", 120, 37, 27, 25, 0)
$tu = GUICtrlCreateButton("T", 152, 37, 27, 25, 0)
$gu = GUICtrlCreateButton("G", 152, 69, 27, 25, 0)
$bu = GUICtrlCreateButton("B", 152, 101, 27, 25, 0)
$nu = GUICtrlCreateButton("N", 184, 101, 27, 25, 0)
$hu = GUICtrlCreateButton("H", 184, 69, 27, 25, 0)
$yu = GUICtrlCreateButton("Y", 184, 37, 27, 25, 0)
$uu = GUICtrlCreateButton("U", 216, 37, 27, 25, 0)
$ju = GUICtrlCreateButton("J", 216, 69, 27, 25, 0)
$mu = GUICtrlCreateButton("M", 216, 101, 27, 25, 0)
$ku = GUICtrlCreateButton("K", 248, 69, 27, 25, 0)
$iu = GUICtrlCreateButton("I", 248, 37, 27, 25, 0)
$ou = GUICtrlCreateButton("O", 280, 37, 27, 25, 0)
$lu = GUICtrlCreateButton("L", 280, 69, 27, 25, 0)
$pu = GUICtrlCreateButton("P", 312, 37, 27, 25, 0)
$others = GUICtrlCreateTabItem("Others")
$Space = GUICtrlCreateButton("Space", 14, 72, 91, 25, 0)
$one = GUICtrlCreateButton("1", 16, 40, 27, 25, 0)
$two = GUICtrlCreateButton("2", 48, 40, 27, 25, 0)
$three = GUICtrlCreateButton("3", 80, 40, 27, 25, 0)
$four = GUICtrlCreateButton("4", 112, 40, 27, 25, 0)
$five = GUICtrlCreateButton("5", 144, 40, 27, 25, 0)
$six = GUICtrlCreateButton("6", 176, 40, 27, 25, 0)
$seven = GUICtrlCreateButton("7", 208, 40, 27, 25, 0)
$eight = GUICtrlCreateButton("8", 240, 40, 27, 25, 0)
$nine = GUICtrlCreateButton("8", 272, 40, 27, 25, 0)
$zero = GUICtrlCreateButton("0", 304, 40, 27, 25, 0)
$Bspace = GUICtrlCreateButton("BackSpace", 112, 72, 91, 25, 0)
$_ = GUICtrlCreateButton("_", 208, 72, 27, 25, 0)
$dash = GUICtrlCreateButton("-", 240, 72, 27, 25, 0)
$fullstop = GUICtrlCreateButton(".", 272, 72, 27, 25, 0)
$deleteall = GUICtrlCreateButton("Delete All", 16, 104, 75, 25, 0)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

  ;numbers
Case $one
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"1")
Case $two
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"2")
Case $three
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"3")
Case $four
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"4")
Case $five
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"5")
Case $six
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"6")
Case $seven
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"7")
Case $eight
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"8")
Case $nine
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"9")
Case $zero
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"0")
    
  ;letters - row one
Case $q
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"q")
Case $w
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"w")
Case $e
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"e")
Case $r
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"r")
Case $t
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"t")
Case $y
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"y")
Case $u
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"u")
Case $i
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"i")
Case $o
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"o")
Case $p
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"p")
    
  ;letters - row two
Case $a
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"a")
Case $s
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"s")
Case $d
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"d")
Case $f
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"f")
Case $g
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"g")
Case $h
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"h")
Case $j
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"j")
Case $k
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"k")
Case $l
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"l")

  ;letters - row three
Case $z
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"z")
Case $x
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"x")
Case $c
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"c")
Case $v
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"v")
Case $b
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"b")
Case $n
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"n")
Case $m
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"m")
    
              ;upper letters - row one
Case $qu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"Q")
Case $wu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"W")
Case $eu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"E")
Case $ru
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"R")
Case $tu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"T")
Case $yu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"Y")
Case $uu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"U")
Case $iu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"I")
Case $ou
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"O")
Case $pu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"P")
    
  ;upper letters - row two
Case $au
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"A")
Case $su
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"S")
Case $du
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"D")
Case $fu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"F")
Case $gu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"G")
Case $hu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"H")
Case $ju
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"J")
Case $ku
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"K")
Case $lu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"L")

  ;upper letters - row three
Case $zu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"Z")
Case $xu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"X")
Case $cu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"C")
Case $vu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"V")
Case $bu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"B")
Case $nu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"N")
Case $mu
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"M")

  ;others
Case $Space
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&" ")
    
Case $BSpace
    $CharsUp=GUICtrlRead($Input1)
    $Lenght=StringLen($CharsUp)
    $delete=StringLeft($CharsUp,$Lenght-1)
    GUICtrlSetData($Input1,$delete)

Case $_
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"_")
    
Case $dash
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&"-")
    
Case $fullstop
    $CharsUp=GUICtrlRead($Input1)
    GUICtrlSetData($Input1,$CharsUp&".")
    
Case $deleteall
    GUICtrlSetData($Input1, "")
EndSwitch
WEnd


Func Sendpass()
    
    Send(GUICtrlRead($Input1));Using Send($Input1) would send the ControlID of the input.
    
EndFunc
Edited by ashley

Share this post


Link to post
Share on other sites
cew27

because if it is an exe file it would just be the name of the exe

Share this post


Link to post
Share on other sites
cew27

how did u create that in auto it ?? ... did you just use the auto it code?

wait i just noticed it says wrapper? ... what is wrapper?

Share this post


Link to post
Share on other sites
Jos

because if it is an exe file it would just be the name of the exe

...still how do you know the name of the exe/process that is causing the taskmanager not to show ??

You know ... all this stuff you guys are posting here is quite useless so please stay in the support forum till you have properly learned to write scripts first.

- moved -

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
ashley

how did u create that in auto it ?? ... did you just use the auto it code?

wait i just noticed it says wrapper? ... what is wrapper?

Quite simple really just ready the HELP file one in a while

Share this post


Link to post
Share on other sites
JohnBailey

Question: How would you know the process name to stop when you don't have the taskmanager ?

This is a good point!

Ashley , nice job with the on-screen keyboard.

All , in general I think it's not a bad idea. Jos does have a good point. I do know there are a few people that generally have good idea of what scripts are running. Nonetheless, this was an interesting read.

cew27, http://www.autoitscript.com/autoit3/scite/...oIt3Wrapper.htm


A decision is a powerful thing

Share this post


Link to post
Share on other sites
cew27

i suppose the whole script is flawed then lol oh well at least i tried

Share this post


Link to post
Share on other sites
Blue_Drache

Not flawed, per-say.

Make your own task manager to kill the pest.

Look up

ProcessList()

ProcessClose()

Also:

WinList()


Lofting the cyberwinds on teknoleather wings, I am...The Blue Drache

Share this post


Link to post
Share on other sites
cew27

yes i was thinking of that ... i was going to try lean the gui scripts now and create my own feeble version of the task manager

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.