| 
					
						 Like i told you i don't have programming skills, i tried this:
  Sub RunApplication(ByVal sFile)
      Dim WShell : Set WShell = CreateObject("WScript.Shell")     WShell.Run Chr(34) & sFile & Chr(34), 8, false
  End Sub
  RunApplication "C:\Program Files\Tools\desklock.exe" RunApplication "C:\Program Files\Tools\shutdown.exe" -s suspend -l 0
  Then i tried this, still unsuccessfully.. >>
  Sub RunApplication(ByVal sFile)
      Dim WShell : Set WShell = CreateObject("WScript.Shell")     WShell.Run Chr(34) & sFile & Chr(34), 8, false
  End Sub
  RunApplication "C:\Program Files\Tools\desklock.exe" RunApplication ""C:\Program Files\Tools\shutdown.exe" -s suspend -l 0" 
					
							
  
							Last edited by delicacy on Wed Jul 02, 2014 11:34 am, edited 1 time in total.
						
  
						
					 |