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 |
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 | |
-- 0) Count how many non‑English .lproj folders there are | |
set countCmd to "find /Applications -type d -name '*.lproj' " & ¬ | |
"! -iname 'en.lproj' ! -iname 'Base.lproj' -print | wc -l" | |
set countBefore to do shell script countCmd -- this is already 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: light only | |
defaults -currentHost write -g AppleFontSmoothing -int 1 | |
# disable default shares | |
sudo defaults write /Library/Preferences/SystemConfiguration/com.apple.smb.server VirtualAdminShares -bool NO |
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 | |
rem echo --- Hibernate OFF | |
rem powercfg -h off | |
echo --- Delete: DiagTrack | |
sc delete DiagTrack | |
rem echo --- Delete: dmwappushservice | |
rem 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 |
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