Sign in to follow this  
Followers 0
Jos07

Need a little help

20 posts in this topic

#1 ·  Posted (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 by Jos07

Always Keep Your Sig Small... Like me :D

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

Please Avoid \\ because when i posts it comes with \"


Always Keep Your Sig Small... Like me :D

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

:) :)

I'm very confused, I see '\' everywhere!


Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

oks, here is another one... it is a little Porn Blocker (Just Creating)

TRAYSETSTATE(\"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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Wow, you have a huge collection of \'porn\' sign

i 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

Share this post


Link to post
Share on other sites

#10 ·  Posted (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 by newbiescripter

Share this post


Link to post
Share on other sites

can you give me a example ?


Always Keep Your Sig Small... Like me :D

Share this post


Link to post
Share on other sites

#12 ·  Posted (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 by monoceres

Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

#14 ·  Posted (edited)

Look at this I've created a Select Case insted of all your if statements

$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 by newbiescripter

Share this post


Link to post
Share on other sites

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 |+==================================================================+

Share this post


Link to post
Share on other sites

@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

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

thats good but not like that which i want.


Always Keep Your Sig Small... Like me :D

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  
Followers 0