Operator Panel

hanusherado · November 21, 2013

I have made Operational panel for everyone who uses the Office, ms paint, command prompt and much more alot at work. Get your operational panel at your desktop and enjoy the handy Application and make your life easier.

I hope it will help you :bike:

The script for this operator will be provided on request. email at: husnain2002@gmail.com

SCL-Panel.zip

Edited November 21, 2013 by hanusherado

michaelslamet · November 21, 2013

I dont know the others, but I definetely will not run a exe file from "unknown source" even my antivirus doesn't flag it as virus positive

except maybe in virtual machine, but I have no virtual machine right now

edit: typo

Edited November 21, 2013 by michaelslamet

JohnOne · November 21, 2013

The script for this operator will be provided on request.

Please post the script.

Edited November 21, 2013 by JohnOne

hanusherado · November 21, 2013

Okay...for you request. I am posting Code here. For ur help. :shifty:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
HotKeySet("{ESC}", "esc")



$Form1 = GUICreate("Inovedia Technologies Operational Panel®  Windows 7 & 8", 510, 220)
$Button1 = GUICtrlCreateButton("Notepad", 16, 20, 113, 33)
$Button2 = GUICtrlCreateButton("MS Word", 140, 20, 113, 33)
$Button3 = GUICtrlCreateButton("MS Excel", 264, 20, 113, 33)
$Button4 = GUICtrlCreateButton("Command Prompt", 390, 20, 113, 33)
$Button5 = GUICtrlCreateButton("MS Paint", 16, 70, 113, 33)
$Button6 = GUICtrlCreateButton("My Computer", 140, 70, 113, 33)
$Button7 = GUICtrlCreateButton("Remote Desktop", 262, 70, 113, 33)
$Button8 = GUICtrlCreateButton("My Documents", 392, 70, 113, 33)
$Button11 = GUICtrlCreateButton("Network Connections", 16, 120, 113, 33)
$Button9 = GUICtrlCreateButton("Task Manager", 140, 120, 113, 33)
$Button10 = GUICtrlCreateButton("DVD/CD ROM", 264, 120, 113, 33)
$Button12 = GUICtrlCreateButton("Lock Screen", 392, 120, 113, 33)
$Button13 = GUICtrlCreateButton("Instant Task Manager", 16, 170, 113, 33)
$Button14 = GUICtrlCreateButton("Snipping Tool", 140, 170, 113, 33)
$Button15 = GUICtrlCreateButton("Device Manager", 262, 170, 113, 33)
$Button16 = GUICtrlCreateButton("Ms Outlook", 392, 170, 113, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func esc()
      Exit   
   EndFunc
   

While 1<>999999
    $nMsg = GUIGetMsg()
    Switch $nMsg
 Case $GUI_EVENT_CLOSE
      Exit
   Case $Button14
      WinSetState("Inovedia Technologies Operational Panel®  Windows 7 & 8", "", @SW_MINIMIZE)
      Send("#r")
      Sleep(50)
      Send("snippingtool")
      Sleep(1)
      Send("{ENTER}")
    Case $Button16
    Run("C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE")
 Case $Button15
     Local $rc = _RunDos("rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl")    
    
 Case $Button13
     taskmgr()  
 Case $Button12
      Local $rc = _RunDos("rundll32.exe user32.dll, LockWorkStation")
 Case $Button10
    CDTray("F:", "open")
    CDTray("C:", "open")
    CDTray("D:", "open")
    CDTray("E:", "open")
    CDTray("G:", "open")
    CDTray("H:", "open")
    CDTray("I:", "open")    
 Case $Button9
    Run("taskmgr.exe")
    Local $rc = _RunDos("Taskmgr")
 Case $Button1
      Sleep(100)
      WinSetState("Operational Panel®  Windows 7 & 8", "", @SW_MINIMIZE)
      Sleep(100)
      Send("#r")
      Sleep(50)
      Send("notepad")
      Sleep(1)
      Send("{ENTER}")
 Case $Button4
    Run("cmd.exe")
 Case $Button2
    Run("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\WINWORD.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE")
 Case $Button3
    Run("C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\EXCEL.EXE")
 Case $Button5
    Run("mspaint.exe")
 Case $Button7
    Run("mstsc.exe")
 Case $Button11
    Run("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl")
 Case $Button6
    Run('explorer.exe /n /m,"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"')    
 Case $Button8
    Run('explorer.exe /n /m, "@DesktopDir"')
    
    EndSwitch
WEnd

Func taskmgr()

$Task = GUICreate("Task Manager", 346, 387)
$Processi = GUICtrlCreateMenu("Processes")
$Termina = GUICtrlCreateMenuItem("Terminate", $Processi)
$Esci = GUICtrlCreateMenuItem("Esc", $Processi)
$Button = GUICtrlCreateButton("Terminate", 136, 336, 75, 25)
$Lista = GUICtrlCreateList("", 8, 15, 329, 305)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

       $array = ProcessList()
       For $i = 1 To $array[0][0]
               GUICtrlSetData($Lista,$array[$i][0]&"|")
       Next
       
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                      Exit
                       
               Case $Esci
                       Exit
                       
               Case $Button
                       $processo = GUICtrlRead($Lista)
                       ProcessClose($processo)
                               
               Case $Termina
                       $processo = GUICtrlRead($Lista)
       EndSwitch
WEnd

EndFunc

Hope you all will relax using it.

JohnOne · November 21, 2013

Okay...for you request. I am posting Code here. For ur help. :shifty:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
HotKeySet("{ESC}", "esc")



$Form1 = GUICreate("Inovedia Technologies Operational Panel®  Windows 7 & 8", 510, 220)
$Button1 = GUICtrlCreateButton("Notepad", 16, 20, 113, 33)
$Button2 = GUICtrlCreateButton("MS Word", 140, 20, 113, 33)
$Button3 = GUICtrlCreateButton("MS Excel", 264, 20, 113, 33)
$Button4 = GUICtrlCreateButton("Command Prompt", 390, 20, 113, 33)
$Button5 = GUICtrlCreateButton("MS Paint", 16, 70, 113, 33)
$Button6 = GUICtrlCreateButton("My Computer", 140, 70, 113, 33)
$Button7 = GUICtrlCreateButton("Remote Desktop", 262, 70, 113, 33)
$Button8 = GUICtrlCreateButton("My Documents", 392, 70, 113, 33)
$Button11 = GUICtrlCreateButton("Network Connections", 16, 120, 113, 33)
$Button9 = GUICtrlCreateButton("Task Manager", 140, 120, 113, 33)
$Button10 = GUICtrlCreateButton("DVD/CD ROM", 264, 120, 113, 33)
$Button12 = GUICtrlCreateButton("Lock Screen", 392, 120, 113, 33)
$Button13 = GUICtrlCreateButton("Instant Task Manager", 16, 170, 113, 33)
$Button14 = GUICtrlCreateButton("Snipping Tool", 140, 170, 113, 33)
$Button15 = GUICtrlCreateButton("Device Manager", 262, 170, 113, 33)
$Button16 = GUICtrlCreateButton("Ms Outlook", 392, 170, 113, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func esc()
      Exit   
   EndFunc
   

While 1<>999999
    $nMsg = GUIGetMsg()
    Switch $nMsg
 Case $GUI_EVENT_CLOSE
      Exit
   Case $Button14
      WinSetState("Inovedia Technologies Operational Panel®  Windows 7 & 8", "", @SW_MINIMIZE)
      Send("#r")
      Sleep(50)
      Send("snippingtool")
      Sleep(1)
      Send("{ENTER}")
    Case $Button16
    Run("C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE")
 Case $Button15
     Local $rc = _RunDos("rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl")    
    
 Case $Button13
     taskmgr()  
 Case $Button12
      Local $rc = _RunDos("rundll32.exe user32.dll, LockWorkStation")
 Case $Button10
    CDTray("F:", "open")
    CDTray("C:", "open")
    CDTray("D:", "open")
    CDTray("E:", "open")
    CDTray("G:", "open")
    CDTray("H:", "open")
    CDTray("I:", "open")    
 Case $Button9
    Run("taskmgr.exe")
    Local $rc = _RunDos("Taskmgr")
 Case $Button1
      Sleep(100)
      WinSetState("Operational Panel®  Windows 7 & 8", "", @SW_MINIMIZE)
      Sleep(100)
      Send("#r")
      Sleep(50)
      Send("notepad")
      Sleep(1)
      Send("{ENTER}")
 Case $Button4
    Run("cmd.exe")
 Case $Button2
    Run("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\WINWORD.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE")
 Case $Button3
    Run("C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE")
    Run("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE")
    Run("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")
    Run("C:\Program Files\Microsoft Office\Office14\EXCEL.EXE")
 Case $Button5
    Run("mspaint.exe")
 Case $Button7
    Run("mstsc.exe")
 Case $Button11
    Run("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl")
 Case $Button6
    Run('explorer.exe /n /m,"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"')    
 Case $Button8
    Run('explorer.exe /n /m, "@DesktopDir"')
    
    EndSwitch
WEnd

Func taskmgr()

$Task = GUICreate("Task Manager", 346, 387)
$Processi = GUICtrlCreateMenu("Processes")
$Termina = GUICtrlCreateMenuItem("Terminate", $Processi)
$Esci = GUICtrlCreateMenuItem("Esc", $Processi)
$Button = GUICtrlCreateButton("Terminate", 136, 336, 75, 25)
$Lista = GUICtrlCreateList("", 8, 15, 329, 305)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

       $array = ProcessList()
       For $i = 1 To $array[0][0]
               GUICtrlSetData($Lista,$array[$i][0]&"|")
       Next
       
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                      Exit
                       
               Case $Esci
                       Exit
                       
               Case $Button
                       $processo = GUICtrlRead($Lista)
                       ProcessClose($processo)
                               
               Case $Termina
                       $processo = GUICtrlRead($Lista)
       EndSwitch
WEnd

EndFunc

Hope you all will relax using it.

Thanks

Myicq · November 22, 2013

Didn't try it, but would perhaps be an idea for you - if you wish to make example script - NOT to hardcode "c:Program Files" etc. This is a localized thing, so in Denmark it's "c:Programmer", in Germany "c:Programme" etc. There is an @ macro for that in AutoIT.

hanusherado · November 22, 2013

Myicq..Thanks alot for this. Really appretiate for your precious suggestion :shifty:

hanusherado · November 22, 2013

Well Myicq even you can put all the combination paths togather, so which ever will be suited to specific system will work for it. :sweating:

Sign In

Operator Panel

Recommended Posts

hanusherado

Link to comment

Share on other sites

michaelslamet

Link to comment

Share on other sites

JohnOne

Link to comment

Share on other sites

hanusherado

Link to comment

Share on other sites

JohnOne

Link to comment

Share on other sites

Myicq

Link to comment

Share on other sites

hanusherado

Link to comment

Share on other sites

hanusherado

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta