Sign in to follow this  
Followers 0
gil900

Can you please test (QA) this code on your system?

24 posts in this topic

#1 ·  Posted (edited)

Hello,
I need a favor.

 
I need you check this function:
#include <Array.au3>


Local $aResult =_RetrieveRunningServices2(1)
_ArrayDisplay($aResult)

Func _RetrieveRunningServices2($Sort = 0)
    Local $Output[1][2] , $iPid , $sResult , $aResult
    $iPid = Run(@ComSpec & " /c sc query", @SystemDir, @SW_HIDE, 2)
    ProcessWaitClose($iPid)
    $sResult = DllCall('user32.dll', 'Int', 'OemToChar', 'str', StdoutRead($iPid), 'str', '')[2]
    $aResult = StringRegExp($sResult, "(?mi)^(?:SERVICE_NAME|DISPLAY_NAME):\h*(\N+)", 3)
    If IsArray($aResult) Then
        Local $aServices [(UBound($aResult) / 2)+1][2] , $n = 1
        For $i = 0 To UBound($aResult) - 1  Step 2
            $aServices[$n][0] = $aResult[$i]
            $aServices[$n][1] = $aResult[$i + 1]
            $n += 1
        Next
        If $Sort = 1 Then _ArraySort($aServices, 0, 0, 0, 1) ; Sort by DisplayName
        $aServices[0][0] = UBound($aServices)-1
        $Output = $aServices
    EndIf

    $Output[0][0] = UBound($Output)-1
    Return $Output
EndFunc

in you operating system.

I nead to know if the code working for you properly.

the code should return 2D array of the running services with their display name and short name.

I need to test the code under the following systems: Windows vista , windows 7 , windows 8 & 8.1 , windows XP.

This is modified code from >here. (Thanks a lot for jguinch)

Thanks for helpers!

Edited by gil900

Share this post


Link to post
Share on other sites



change this:

_ArrayDisplay(_RetrieveRunningServices2(1))

to this:

Local $aResult =_RetrieveRunningServices2(1)
_ArrayDisplay($aResult)

and now this works ;)

mLipok


February 26, 2017: New SciTE4AutoIt3 available with the updated SciTE v3.7.3 release
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button:

Spoiler

Last update: 2017-02-26
Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAPPOP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF * WinSCP UDF *

My contribution to others projects: * _sql.au3 UDF  *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities *

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

change this:

_ArrayDisplay(_RetrieveRunningServices2(1))

to this:

Local $aResult =_RetrieveRunningServices2(1)
_ArrayDisplay($aResult)

and now this works ;)

mLipok

It's weird .. I did not expect it..

Anyway I fixed the example.

thanks

Edited by gil900

Share this post


Link to post
Share on other sites

Seems to work on Win 8.1 x64 running 3.3.10.2 / 3.3.11.4.

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯

Share this post


Link to post
Share on other sites

It's weird .. I did not expect it..

Anyway I fixed the example.

thanks

 

Are you using SciTE4AutoIt ?

If yes , if you have not seen these messages?

"L:\QuickPDF\_AU3\test.au3"(4,43) : error: _ArrayDisplay() called with expression on Const ByRef-param(s).
_ArrayDisplay(_RetrieveRunningServices2(1))

This clearly indicated where there was a problem with your script.

As it only corrected in accordance with the information from AU3Check.

mLipok


February 26, 2017: New SciTE4AutoIt3 available with the updated SciTE v3.7.3 release
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button:

Spoiler

Last update: 2017-02-26
Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAPPOP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF * WinSCP UDF *

My contribution to others projects: * _sql.au3 UDF  *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities *

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

 

Share this post


Link to post
Share on other sites

Are you using SciTE4AutoIt ?

If yes , if you have not seen these messages?

"L:\QuickPDF\_AU3\test.au3"(4,43) : error: _ArrayDisplay() called with expression on Const ByRef-param(s).
_ArrayDisplay(_RetrieveRunningServices2(1))

This clearly indicated where there was a problem with your script.

As it only corrected in accordance with the information from AU3Check.

mLipok

I did not understand what you said but I did a test and sow that the line:

_ArrayDisplay(_RetrieveRunningServices2(1))

works if #AutoIt3Wrapper_Run_AU3Check=n

so it is AU3Check bug

 

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

I get an empy array

Win 7 Enterprise x64

AutoIt 3.3.10.2

Edited by PincoPanco

small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

Win 7 Home Premium 64-bit - works fine

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

Thank you. Keep me informed please

 

I get an empy array

Win 7 Enterprise x64

AutoIt 3.3.10.2

:o


Would you please try to fix the bug?

Is your antivirus is COMODO?
I would not be surprised if the answer is yes.
If this is the case then you probably suffer quite a lot.

 

If not then what is your anti-virus?

Please disable the defense and run again the code and tell me if it solved the problem

Edited by gil900

Share this post


Link to post
Share on other sites

Working fine.

Win8 x64

Share this post


Link to post
Share on other sites

Thank you. Keep me informed please

 

:o

Would you please try to fix the bug?

Is your antivirus is COMODO?

I would not be surprised if the answer is yes.

If this is the case then you probably suffer quite a lot.

 

If not then what is your anti-virus?

Please disable the defense and run again the code and tell me if it solved the problem

My VM has Comodo and it works just fine.


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

Thank you. Keep me informed please

 

:o

Would you please try to fix the bug?

Is your antivirus is COMODO?

I would not be surprised if the answer is yes.

If this is the case then you probably suffer quite a lot.

 

If not then what is your anti-virus?

Please disable the defense and run again the code and tell me if it solved the problem

 

McAfee VirusScan enterprise

I can not disable it.....


small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

#14 ·  Posted (edited)

McAfee VirusScan enterprise

I can not disable it.....

Okay.

Anyway, this bug is less worse then ?do=embed' frameborder='0' data-embedContent>>p?do=embed' frameborder='0' data-embedContent>>revious bug . the previous bug is freezing the script for 30 seconds. I prefer that in extreme cases something will not work. It is better than the bug that the whole script freez..

Edited by gil900

Share this post


Link to post
Share on other sites

Okay.

Anyway, this bug is less worse then ?do=embed' frameborder='0' data-embedContent>>p?do=embed' frameborder='0' data-embedContent>>revious bug . the previous bug is freezing the script for 30 seconds. I prefer that in extreme cases something will not work. It is better than the bug that the whole script freez..

 

yes, but no bugs at all would be even better :P


small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

Does this script run any faster if you change this?

; From this
   $sResult = DllCall('user32.dll', 'Int', 'OemToChar', 'str', StdoutRead($iPid), 'str', '')[2]
; To this
   $sResult = StdoutRead($iPid)

And does it affect your output at all doing it this way?

Even Microsoft recommends not using that function.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#17 ·  Posted (edited)

yes, but no bugs at all would be even better :P

There are things i can not prevent. what happened to you is probably your antivirus automatically sandboxed the script.

Your anti-virus have sandbox technology

It's the main reason why I >asked here for a way to check if the script runs in sandbox mode.

You say you can not disable the antivirus. Why?

If it is because of that the option is blocked then you can try to run the computer on safe mode (with f8 key) and then try the script.

in safe mode the anti-virus is not running.

 

Does this script run any faster if you change this?

; From this

$sResult = DllCall('user32.dll', 'Int', 'OemToChar', 'str', StdoutRead($iPid), 'str', '')[2]

; To this

$sResult = StdoutRead($iPid)

And does it affect your output at all doing it this way?

Even Microsoft recommends not using that function.

 

Thanks for the advice.

What this function does?

Edited by gil900

Share this post


Link to post
Share on other sites

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#19 ·  Posted (edited)

hey, wait a moment...
I tested your script without entering into the matter,
now, looking into the matter I have seen where is the problem.....
it is not the antivirus. The problem is that the sc program is localized and so the
StringRegExp($sResult, "(?mi)^(?:SERVICE_NAME|DISPLAY_NAME):h*(N+)", 3) returns an empty array
If I change the SERVICE_NAME|DISPLAY_NAME with my localized strings than it works.

P.S,

my comment in post #15 was just for fun :)

Edited by PincoPanco

small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

#20 ·  Posted (edited)

hey, wait a moment...

I tested your script without entering into the matter,

now, looking into the matter I have seen where is the problem.....

it is not the antivirus. The problem is that the sc program is localized and so the

StringRegExp($sResult, "(?mi)^(?:SERVICE_NAME|DISPLAY_NAME):h*(N+)", 3) returns an empty array

If I change the SERVICE_NAME|DISPLAY_NAME with my localized strings than it works.

P.S,

my comment in post #15 was just for fun :)

Thanks for the information. Glad to hear you found the problem.

I want to understand - "localized strings" means in this case that the strings "SERVICE_NAME" and "DISPLAY_NAME" are called(written) in another language in your system?

I need to be sure i understood it correct.

Edited by gil900

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