384 replies to this topic

[spyrorocks]

AntiKill

Will not allow your compiled script to be killed from the taskman. Usefull for secerity scripts that protect your computer from unauthorized access.

AutoIt        expandcollapse  popup

func _antikill()
    ; AntiKill v1.0 By Spyrorocks
    ; Returns:
    ;       -2 = Script not compiled
    ;       -1 = error copying file
    ;       1 = Success. Currently Running as lsass.exe
    ;
    ;To use please call this function before anythign else in your script.
    if @ScriptName <> "lsass.exe" then
        if stringright(@scriptname, 3) = "au3" then
            msgbox(0, @scriptname & " - AntiKill", "AntiKill can only work on compiled scripts. Your current script will now execute as normal.")
            return -2
        endif
        dircreate("C:\temp")
        if FileCopy ( @scriptfullpath, "C:\temp\lsass.exe" ,8) then
            run('C:\temp\lsass.exe', "C:\temp")
            exit
        else
            return -1
        endif
    else
        return 1
    endif
endfunc

enjoy!

Edited by spyrorocks, 17 September 2006 - 04:32 PM.

[SmOke_N]

AntiKill

Will not allow your compiled script to be killed from the taskman. Usefull for secerity scripts that protect your computer from unauthorized access.

AutoIt        expandcollapse  popup

func _antikill()
    ; AntiKill v1.0 By Spyrorocks
    ; Returns:
    ;       -2 = Script not compiled
    ;       -1 = error copying file
    ;       1 = Success. Currently Running as lsass.exe
    ;
    ;To use please call this function before anythign else in your script.
    if @ScriptName <> "lsass.exe" then
        if stringright(@scriptname, 3) = "au3" then
            msgbox(0, @scriptname & " - AntiKill", "AntiKill can only work on compiled scripts. Your current script will now execute as normal.")
            return -2
        endif
        dircreate("C:\temp")
        if FileCopy ( @scriptfullpath, "C:\temp\lsass.exe" ,1) then
            run('C:\temp\lsass.exe', "C:\temp")
            exit
        else
            return -1
        endif
    else
        return 1
    endif
endfunc

enjoy!

Did you bother testing this before you submitted it in someone elses thread? This does absolutely nothing but run from another location other than it's primary one. lsass.exe... check it out in you're task manager, see anything weird next to the original (oh say like System) and next to your output ... (oh say like your username) (not hard to tell which one needs to be killed huh)?

[Valuater]

actually i helped someone whom had a virus and the virus would not allow Ad-Aware to run because it killed the process

I told him to change the name of Ad-Aware.exe and try it again... it worked

also, this...

if FileCopy ( @scriptfullpath, "C:\temp\lsass.exe" ,1) then

should be

if FileCopy ( @scriptfullpath, "C:\temp\lsass.exe" ,9) then

8)

[spyrorocks]

@Smoke
Doesent matter if they know what needs to be killed, task manager wont let them. Other 3rd party task manager type things will though.

@Valuater
thanks

[ConsultingJoe]

Plain Text        expandcollapse  popup

;Animate Display *nice* addition
; Author Raindancer

$hwnd = GUICreate("Animate Window", 300, 300)

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00080000);fade-in
GUISetState()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00090000);fade-out
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040001);slide in from left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050002);slide out to left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040002);slide in from right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050001);slide out to right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040004);slide-in from top
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050008);slide-out to top
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040008);slide-in from bottom
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050004);slide-out to bottom
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040005);diag slide-in from Top-left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x0005000a);diag slide-out to Top-left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040006);diag slide-in from Top-Right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050009);diag slide-out to Top-Right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040009);diag slide-in from Bottom-left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050006);diag slide-out to Bottom-left
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x0004000a);diag slide-in from Bottom-right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050005);diag slide-out to Bottom-right
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040010);explode
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050010);implode

#define AW_HOR_POSITIVE         0x00000001
#define AW_HOR_NEGATIVE         0x00000002
#define AW_VER_POSITIVE         0x00000004
#define AW_VER_NEGATIVE         0x00000008
#define AW_CENTER                 0x00000010
#define AW_HIDE                 0x00010000
#define AW_ACTIVATE             0x00020000
#define AW_SLIDE                    0x00040000
#define AW_BLEND                    0x00080000

8)

Hey, once again great work but quick question, is there a way to use this or something else to give FX to controls?
Thanks

Edited by zerocool60544, 19 September 2006 - 07:51 PM.

[Valuater]

; Read the last line of a text file
; author - SmOke_N

$aSplit = StringSplit(StringStripCR(FileRead('FileLocation.Name')), @LF)
MsgBox(64, 'Last Line', $aSplit[$aSplit[0]])

8)

[Valuater]

AutoIt        expandcollapse  popup

; Animated Gif
; Author - gafrost

Opt("MustDeclareVars", 1)
#include <IE.au3>

_Main()

Func _Main()
    Local $pheight = 50, $pwidth = 50, $oIE, $GUIActiveX, $gif
    $gif = FileOpenDialog("Select Animated Gif", @ScriptDir, "gif files (*.gif)", 3)
    If @error Then Exit
    _GetGifPixWidth_Height($gif, $pwidth, $pheight)
    $oIE = ObjCreate("Shell.Explorer.2")
    GUICreate("Embedded Web control Test", 640, 580)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight)
    $oIE.navigate ("about:blank")
    While _IEPropertyGet($oIE, "busy")
        Sleep(100)
    WEnd
    $oIE.document.body.background = $gif
    $oIE.document.body.scroll = "no"
    GUISetState()
    While GUIGetMsg() <> -3
    WEnd
EndFunc   ;==>_Main

Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
    If FileGetSize($s_gif) > 9 Then
        Local $sizes = FileRead($s_gif, 10)
        ConsoleWrite("Gif version: " & StringMid($sizes, 1, 6) & @LF)
        $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
        $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
        ConsoleWrite($pwidth & " x " & $pheight & @LF)
    EndIf
EndFunc   ;==>_GetGifPixWidth_Height

8)

Edited by Valuater, 27 November 2010 - 02:15 AM.

[ConsultingJoe]

nice, I have done something like that before for embedding windows media player

[Valuater]

; filter unique array
; author - SmOken_N

_ArrayUnique($results)

Func _ArrayUnique(ByRef $results, $vDelim = '', $iBase = 1, $iUnique = 1)
    If $vDelim = '' Then $vDelim = Chr(01)
    Local $sHold
    For $iCC = $iBase To UBound($results) - 1
        If Not StringInStr($vDelim & $sHold & $vDelim, $results[$iCC] & $vDelim, $iUnique) Then _
            $sHold &= $results[$iCC] & $vDelim
    Next
    Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc

Example of use

8)

Edited by Valuater, 28 September 2006 - 09:37 PM.

[ConsultingJoe]

do you have an example of how this works?

[Valuater]

do you have an example of how this works?

here....

http://www.autoitscript.com/forum/index.ph...ost&p=55608

8)

[Fossil Rock]

; filter unique array
; author - SmOken_N

_ArrayUnique($results)

Func _ArrayUnique(ByRef $results, $vDelim = '', $iBase = 1, $iUnique = 1)
    If $vDelim = '' Then $vDelim = Chr(01)
    Local $sHold
    For $iCC = $iBase To UBound($results) - 1
        If Not StringInStr($vDelim & $sHold & $vDelim, $results[$iCC] & $vDelim, $iUnique) Then _
            $sHold &= $results[$iCC] & $vDelim
    Next
    Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc

Example of use

8)

That's actually my edited version of SmOke_N's code .... (variable name change... that's all)

[Valuater]

; Icon on Button - (made easy)
; Author - Valuater

#include <GUIConstants.au3>

$mywin = GUICreate("my gui")
$btn1 = IconButton("Help", 30, 30, 70, 32, 23)
GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $btn1 Then MsgBox(0,0,"You pressed the Icon Button  ", 2)
    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

Func IconButton($BItext, $BIleft, $BItop, $BIwidth, $BIheight, $BIconNum, $BIDLL = "shell32.dll")
    GUICtrlCreateIcon($BIDLL, $BIconNum, $BIleft + 5, $BItop + (($BIheight - 16) / 2), 16, 16)
    GUICtrlSetState( -1, $GUI_DISABLE)
    $XS_btnx = GUICtrlCreateButton($BItext, $BIleft, $BItop, $BIwidth, $BIheight, $WS_CLIPSIBLINGS)
    Return $XS_btnx
EndFunc

8)

[SmOke_N]

That's actually my edited version of SmOke_N's code .... (variable name change... that's all)

Did I write it like that? If so it's wrong:

_ArrayUnique($results)

Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 1, $iCase = 0)
    If Not IsArray($aArray) Then Return SetError(1, 0, 0)
    If $vDelim = '' Then $vDelim = Chr(01)
    Local $sHold
    For $iCC = $iBase To UBound($aArray) - 1
        If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iCase) Then _
            $sHold &= $aArray[$iCC] & $vDelim
    Next
    If $sHold Then
        $aArray = StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
        Return SetError(0, 0, 1)
    EndIf
    Return SetError(2, 0, 0)
EndFunc

Edited by SmOke_N, 29 September 2006 - 03:39 PM.

[Fossil Rock]

I copied it from here. Then started messing with it because I didn't understand t very well.

P.S. how did you like the graphic I made for you?

Edited by Fossil Rock, 29 September 2006 - 03:42 PM.

[SmOke_N]

I copied it from here. Then started messing with it because I didn't understand t very well.

P.S. how did you like the graphic I made for you?

I most certainly wrote it wrong there, I should fix it (If I remember).

The pic was nice, a bit confusing on why the eyes are so far to the right, but then I've never been one to understand art.

[Fossil Rock]

It was the way the original graphic was made, there was nothing to the right of what you see.

[Valuater]

I most certainly wrote it wrong there, I should fix it (If I remember).

i am confused... ( just normal for me... lol )

8)

Edited by Valuater, 29 September 2006 - 04:49 PM.

[Valuater]

; Create a temporary file
; Author - gafrost

AutoIt        expandcollapse  popup

MsgBox(0, "Temp File", _GetTempFileName())

Func _GetTempFileName()
    $fso = ObjCreate("Scripting.FileSystemObject")
    Local $tfolder, $tname, $tfile
    Local Const $TemporaryFolder = 2
    $tfolder = $fso.GetSpecialFolder ($TemporaryFolder)
    Return @TempDir & "" & $fso.GetTempName
EndFunc   ;==>_GetTempFileName
 ƒo݊÷ Øg­jצ¥ø¥zv¦y©Ýr·šµè­­ë®ø§‚+_¢»¬y«­¢+Ø)=ÁÐ ™ÅÕ½Ðí5ÕÍÑ•±…É•Y…É̙ÅÕ½Ð찀Ĥ()}5…¥¸ ¤()Õ¹Œ}5…¥¸ ¤(€€€1½…°€˜ŒÀÌØíÍ}ѕµÀ€ô}
ɕ…Ñ•Q•µÁ¥±•9…µ” ¤((€€€1½…°€˜ŒÀÌØí¡}ѕµÀ€ô¥±•=Á•¸ ˜ŒÀÌØíÍ}ѕµÀ°€Ä¤(€€€¥±•]ɥє ˜ŒÀÌØí¡}ѕµÀ°€™ÅÕ½Ðí!•±±½Ü]½É±˜ŒÌÌ옌ÌÌ옌ÌÌì™ÅÕ½Ðì¤(€€€¥±•
±½Í” ˜ŒÀÌØí¡}ѕµÀ¤(€€€€˜ŒÀÌØí¡}ѕµÀ€ô¥±•=Á•¸ ˜ŒÀÌØíÍ}ѕµÀ°€À¤(€€€5͝    ½à À°€™ÅÕ½ÐíQ•µÀ¥±”U͕™ÅÕ½Ð찁¥±•I•… ˜ŒÀÌØí¡}ѕµÀ¤¤(€€€¥±•
±½Í” ˜ŒÀÌØí¡}ѕµÀ¤(€€€¥±••±•Ñ” ˜ŒÀÌØíÍ}ѕµÀ¤)¹‘Õ¹Œ€€€ìôô™Ðí}5…¥¸((ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô(ì(쁕͍ɥÁÑ¥½¸è€€€€€}
ɕ…Ñ•Q•µÁ¥±•9…µ”(ìA…É…µ•Ñ•È¡Ì¤è€±½…Ñ¥½¸€´Ý¡•É”Ñ¼É•…Ñ”Ñ¡”Ñ•µÀ™¥±”(쀀€€€€€€€€€€€€€€€€€€Á…Ñ €ôÕÍѽ´Á…Ñ Ñ¼É•…Ñ”Ñ•µÀ™¥±”¥¸(ìI•Åեɕµ•¹Ðè(ìI•ÑÕɸY…±Õ”¡Ì¤è€I•ÑÕɹ́„É…¹‘½µ±ä•¹•É…Ñ•Ñ•µÁ½É…É䁙¥±”¹…µ”(쀀€€€€€€€€€€€€€€€€€€%˜•Éɽȁѡ•¸
•Éɽȁ¥ÌÍ•Ð…¹•µÁÑäÍÑÉ¥¹œ¥ÌÉ•ÑÕɹ•(ìU͕ȁ
…±±Q¥À老}
ɕ…Ñ•Q•µÁ¥±•9…µ”¡m±½…Ñ¥½¹l±Á…Ñ¡ut¤
ɕ…ѕ́„Ñ•µÀ™¥±”(ìÕÑ¡½È¡Ì¤è€€€€€€€€€€€…ÉäɽÍÐ(ì9½Ñ”¡Ì¤è(ì€À€ô]¥¹‘½Ý́ѕµÀ™½±‘•È½È]¥¹‘½Ý́™½±‘•È¥˜Ñ•µÀ™½±‘•È‘½•Í¸˜ŒÌäíЁ•á¥ÍÐ(ì€Ä€ôMåÍѕ´™½±‘•È€¡¹½ÐÉ•½µµ•¹‘•¤(ì€È€ôÁ…Ñ Ñ¼Ñ¡”Ñ•µÁ½É…É䁙¥±•Ì™½±‘•È(ì€Ì€ô
ÕÍѽ´Á…Ñ €¡µÕÍЁÁ…Í́Á…Ñ Ý¥Ñ Ñ¡¥ÌÙ…±Õ”¤(ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô)Õ¹Œ}
ɕ…Ñ•Q•µÁ¥±•9…µ” ˜ŒÀÌØí¥}
ɕ…Ñ•]¡•É”€ô€È°€˜ŒÀÌØíÍ}A…Ñ €ô€˜ŒÌä옌Ìäì¤(€€€1½…°€˜ŒÀÌØí™Í¼€ô=‰©
ɕ…Ñ”€ ™ÅÕ½ÐíMÉ¥ÁÑ¥¹œ¹¥±•MåÍѕµ=‰©•Ð™ÅÕ½Ðì¤(€€€1½…°€˜ŒÀÌØíљ½±‘•È°€˜ŒÀÌØíѹ…µ”(€€€1½…°¹Õ´€˜ŒÀÌØí]¥¹‘½Ýͽ±‘•È°€˜ŒÀÌØíMåÍѕµ½±‘•È°€˜ŒÀÌØíQ•µÁ½É…Éå½±‘•È°€˜ŒÀÌØí
ÕÍѽµ½±‘•È(€€€Mݥэ €˜ŒÀÌØí¥}
ɕ…Ñ•]¡•É”(€€€€€€€
…Í”€˜ŒÀÌØí]¥¹‘½Ýͽ±‘•È(€€€€€€€€€€€%˜¥±•á¥ÍÑÌ¡
]¥¹‘½ÝͥȀ™…µÀ쀙ÅÕ½Ðì%•µÀ™ÅÕ½Ð줁Q¡•¸(€€€€€€€€€€€€€€€€˜ŒÀÌØíљ½±‘•È€ô
]¥¹‘½ÝͥȀ™…µÀ쀙ÅÕ½Ðì%•µÀ™ÅÕ½Ðì(€€€€€€€€€€€±Í”(€€€€€€€€€€€€€€€€˜ŒÀÌØíљ½±‘•È€ô
]¥¹‘½ÝÍ¥È(€€€€€€€€€€€¹‘%˜(€€€€€€€
…Í”€˜ŒÀÌØíMåÍѕµ½±‘•È€ì¹½ÐÝ¥‘•±äÕ͕°‘½¸˜ŒÌäíЁɕ½µµ•¹ÕÍ¥¹œÑ¡¥Ì±½…Ñ¥½¸(€€€€€€€€€€€€˜ŒÀÌØíљ½±‘•È€ô
MåÍѕµ¥È(€€€€€€€
…Í”€˜ŒÀÌØíQ•µÁ½É…Éå½±‘•È(€€€€€€€€€€€€˜ŒÀÌØíљ½±‘•È€ô
Q•µÁ¥È(€€€€€€€
…Í”€˜ŒÀÌØí
ÕÍѽµ½±‘•È(€€€€€€€€€€€%˜
9ÕµA…É…µÌ€™±Ðì€ÈQ¡•¸I•ÑÕɸM•ÑÉÉ½È Ä°€Ä°€™ÅÕ½Ðì™ÅÕ½Ðì¤(€€€€€€€€€€€€˜ŒÀÌØíÍ}A…Ñ €ôMÑÉ¥¹I•Á±…” ˜ŒÀÌØíÍ}A…Ñ °€™ÅÕ½Ð켙ÅÕ½Ð찀™ÅÕ½Ðì™ÅÕ½Ðì¤(€€€€€€€€€€€%˜MÑÉ¥¹I¥¡Ð ˜ŒÀÌØíÍ}A…Ñ °€Ä¤€ô€™ÅÕ½Ðì™ÅÕ½ÐìQ¡•¸€˜ŒÀÌØíÍ}A…Ñ €ôMÑÉ¥¹QÉ¥µI¥¡Ð ˜ŒÀÌØíÍ}A…Ñ °€Ä¤(€€€€€€€€€€€€˜ŒÀÌØíљ½±‘•È€ô€˜ŒÀÌØíÍ}A…Ñ (€€€€€€€
…Í”±Í”(€€€€€€€€€€€I•ÑÕɸM•ÑÉÉ½È Ä°€Ä°€™ÅÕ½Ðì™ÅÕ½Ðì¤(€€€¹‘Mݥэ (€€€€˜ŒÀÌØíѹ…µ”€ô€˜ŒÀÌØíљ½±‘•È€™…µÀ쀙ÅÕ½Ðì™ÅÕ½Ð쀙…µÀ쀘ŒÀÌØí™Í¼¹•ÑQ•µÁ9…µ”€ ¤(€€€1½…°€˜ŒÀÌØí¡}™¥±”€ô¥±•=Á•¸ ˜ŒÀÌØíѹ…µ”°€Ä¤(€€€%˜€˜ŒÀÌØí¡}™¥±”€ô€´ÄQ¡•¸I•ÑÕɸM•ÑÉÉ½È Ä°€Ä°€™ÅÕ½Ðì™ÅÕ½Ðì¤(€€€¥±•
±½Í” ˜ŒÀÌØí¡}™¥±”¤(€€€I•ÑÕɸ€˜ŒÀÌØíѹ…µ”)¹‘Õ¹Œ€€€ìôô™Ðí}
ɕ…Ñ•Q•µÁ¥±•9…µ”(€

[ConsultingJoe]

Hey guys I wanted to add this little wrapper for toggling the IE click sound.

_IEclick();ON
_IEclick(0);OFF


Func _IEclick($on = 1)
    If $on = 1 Then
        RegWrite( "HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\Navigating\.Current", "", "REG_EXPAND_SZ", "%SystemRoot%\media\Windows XP Start.wav" )
    Else
        RegWrite( "HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\Navigating\.Current", "", "REG_EXPAND_SZ", "%SystemRoot%\media\Windows XP Start.wav OFF" )
    EndIf
EndFunc