au3scr Posted February 22, 2008 Share Posted February 22, 2008 hi I cant find my mistake in my script here is error code E:\desktop\flux.au3(120,41) : WARNING: $pid: possibly used before declaration. $handle = _WinAPI_OpenProcess(0x1,0,$pid) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ E:\desktop\flux.au3(120,41) : ERROR: $pid: undeclared global variable. $handle = _WinAPI_OpenProcess(0x1,0,$pid) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ E:\desktop\flux.au3 - 1 error(s), 1 warning(s) and here is my script expandcollapse popupOpt("OnExitFunc", "endscript") #include <GUIConstants.au3> #Include <WinAPI.au3> global $pass = FileReadLine(@ScriptDir & "\settings",1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("FluxBox", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP) GUISetBkColor(0x3A6EA5) $MenuItem0 = GUICtrlCreateMenu("Programs") $MenuItem01 = GUICtrlCreateMenuItem("Firefox", $MenuItem0) $MenuItem02 = GUICtrlCreateMenuItem("Notepad", $MenuItem0) $MenuItem03 = GUICtrlCreateMenuItem("7-Zip", $MenuItem0) $MenuItem02 = GUICtrlCreateMenuItem("", $MenuItem0) $MenuItem112 = GUICtrlCreateMenu("Office",$MenuItem0) $MenuItem11211 = GUICtrlCreateMenuItem("Open Office Writer", $MenuItem112) $MenuItem11212 = GUICtrlCreateMenuItem("Open Office Math", $MenuItem112) $MenuItem11213 = GUICtrlCreateMenuItem("Open Office Impress", $MenuItem112) $MenuItem11214 = GUICtrlCreateMenuItem("Open Office Draw", $MenuItem112) $MenuItem11215 = GUICtrlCreateMenuItem("Open Office Calc", $MenuItem112) $MenuItem11216 = GUICtrlCreateMenuItem("Open Office Base", $MenuItem112) $MenuItem11217 = GUICtrlCreateMenuItem("Notepad 2", $MenuItem112) $MenuItem11218 = GUICtrlCreateMenuItem("Word", $MenuItem112) $MenuItem11219 = GUICtrlCreateMenuItem("Excel", $MenuItem112) $MenuItem1 = GUICtrlCreateMenu("Exit") $MenuItem11 = GUICtrlCreateMenuItem("exit", $MenuItem1) $MenuItem12 = GUICtrlCreateMenuItem("Shutdown", $MenuItem1) $MenuItem13 = GUICtrlCreateMenuItem("Restart", $MenuItem1) $MenuItem14 = GUICtrlCreateMenuItem("Log Off", $MenuItem1) GUICtrlCreateLabel("<Filename cannot be showen> Loaded with following stting:",10,@DesktopHeight - 100, 350,15) $l1 = GUICtrlCreateLabel("Always On Top: OFF",10,@DesktopHeight - 85, 150,15) $l2 = GUICtrlCreateLabel("Disable Task Mannager: OFF",10,@DesktopHeight - 70, 200,15) $l3 = GUICtrlCreateLabel("Kill Explorer.exe: OFF",10,@DesktopHeight - 55, 150,15) GUICtrlCreateLabel("Require password on close: ON (Cannot be changed)",10,@DesktopHeight -40, 150,15) top () noexp () nodm () GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $MenuItem11 endscript () case $MenuItem01 $load = FileReadLine(@ScriptDir & "\settings",5) Run ($load) case $MenuItem02 $load = FileReadLine(@ScriptDir & "\settings",6) Run ($load) case $MenuItem03 $load = FileReadLine(@ScriptDir & "\settings",7) Run ($load) case $MenuItem11211 $load = FileReadLine(@ScriptDir & "\settings",8) Run ($load) case $MenuItem11212 $load = FileReadLine(@ScriptDir & "\settings",9) Run ($load) case $MenuItem11213 $load = FileReadLine(@ScriptDir & "\settings",10) Run ($load) case $MenuItem11214 $load = FileReadLine(@ScriptDir & "\settings",11) Run ($load) case $MenuItem11215 $load = FileReadLine(@ScriptDir & "\settings",12) Run ($load) case $MenuItem11216 $load = FileReadLine(@ScriptDir & "\settings",13) Run ($load) case $MenuItem11217 $load = FileReadLine(@ScriptDir & "\settings",14) Run ($load) case $MenuItem11218 $load = FileReadLine(@ScriptDir & "\settings",15) Run ($load) case $MenuItem11219 $load = FileReadLine(@ScriptDir & "\settings",15) Run ($load) case $MenuItem12 Shutdown (1) case $MenuItem13 Shutdown (2) case $MenuItem14 Shutdown (0) EndSwitch WEnd Func endscript () $Password = InputBox("Enter Password", "You must enter password to close this window", "", "*") If $Password = $pass Then run("explorer") Exit Else EndIf EndFunc func top () $top = FileReadLine (@ScriptDir & "\settings",2) If $top = "Yes" Then GUICtrlSetData ($l1,"Always On Top: ON") WinSetOnTop("FluxBox","",1) If $top = "NO" Then GUICtrlSetData ($l1,"Always On Top: OFF") ;~ ElseIf ;~ GUICtrlSetData ($l1,"Always On Top: OFF") EndIf EndIf EndFunc func noexp () $noexp = FileReadLine (@ScriptDir & "\settings",3) If $noexp = "Yes" Then GUICtrlSetData ($l3,"Kill Explorer.exe: ON") ;~ Run( @ComSpec & "taskkill /f /im explorer.exe") $handle = _WinAPI_OpenProcess(0x1,0,$pid) DllCall("kernel32.dll","int","TerminateProcess","int",$handle,"int",1) run(@scriptdir & "\explorer.exe", @WindowsDir , 1) ;~ run(@scriptdir & "\explorer.exe") ;~ WEnd If $noexp = "No" Then GUICtrlSetData ($l3,"Kill Explorer.exe: OFF") ;~ ElseIf ;~ GUICtrlSetData ($l3,"Kill Explorer.exe: OFF") EndIf EndIf EndFunc func nodm () $noexp = FileReadLine (@ScriptDir & "\settings",4) If $noexp = "Yes" Then GUICtrlSetData ($l2,"Disable Task Mannager: ON") HotKeySet ("^+{Esc}","n") If $noexp = "no" Then GUICtrlSetData ($l2,"Disable Task Mannager: OFF") ;~ ElseIf ;~ GUICtrlSetData ($l2,"Disable Task Mannager: OFF") EndIf EndIf EndFunc func n () sleep(100) msgbox(1,"t","p") EndFunc =========================================================================== Where i can find help about this? DllCall("kernel32.dll","int","TerminateProcess","int",$handle,"int",1) What mean "int" What is "TerminateProcess" ? is it a command line parameter or function name? or what How to get more these functions? "TerminateProcess" . I dont know them, I got it from replies How to under stand this? $handle = _WinAPI_OpenProcess(0x1,0,$pid) i understood 1 st part but 2nd part is unknown for me (0x1,0,$pid) Thanks Link to comment Share on other sites More sharing options...
DW1 Posted February 22, 2008 Share Posted February 22, 2008 just like the error said, you never declared $PID AutoIt3 Online Help Link to comment Share on other sites More sharing options...
au3scr Posted February 22, 2008 Author Share Posted February 22, 2008 How to declare $pid ? Where ?how?What i have to write? Sorry for these stupid questions Link to comment Share on other sites More sharing options...
DW1 Posted February 22, 2008 Share Posted February 22, 2008 Not willing to test this code at work, but something like this I think: $pid = ProcessExists( "explorer.exe" ) $handle = _WinAPI_OpenProcess(0x1,0,$pid) AutoIt3 Online Help 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