Sign in to follow this  
Followers 0
hanusherado

Operator Panel

8 posts in this topic

#1 ·  Posted (edited)

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 by hanusherado

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 by michaelslamet

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

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.


I am just a hobby programmer, and nothing great to publish right now.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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:

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0