R
Refaman
Hallo ich habe folgenden Code in VBA geschrieben:
Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Declare Function SetSysColors Lib "user32.dll" (ByVal cElements As Long, lpaElements As Long, lpaRgbValues As Long) As Long
‚setzen der neuen Systemfarbe
Sub Auto_open()
Dim ArrayElements(2) As Long, ArrayColors(2) As Long
'Arrays mit mit den neuen Elementen/Farben füllen
ArrayElements(0) = COLOR_BTNFACE: ArrayColors(0) = RGB(192, 192, 192) '63
ArrayElements(1) = COLOR_BACKGROUND: ArrayColors(1) = RGB(0, 0, 4)
Retval = SetSysColors(2, ArrayElements(0), ArrayColors(0))
End Sub
Jetzt würde ich ihn gerne als VBScript einsetzen. Leider fehlt mit dazu das nötige Wissen. Könntet Ihr mir bitte helfen? Ich bin für jede Anregung und Hilfe dankbar!
Mike
Noch eine Ergänzung, die wohl wichtig ist: dieser Code ändert die Desktop-Hintergrundfarbe auf schwarz! Evtl gibt es ja schon ein VBScript, was dieses auch tut...
Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Declare Function SetSysColors Lib "user32.dll" (ByVal cElements As Long, lpaElements As Long, lpaRgbValues As Long) As Long
‚setzen der neuen Systemfarbe
Sub Auto_open()
Dim ArrayElements(2) As Long, ArrayColors(2) As Long
'Arrays mit mit den neuen Elementen/Farben füllen
ArrayElements(0) = COLOR_BTNFACE: ArrayColors(0) = RGB(192, 192, 192) '63
ArrayElements(1) = COLOR_BACKGROUND: ArrayColors(1) = RGB(0, 0, 4)
Retval = SetSysColors(2, ArrayElements(0), ArrayColors(0))
End Sub
Jetzt würde ich ihn gerne als VBScript einsetzen. Leider fehlt mit dazu das nötige Wissen. Könntet Ihr mir bitte helfen? Ich bin für jede Anregung und Hilfe dankbar!
Mike
Noch eine Ergänzung, die wohl wichtig ist: dieser Code ändert die Desktop-Hintergrundfarbe auf schwarz! Evtl gibt es ja schon ein VBScript, was dieses auch tut...
Zuletzt bearbeitet von einem Moderator:
