[VB.NET]Script werkt niet

[The Dud3]

Op http://www.freevbcode.com/ShowCode.Asp?ID=4487 vond ik een script dat een key uit het registry moet halen.

code:

Imports Microsoft.Win32

code:

Public Function RegValue(ByVal Hive As RegistryHive, _
       ByVal Key As String, ByVal ValueName As String, _
       OptionalByRef ErrInfo As String = "") As String
  
      'DEMO USAGE

        'Dim sAns As String
        'Dim sErr As String = ""

        'sAns = RegValue(RegistryHive.LocalMachine, _
        '  "SOFTWARE\Microsoft\Windows\CurrentVersion", _
        '  "ProgramFilesDir", sErr)
        'If sAns <> "" Then
        '    Debug.WriteLine("Value = " & sAns)
        'Else
        '    Debug.WriteLine("This error occurred: " & sErr)

        'End If

        Dim objParent As RegistryKey
        Dim objSubkey As RegistryKey
        Dim sAns As String
        Select Case Hive
            Case RegistryHive.ClassesRoot
                objParent = Registry.ClassesRoot
            Case RegistryHive.CurrentConfig
                objParent = Registry.CurrentConfig
            Case RegistryHive.CurrentUser
                objParent = Registry.CurrentUser
            Case RegistryHive.DynData
                objParent = Registry.DynData
            Case RegistryHive.LocalMachine
                objParent = Registry.LocalMachine
            Case RegistryHive.PerformanceData
                objParent = Registry.PerformanceData
            Case RegistryHive.Users
                objParent = Registry.Users

        End Select

        Try
            objSubkey = objParent.OpenSubKey(Key)
            'if can't be found, object is not initialized
            If Not objSubkey Is Nothing Then
                sAns = (objSubkey.GetValue(ValueName))
            End If

        Catch ex As Exception

            ErrInfo = ex.Message
        Finally

            'if no error but value is empty, populate errinfo
            If ErrInfo = "" And sAns = "" Then
                ErrInfo = _
                   "No value found for requested registry key"
            End If
        End Try
        Return sAns
    End Function

Maar ik krijg altijd de foutmelding "Comma or ")" expected" in
OptionalByRef ErrInfo As String = "") As String

Is dit een fout in het script of ligt de fout bij mij

Ik heb al van alles geprobeert, maar ik vind de juiste oplossing niet.

Is er trouwens geen compactere manier? (met een eigen commando ofzo?)

[ Voor 9% gewijzigd door The Dud3 op 21-02-2003 20:09 ]

[The Dud3]

Iemand?

[Gerco]

Misschien een spatie tussen Optional en ByRef

Het is hier trouwens niet de gewoonte dit soort topics te posten en al helemaal niet om ze binnen 24 uur omhoog te schoppen. Lees de FAQ even als je wilt.

[ Voor 60% gewijzigd door Gerco op 21-02-2003 21:12 ]

[The Dud3]

Gerco schreef op 21 februari 2003 @ 21:10:
Misschien een spatie tussen Optional en ByRef

Het is hier trouwens niet de gewoonte dit soort topics te posten en al helemaal niet om ze binnen 24 uur omhoog te schoppen. Lees de FAQ even als je wilt.

Neen, dat help niet.
Dan krijg ik "Statement is not valid in a namespace."

[ Voor 8% gewijzigd door The Dud3 op 21-02-2003 21:37 ]

[dusty]

The_Dud3 : Friday 21 February 2003 19:58
The_Dud3 : Friday 21 February 2003 20:57


Zo snel kicken is niet toegestaan,

Bovendien ziet dit er teveel uit als een script request - " Ik heb een source gevonden, maar het werkt niet wat is er fout?".

Ik zie niets terug in welke regel de fout voorkomt, ik zie niets van wat je al heb proberen te doen. Ik zie alleen maar dat jij een script hebt gevonden, dat het niet werkt, en dat jij verwacht dat we je probleem oplossen.

Sorry.