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 Move AutoRun Items (Version 1.24) 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 9x/ME\70) AutoRun - Part 2
Startup/Shutdown\Startup\Windows\20) AutoRun - Part 1
Startup/Shutdown\Startup\Windows\50) AutoRun - Part 2

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 :
This plug-in can be used to move the programs that are automatically launched when your computer starts or when you log in. All items that are marked with "USER:" are launched when you log in. All programs that are marked with "SYST:" are launched as soon as the computer is started. For example if you have an application that is launched when you log in (USER:) and but should be launched when the computer is started, selected the item and press "USER->SYSTEM". On the other hand, to move a program that is launched when the computer starts (SYST:) but should only be started when you log in, press "SYSTEM->USER".

The plugin offers the following user-interface controls:
System->User
Show Info
User->System

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

iCount=0

sUSR="USER: "
sSYS="SYST: "
iTxtLen=6

sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Sub Plugin_Initialize 
 Call ReadAll()


End Sub

Sub ReadAll
 if iCount>0 then
    for i=1 to iCount  
        Call SetUIElement(i,"") '//clear all
    next
 end if


 iC1=RegEnumValues(sP1)
 'msginformation ic1

 iC2=RegEnumValues(sP2)
 'msginformation ic2

 iCount=iC1+iC2 '//save total count


 'Read current user
 l=RegEnumValues(sP1)
 if l>0 then
    for i=1 to l
        sName=RegEnumElement(i)
        Call SetUIElement(i,sUSR & sName)
    next
 end if

 
 l=RegEnumValues(sP2)
 if l>0 then
    for i=1 to l
        sName=RegEnumElement(i)
        Call SetUIElement(i+iC1,sSYS & sName)
    next 
 end if

End Sub



Sub Plugin_CheckData(ElementIndex)
End Sub

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

    s=GetUIElement(ElementSubIndex)

    '//first get the regvalue
    sRegValue=right(s,len(s)-iTxtLen)
    ''''msginformation "[" & sRegValue & "]"

    '//user or system
    if left(s,iTxtLen)=sUSR then
       sRegPath=sP1
       bIsUser=true 
    else
       sRegPath=sP2
       bIsUser=false
    end if
    ''''msginformation "[" & sRegPath & "]"


    '//read the value
    sValue=RegReadValue(sRegpath & sRegValue)




    '//System To User
    if ElementIndex=1 then 
       if bIsUser=true then
          MsgErrorTextString 1 
       else
          Call RegWriteValue(sP1 & sRegValue,sValue,1)
          Call RegDeleteValue(sRegPath & sRegValue)
          Call ReadAll
       end if
    end if

    '//Show info
    if ElementIndex=2 then 
       MsgInformation GetTextString(2) & " " & vbCrLf & vbCrLf & sValue
    end if

    '//User to System 
    if ElementIndex=3 then 
       if bIsUser=false then
          MsgErrorTextString 3
       else
          Call RegWriteValue(sP2 & sRegValue,sValue,1)
          Call RegDeleteValue(sRegPath & sRegValue)
          Call ReadAll
       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