Skip to content

Instantly share code, notes, and snippets.

25 Nov 2023
-----------
Realized I lost track of my last model??
Realized I need to take notes ;)
Downloaded and installed https://github.com/RahulSChand/gpu_poor
Name RTX-2060
bandwidth 336 GB
compute 13 TFlops/s
memory 6 GB
Test-NetConnection -ComputerName hostname -Port 443
console.log('Local loaded');
bookmarks = {
'snow':'https://ldc.service-now.com/',
'snow portal':'https://ldc.service-now.com/sp_ldc'
;
function animateFireBlaze(x1, y1, x2, y2) {
const canvas = document.createElement("canvas");
canvas.width = x2 - x1;
canvas.height = y2 - y1;
document.body.appendChild(canvas);
const ctx = canvas.getContext("2d");
function drawFlame() {
ctx.clearRect(0, 0, canvas.width, canvas.height);
Statement Date<input id="statementDate" type="date"></input>
Statement Start<input id="statementStart" type="number"></input>
<button id="go" >Go!</button>
<textarea id="mt940" cols="120" rows="50">
:20:ACME2203100000001
:28C:6789/1
:60F:C220310USD0,00
:61:2203100310C2000,00NTRF00000000//00000000
0
(\ (\
( -.- )
@konijn
konijn / groupcount.vba
Created May 20, 2021 09:12
Count individual message subjects
Option Explicit
Public Sub processMessages()
Dim objOL As Outlook.Application
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object
Dim dict As Object
Set objOL = Outlook.Application
Set currentExplorer = objOL.ActiveExplorer
Get-ADUser -filter 'Name -like "*Prath*"' -Properties AccountExpirationDate | Select sAMAccountName, UserPrincipalName, distinguishedName, AccountExpirationDate
@konijn
konijn / foreverawake.ahk
Created September 3, 2020 07:08
Forever awake
CoordMode, Mouse, Screen
MouseGetPos, CurrentX, CurrentY
Loop {
Sleep, 60000
LastX := CurrentX
LastY := CurrentY
MouseGetPos, CurrentX, CurrentY
If (CurrentX = LastX and CurrentY = LastY) {
@konijn
konijn / setReminderSounds.vb
Created July 9, 2020 19:10
Play sounds when the event starts in Outlook
Option Explicit
Const SOUND_FILE_LOCATION As String = "C:\Users\Demuyt\Documents\REMINDER.WAV"
Const ACTION_CUTOFF_IN_SECONDS As Integer = 1600
Sub setMeetingReminderSounds()
Dim reminder As reminder
Dim appointment As AppointmentItem
Dim secondsLeft As Long