From 7ca15b5e1ec719aa29f76216ccb599b985e550bf Mon Sep 17 00:00:00 2001
From: ema <mccoy39082@163.com>
Date: Sun, 29 Jun 2025 10:21:32 +0800
Subject: [PATCH] Add dark mode highlighting for VB.NET and VBScript

---
 .../Syntax/Dark/VBNET.xshd                    | 251 +++++++++++++
 .../Syntax/Dark/VBScript.xshd                 | 331 ++++++++++++++++++
 2 files changed, 582 insertions(+)
 create mode 100644 QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBNET.xshd
 create mode 100644 QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBScript.xshd

diff --git a/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBNET.xshd b/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBNET.xshd
new file mode 100644
index 0000000..d4370f5
--- /dev/null
+++ b/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBNET.xshd
@@ -0,0 +1,251 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<SyntaxDefinition name="VB.NET" extensions=".vb">
+
+    <Environment> 
+        <Default color="#D4D4D4" bgcolor="#1E1E1E"/>
+        <Selection color="#1E1E1E" bgcolor="#264F78"/>
+        <LineNumbers color="#858585" bgcolor="#1E1E1E"/>
+        <CaretMarker color="#AEAFAD"/>
+        <VRuler color="#2A2A2A"/>
+        
+        <FoldLine color="#858585" bgcolor="#1E1E1E"/>
+        <FoldMarker color="#D4D4D4" bgcolor="#1E1E1E"/>
+        <SelectedFoldLine color="#D4D4D4" bgcolor="#1E1E1E"/>
+        
+        <EOLMarkers color="#404040"/>
+        <SpaceMarkers color="#404040"/>
+        <TabMarkers color="#404040"/>
+        <InvalidLines color="#404040"/>
+    </Environment>
+    
+    <Properties>
+        <Property name="LineComment" value="'"/>
+    </Properties>
+    
+    <Digits name="Digits" color="#B5CEA8"/>
+    
+    <RuleSets>
+        <RuleSet ignorecase = "true">
+        
+            <Delimiters>~!@%^*()-+=|\#/{}[]:;"'&lt;&gt;,.?</Delimiters>
+            
+            <Span name="LineComment1" stopateol="true" color="#608B4E" bold="false" italic="false">
+                <Begin>'</Begin>
+            </Span>
+            
+            <Span name="LineComment2" stopateol="true" color="#608B4E" bold="false" italic="false">
+                <Begin singleword="true">REM@C</Begin>
+            </Span>
+            
+            <Span name="String" stopateol="true" color="#CE9178" bold="false" italic="false" escapecharacter='"'>
+                <Begin>"</Begin>
+                <End>"</End>
+            </Span>
+
+            <Span name="Preprocessor" rule="PreprocessorSet" stopateol="true" color="#DCDCAA" bold="false" italic="false">
+                <Begin startofline="true">#</Begin>
+            </Span>
+            
+            <Span name="DateLiteral" stopateol="true" color="#569CD6" bold="false" italic="false">
+                <Begin startofline="false">#</Begin>
+                <End>#</End>
+            </Span>
+            
+            <MarkFollowing color="#D4D4D4" bold="false" italic="true">class</MarkFollowing>
+            <MarkFollowing color="#D4D4D4" bold="false" italic="true">interface</MarkFollowing>
+            <MarkFollowing color="#D4D4D4" bold="false" italic="true">module</MarkFollowing>
+            <MarkFollowing color="#D4D4D4" bold="false" italic="true">structure</MarkFollowing>
+            
+            <KeyWords name="Keywords1" color="#569CD6" bold="false">
+                <Key word="AddHandler"/>
+                <Key word="AddressOf"/>
+                <Key word="Alias"/>
+                <Key word="And"/>
+                <Key word="AndAlso"/>
+                <Key word="As"/>
+                <Key word="Assembly"/>
+                <Key word="Attribute"/>
+                <Key word="Begin"/>
+                <Key word="Boolean"/>
+                <Key word="ByRef"/>
+                <Key word="ByVal"/>
+                <Key word="Byte"/>
+                <Key word="CBool"/>
+                <Key word="CByte"/>
+                <Key word="CChar"/>
+                <Key word="CDate"/>
+                <Key word="CDbl"/>
+                <Key word="CDec"/>
+                <Key word="CInt"/>
+                <Key word="CLng"/>
+                <Key word="CObj"/>
+                <Key word="CSByte"/>
+                <Key word="CShort"/>
+                <Key word="CSng"/>
+                <Key word="CStr"/>
+                <Key word="CType"/>
+                <Key word="CUInt"/>
+                <Key word="CULng"/>
+                <Key word="CUShort"/>
+                <Key word="Call"/>
+                <Key word="Case"/>
+                <Key word="Catch"/>
+                <Key word="Char"/>
+                <Key word="Class"/>
+                <Key word="Compare"/>
+                <Key word="Const"/>
+                <Key word="Continue"/>
+                <Key word="Currency"/>
+                <Key word="Custom"/>
+                <Key word="Date"/>
+                <Key word="Decimal"/>
+                <Key word="Declare"/>
+                <Key word="Default"/>
+                <Key word="Delegate"/>
+                <Key word="Dim"/>
+                <Key word="DirectCast"/>
+                <Key word="Do"/>
+                <Key word="Double"/>
+                <Key word="Each"/>
+                <Key word="Else"/>
+                <Key word="ElseIf"/>
+                <Key word="End"/>
+                <Key word="EndIf"/>
+                <Key word="Enum"/>
+                <Key word="Erase"/>
+                <Key word="Event"/>
+                <Key word="Exit"/>
+                <Key word="Explicit"/>
+                <Key word="False"/>
+                <Key word="Finally"/>
+                <Key word="For"/>
+                <Key word="Friend"/>
+                <Key word="Function"/>
+                <Key word="Get"/>
+                <Key word="GetType"/>
+                <Key word="Global"/>
+                <Key word="GoSub"/>
+                <Key word="GoTo"/>
+                <Key word="Handles"/>
+                <Key word="If"/>
+                <Key word="Implement"/>
+                <Key word="Implements"/>
+                <Key word="Imports"/>
+                <Key word="In"/>
+                <Key word="Inherits"/>
+                <Key word="Integer"/>
+                <Key word="Interface"/>
+                <Key word="Is"/>
+                <Key word="IsNot"/>
+                <Key word="Let"/>
+                <Key word="Lib"/>
+                <Key word="Like"/>
+                <Key word="Long"/>
+                <Key word="Loop"/>
+                <Key word="Me"/>
+                <Key word="Mod"/>
+                <Key word="Module"/>
+                <Key word="MustInherit"/>
+                <Key word="MustOverride"/>
+                <Key word="MyBase"/>
+                <Key word="MyClass"/>
+                <Key word="Namespace"/>
+                <Key word="Narrowing"/>
+                <Key word="New"/>
+                <Key word="New"/>
+                <Key word="Next"/>  
+                <Key word="Not"/>
+                <Key word="NotInheritable"/>
+                <Key word="NotOverridable"/>
+                <Key word="Nothing"/>
+                <Key word="Object"/>
+                <Key word="Of"/>
+                <Key word="On"/>
+                <Key word="Operator"/>
+                <Key word="Option"/>
+                <Key word="Optional"/>
+                <Key word="Or"/>
+                <Key word="OrElse"/>
+                <Key word="Overloads"/>
+                <Key word="Overridable"/>
+                <Key word="Overrides"/>
+                <Key word="ParamArray"/>
+                <Key word="Partial"/>
+                <Key word="Preserve"/>
+                <Key word="Private"/>
+                <Key word="Property"/>
+                <Key word="Protected"/>
+                <Key word="Public"/>
+                <Key word="RaiseEvent"/>
+                <Key word="ReDim"/>
+                <Key word="ReadOnly"/>
+                <Key word="RemoveHandler"/>
+                <Key word="Resume"/>
+                <Key word="Return"/>
+                <Key word="SByte"/>
+                <Key word="Select"/>
+                <Key word="Set"/>
+                <Key word="Shadows"/>
+                <Key word="Shared"/>
+                <Key word="Short"/>
+                <Key word="Single"/>
+                <Key word="Static"/>
+                <Key word="Step"/>
+                <Key word="Stop"/>
+                <Key word="String"/>
+                <Key word="Structure"/>
+                <Key word="Sub"/>
+                <Key word="SyncLock"/>
+                <Key word="Then"/>
+                <Key word="Throw"/>
+                <Key word="To"/>
+                <Key word="True"/>
+                <Key word="Try"/>
+                <Key word="TryCast"/>
+                <Key word="TypeOf"/>
+                <Key word="UInteger"/>
+                <Key word="ULong"/>
+                <Key word="UShort"/>
+                <Key word="Until"/>
+                <Key word="Using"/>
+                <Key word="Variant"/>
+                <Key word="Wend"/>
+                <Key word="When"/>
+                <Key word="While"/>
+                <Key word="Widening"/>
+                <Key word="With"/>
+                <Key word="WithEvents"/>
+                <Key word="WriteOnly"/>
+                <Key word="Xor"/>
+            </KeyWords>
+            
+            <KeyWords name="Keywords2" color="#4EC9B0" bold="false">
+                <Key word="Bindable"/>
+                <Key word="Browsable"/>
+                <Key word="DefaultEvent"/>
+                <Key word="Description"/>
+                <Key word="DllImport"/>
+                <Key word="MarshalAs"/>
+                <Key word="STAThread"/>
+                <Key word="StructLayout"/>
+                <Key word="VBFixedString"/>
+            </KeyWords>
+        </RuleSet>
+        
+        <RuleSet name="PreprocessorSet" ignorecase="true">
+            <Delimiters>~!@%^*()-+=|\#/{}[]:;"'&lt;&gt;,.?</Delimiters>
+            
+            <KeyWords name="PreProcessor" color="#DCDCAA" bold="false">
+                <Key word="Const"/>
+                <Key word="If"/>
+                <Key word="ElseIf"/> 
+                <Key word="Else"/>
+                <Key word="End"/>
+                <Key word="ExternalSource"/>
+                <Key word="Region"/>
+                <Key word="ExternalChecksum"/>
+            </KeyWords>
+        </RuleSet>
+    </RuleSets>
+</SyntaxDefinition>
diff --git a/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBScript.xshd b/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBScript.xshd
new file mode 100644
index 0000000..c465b0a
--- /dev/null
+++ b/QuickLook.Plugin/QuickLook.Plugin.TextViewer/Syntax/Dark/VBScript.xshd
@@ -0,0 +1,331 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<SyntaxDefinition name="VBScript" extensions=".vbs">
+    
+    <Environment> 
+        <Default color="#D4D4D4" bgcolor="#1E1E1E"/>
+        <Selection color="#1E1E1E" bgcolor="#264F78"/>
+        <LineNumbers color="#858585" bgcolor="#1E1E1E"/>
+        <CaretMarker color="#AEAFAD"/>
+        <VRuler color="#2A2A2A"/>
+        
+        <FoldLine color="#858585" bgcolor="#1E1E1E"/>
+        <FoldMarker color="#D4D4D4" bgcolor="#1E1E1E"/>
+        <SelectedFoldLine color="#D4D4D4" bgcolor="#1E1E1E"/>
+        
+        <EOLMarkers color="#404040"/>
+        <SpaceMarkers color="#404040"/>
+        <TabMarkers color="#404040"/>
+        <InvalidLines color="#404040"/>
+    </Environment>
+    
+    <Properties>
+        <Property name="LineComment" value="'"/>
+    </Properties>
+    
+    <Digits name="Digits" color="#B5CEA8"/>
+    
+    <RuleSets>
+        <RuleSet ignorecase="true">
+        
+        <Delimiters>~!@%^*()-+=|\#/{}[]:;"'&lt;&gt;,.?</Delimiters>
+        
+            <Span name="LineComment1" stopateol="true" color="#608B4E" bold="false" italic="false">
+                <Begin>'</Begin>
+            </Span>
+            
+            <Span name="LineComment2" stopateol="true" color="#608B4E" bold="false" italic="false">
+                <Begin>REM </Begin>
+            </Span>
+            
+            <Span name="String" bold="false" italic="false" color="#CE9178" stopateol="true" escapecharacter='"'>
+                <Begin>"</Begin>
+                <End>"</End>
+            </Span>
+                        
+            <KeyWords name="Keywords1" color="#569CD6" bold="false">
+                <Key word="Abs"/>
+                <Key word="Anchor"/>
+                <Key word="Array"/>
+                <Key word="As"/>
+                <Key word="Asc"/>
+                <Key word="Atn"/>
+                <Key word="ByRef"/>
+                <Key word="ByVal"/>
+                <Key word="CBool"/>
+                <Key word="CByte"/>
+                <Key word="CCur"/>
+                <Key word="CDate"/>
+                <Key word="CDbl"/>
+                <Key word="CInt"/>
+                <Key word="CLng"/>
+                <Key word="CSng"/>
+                <Key word="CStr"/>
+                <Key word="Call"/>
+                <Key word="Case"/>
+                <Key word="Chr"/>
+                <Key word="Class"/>
+                <Key word="Clear"/>
+                <Key word="Const"/>
+                <Key word="Conversions"/>
+                <Key word="Cos"/>
+                <Key word="CreateObject"/>
+                <Key word="Date"/>
+                <Key word="DateAdd"/>
+                <Key word="DateDiff"/>
+                <Key word="DatePart"/>
+                <Key word="DateSerial"/>
+                <Key word="DateValue"/>
+                <Key word="Day"/>
+                <Key word="Debug"/>
+                <Key word="Derived"/>
+                <Key word="Description"/>
+                <Key word="Dictionary"/>
+                <Key word="Dim"/>
+                <Key word="Do"/>
+                <Key word="Document"/>
+                <Key word="Each"/>
+                <Key word="Element"/>
+                <Key word="Else"/>
+                <Key word="ElseIf"/>
+                <Key word="Empty"/>
+                <Key word="End"/>
+                <Key word="Erase"/>
+                <Key word="Error"/>
+                <Key word="Escape"/>
+                <Key word="Eval"/>
+                <Key word="Execute"/>
+                <Key word="ExecuteGlobal"/>
+                <Key word="Exit"/>
+                <Key word="Exp"/>
+                <Key word="Explicit"/>
+                <Key word="False"/>
+                <Key word="FileSystemObject"/>
+                <Key word="Filter"/>
+                <Key word="FirstIndex"/>
+                <Key word="Fix"/>
+                <Key word="For"/>
+                <Key word="For"/>
+                <Key word="Form"/>
+                <Key word="FormatCurrency"/>
+                <Key word="FormatDateTime"/>
+                <Key word="FormatNumber"/>
+                <Key word="FormatPercent"/>
+                <Key word="Function"/>
+                <Key word="Get"/>
+                <Key word="GetLocale"/>
+                <Key word="GetObject"/>
+                <Key word="GetRef"/>
+                <Key word="Global"/>
+                <Key word="Goto"/>
+                <Key word="HelpContext"/>
+                <Key word="HelpFile"/>
+                <Key word="Hex"/>
+                <Key word="History"/>
+                <Key word="Hour"/>
+                <Key word="If"/>
+                <Key word="IgnoreCase"/>
+                <Key word="In"/>
+                <Key word="InStr"/>
+                <Key word="InStrRev"/>
+                <Key word="InputBox"/>
+                <Key word="Int"/>
+                <Key word="IsArray"/>
+                <Key word="IsDate"/>
+                <Key word="IsEmpty"/>
+                <Key word="IsNull"/>
+                <Key word="IsNumeric"/>
+                <Key word="IsObject"/>
+                <Key word="Join"/>
+                <Key word="LBound"/>
+                <Key word="LCase"/>
+                <Key word="LTrim"/>
+                <Key word="Left"/>
+                <Key word="Len"/>
+                <Key word="Length"/>
+                <Key word="Let"/>
+                <Key word="Link"/>
+                <Key word="LoadPicture"/>
+                <Key word="Location"/>
+                <Key word="Log"/>
+                <Key word="Loop"/>
+                <Key word="Match"/>
+                <Key word="Matches"/>
+                <Key word="Math"/>
+                <Key word="Maths"/>
+                <Key word="Mid"/>
+                <Key word="Minute"/>
+                <Key word="Month"/>
+                <Key word="MonthName"/>
+                <Key word="MsgBox"/>
+                <Key word="Navigator"/>
+                <Key word="New"/>
+                <Key word="Next"/>
+                <Key word="Nothing"/>
+                <Key word="Now"/>
+                <Key word="Null"/>
+                <Key word="Number"/>
+                <Key word="Oct"/>
+                <Key word="On"/>
+                <Key word="Option"/>
+                <Key word="Pattern"/>
+                <Key word="Preserve"/>
+                <Key word="Private"/>
+                <Key word="Property"/>
+                <Key word="Public"/>
+                <Key word="RGB"/>
+                <Key word="RTrim"/>
+                <Key word="Raise"/>
+                <Key word="Randomize"/>
+                <Key word="ReDim"/>
+                <Key word="RegExp"/>
+                <Key word="Replace"/>
+                <Key word="Resume"/>
+                <Key word="Right"/>
+                <Key word="Rnd"/>
+                <Key word="Round"/>
+                <Key word="ScriptEngine"/>
+                <Key word="ScriptEngineBuildVersion"/>
+                <Key word="ScriptEngineMajorVersion"/>
+                <Key word="ScriptEngineMinorVersion"/>
+                <Key word="Second"/>
+                <Key word="Select"/>
+                <Key word="Set"/>
+                <Key word="SetLocale"/>
+                <Key word="Sgn"/>
+                <Key word="Sin"/>
+                <Key word="Source"/>
+                <Key word="Space"/>
+                <Key word="Split"/>
+                <Key word="Sqr"/>
+                <Key word="Step"/>
+                <Key word="Stop"/>
+                <Key word="StrComp"/>
+                <Key word="StrReverse"/>
+                <Key word="String"/>
+                <Key word="Sub"/>
+                <Key word="SubMatches"/>
+                <Key word="Tan"/>
+                <Key word="Test"/>
+                <Key word="TextStream"/>
+                <Key word="Then"/>
+                <Key word="Time"/>
+                <Key word="TimeSerial"/>
+                <Key word="TimeValue"/>
+                <Key word="Timer"/>
+                <Key word="To"/>
+                <Key word="Trim"/>
+                <Key word="True"/>
+                <Key word="TypeName"/>
+                <Key word="UBound"/>
+                <Key word="UCase"/>
+                <Key word="Unescape"/>
+                <Key word="Until"/>
+                <Key word="Value"/>
+                <Key word="VarType"/>
+                <Key word="Weekday"/>
+                <Key word="WeekdayName"/>
+                <Key word="Wend"/>
+                <Key word="While"/>
+                <Key word="Window"/>
+                <Key word="With"/>
+                <Key word="Write"/>
+                <Key word="WriteLine"/>
+                <Key word="Year"/>
+                <Key word="vbAbort"/>
+                <Key word="vbAbortRetryIgnore"/>
+                <Key word="vbApplicationModal"/>
+                <Key word="vbArray"/>
+                <Key word="vbBinaryCompare"/>
+                <Key word="vbBlack"/>
+                <Key word="vbBlue"/>
+                <Key word="vbBoolean"/>
+                <Key word="vbByte"/>
+                <Key word="vbCancel"/>
+                <Key word="vbCr"/>
+                <Key word="vbCrLf"/>
+                <Key word="vbCritical"/>
+                <Key word="vbCurrency"/>
+                <Key word="vbCyan"/>
+                <Key word="vbDataObject"/>
+                <Key word="vbDate"/>
+                <Key word="vbDecimal"/>
+                <Key word="vbDefaultButton1"/>
+                <Key word="vbDefaultButton2"/>
+                <Key word="vbDefaultButton3"/>
+                <Key word="vbDefaultButton4"/>
+                <Key word="vbDouble"/>
+                <Key word="vbEmpty"/>
+                <Key word="vbError"/>
+                <Key word="vbExclamation"/>
+                <Key word="vbFalse"/>
+                <Key word="vbFirstFourDays"/>
+                <Key word="vbFirstFullWeek"/>
+                <Key word="vbFirstJan1"/>
+                <Key word="vbFormFeed"/>
+                <Key word="vbFriday"/>
+                <Key word="vbGeneralDate"/>
+                <Key word="vbGreen"/>
+                <Key word="vbIgnore"/>
+                <Key word="vbInformation"/>
+                <Key word="vbInteger"/>
+                <Key word="vbLf"/>
+                <Key word="vbLong"/>
+                <Key word="vbLongDate"/>
+                <Key word="vbLongTime"/>
+                <Key word="vbMagenta"/>
+                <Key word="vbMonday"/>
+                <Key word="vbNewLine"/>
+                <Key word="vbNo"/>
+                <Key word="vbNull"/>
+                <Key word="vbNullChar"/>
+                <Key word="vbNullString"/>
+                <Key word="vbOK"/>
+                <Key word="vbOKCancel"/>
+                <Key word="vbOKOnly"/>
+                <Key word="vbObject"/>
+                <Key word="vbObjectError"/>
+                <Key word="vbQuestion"/>
+                <Key word="vbRed"/>
+                <Key word="vbRetry"/>
+                <Key word="vbRetryCancel"/>
+                <Key word="vbSaturday"/>
+                <Key word="vbShortDate"/>
+                <Key word="vbShortTime"/>
+                <Key word="vbSingle"/>
+                <Key word="vbSingle"/>
+                <Key word="vbString"/>
+                <Key word="vbSunday"/>
+                <Key word="vbSystemModal"/>
+                <Key word="vbTab"/>
+                <Key word="vbTextCompare"/>
+                <Key word="vbThursday"/>
+                <Key word="vbTrue"/>
+                <Key word="vbTuesday"/>
+                <Key word="vbUseDefault"/>
+                <Key word="vbUseSystem"/>
+                <Key word="vbUseSystemDayOfWeek"/>
+                <Key word="vbVariant"/>
+                <Key word="vbVerticalTab"/>
+                <Key word="vbWednesday"/>
+                <Key word="vbWhite"/>
+                <Key word="vbYellow"/>
+                <Key word="vbYes"/>
+                <Key word="vbYesNo"/>
+                <Key word="vbYesNoCancel"/>
+            </KeyWords>
+            
+            <KeyWords name="Keywords2" color="#C586C0" bold="false">
+                <Key word="And"/>
+                <Key word="Eqv"/>
+                <Key word="Err"/>
+                <Key word="Imp"/>
+                <Key word="Is"/>
+                <Key word="Mod"/>
+                <Key word="Not"/>
+                <Key word="Or"/>
+                <Key word="Xor"/>
+            </KeyWords>
+        </RuleSet>
+    </RuleSets>
+</SyntaxDefinition>