Donate a UDF (UserDefineFunction)

[ssvali]

I found similar topic for other tool and I though it is a good idea to do it for QTP too.

It will be very nice to see the invaluable findings at one place.
May I urge other experts on this forum to contribute user define function
and the problem you faced and the tips to overcome.

[Ankesh]

Thanks ssvali for taking the initative.

Here is the first UDF from me.

This will close any running application from taskbar.

Code:

'*************************************************************************************************************************************************************** 'Function : CloseProcess 'Author : Ankesh 'Reviewer : 'Version No : 'Date Created : 'Last Updated : 'Desc : Forecefully kills a process displayed on the task manager. StrProgramName should contain the process name with extension '*************************************************************************************************************************************************************** Public Function CloseProcess(strProgramName) Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.Run "TASKKILL /F /IM " & strProgramName Set objShell = Nothing End Fun 'calling the function Call CloseProcess("EXCEL.EXE") ''Closes excel Call CloseProcess("Iexplore.EXE") ''Closes IE 'Similar way you can pass any application name running in taskmanager. Function will kill them all.

Regards,[/code]
Ankesh

[ssvali]

Hi ,

Below is the function to capture screen shot of desktop

Code:

'*******************************************************************************​********************************************************************************​ 'Function : ScreenShot 'Author : ssvali 'Desc : It captures the screen shot of the desktop 'Parameter : ScrSht_Folder - Pass the path of the screenshot folder where u want save the screen shot '*******************************************************************************​********************************************************************************​ Function ScreenShot(ScrSht_Folder) Dim sDateTimeNow, sFilePath sDateTimeNow = Replace(Replace(now,"/","_")," ","_") sFilePath = ScrSht_Folder &"\" &"ScreenShot_" &".png" Desktop.CaptureBitmap sFilePath, True ScreenShot = sFilePath End Function

Thanks ssvali for taking the initative.

Here is the first UDF from me.

This will close any running application from taskbar.

Code:

'*************************************************************************************************************************************************************** 'Function : CloseProcess 'Author : Ankesh 'Reviewer : 'Version No : 'Date Created : 'Last Updated : 'Desc : Forecefully kills a process displayed on the task manager. StrProgramName should contain the process name with extension '*************************************************************************************************************************************************************** Public Function CloseProcess(strProgramName) Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.Run "TASKKILL /F /IM " & strProgramName Set objShell = Nothing End Fun 'calling the function Call CloseProcess("EXCEL.EXE") ''Closes excel Call CloseProcess("Iexplore.EXE") ''Closes IE 'Similar way you can pass any application name running in taskmanager. Function will kill them all.

Regards,[/code]
Ankesh