multiple reg.getkeynames and reg.getvaluenames = autorun detected one error closed

[Solmos]

hello

I tried to create a code that will scan the keys on each key and find all the values.

But to stop scanning and try to close the application, it gives an error, said that autorun.exe has had a problem and has had to close.

Other times in changing pages, get the same error.

How could fix it?

There any way to "cleanse" all the tables and code so that when finished look no error?

Thank you very much

example:

function scan()
    
	tblKeys = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "");
	if tblKeys == nil then	         
	else	
	nCounter = 1;	
	  for i, Name in tblKeys do

          ---here Registry.GetValueNames...

            tblKey = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, Name);
	    if tblKey == nil then	         
	    else	
	    nCounte = 1;	
	      for i, Nam in tblKey do

             ---here Registry.GetValueNames...

                   tblKe = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, Name.."\\"..Nam);
	            if tblKe == nil then	         
	            else	
	             nCount = 1;	
	             for i, Na in tblKe do

                     ---here Registry.GetValueNames...

                    --etc etc etc

                     nCount = nCount + 1;
                    end
                 end

              nCounte = nCounte + 1;
             end
           end

          nCounter = nCounter + 1;
          end
       end

end

[jassing]

Your problem is that you keep changing variables.

use different variables for each for loop.. your basically do this:

for x = 1 to 10
  for x = 1 to 10
      for x = 1 to 30
      end
  end
  does x = 30 or 1?
end

My guess is that AMS is now 'confused' as it was doing a for loop of 1 to 10; but x is now 30
I would change each var to a new varname; or you could include a lot of local declarations; but that's going to be ugly code to read.
Instead of using one less letter (tblKeys, tblKey, tblKe) you might want to use proper names

hive/keys/value=data

additionally; I think you're limiting yourself to the depth a key can be...

[jassing]

The problem with going to a PM on an issue like this is that others can no longer try to help you...

You're going to have to trace it down to find the smallest # of lines of code that generate the error....

I'm out of ideas at the moment..

[Solmos]

I tried to change the names, but still gives error. At times during the scanning and only provided to close the application.

If I list more Registry.GetKeynames, the application gives errors constantly.

My intention is to make a scanner, to review all the registry keys and values.

Any suggestions?

Thank you very much

StatusDlg.Show();

function Basic()

uno = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software");
if uno == nil then
else
nooo = 1
 for b,Name in uno do

 StatusDlg.SetStatusText(Name);
 
 one = Registry.GetValueNames(HKEY_LOCAL_MACHINE, "Software\\"..Name);
 if one == nil then	         
 else
 rn = 1;
 for j,se in one do
 
 StatusDlg.SetStatusText(Name.."\\"..se);
 
 data = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\"..Name, se, true);

---your code
 
 rn = rn + 1;
 end 
 end  
 
 dos = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\"..Name);
 if dos == nil then 
 else
   noo = 1;
   for d,Nam in dos do

   StatusDlg.SetStatusText(Name.."\\"..Nam);

 
    tho = Registry.GetValueNames(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam);
    if tho == nil then	         
    else
    rn = 1;
    for m,ue in tho do

    StatusDlg.SetStatusText(Name.."\\"..Nam.."\\"..ue);
 
    data = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam, ue, true);

  --your code
    
     rn = rn + 1;
     end 
     end
   
     tres = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam);
     if tres == nil then     
     else
      no = 1;
      for k,Na in tres do

      StatusDlg.SetStatusText(Name.."\\"..Nam.."\\"..Na);
 
    three = Registry.GetValueNames(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam.."\\"..Na);
    if three == nil then	         
    else
    rn = 1;
    for p,us in three do
 
    StatusDlg.SetStatusText(Name.."\\"..Nam.."\\"..Na.."\\"..us);
 
     data = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam.."\\"..Na, us, true);

  --your code
     
     rn = rn + 1;
     end 
     end
    
    cuatro = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam.."\\"..Na);
     if cuatro == nil then     
     else
     n = 1;
      for q,N in cuatro do

      StatusDlg.SetStatusText(Name.."\\"..Nam.."\\"..Na.."\\"..N);
 
    four = Registry.GetValueNames(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam.."\\"..Na.."\\"..N);
    if four == nil then	         
    else
    rn = 1;
    for a,ur in four do

    StatusDlg.SetStatusText(Name.."\\"..Nam.."\\"..Na.."\\"..N.."\\"..ur);
 
     data = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\"..Name.."\\"..Nam.."\\"..Na.."\\"..N, ur, true);

 --your code

     rn = rn + 1;
     end 
     end
      
      n = n + 1;
      end
    end
   
      no = no + 1;
      end
    end
   
   noo = noo + 1;
   end
 end
  
  nooo = nooo + 1;
 end 
end

end

Basic()

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------
StatusDlg.SetStatusText("");
StatusDlg.Hide();