This file contains 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
| #adguardpremium | |
| ^https:\/\/mobile-api\.adguard\.com\/api\/1\.0\/ios_validate_receipt$ url 302 https://raw.githubusercontent.com/langkhach270389/Scripting/master/Adguard.rsp | |
| hostname=mobile-api.adguard.com |
This file contains 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
| // ==UserScript== | |
| // @name BaiduPanVideoPlayerSpeedController | |
| // @namespace https://lizhimiao.com/ | |
| // @version 0.1 | |
| // @description 百度网盘视频播放变速工具 | |
| // @author lizhimiao | |
| // @include *://pan.baidu.com/play/* | |
| // @grant none | |
| // ==/UserScript== |
zhimiaoli
/ bt4g_Magnet_direct_show.user.js
Last active
February 24, 2024 01:47
在bt4g.org的页面上直接显示磁力添加下载地址
This file contains 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
| // ==UserScript== | |
| // @name bt4g Magnet direct show | |
| // @namespace http://tampermonkey.net/ | |
| // @version 0.3 | |
| // @description 在bt4g.org的页面上直接显示磁力添加下载地址,现在仅支持详情页。 | |
| // @author lizhimiao | |
| // @match https://bt4g.org/magnet/* | |
| // @match https://bt4gprx.com/magnet/* | |
| // @icon https://www.google.com/s2/favicons?domain=bt4g.org | |
| // @grant none |
This file contains 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
| javascript:(function(){if ((Id = /^http:\/\/www\.lizhi\.fm\/(\d{2,})/.exec(window.location.href))!== null) {prompt('http://nj.lizhi.fm/rss/'+Id[1]+'.xml');}else if ((Id = /^http:\/\/www\.ximalaya\.com\/.*\/album\/(\d{2,})/.exec(window.location.href))!== null) {prompt('URL','http://ximalaya.com/album/'+Id[1]+'.xml');}else if ((Id = /^http:\/\/lebo\.baidu\.com\/album\/(\d{2,})/.exec(window.location.href))!== null) {prompt('http://lebo.baidu.com/dj/rss/'+Id[1]);}else if ((Id = /^https:\/\/itunes\.apple\.com\/[a-zA-Z]+\/podcast\/.*/.exec(window.location.href))!== null) {alert('Wait a minute and check the result.');prompt('picklemonkey.net/flipper/extractor.php?feed='+window.location.href);}else{alert('Not support or wrong url!');}})() |
zhimiaoli
/ default.custom.yaml
Created
February 16, 2016 15:32
— forked from lotem/default.custom.yaml
在Rime輸入方案選單中添加五筆、雙拼、粵拼、注音，保留你需要的
This file contains 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
| # default.custom.yaml | |
| # save it to: | |
| # ~/.config/ibus/rime (linux) | |
| # ~/Library/Rime (macos) | |
| # %APPDATA%\Rime (windows) | |
| patch: | |
| schema_list: | |
| - schema: luna_pinyin # 朙月拼音 | |
| - schema: luna_pinyin_simp # 朙月拼音 简化字模式 |
zhimiaoli
/ SmoothScroll.js
Last active
August 29, 2015 14:11
— forked from gblazex/SmoothScroll.js
This file contains 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
| // SmoothScroll for websites v1.2.1 | |
| // Licensed under the terms of the MIT license. | |
| // People involved | |
| // - Balazs Galambosi (maintainer) | |
| // - Michael Herf (Pulse Algorithm) | |
| (function(){ | |
| // Scroll Variables (tweakable) |
This file contains 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
| Sub formattable() | |
| Dim rgname As Range | |
| Set rgname = Application.InputBox("选择需要输出的区域", "选择区域", Type:=8) | |
| rownow = rgname.Row | |
| For Each cell In rgname | |
| If cell.Row <> rownow Then | |
| rownow = rownow + 1 | |
| result = result & vbNewLine & application.WorksheetFunction.Clean(cell.Value) & "|" | |
| Else |
zhimiaoli
/ split workbook into multiple workbooks by sheets.vba
Last active
August 29, 2015 13:58
This file contains 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
| Sub Splitbook() | |
| MyPath = ThisWorkbook.Path | |
| For Each sht In ThisWorkbook.Sheets | |
| sht.Copy | |
| ActiveSheet.Cells.Copy | |
| ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues | |
| ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats | |
| ActiveWorkbook.SaveAs _ | |
| Filename:=MyPath & "\" & sht.Name & ".xls" | |
| ActiveWorkbook.Close savechanges:=False |
zhimiaoli
/ Word2PDF.vba
Last active
November 28, 2019 07:53
' 将Word文件(doc和docx)批量转换成PDF文件 ' 使用的是Word的另存为功能
This file contains 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
| Sub Word2PDF() | |
| ' | |
| ' 将Word文件(doc和docx)批量转换成PDF文件 | |
| ' 使用的是Word的另存为功能 | |
| ' | |
| Application.ScreenUpdating = False | |
| Application.DisplayAlerts = wdAlertsNone |
This file contains 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
| Function setclip(text As String) | |
| Dim clip As MSForms.DataObject | |
| Set clip = New MSForms.DataObject | |
| clip.SetText text | |
| clip.PutInClipboard | |
| End Function |
NewerOlder