DDNS远程打印简易教程

antium

受朋友之托，帮忙安装远程打印，公司电脑直接在工厂打印机上打印，简单写下过程
1. IP公网
2. 路由支持DDNS，如f3322.net之类
3. 路由支持端口映射
4. 打印机支持有线或无线网络，再或者路由支持USB打印服务

路由设置DDNS帐号，并成功登录。路由关闭防火墙，外网能ping通DDNS域名
如果打印机通过路由打印服务的话，内网电脑测试安装打印
路由器端口映射，添加打印机或打印服务器地址端口如下：9100，161，162
注：开启9100端口外，还需添加SNMP协议的161，162

外网电脑添加打印机，使用TCP/IP地址或主机名添加打印机，输入DDNS地址，其它平常安装

jr9695

谢谢楼主分享留个足迹。需要时查看。

西瓜拉拉

打印机支持有线或无线网络，再或者路由支持USB打印服务台湾威力彩

antium

记一次CUPS共享打印机安装后（http://ip:port/printers/printer_name)，无论打印什么都是12345@PJL之类内容
检查驱动都是正常，因为直接USB或WSD连接没问题。
后来在打印机属性--高级--驱动程序--Microsoft IPP Class Driver，应用
打印正常，问题解决

antium

记ubuntu硬盘升级扩容，整个过程不到半小时搞定
1. 51nb PE优盘启动，DiskGenius磁盘克隆。
源盘192G，sda2分区173G，大概37G数据，目标盘480G USB3.0连接，10分钟多点对拷完成，机器接上新硬盘正常启动。
但是这样目标盘480G分区大小跟源盘分区一模一样，sda2分区也只有173G，有200G没分区，意味还要扩容。
2. 无损在线扩容。
输入 cfdisk，上下键选sda2，左右键选Resize，分区马上分到最大，选Wirite  --Quit。
退出输入：resize2fs -p /dev/sda2，更新文件系统。
收工完成。

antium

记cups偶尔无法打印，登录服务器，查看cups服务正常，但查看/var/log/cups/error_log，来这么一句：
Unable to open listen socket for address 192.168.0.106:631 - Cannot assign requested address.  

bing解决方法修改/etc/cups/cupsd.conf
# Listen localhost:631
Port 631

顺便支持了ipv6远程打印

antium

记cups ipv6远程网络连接打印机
1. padavan路由自定义脚本，在防火墙规则启动后执行添加两行：
ip6tables -A FORWARD -p tcp -m multiport --dport 631,22,443 -d ipv6域名 -j ACCEPT
ip6tables -P OUTPUT ACCEPT
重启防火墙
2. 在cups配置文件插入行：
ServerAlias *
重启cups服务
3. 远程计算机网址尝试访问

antium

qtscrcpy借TASKER无线投屏安卓手机
网络adb服务手机重启失效，qtscrcpy无线连接先接下usb线或手机重开网络adb服务
1. 在tasker开机打开网络adb服务，就简单多了

2. 任务添加，选择代码 加入两行命令
setprop service.adb.tcp.port 5555
start adbd
root勾上
3. 在配置文件，添加事件--系统--设备启动，把任务加上; 重启手机
4. qtscrcpy --无线输入IP --无线连接 --刷新设备列表 --启动服务

myhoby

太高级了。还没看懂。

antium

;chrome 右crtl键关窗口等
#IfWinActive,ahk_class Chrome_WidgetWin_1
Appskey::^t
Rctrl::^w
Esc::BackSpace
#If

;除了chrom外，右crtl键关闭程序
#IfWinNotActive,ahk_class Chrome_WidgetWin_1 or ahk_class TdxW_MainFrame_Class
Rctrl::!F4
#If

;双击大写键，关机
CapsLock::
if (cq_presses > 0) {   
cq_presses += 1   
return
}
cq_presses := 1 ;设置计数器，记录按键次数
SetTimer, LabelCQ, -190 ;设置时钟，在 400 毫秒内等待更多的按键
return

LabelCQ:
if (cq_presses = 1) {
If GetKeyState("CapsLock", "T") {
SetCapsLockState, Off
}else SetCapsLockState,on
} else if (cq_presses >= 2) {                                  
shutdown 1                                                               
}
cq_presses = 0  ;每次响应时钟后把计数器清0复位
return

;右alt切换窗口，双击切换第二个
RAlt::
if RAlt_presses > 0 ; SetTimer 已经启动，所以我们记录按键。   
{        
RAlt_presses += 1        
return   
}    ;否则，这是新一系列按键的首次按键。将计数设为 1 并启动定时器：   
RAlt_presses = 1   
SetTimer, KeyRAlt, 400 ;在 300 毫秒内等待更多的按键。   
return  
KeyRAlt:   
SetTimer, KeyRAlt, off   
if RAlt_presses = 1 ;该键已按过一次。   
{        
Gosub singleClick   
}   
else if RAlt_presses = 2 ;该键已按过两次。   
{   
Gosub doubleClick   
}     
;不论上面哪个动作被触发，将计数复位以备下一系列的按键：   
RAlt_presses = 0   
return
singleClick:   
send !{tab}  
return
doubleClick:   
send {alt down}
send {tab down}
sleep 100
send {tab up}
sleep 100
send {tab down}
sleep 100
send {tab up}
send {alt up}     
return

;网络唤醒
^left::run,ssh antium@192.168.0.1 /usr/sbin/ether-wake -b 00:23:24:4A:EE:C4 -i eth2,, WinMinimize

antium

powershell下baidu_ocr文字识别，脚本源于批处理之家
nircmd截图保存文件，baidu处理完后放在剪贴板
需下载baidu sdk包

system.reflection.Assembly]::LoadFrom("D:\Tools\baidu_ai\net40\AipSdk.dll")
[system.reflection.Assembly]::LoadFrom("D:\Tools\baidu_ai\net40\Newtonsoft.Json.dll")
$appid="baidu_id"
$apikey="baidu_apikey"
$secretkey="baidu_secretkey"
cmd /c "nircmd savescreenshot z:\\chrome.png 1274 125 70 320"
$pic="z:\chrome.png"
$ocr=new-object baidu.aip.ocr.ocr($apikey,$secretkey)
$image=[system.io.file]::readallbytes($pic)
$json=$ocr.AccurateBasic($image)
$txt=$json.toString()|convertfrom-json
$txt.words_result.words
set-clipboard $txt.words_result.words

antium

ahk把上面结果放在excel

excel := ComObjCreate("Excel.Application")
CurrentWorkbook := excel.Workbooks.Open("D:\User\Desktop\excel.xlsx")
excel.Sheets("sheet3").Select
excel.ActiveSheet.Range("A1").PasteSpecial(-4104, -4142)
excel.ActiveSheet.Range("A1:A11").Copy
excel.ActiveSheet.Range("B1").PasteSpecial(-4104, -4142, ComobjParameter(0xB,0), ComobjParameter(0xB,-1))
excel.ActiveSheet.Range("B1:L1").Copy
excel.Sheets("sheet2").Select
;excel.ActiveSheet.Range("A1").PasteSpecial
excel.ActiveSheet.Rows(1).Insert(-4121)
excel.Sheets("sheet3").Select
excel.ActiveSheet.Range("A1:L11").ClearContents
excel.Sheets("sheet1").Select
excel.ActiveWorkbook.Save
excel.Workbooks.Close
excel.quit()
msgbox,,,Finish,1
return