ReaImDown Posted May 27, 2007 Share Posted May 27, 2007 expandcollapse popup#include <Array.au3> Global $sIni = @CommonFilesDir & "\Disallow.ini" if FileExists(@CommonFilesDir & "/" & "Disallow.ini" = False) Then Dim $aData2[4][2] = [ [ "Process0", "msnmsgr.exe" ], [ "Process1", "" ], [ "Process2", "" ], [ "Process3", "" ] ] FileOpen($sIni, 1) FileWrite($sIni,"To disable a specific item from being used, use this format... process0 = firefox.exe" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "Disallow", $aData2, 0) endif Global $Programs = IniReadSection(@CommonFilesDir & "\Disallow.ini", "Disallow") for $i = 1 to $Programs[0][0] msgbox(0, "", $Programs[$1][1]) next Local $list = ProcessList();Grabs all running processes For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $list = ProcessList();To get current amount of programs Global $am = $list[0][0];Sets the amount While 1 Sleep(1000);To reduce load $list = ProcessList();Grabs all running processes If $am <> $list[0][0] Then;New Process For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $am = $list[0][0];Update amount EndIf WEnd Func _KillProcess($id) For $i = 0 To UBound($Programs)-1 Step 1 If $Programs[$i] = $id Then;If this program is not allowed to run ProcessClose($id);Close program MsgBox(1, "Closed", $id & " is not allowed to be used.");Display message. EndIf Next EndFunc oÝ÷ ÚØ^xW¡jÆ®¶seFòF6&ÆR7V6f2FVÒg&öÒ&VærW6VBÂW6RF2f÷&ÖBâââ&ö6W73Òf&Vf÷æWP ¥´F6ÆÆ÷uÐ¥&ö6W73Ö×6æ×6w"æWP¥&ö6W73Ð¥&ö6W73#Ð¥&ö6W733ÐoÝ÷ Úl®º+Æ®¶sfÆæRbfÆRgV÷C¶3¢b3#´Fö7VÖVçG2æB6WGFæw2b3#´Æ¢b3#´FW6·F÷b3#´F6ÆÆ÷rgV÷C² ¦×6v&÷ÂgV÷C²gV÷C²Âb33cµ&öw&×5²b33c³Õ³Ò¦×6v&÷ÂgV÷C²gV÷C²Âb33cµ&öw&×5µäW'&÷ ¤W'&÷#¢f&&ÆRW6VBvF÷WB&VærFV6Æ&V@ [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 @CommonFilesDir & "/" & "Disallow.ini" @CommonFilesDir & "\" & "Disallow.ini" Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 @CommonFilesDir & "\" & "Disallow.ini" lol, same problem still [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
FreeFry Posted May 27, 2007 Share Posted May 27, 2007 (edited) Why did you create another thread for this... you could've stated the problem in your first thread... for $i = 1 to $Programs[0][0] ; variable name is $i msgbox(0, "", $Programs[$1][1]) ; you're trying to use a variable named $1... next Edited May 27, 2007 by FreeFry Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) this works alittle better... but MsgBox(1, "Closed", $id & " is not allowed to be used.");Display message. shows 4 times... expandcollapse popup#NoTrayIcon #include <Array.au3> HotKeySet("+\", "Terminate") Global $sIni = @CommonFilesDir & "\Disallow.ini" If FileExists(@CommonFilesDir & "\Disallow.ini") = False Then Dim $aData2[4][2] = [ [ "Process0", "msnmsgr.exe" ], [ "Process1", "" ], [ "Process2", "" ], [ "Process3", "" ] ] FileOpen($sIni, 1) FileWrite($sIni, "press SHIFT \ to disable the script once its running...." & @CRLF & "process = the name of the process you wish to close, found when you press CTRL ALT DELETE...MSN Messenger is msnmsgr" & @CRLF & "To disable a specific item from being used, use this format... process0 = firefox.exe" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "Disallow", $aData2, 0) FileCopy(@ScriptFullPath, @CommonFilesDir & "/" & @ScriptName, 1) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "/" & @ScriptName) MsgBox(0, "Sucessful!", "The file has been installed successfully, just edit the .ini file and your done!") ShellExecute($sIni) While 1 If ProcessExists("Notepad - Disallow.ini") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIf WEnd EndIf If FileExists(@CommonFilesDir & "/" & @ScriptName) = False Then FileCopy(@ScriptFullPath, @CommonFilesDir & "/" & @ScriptName, 1) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "/" & @ScriptName) ShellExecute(@CommonFilesDir & "/" & @ScriptName) Sleep(3000) _SelfDelete() EndIf Global $Programs = IniReadSection(@CommonFilesDir & "\Disallow.ini", "Disallow") Local $list = ProcessList();Grabs all running processes For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $list = ProcessList();To get current amount of programs Global $am = $list[0][0];Sets the amount While 1 Sleep(1000);To reduce load $list = ProcessList();Grabs all running processes If $am <> $list[0][0] Then;New Process For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $am = $list[0][0];Update amount EndIf WEnd Func _KillProcess($id) $shown = 0 For $i = 0 To UBound($Programs) - 1 Step 1 For $1 = 1 To $Programs[0][0] If $Programs[$1][1] = $id Then;If this program is not allowed to run ProcessClose($id);Close program If ProcessClose($id) = True And $shown = 0 Then MsgBox(0, "Closed", $id & " is not allowed to be used.");Display message. $shown = 1 EndIf EndIf Next Next EndFunc ;==>_KillProcess Func Terminate() $Exit = MsgBox(0, @UserName, @UserName & ", you deactivaed the program successfully!") ProcessClose(@ScriptName) EndFunc ;==>Terminate Func _SelfDelete($iDelay = 0) Local $sCmdFile FileDelete(@TempDir & "\scratch.bat") $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _ & ':loop' & @CRLF _ & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _ & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _ & 'del ' & @TempDir & '\scratch.bat' FileWrite(@TempDir & "\scratch.bat", $sCmdFile) Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE) Exit EndFunc ;==>_SelfDelete Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 Not a fan of what you are doing here at all... It looks malicious even if it's intent isn't meant to be. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) Not a fan of what you are doing here at all...It looks malicious even if it's intent isn't meant to be.its meant to stop ones own family member from running a file...am not done...am going to make the .ini file open so the 1st user (who installs it) gets to choose which files dont work editing an old script from another user http://www.autoitscript.com/forum/index.ph...15&start=15 Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 its meant to stop ones own family member from running a file...am not done...am going to make the .ini file open so the 1st user (who installs it) gets to choose which files dont work editing an old script from another user http://www.autoitscript.com/forum/index.ph...15&start=15I'm going to be president and bring the gas prices down... (Jesus, say it's so!!)Anyway... we can say what we want in cyber world... but the truth of the matter, the "little" bit of code you showed... shows nothing more than you controlling what someone runs on their PC, then after you accomplish your task, you high tail it out of there with _SelfDelete().I see your priorities before you even finish you script with or without our help... thus far.1. List what you want acceptable2. If not acceptable, remove3. After removing, hide your ass and delete yourself from existenceAs I said before, this may not be your intentions, but all we have is an insight to your code, not your mind. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) I'm going to be president and bring the gas prices down... (Jesus, say it's so!!)Anyway... we can say what we want in cyber world... but the truth of the matter, the "little" bit of code you showed... shows nothing more than you controlling what someone runs on their PC, then after you accomplish your task, you high tail it out of there with _SelfDelete().I see your priorities before you even finish you script with or without our help... thus far.1. List what you want acceptable2. If not acceptable, remove3. After removing, hide your ass and delete yourself from existenceAs I said before, this may not be your intentions, but all we have is an insight to your code, not your mind.but if u look @ the coding (of which I only coded 50% there of) and the question that was asked of us, all I did was what the person in question asked, I used the _selfdelete to so it wasnt left on the desktop, 1 copy of the program is suffice, is it not?p.s. that coding is completed Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 (edited) but if u look @ the coding (of which I only coded 50% there of) and the question that was asked of us, all I did was what the person in question asked, I used the _selfdelete to so it wasnt left on the desktop, 1 copy of the program is suffice, is it not?Again, those of us that have been here for any period of time are skeptics... you may have good intentions, you may not... I'm not saying either, all I am saying is it was enough to make me look twice, especially playing with the registry. Edited May 27, 2007 by SmOke_N Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) Again, those of us that have been here for any period of time are skeptics... you may have good intentions, you may not... I'm not saying either, all I am saying is it was enough to make me look twice.say the word and I can delete the coding...whats the sense of having a file like that if it isnt going to run on startup?, if it didnt, it would be a run once, and couldnt be used as an administrative tool Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 say the word and I can delete the coding...I'm not a Mod, and they would have the power to delete it themselves, they are very good about that, and I'd never step on their toes... (unless it involved a good debate). Anyway, I never really looked at your coding or your style.... Can you look at this and tell me if it makes any sense at all (be sure to look the functions up in the help file before you respond):If ProcessExists("Notepad - Disallow.ini") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIf Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) I'm not a Mod, and they would have the power to delete it themselves, they are very good about that, and I'd never step on their toes... (unless it involved a good debate). Anyway, I never really looked at your coding or your style.... Can you look at this and tell me if it makes any sense at all (be sure to look the functions up in the help file before you respond):If ProcessExists("Notepad - Disallow.ini") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIfoÝ÷ Ûú®¢×¥¢+¢xºW(v)චÚhµéí©pjËaz·¥¢V®¶sbbväW7G2gV÷C´F6ÆÆ÷rææÒæ÷FWBgV÷C²ÒfÇ6RFVà¢×6t&÷ÂgV÷C´F6ÆÆ÷rgV÷C²ÂgV÷Cµ7V66W72b333²ÂF2fÆRvÆÂ&W7VÖRöâ7F'BWb333²gV÷C²¢W@¢VæD Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 27, 2007 Moderators Share Posted May 27, 2007 (edited) lol, wrongful coding, the thought potential was there lol If WinExists("Disallow.ini - Notepad") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIfoÝ÷ Ûú®¢×«wöÆ¥¥©Ýnër¢ë-Yaj÷²¢êì«!zȧ¶°®àv*ÞrبGb´LZ^jëh×6If FileExists(@CommonFilesDir & "/" & @ScriptName) = False Then FileCopy(@ScriptFullPath, @CommonFilesDir & "/" & @ScriptName, 1) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "/" & @ScriptName) ShellExecute(@CommonFilesDir & "/" & @ScriptName) Sleep(3000) _SelfDelete() EndIf Edited May 27, 2007 by SmOke_N Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 (edited) still works though...oh, and heres the updated file expandcollapse popup#NoTrayIcon #include <Array.au3> HotKeySet("+\", "Terminate") Global $sIni = @CommonFilesDir & "\Disallow.ini" If FileExists(@CommonFilesDir & "\Disallow.ini") = False Then Dim $aData2[4][2] = [ [ "Process0", "msnmsgr.exe" ], [ "Process1", "" ], [ "Process2", "" ], [ "Process3", "" ] ] FileOpen($sIni, 1) FileWrite($sIni, "press SHIFT + \ to disable the script once its running...." & @CRLF & "process = the name of the process you wish to close, found when you press CTRL ALT DELETE...MSN Messenger is msnmsgr" & @CRLF & "To disable a specific item from being used, use this format... process0 = firefox.exe" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "Disallow", $aData2, 0) FileCopy(@ScriptFullPath, @CommonFilesDir & "\" & @ScriptName, 1) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "\" & @ScriptName) MsgBox(0, "Sucessful!", "The file has been installed successfully, just edit the .ini file and your done!") ShellExecute($sIni) sleep(500) While 1 If WinExists("Disallow.ini - Notepad") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Sleep(500) _SelfDelete() EndIf WEnd EndIf Global $Programs = IniReadSection(@CommonFilesDir & "\Disallow.ini", "Disallow") Local $list = ProcessList();Grabs all running processes For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $list = ProcessList();To get current amount of programs Global $am = $list[0][0];Sets the amount While 1 Sleep(1000);To reduce load $list = ProcessList();Grabs all running processes If $am <> $list[0][0] Then;New Process For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $am = $list[0][0];Update amount EndIf WEnd Func _KillProcess($id) $shown = 0 For $i = 0 To UBound($Programs) - 1 Step 1 For $1 = 1 To $Programs[0][0] If $Programs[$1][1] = $id Then;If this program is not allowed to run ProcessClose($id);Close program If ProcessClose($id) = True And $shown = 0 Then MsgBox(0, "Closed", $id & " is not allowed to be used.");Display message. $shown = 1 EndIf EndIf Next Next EndFunc ;==>_KillProcess Func Terminate() $Exit = MsgBox(0, @UserName, @UserName & ", you deactivaed the program successfully!") ProcessClose(@ScriptName) EndFunc ;==>Terminate Func _SelfDelete($iDelay = 0) Local $sCmdFile FileDelete(@TempDir & "\scratch.bat") $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _ & ':loop' & @CRLF _ & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _ & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _ & 'del ' & @TempDir & '\scratch.bat' FileWrite(@TempDir & "\scratch.bat", $sCmdFile) Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE) ProcessClose(@ScriptName) Exit EndFunc ;==>_SelfDelete Edited May 27, 2007 by ReaImDown [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
ReaImDown Posted May 27, 2007 Author Share Posted May 27, 2007 Heres the final version of this file...am going to make another file that will get the process name for the .ini ...enjoy...umm, feel free to give suggestions expandcollapse popup#NoTrayIcon #include <Array.au3> HotKeySet("+\", "Terminate") Global $sIni = @CommonFilesDir & "\Disallow.ini" If FileExists(@CommonFilesDir & "\Disallow.ini") = False And FileExists(@CommonFilesDir & "\" & @ScriptName) = False Then Dim $aData2[4][2] = [ [ "Process0", "msnmsgr.exe" ], [ "Process1", "" ], [ "Process2", "" ], [ "Process3", "" ] ] Dim $aSafe[2][2] = [ [ "SafeUser0", @UserName ], [ "SafeUser1", "" ] ] FileOpen($sIni, 1) FileWrite($sIni, "press SHIFT + \ to disable the script once its running...." & @CRLF & "process = the name of the process you wish to close, found when you press CTRL ALT DELETE...MSN Messenger is msnmsgr" & @CRLF & "To disable a specific item from being used, use this format... process0 = firefox.exe" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "Disallow", $aData2, 0) FileOpen($sIni, 1) FileWrite($sIni, @CRLF & @CRLF & "Enter all the users you dont want this program to affect below" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "SafeUsers", $aSafe, 0) FileMove(@ScriptFullPath, @CommonFilesDir & "\" & @ScriptName, 0) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "\" & @ScriptName) MsgBox(0, "Sucessful!", "The file has been installed successfully, just edit the .ini file and your done!") ShellExecute($sIni) Sleep(500) While 1 If WinExists("Disallow.ini - Notepad") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIf WEnd EndIf If FileExists(@CommonFilesDir & "\Disallow.ini") = False And FileExists(@CommonFilesDir & "\" & @ScriptName) = True Then Dim $aData2[4][2] = [ [ "Process0", "msnmsgr.exe" ], [ "Process1", "" ], [ "Process2", "" ], [ "Process3", "" ] ] Dim $aSafe[2][2] = [ [ "SafeUser0", @UserName ], [ "SafeUser1", "" ] ] FileOpen($sIni, 1) FileWrite($sIni, "press SHIFT + \ to disable the script once its running...." & @CRLF & "process = the name of the process you wish to close, found when you press CTRL ALT DELETE...MSN Messenger is msnmsgr" & @CRLF & "To disable a specific item from being used, use this format... process0 = firefox.exe" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "Disallow", $aData2, 0) FileOpen($sIni, 1) FileWrite($sIni, @CRLF & "Enter all the users you dont want this program to affect below" & @CRLF & @CRLF) FileClose($sIni) IniWriteSection($sIni, "SafeUsers", $aSafe, 0) MsgBox(0, "Sucessful!", "The .ini file has been re-installed successfully, just edit the .ini file and your done!") Sleep(500) ShellExecute($sIni) Sleep(500) While 1 If WinExists("Disallow.ini - Notepad") = False Then MsgBox(0, "Disallow", "Success!, this file will resume on start up!") Exit EndIf WEnd Exit EndIf If FileExists(@CommonFilesDir & "\Disallow.ini") = True And FileExists(@CommonFilesDir & "\" & @ScriptName) = False Then FileMove(@ScriptFullPath, @CommonFilesDir & "\" & @ScriptName, 0) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Disallow", "REG_SZ", @CommonFilesDir & "\" & @ScriptName) MsgBox(0, "Sucessful!", "The .exe file has been re-installed successfully.") EndIf Global $Programs = IniReadSection(@CommonFilesDir & "\Disallow.ini", "Disallow") Global $Safe = IniReadSection(@CommonFilesDir & "\Disallow.ini", "SafeUsers") For $a = 1 To $Safe[0][0] Step 1 If $Safe[$a][1] = @UserName Then Exit EndIf Next Local $list = ProcessList();Grabs all running processes For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$a][0]);Sends each to be check and if chosen, closed. Next $list = ProcessList();To get current amount of programs Global $am = $list[0][0];Sets the amount While 1 Sleep(1000);To reduce load $list = ProcessList();Grabs all running processes If $am <> $list[0][0] Then;New Process For $i = 1 To $list[0][0] Step 1;Loops them all _KillProcess($list[$i][0]);Sends each to be check and if chosen, closed. Next $am = $list[0][0];Update amount EndIf WEnd Func _KillProcess($id) $shown = 0 For $i = 0 To UBound($Programs) - 1 Step 1 For $1 = 1 To $Programs[0][0] If $Programs[$1][1] = $id Then;If this program is not allowed to run ProcessClose($id);Close program If ProcessClose($id) = True And $shown = 0 Then MsgBox(0, "Closed", $id & " is not allowed to be used.");Display message. $shown = 1 EndIf EndIf Next Next EndFunc ;==>_KillProcess Func Terminate() $Exit = MsgBox(0, @UserName, @UserName & ", you deactivaed the program successfully!") ProcessClose(@ScriptName) EndFunc ;==>Terminate [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] 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