Skip to content

Instantly share code, notes, and snippets.

View wyfinger's full-sized avatar

wyfinger

4 followers · 0 following
View GitHub Profile
@wyfinger
wyfinger / iClebo Arte IR codes
Last active October 14, 2017 04:45
iClebo Arte IR codes
iClebo Arte IR codes
~~~~~~~~~~~~~~~~~~~~
NEC Format 38 kHz
Power - 807FE01F [8950, 4450, 550, 1700, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550]
Play/Pause - 807F20DF [8900, 4450, 550, 1700, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 550, 550, 550, 550, 1700, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 550, 1700, 550, 1700, 550, 550, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550]
Up(Plus) - 807F10EF [8900, 4450, 550, 1700, 550, 600, 550, 600, 550, 600, 550, 600, 550, 600, 550, 600, 550, 600, 550, 550, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 1700, 550, 6
@wyfinger
wyfinger / COMBINATOR.bas
Last active September 13, 2017 07:46
Code for mass current calculation
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare PtrSafe Function SendMessageStr Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare PtrSafe Function GetWindow Lib "User32" (ByVal hwnd As Long, ByVal uCmd As Long) As Long
Private Declare PtrSafe Function GetClassName Lib "User32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "User32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAcess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare PtrSafe Function Ge
@wyfinger
wyfinger / backup_daily.bat
Created May 8, 2017 06:48
My BAT code to everday backup my files with RAR
@ECHO OFF
rem Работаем с Rar5, если это не нужно удалить ключи -ma
ECHO ┌─────────────────────────────────────────────────┐
ECHO │ Бекап шаблонов Word/Excel/Outlook │
ECHO └─────────────────────────────────────────────────┘
"C:\Program Files\WinRAR\rar.exe" a -ma -pbak -ed -ep -dh -m5 -s -idcd -agYYYY-MM-DD -r "F:\Backups\VBA.bak\" "%userprofile%\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm" "%userprofile%\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"
ECHO.
@wyfinger
wyfinger / mysku.js
Created March 7, 2017 11:41
recovery links on mysku.ru
// ==UserScript==
// @name mysku
// @namespace http://tampermonkey.net/
// @version 0.1
// @description recovery links on mysku.ru
// @author wyfinger
// @match https://mysku.ru*
// @match http://mysku.ru*
// @include https://mysku.ru*
// @include http://mysku.ru*
@wyfinger
wyfinger / facebooker.js
Last active April 23, 2018 10:24
Facebooker for Tampermonkey
// ==UserScript==
// @name facebooker
// @namespace facebook.com
// @version 0.3
// @description try to take over the world!
// @author You
// @match https://www.facebook.com*
// @match http://www.facebook.com*
// @include https://www.facebook.com*
// @include http://www.facebook.com*
@wyfinger
wyfinger / WordTableSort.bas
Last active February 6, 2017 02:04
Word table sort VBA macros, see demonstration http://imgur.com/a/uSCIw
Option Explicit
Private Function GetValue(Inpt As String) As Double
'
' Получение цифрового значения из содержимого ячейки
Dim i As Integer
Dim Outpt As String
Inpt = Replace(Inpt, ".", Format(0, "."))
Inpt = Replace(Inpt, ",", Format(0, "."))
@wyfinger
wyfinger / My uBlock rules
Last active January 14, 2022 12:38
!
! My uBlock rules, 2022-01-14
!
! Google
||google-analytics.com/*
||google-analytics.com^$important,third-party
||*.googletagmanager.com/*
! Yandex
@wyfinger
wyfinger / HighlightMinMax.vba
Last active August 10, 2016 07:24
Highlight Min and Max in Excel Selection by solid fill or conditional formatting
'
' Выделяем минимум и максимум в выделенном диапазоне.
' Если зажата клавиша Ctrl - выделение будет сделано
' условным форматированием (т.е. при изменении содержимого
' ячеек минимум и максимум будет пересчитываться).
' В противном случае выделение просто заливкой.
' Не работает с разорванными диапазонами.
'
' 2016-08-10, wyfinger
'
@wyfinger
wyfinger / SiemensDownloader.py
Created June 13, 2016 05:03
Link grabber from Siemens Siprotec download page
#!/usr/bin/env python3
# Загружаем все что можно загрузить с сайта Siemens Siprotec
#
import time
from selenium import webdriver
import win32com.client as win32
driver = webdriver.Firefox()
@wyfinger
wyfinger / Text Diff
Last active May 7, 2016 00:09
Сравнение текста и выделение изменений (пословно) / Text diff algorithm [VB/VBA]
'
' Сравнение строк с пометкой изменений, text diff
' Работает по словам, можно переделать для работы по строкам
' wyfinger@yandex.ru / 2016-04-27
'
Private Function PrepareString(strInput As String) As String
'
' Удаляем пробелы, переносы строк и табуляцию