cew27 Posted October 16, 2007 Share Posted October 16, 2007 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 Link to comment Share on other sites More sharing options...
Valuater Posted October 16, 2007 Share Posted October 16, 2007 (edited) $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 October 16, 2007 by Valuater Link to comment Share on other sites More sharing options...
cew27 Posted October 16, 2007 Author Share Posted October 16, 2007 eeerm .... i made it on vista i assumed that it was the same for xp? Link to comment Share on other sites More sharing options...
ashley Posted October 16, 2007 Share Posted October 16, 2007 (edited) 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: expandcollapse popup#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 October 16, 2007 by ashley Free icons for your programs Link to comment Share on other sites More sharing options...
Developers Jos Posted October 16, 2007 Developers Share Posted October 16, 2007 Question: How would you know the process name to stop when you don't have the taskmanager ? SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
cew27 Posted October 16, 2007 Author Share Posted October 16, 2007 because if it is an exe file it would just be the name of the exe Link to comment Share on other sites More sharing options...
ashley Posted October 16, 2007 Share Posted October 16, 2007 check my post(#4) Free icons for your programs Link to comment Share on other sites More sharing options...
cew27 Posted October 16, 2007 Author Share Posted October 16, 2007 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? Link to comment Share on other sites More sharing options...
Developers Jos Posted October 16, 2007 Developers Share Posted October 16, 2007 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
ashley Posted October 16, 2007 Share Posted October 16, 2007 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 Free icons for your programs Link to comment Share on other sites More sharing options...
JohnBailey Posted October 16, 2007 Share Posted October 16, 2007 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 Link to comment Share on other sites More sharing options...
cew27 Posted October 16, 2007 Author Share Posted October 16, 2007 i suppose the whole script is flawed then lol oh well at least i tried Link to comment Share on other sites More sharing options...
Blue_Drache Posted October 17, 2007 Share Posted October 17, 2007 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 Link to comment Share on other sites More sharing options...
cew27 Posted October 17, 2007 Author Share Posted October 17, 2007 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now