Laicurè Leviarè Laicure
🎲
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Option Explicit | |
| Private currentYear As Integer | |
| Private currentMonth As Integer | |
| Private Sub UserForm_Initialize() | |
| currentYear = Year(Date) | |
| currentMonth = Month(Date) | |
| DrawCalendar | |
| End Sub |
Laicure
/ RemoveLocalizations.scpt
Last active
August 31, 2025 14:45
removes non-english (retains base) localizations on MacOS. Used for Apple Script and export as Application.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| on run | |
| -- Count non-English .lproj folders (exclude any en* variants, English, and Base) | |
| set countCmd to "find /Applications -type d -name '*.lproj' " & ¬ | |
| "! -iname 'en*.lproj' ! -iname 'english.lproj' ! -iname 'base.lproj' -print | wc -l" | |
| set countBefore to do shell script countCmd -- text | |
| if countBefore is "0" then | |
| display notification "No non-English .lproj folders found; nothing to delete." with title "Cleanup Complete" | |
| return | |
| end if |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # dock hide and hover delays | |
| defaults write com.apple.WindowManager AutoHideDelay -float 0.5 | |
| defaults write com.apple.dock autohide-delay -float 0.5 | |
| killall Dock | |
| # Font Smoothing: 0 = no more "dreamy" fonts | |
| defaults -currentHost write -g AppleFontSmoothing -int 0 | |
| # disable default shares | |
| sudo defaults write /Library/Preferences/SystemConfiguration/com.apple.smb.server VirtualAdminShares -bool NO |
Laicure
/ New Windows Setup.bat
Last active
October 21, 2025 13:28
Disable several things from Windows 10/11 for new installations
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| echo off | |
| cls | |
| :: echo --- Hibernate OFF | |
| :: powercfg -h off | |
| echo --- Delete: DiagTrack | |
| sc delete DiagTrack | |
| :: echo --- Delete: dmwappushservice | |
| :: sc delete dmwappushservice | |
| echo --- Manual: CryptSvc | |
| sc config CryptSvc start=demand |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| https://www.reddit.com/r/3DPorncraft | |
| https://www.reddit.com/r/60fpsporn | |
| https://www.reddit.com/r/8muses | |
| https://www.reddit.com/r/aa_cups | |
| https://www.reddit.com/r/aa_cupsxxx | |
| https://www.reddit.com/r/AbbyWinters | |
| https://www.reddit.com/r/ABDL | |
| https://www.reddit.com/r/AbellaAnderson | |
| https://www.reddit.com/r/AbusePorn2 | |
| https://www.reddit.com/r/accidentalnudity |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Option Strict Off | |
| Module UnModulatedX | |
| #Region "Export To Excel" | |
| Friend Sub Exporter(ByVal ExportName As String, dtFirst As DataTable, dtSecond As DataTable, firstSheetName As String, sencondSheetName As String) | |
| 'init | |
| Dim excel As Object = CreateObject("Excel.Application") | |
| Dim wBook As New Object | |
| Dim wSheet As New Object |
Laicure
/ [SQL] Rebuild ReOrganize
Last active
February 16, 2017 23:15
Auto Rebuild/ReOrganize by Fragmentation Size thing :/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| set nocount on | |
| --Values to Tempo | |
| SELECT | |
| ind.index_id as 'IDx', | |
| OBJECT_NAME(ind.OBJECT_ID) AS [Table], | |
| ind.name AS [Index], | |
| indexstats.index_type_desc AS [Type], | |
| indexstats.avg_fragmentation_in_percent as [Frag] | |
| into #Tempoo |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #Region "Excel Export (StreamWriter; CSV file)" | |
| 'www.codeproject.com/Articles/26303/Export-Data-to-ex-Much-Faster | |
| Friend Sub CreateExcelX(ByVal FilePath As String, ByVal datatabler As Data.DataTable) | |
| Dim writer As New IO.StreamWriter(FilePath) | |
| Dim dRow As Data.DataRow = Nothing | |
| Dim str As String = String.Empty | |
| For i As Integer = 0 To datatabler.Columns.Count - 1 | |
| str += datatabler.Columns.Item(i).Caption & "," | |
| Next |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Imports System.Text | |
| Module StringManipulate | |
| #Region "Code Generator" | |
| Public Function CodeGen(sizer As Integer, customString As String) As String | |
| Dim charX As String = IIf(String.IsNullOrWhiteSpace(customString), "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz", customString).ToString | |
| Dim Rand As New Random | |
| Dim BuildMe As New StringBuilder | |
| Dim idx, CodeSize, charXsize As Integer | |
| charXsize = charX.Length |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Imports System.Data.SqlClient | |
| Module SQLClient | |
| '********** SQL Declarations | |
| 'Friend stringCon As String = "Integrated Security=SSPI; Data Source=???; Initial Catalog=???" | |
| 'Friend stringCon As String = "Integrated Security=False; Data Source=???; Initial Catalog=???; User ID=???; Password=???" | |
| 'Friend stringCon As String = "" | |
| #Region "SQL Query Reader" | |
| Friend Function SQLReadQuery(ByVal queryX As String, ByVal timeXout As Integer, connection As String) As DataTable |
NewerOlder