X-Setup Pro Plugins

Note for everybody who is visiting this page via a search engine like Google:
This page shows the HTML version (with full source code) of one of our many plugins included with our tweaker utility X-Setup Pro. With this tool you can change over 1,700 settings for Windows and other applications - settings that are normally hidden deep inside the registry. Read more about X-Setup Pro on our Product info about X-Setup Pro Product page.

If you are interested in using this plugin, because it contains a tweak you would like to have, it's easy as 1-2-3-4:

Download X-Setup Pro from our Download page.
Install it on your computer and execute it.
On the welcome screen, select "Classic mode".
Simply use the information about the path and the name of the plugin shown below to easily locate it.

Plugin details

This is the HTML representation of the plugin AutoRun Services (All Users) (Version 2.03) which can be found in the following path(s) in X-Setup Pro classic:
Startup/Shutdown\Startup\Windows 9x/ME\50) AutoRun - Part 1
Startup/Shutdown\Startup\Windows\20) AutoRun - Part 1

The plugin can be executed on the following Windows versions (Operation Systems):
Any Windows version; Windows 95 Windows 98 Windows ME Windows 2000 Windows XP and Windows 2003

Description :
These services (system programs) are automatically started when this computer is started. Click "Show Info" to see the command that is executed, "Enable/Disable" to enable or disable an item or "Delete" to remove an item.

The plugin offers the following user-interface controls:
Show Info
Enable/Disable
Delete

Below is the code of this plugin written in "VBScript". Please note that this code can only be executed inside X-Setup Pro.

'/*** MAIN TEMPLATE IS XQ AutoRun Lister.XPL ***/
'/*** ONLY CHANGE REGISTRY KEYS BELOW ***/

  sP="HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices\"
sPD1="HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices-\"
sPD2="HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices (Disabled)\"

'/////////////////////////////////
'///*** NO CHANGES BELOW HERE ***/
Dim aryLoc()
Dim iReadAllCount

sDisabled=" [" & GetTextString(1) & "]"

Sub Plugin_Initialize 
  iReadAllCount=0
  Call ReloadAll
End Sub

Sub ReloadAll
 for i=1 to iReadAllCount
     Call SetUIElement(i,"")
 next 

 i=0

 iC=RegEnumValues(sP)
 i=i+iC

 iC=RegEnumValues(sPD1)
 i=i+iC

 iC=RegEnumValues(sPD2)
 i=i+iC


 ReDim aryLoc(i)
 iReadAllCount=1

 Call ReadAll(sP,1,false)
 Call ReadAll(sPD1,2,true)
 Call ReadAll(sPD2,3,true)
End Sub

Sub ReadAll(key,idx,IsDisabledKey)
 iC=RegEnumValues(key)
 if iC>0 then
    for l=1 to iC
        sName=RegEnumElement(l)
        
        If IsDisabledKey=true then
           sName=sName & sDisabled
        end if

        Call SetUIElement(iReadAllCount,sName)
        aryLoc(iReadAllCount)=idx

        iReadAllCount=iReadAllCount+1
    Next
 end if

End Sub



Sub Plugin_CheckData(ElementIndex)
End Sub

Sub Plugin_Apply(ElementIndex,ElementSubIndex)
 if ElementSubIndex>0 then

    'Look up Registry key
    if aryLoc(ElementSubIndex)=1 then
       sRegPath=sP
    elseif aryLoc(ElementSubIndex)=2 then
       sRegPath=sPD1
    else
       sRegPath=sPD2
    end if
     
    'Look up Registry name
    sRegName=GetUIElement(ElementSubIndex)
    bIsEnabled=true
    If InStr(sRegName,sDisabled)>0 then
       sRegName=Left(sRegName,len(sRegName)-len(sDisabled))
       bIsEnabled=false
    end if

    'Look up Value
    sValue=RegReadValue(sRegPath & sRegName)

    'msginformation sRegPath
    'msginformation sRegName & "]"
    'msginformation sValue 


    if ElementIndex=1 then '//Information
       Call MsgInformation(GetTextString(2) & " " & vbCrlF & vbCrlf & sValue)
    end if

    If ElementIndex=2 then '//Enable/Disable
       if bIsEnabled=true then
          '//Disable it 
          Call RegWriteValue(sPD1 & sRegName,sValue,1)
          Call RegDeleteValue(sRegPath & sRegName)
       else
         '//Enable it  
          Call RegWriteValue(sP & sRegName,sValue,1)
          Call RegDeleteValue(sRegPath & sRegName)
       end if 

       Call ReloadAll
    end if


    If ElementIndex=3 then 'Delete
       If bIsEnabled=true then
          Call MsgErrorTextString(3)
       else 
          Call RegDeleteValue(sRegPath & sRegName)
          Call ReloadAll
          Call Restart
       end if
    end if

 end if
End Sub

Sub Plugin_Terminate 
End Sub

You can get more detailed information about this plugin inside the application X-Setup Pro. Get the most popular tweaker software for free: Download X-Setup Pro