Jos07 Posted May 25, 2008 Share Posted May 25, 2008 (edited) is there any other way to do the same thing with minimum code ? ; $Jos = @ScriptDir ; If $Jos = \\\"C:\\\\\\\" Then Run(\\\"MyApp.exe \\\" & $Jos, \\\"\\\", @SW_MAXIMIZE) EndIf If $Jos = \\\"D:\\\\\\\" Then Run(\\\"MyApp.exe \\\" & $Jos, \\\"\\\", @SW_MAXIMIZE) EndIf If $Jos = \\\"E:\\\\\\\" Then Run(\\\"MyApp.exe \\\" & $Jos, \\\"\\\", @SW_MAXIMIZE) EndIf anyone can make this code more compressed, with minimum words ? thanx! Edited May 25, 2008 by Jos07 Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
monoceres Posted May 25, 2008 Share Posted May 25, 2008 One line If $Jos="C:\\\" Or $Jos="D:\\\" Or $Jos="E:\\\" Then Run("explorer.exe \" & $Jos, "\", @SW_MAXIMIZE) Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 Please Avoid \\ because when i posts it comes with \" Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 thanx ! any other ways to do the same thing with more minimized code ? or any other ways to do the same thing ? Please contribute and tell what u can do... Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
monoceres Posted May 25, 2008 Share Posted May 25, 2008 :) I'm very confused, I see '\' everywhere! Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 i am also confused with \\\\ whenever i posts with commas it comes with them automatically like \". Please ask the admin to fix the problem. Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 oks, here is another one... it is a little Porn Blocker (Just Creating) expandcollapse popupTRAYSETSTATE(\"2\") opt(\"WinTitleMatchMode\", 2) $M1 = \"WARNING !!!\" $M2 = \"Adult Content Detected.\" $M3 = \"Open Something Else...\" $M4 = \"You FOOL !!!\" $T1 = \"Opening Adult Material is not Allowed.\" $T2 = \"Why Dont You Try To Visit Some Good Informative Websites?\" $T3 = \"Knowledge is Power (Get it and Spread it)\" $T4 = \"Thank You!\" $T5 = \"Sorry !\" $T6 = \"Never Try To Open Bad Things Again.\" $T7 = \"Shame For You !\" $C = @CRLF $1 = 10000 $2 = 262160 $3 = 5000 $MB = $M2 & $C & \"\" & $C & $M3 & $C & \"\" & $C & $M4 $TT2 = $T1 & $C & \"\" & $C & $T2 & $C & \"\" & $C & $T3 & $C & \"\" & $C & $T4 $TT3 = $T8 & $C & \"\" & $C & $T9 & $C & \"\" & $C & $TT $Q = 1 While $Q < 3 $Y = 1 While $Y < 580 If WinExists(\"sex\") Then WinClose(\"sex\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Sex\") Then WinClose(\"Sex\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"SEX\") Then WinClose(\"SEX\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"porn\") Then WinClose(\"porn\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Porn\") Then WinClose(\"Porn\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"PORN\") Then WinClose(\"PORN\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"fuck\") Then winclose(\"fuck\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Fuck\") Then WinClose(\"Fuck\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"FUCK\") Then winclose(\"FUCK\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"XXX\") Then WinClose(\"XXX\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"xxx\") Then WinClose(\"xxx\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"XBoard\") Then WinClose(\"XBoard\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"desi\") Then WinClose(\"desi\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Desi\") Then WinClose(\"Desi\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"DESI\") Then WinClose(\"DESI\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"masala\") Then WinClose(\"masala\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Masala\") Then WinClose(\"Masala\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"MASALA\") Then WinClose(\"MASALA\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"adult\") Then WinClose(\"adult\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Adult\") Then WinClose(\"Adult\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"ADULT\") Then WinClose(\"ADULT\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"nude\") Then WinClose(\"nude\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"NUDE\") Then WinClose(\"NUDE\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Nude\") Then WinClose(\"Nude\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"naked\") Then WinClose(\"naked\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Naked\") Then WinClose(\"Naked\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"NAKED\") Then WinClose(\"NAKED\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"mallu\") Then WinClose(\"mallu\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Mallu\") Then WinClose(\"Mallu\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"MALLU\") Then WinClose(\"MALLU\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"cock\") Then WinClose(\"cock\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Cock\") Then WinClose(\"Cock\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"COCK\") Then WinClose(\"COCK\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"dick\") Then WinClose(\"dick\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Dick\") Then WinClose(\"Dick\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"DICK\") Then WinClose(\"DICK\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Bikini\") Then WinClose(\"Bikini\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"bikini\") Then WinClose(\"bikini\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"BIKINI\") Then WinClose(\"BIKINI\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"rape\") Then WinClose(\"rape\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Rape\") Then WinClose(\"Rape\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"RAPE\") Then WinClose(\"RAPE\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"blowjob\") Then WinClose(\"blowjob\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Blowjob\") Then WinClose(\"Blowjob\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"BLOWJOB\") Then WinClose(\"BLOWJOB\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"boob\") Then WinClose(\"boob\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Boob\") Then WinClose(\"Boob\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"BooB\") Then WinClose(\"BooB\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"BOOB\") Then WinClose(\"BOOB\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"erotic\") Then WinClose(\"erotic\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Erotic\") Then WinClose(\"Erotic\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"EROTIC\") Then WinClose(\"EROTIC\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"nipple\") Then WinClose(\"nipple\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Nipple\") Then WinClose(\"Nipple\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"NIPPLE\") Then WinClose(\"NIPPLE\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"stripping\") Then WinClose(\"stripping\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Stripping\") Then WinClose(\"Stripping\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"STRIPPING\") Then WinClose(\"STRIPPING\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"Scandal\") Then WinClose(\"Scandal\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"scandal\") Then WinClose(\"scandal\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf If WinExists(\"SCANDAL\") Then WinClose(\"SCANDAL\") MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndIf how can i minimize this code ? i want to do the same thing but how can i use minimum lines ? how to compress this code more ? any other way to do the same thing as it ? Thanx! Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
d4rk Posted May 25, 2008 Share Posted May 25, 2008 Wow, you have a huge collection of 'porn' sign [quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 Wow, you have a huge collection of \'porn\' signi collected it through net, because it is also my Project.i want to create a Porn Blocker but dont want to increase the size.thatswhy i want it to be more minimized.can you help me in this case ?any other way or solution to do the same thing ?Thanx! Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
newbiescripter Posted May 25, 2008 Share Posted May 25, 2008 (edited) You can do this Func _action($title) WinClose($title) MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip(\"\", 0, 0, \"\", 0) Sleep(0) EndFunc ; _action() then but in the title when you call the function for example: _action("Sex") I think this will be easier for you Regards Edited May 25, 2008 by newbiescripter Link to comment Share on other sites More sharing options...
Jos07 Posted May 25, 2008 Author Share Posted May 25, 2008 can you give me a example ? Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
monoceres Posted May 25, 2008 Share Posted May 25, 2008 (edited) Also read up about conditional statements, because as you can see in my first post you can use OR to combine all the ifs. Edited May 25, 2008 by monoceres Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
monoceres Posted May 25, 2008 Share Posted May 25, 2008 Please examine this example, carefully. Then I think you can actually shorten the code yourself #include <String.au3> Global $input=InputBox("Your name","Write your name") If $input="monoceres" Or $input="Jos07" Then _ThisIsAFunc() ElseIf StringInStr($input,"X") And StringInStr($input,"Y") And StringInStr($input,"Z") Then _ThisIsAnotherFunc() EndIf Func _ThisIsAFunc() MsgBox(0,"Hello","Hello "&$input) MsgBox(0,"Backwards",_StringReverse($input)) EndFunc Func _ThisIsAnotherFunc() MsgBox(0,"Info","Your name have X, Y and Z in it, cool :)") EndFunc Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
newbiescripter Posted May 25, 2008 Share Posted May 25, 2008 (edited) Look at this I've created a Select Case insted of all your if statements expandcollapse popup$T8 = 1 $T9 = 1 $TT = 1 ; You haven't declared the above variables in order to run the program you need to do this ; I've set them to 1 just to test it. ; Personally I think it's a bit confusing with all you middle variables for only the text. ;I undertood it before when you had all the If statements, but now I would get rid of them if I was you. ; You can do like the following if you like: TRAYSETSTATE("1") opt("WinTitleMatchMode", 2) $M1 = "WARNING !!!" $M2 = "Adult Content Detected." $M3 = "Open Something Else..." $M4 = "You FOOL !!!" $T1 = "Opening Adult Material is not Allowed." $T2 = "Why Dont You Try To Visit Some Good Informative Websites?" $T3 = "Knowledge is Power (Get it and Spread it)" $T4 = "Thank You!" $T5 = "Sorry !" $T6 = "Never Try To Open Bad Things Again." $T7 = "Shame For You !" $C = @CRLF $1 = 10000 $2 = 262160 $3 = 5000 $MB = $M2 & $C & "\" & $C & $M3 & $C & "\" & $C & $M4 $TT2 = $T1 & $C & "\" & $C & $T2 & $C & "\" & $C & $T3 & $C & "\" & $C & $T4 $TT3 = $T8 & $C & "\" & $C & $T9 & $C & "\" & $C & $TT $Q = 1 While $Q < 3 ; Your while loop will continue endless since you don't change $Q in your loop. $Y = 1 While $Y < 580 ; Your while loop will continue endless since you don't change $Y in your loop. Select Case WinExists("Google") _action("Google") Case WinExists("porn") _action("porn") ; You could add some more cases here EndSelect WEnd WEnd Func _action($title) WinClose($title) MsgBox($2, $M1, $MB) ToolTip($TT2, 400, 300, $T5, 2, 2) sleep($1) ToolTip($T6, 400, 300, $T7, 2, 2) sleep($3) ToolTip("\", 0, 0, "\", 0) Sleep(0) EndFunc ; _action()oÝ÷ Ø@ÈMhZµ¦èºÛaÆ®¶seE$4UE5DDRgV÷C³gV÷C²²6÷VÆB&R6WBFò"vVâfæ6¦÷BgV÷CµvåFFÆTÖF6ÖöFRgV÷C²Â" ¢b33c·v&ææw2Ò ¥vÆR 6VÆV7@ 66RväW7G2gV÷C´vöövÆRgV÷C² ö7FöâgV÷C´vöövÆRgV÷C² 66RväW7G2gV÷C·÷&âgV÷C² ö7FöâgV÷C·÷&âgV÷C² 66RväW7G2gV÷C´gV6²gV÷C² ö7FöâgV÷C´gV6²gV÷C² ²÷R6÷VÆBFB6öÖRÖ÷&R66W2W&P VæE6VÆV7@ ¥tVæ@ ¤gVæ2ö7Föâb33c·FFÆR vä6Æ÷6Rb33c·FFÆR¢×6t&÷#c#cÂgV÷Cµt$äärb333²b333²b333²gV÷C²ÂgV÷C´GVÇB6öçFVçBFWFV7FVBâgV÷C²fײ5$ÄbfײgV÷C²b3#²gV÷C²fײ5$ÄbfײgV÷C´÷Vâ6öÖWFærVÇ6RâââgV÷C²fײ5$ÄbfײgV÷C²b3#²gV÷C²fײ5$ÄbfײgV÷Cµ÷RdôôÂb333²b333²b333²gV÷C² FööÅFgV÷C´÷VæærGVÇBÖFW&Â2æ÷BÆÆ÷vVBâgV÷C²fײ5$ÄbfײgV÷C²b3#²gV÷C²fײ5$ÄbfײgV÷CµvFöçB÷RG'Fòf6B6öÖRvööBæf÷&ÖFfRvV'6FW3ògV÷C²fײ5$ÄbfײgV÷C²b3#²gV÷C²fײ5$ÄbfײgV÷C´¶æ÷vÆVFvR2÷vW"vWBBæB7&VBBgV÷C²fײ5$ÄbfײgV÷C²b3#²gV÷C²fײ5$ÄbfײgV÷CµFæ²÷Rb333²gV÷C²ÂCÂ3ÂgV÷Cµ6÷''b333²gV÷C²Â"Â" 6ÆVW FööÅFgV÷C´æWfW"G'Fò÷Vâ&BFæw2vââgV÷C²ÂCÂ3ÂgV÷Cµ6ÖRf÷"÷Rb333²gV÷C²Â"Â" 6ÆVWS FööÅFgV÷C²gV÷C² b33c·v&ææw2Òb33c·v&ææw2² bb33c·v&ææw2ÓÒFVâ×6t&÷ÂgV÷Cµv&æærgV÷C²ÂgV÷Cµ÷RfRæ÷r&VVâv&æVBöæ6Râ÷RfRÖöbF&VRv&ææw2æB÷RvÆÂ&RÆövvVBöfbgV÷C² bb33c·v&ææw2ÓÒ"FVâ×6t&÷ÂgV÷Cµv&æærgV÷C²ÂgV÷Cµ÷RfRæ÷r&VVâv&æVBGv6Râ÷RfRÖöbF&VRv&ææw2æB÷RvÆÂ&RÆövvVBöfbgV÷C² bb33c·v&ææw2ÓÒ2FVâ×6t&÷ÂgV÷Cµv&æærgV÷C²ÂgV÷Cµ÷RfRæ÷r&VVâv&æVBöæ6Râ÷RfRÖöbF&VRv&ææw2æB÷RvÆÂ&RÆövvVBöfbgV÷C²fײ5$ÄbfײgV÷CµF22÷W"Æ7Bv&æærÒæWGFÖR÷RvÆÂ&RÆövvVBöfbgV÷C² bb33c·v&ææw2fwC²2FVâ÷Væ6 ¤VæDgVæ2²ö7Föâ ¤gVæ2÷Væ6 ×6t&÷ÂgV÷Cµv&æærb333²b333²b333²gV÷C²ÂgV÷Cµ÷RfRæ÷rG&VBFò66W72ÆÆVvÂ7GVfbÖ÷&RFâ2FÖW2æBvÆÂFW&Vf÷"&RÆövvVBöfbâgV÷C²²f÷"W×ÆRæBFVâWBâFR6öFRf÷"FRVæ6¤VæDgVæ2²÷Væ6 I've added an extra feauture you can remove it if you don't like it. Regards Edited May 25, 2008 by newbiescripter Link to comment Share on other sites More sharing options...
Prophet Posted May 25, 2008 Share Posted May 25, 2008 Nice, although i wasn't looking for this im gonna save this one for later Thanks +==================================================================+| The Definition of Madness: Creating a GUI, with GUI automation scripts |+==================================================================+ Link to comment Share on other sites More sharing options...
Jos07 Posted May 26, 2008 Author Share Posted May 26, 2008 @Hubertus72 @NewbieScripter @monocers thanks a lot to all of you for great support. anyone else want to show his example to short this code ? Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
andybiochem Posted May 26, 2008 Share Posted May 26, 2008 I'd probably do this via an array: Dim $array [5] ;fill the array with whatever words you want to block $array[1] = "Donkeys" $array[2] = "Midgets" $array[3] = "Two Girls One Cup" $array[4] = "Lemon Party" While 1 Sleep(1000 * 60) For $i = 1 to (UBound($array) - 1) if WinExists($array[$i]) = 1 then WinClose($array[$i]) MsgBox(0,"","You'll go blind!") EndIf Next WEnd although with 60 * 1000 as the sleep, the user would enjoy a full minute of mischeif until the WinClose kicks in. You need to decide just HOW much you don't want ppl looking at rude stuff, expressed in milliseconds. - Table UDF - create simple data tables - Line Graph UDF GDI+ - quickly create simple line graphs with x and y axes (uses GDI+ with double buffer) - Line Graph UDF - quickly create simple line graphs with x and y axes (uses AI native graphic control) - Barcode Generator Code 128 B C - Create the 1/0 code for barcodes. - WebCam as BarCode Reader - use your webcam to read barcodes - Stereograms!!! - make your own stereograms in AutoIT - Ziggurat Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Box-Muller Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Elastic Radio Buttons - faux-gravity effects in AutoIT (from javascript)- Morse Code Generator - Generate morse code by tapping your spacebar! Link to comment Share on other sites More sharing options...
Jos07 Posted May 26, 2008 Author Share Posted May 26, 2008 anyone knows how can i write this in one line WinClose(\"sex\") WinClose(\"Sex\") WinClose(\"SEX\") WinClose(\"porn\") WinClose(\"Porn\") WinClose(\"PORN\") i tried like this winclose(\"sex\") & (\"Porn\") ; winclose(\"sex\" & \"Porn\") ; winclose($Var & \"Porn\") ; and many other ways..... can anyone tell me how to write this in one line... Always Keep Your Sig Small... Like me :D Link to comment Share on other sites More sharing options...
z0mgItsJohn Posted May 26, 2008 Share Posted May 26, 2008 Little Function I Wrote... Func _Multi_WinClose ($Win_String) $String = StringSplit ($Win_String, '|') For $Array = '1' To $String['0'] WinClose ($String[$Array]) Next EndFunc _Multi_WinClose ('Sex|SEX|porn|Porn|PORN') Hope This Helps - John Latest Projects :- New & Improved TCP Chat Link to comment Share on other sites More sharing options...
Jos07 Posted May 26, 2008 Author Share Posted May 26, 2008 thats good but not like that which i want. Always Keep Your Sig Small... Like me :D 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