NaTaN Posted June 19, 2006 Posted June 19, 2006 (edited) (1st post... in here)I'm trying to write a script for automated virus scan.some antiviruses (like ClamAV) aren't supporting scanning a path with a GUI using a command line, only using a Context Menu (right clicking the drive/folder and choosing 'virus scan' from the list).i'm looking for a way to execute the dll that launches the virus scan from a script.from the registry i've learned that each context menu has a GUID (winzip's is {E0D79304-84BE-11CE-9641-444553540000})searching the registry for the GUID, i found it under HKCR\CLSID\{E0D79304-84BE-11CE-9641-444553540000}with subkey named InProcServer32, where default is C:\PROGRA~1\UTILIT~1\WINZIP\WZSHLSTB.DLL and ThreadingModel is Apartment.my logics say - there's must a way to execute this DLL...i guess it can be something like running rundll32 wzshlstb.dll,magicword "c:\"...if anyone of you have idea. do share this information with me and the rest of the forum...(i apologize if similiar answer is avaliable in the forum, i haven't find it.)NaTaNNo One Answered yet... - nice place to backup other script:expandcollapse popup#include <Misc.au3> #include <GUIConstants.au3> Opt("ColorMode", 1) $title = "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC $fontsize = 20 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate($title, 633, 131, 193, 115) $Input1 = GUICtrlCreateInput("Enter...", 8, 8, 545, 115, $ES_MULTILINE + $ES_WANTRETURN) GUICtrlSetFont(-1, $fontsize, 400, 0, "Arial") $Slider1 = GUICtrlCreateSlider(560, 8, 33, 113, BitOR($TBS_VERT, $TBS_AUTOTICKS), $WS_EX_STATICEDGE) $Button1 = GUICtrlCreateButton("FG", 600, 8, 25, 55, 0) $Button2 = GUICtrlCreateButton("BG", 600, 65, 25, 55, 0) GUICtrlSetLimit($Slider1, 72, 20) GUICtrlSetData($Slider1, $fontsize) GUISetState(@SW_SHOW) $txt = GUICtrlRead($Input1) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Slider1 GUICtrlSetFont($Input1, GUICtrlRead($Slider1)) _UpdateTitle() Case $Button1 $color = _ChooseColor() GUICtrlSetColor($Input1, $color) _UpdateTitle() Case $Button2 $color = _ChooseColor() GUICtrlSetBkColor($Input1, $color) _UpdateTitle() Case Else If $txt <> GUICtrlRead($Input1) Then _UpdateTitle() EndIf $txt = GUICtrlRead($Input1) EndSwitch WEnd Func _UpdateTitle() If $title <> "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC Then WinSetTitle($title, "", "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC) $title = "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC EndIf EndFunc ;==>_UpdateTitle Edited September 19, 2006 by NaTaN
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