I found the Proxy Setting, BUT!

[rsitogp]

I found the proxy setting but how can I set/retrive it

"HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"

is the setting, can someone tell me how to set & retrive it?

[Pozzi]

Have a look at this link: -

http://www.mvps.org/vb/samples.htm

Have a look at the RegSettings sample.

Hope this helps?

Regards

[rsitogp]

Thanks, but I can't get it to work.

[Pozzi]

You'll could try and change the following: -

' ********************************************
'  Private Methods
' ********************************************
Private Function SubKey(Optional ByVal Section As String = "") As String
   ' Build SubKey from known values
   SubKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"
   If Len(Section) Then
      SubKey = SubKey & "\" & Section
   End If
End Function

If all else fails try posting in the General?

Regards,

[Pozzi]

Further to my last...

You'll also need to change: -

      nRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey(Section), 0&, KEY_ALL_ACCESS, hKey)

Where it makes the reference to HKEY_LOCAL_MACHINE to HKEY_USER\.DEFAULT

Regards

[rsitogp]

hkey_users\default\software\microsoft\windows\currentversion\internet settings\connections

DefaultConnections

Thanks.

(I get "<")

[Pozzi]

Is 'DefaultConnections' another key from ...\internet settings\connections?

If it is then you'll need to add that to: -

' ********************************************
'  Private Methods
' ********************************************
Private Function SubKey(Optional ByVal Section As String = "") As String
   ' Build SubKey from known values
   SubKey = ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"
   If Len(Section) Then
      SubKey = SubKey & "\" & Section
   End If
End Function

For example

' ********************************************
'  Private Methods
' ********************************************
Private Function SubKey(Optional ByVal Section As String = "") As String
   ' Build SubKey from known values
   SubKey = ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\DefaultConnections"
   If Len(Section) Then
      SubKey = SubKey & "\" & Section
   End If
End Function

It might help if you do a screen print of the structure in Registry Edit showing the values, I colud then re-create them on a machine here as I haven't got them.

Let me know.

Regards

[rsitogp]

I think I'm an idiot, I just can't get it to work, it's a key, have a look in your reg

[Pozzi]

I have and I haven't got it just what's attached...

Are you still getting back "<" ?

Regards

[rsitogp]

empty.

[Pozzi]

Try again

[Pozzi]

And again?

[rsitogp]

Thanks For all the help Pozzi!

I'll start a new post soon.