RegWrite RÜckgabe WErt bei Fehler

1. offizieller Beitrag

    Hi,

    ich habe folge Code:

    [autoit]

    Func _Proxy()

    [/autoit][autoit][/autoit][autoit]

    ;Proxy aktivieren und setzten
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1")
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "172.28.1.2:3128")
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "193.0.3.*;193.0.4.*;192.168.*.*,11.22.33.*;195.0.84.*;<local>")

    [/autoit][autoit][/autoit][autoit]

    SetError(3,0,0)

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit]

    WIe kann ich herausfinden ob RegWrite erfolgreich war oder nicht? Bei einem Fehler soll SetError(3,0,0) gesetzt werden.

    Also so dann:

    [autoit]

    Func _Proxy()

    ;Proxy aktivieren und setzten
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1")
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "172.28.1.2:3128")
    RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "193.0.3.*;193.0.4.*;192.168.*.*,11.22.33.*;195.0.84.*;<local>")

    [/autoit][autoit][/autoit][autoit]

    IF @error Then
    SetError(3,0,0)

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit]

    Einfach Hilfe lesen ;)

    Du musst diese Abfrage nur jeweils nach der funktion machen ansonsten gilt das makro nur für die letzte funktion ;)

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    • Offizieller Beitrag

    Um die Abfrage nicht nach jeder Funktion machen zu müssen, kann man sich auch mit einer Variablen behelfen:

    [autoit]


    Func _Proxy()
    Local $rc
    ;Proxy aktivieren und setzten
    $rc += RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1")
    $rc += RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "172.28.1.2:3128")
    $rc += RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "193.0.3.*;193.0.4.*;192.168.*.*,11.22.33.*;195.0.84.*;<local>")

    [/autoit][autoit][/autoit][autoit]

    IF $rc <> 3 Then
    MsgBox(0, 'Test', 'Fehler')
    SetError(3,0,0)
    EndIf
    EndFunc

    [/autoit]