一入电信深似海,从此刷机是路人
奉劝爱折腾的各位,刷机远离电信。
当然,在久久搜索之后终于找到了一个支持电信联通双卡的ROM了
aria2是一个轻量级的多协议和多源命令行 下载工具。它支持HTTP / HTTPS,FTP,SFTP, BitTorrent和Metalink。aria2可以通过内置的 JSON-RPC和XML-RPC接口进行操作。
YAAW则是一个管理aria2的WEB接口,两者结合轻松实现离线下载,在文章《CentOS安装aria2 + yaaw实现离线下载》分享过手动配置方法,为了简化流程,写了一个一键脚本,方便部署。
直接复制下面的命令,一行一个,根据提示完成操作。
1 2 3 4 5 6 7 8 9 |
<span class="hljs-comment">#Centos用户</span> yum -y install wget unzip <span class="hljs-comment">#如果是Debian or Ubuntu用户</span> apt-get install -y wget unzip <span class="hljs-comment">#下面的命令通用,直接复制</span> wget https://github.com/helloxz/aria2/archive/master.zip unzip master.zip && <span class="hljs-built_in">cd</span> aria2-master && chmod u+x *.sh && ./install_aria2.sh |
请根据自己的系统输入选项进行安装,系统不要选错了,否则无法正常使用。比如我的系统是CentOS 7,选择1
根据提示进一步输入信息,注意:Aria2授权令牌建议用字母 + 数字组合,最好不要含有特殊符号,尤其是@之类的符号,以免出现不必要的问题。
安装完成后会看到如下信息,建议将信息保存到一个别人不易发现的地方,待会儿还需要使用。
安装完成后输入http://IP:6080
进行访问,输入您刚刚设置的用户名、密码,就可以看到YAAW啦。
点击右上角“Setting”按钮,在JSON-RPC Path那里输入安装完后显示的RPC地址:http://token:abc123@IP:6800/jsonrpc
,然后保存。
只要配置没有问题的情况下,点击“Add”按钮添加一个下载任务试试,爽歪歪有木有?
输入http://IP:6080/admin
进入FileManager可以看到所有文件,下载的文件保存在download
目录,其它文件请不要随意修改,以免出现异常。
推荐使用IDM或EagleGet多线程下载工具,复制下载地址后注意需要填写用户名、密码,否则无法下载。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
<span class="hljs-comment">#启动</span> /data/aria2/aria2.sh start <span class="hljs-comment">#停止</span> /data/aria2/aria2.sh stop <span class="hljs-comment">#重启</span> /data/aria2/aria2.sh restart <span class="hljs-comment">#卸载</span> <span class="hljs-built_in">cd</span> aria2-master && ./uninstall.sh <span class="hljs-comment">#Caddy server配置文件</span> /data/aria2/caddy.conf <span class="hljs-comment">#Aria2配置文件</span> /data/aria2/aria2.conf <span class="hljs-comment">#离线下载目录</span> /data/aria2/download |
YAAW提示Error: Internal server error 错误?
原因一:RPC地址错误,安装完成后会提示RPC地址,请确保填写正确。
原因二:输入netstat -apn|grep 'aria2c'
查看进程,如果没有任何信息,可以确定Aria2服务未启动,输入命令nohup aria2c --conf-path=/data/aria2/aria2.conf > /data/aria2/aria2.log 2>&1 &
重新启动服务,如果依然不行,请查看错误日志/data/aria2/aria2.log
原因三:防火墙未放行6800端口,请自行放行下端口或关闭服务器防火墙。
重启了服务器就打不开了?
脚本并未设置开机启动,重启服务器后请输入/data/aria2/aria2.sh start
来运行服务。
我是Debian/Ubuntu用户,提示安装成功,但是打不开?
Debian/Ubuntu并未自动放行端口,请放行6080/6800两个端口,或者直接关闭防火墙,如果您的服务商支持安全组还需要额外检查。
问题反馈
可以在下面留言,或者Github Issues,为了方便排查,请提供以下信息。
国外大部分VPS商家禁止版权、BT等内容,离线下载请合理使用,若违反商家TOS导致服务器被关闭的,不承担任何责任。
如果你买了一打VPS还在吃灰,不妨试试这个脚本来搭建离线下载。推荐国外的VPS安装,国内小水管意义不大,脚本处于初期测试阶段,若有问题请留言反馈,后期会支持更多系统。(PS:原创文章,转载请注明)
帮助文档:https://wiki.xiaoz.me/docs/lacy/
脚本源码:https://github.com/helloxz/aria2
其它原创脚本:
CentOS 7一键安装Seafile搭建私有云存储
CentOS一键安装Resilio Sync脚本
看到高票回答里面对物品的使用上的很多猜测,很多都不是很准确。
为了理解你们的呱究竟在干什么,花了五个晚上逆向游戏程序逻辑,提取各种数据。
这里相当于动用了 上帝视角 来解答这些问题。 继续阅读呱呱走火入魔-逆向游戏代码-终结玄学迷信
如题目所言,没什么卵用
这里运用到了关于右键菜单、无标题栏窗体移动、正则表达式的使用
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
Imports System.Text.RegularExpressions Public Class Form1 Private 点中 As Boolean = False Private 按下 As Point Private 位置 As Point Dim ip As String Private Sub Label1_mousedown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown Me.点中 = True Me.按下 = New Point(e.X, e.Y) End Sub Private Sub Label1_mousemove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove 位置 = New Point(e.X, e.Y) If Me.点中 Then Me.Location = PointToScreen(位置) - Me.按下 End If End Sub Private Sub Label1_mouseup(sender As Object, e As MouseEventArgs) Handles Label1.MouseUp Me.点中 = False End Sub Private Sub 退出ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出ToolStripMenuItem.Click End End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim Address() As System.Net.IPAddress Dim i As Integer Dim localname As String Dim str As String = ToolStripMenuItem2.Text Dim reg As New Regex("^[0-9]*[1-9][0-9]*$") Dim m As Match = reg.Match(str) If m.Success Then If ToolStripMenuItem2.Text > 100 Then ToolStripMenuItem2.Text = 100 ElseIf ToolStripMenuItem2.Text < 1 Then ToolStripMenuItem2.Text = 1 End If Else ToolStripMenuItem2.Text = 100 End If Me.Opacity = ToolStripMenuItem2.Text / 100 '设置透明度 Address = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList localname = System.Net.Dns.GetHostName().ToString() For i = 0 To UBound(Address) ip = ip & Address(i).ToString() & Chr(13) + Chr(10) Next Label1.Text = "主机名:" & Chr(13) + Chr(10) & localname & Chr(13) + Chr(10) & Chr(13) + Chr(10) & "IP地址:" & Chr(13) + Chr(10) & ip ip = "" End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Label1.Text = "正在获取" End Sub Private Sub 令窗口置顶ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 令窗口置顶ToolStripMenuItem.Click Me.TopMost = Me.令窗口置顶ToolStripMenuItem.Checked End Sub End Class |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 |
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class Form1 Inherits System.Windows.Forms.Form 'Form 重写 Dispose,以清理组件列表。 <System.Diagnostics.DebuggerNonUserCode()> Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.退出ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.令窗口置顶ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.透明度ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripTextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.退出ToolStripMenuItem, Me.令窗口置顶ToolStripMenuItem, Me.透明度ToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(137, 70) ' '退出ToolStripMenuItem ' Me.退出ToolStripMenuItem.Name = "退出ToolStripMenuItem" Me.退出ToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.退出ToolStripMenuItem.Text = "退出" ' '令窗口置顶ToolStripMenuItem ' Me.令窗口置顶ToolStripMenuItem.Checked = True Me.令窗口置顶ToolStripMenuItem.CheckOnClick = True Me.令窗口置顶ToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.令窗口置顶ToolStripMenuItem.Name = "令窗口置顶ToolStripMenuItem" Me.令窗口置顶ToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.令窗口置顶ToolStripMenuItem.Text = "令窗口置顶" ' '透明度ToolStripMenuItem ' Me.透明度ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2}) Me.透明度ToolStripMenuItem.Name = "透明度ToolStripMenuItem" Me.透明度ToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.透明度ToolStripMenuItem.Text = "透明度" ' 'ToolStripMenuItem2 ' Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" Me.ToolStripMenuItem2.Size = New System.Drawing.Size(50, 23) Me.ToolStripMenuItem2.Text = "75" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(5, 5) Me.Label1.Margin = New System.Windows.Forms.Padding(5) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(41, 12) Me.Label1.TabIndex = 2 Me.Label1.Text = "Label1" ' 'Timer1 ' Me.Timer1.Enabled = True Me.Timer1.Interval = 1000 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.BackColor = System.Drawing.Color.Black Me.ClientSize = New System.Drawing.Size(210, 50) Me.ContextMenuStrip = Me.ContextMenuStrip1 Me.Controls.Add(Me.Label1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.Opacity = 0.8R Me.ShowIcon = False Me.ShowInTaskbar = False Me.Text = "获取本机IP" Me.TopMost = True Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents 退出ToolStripMenuItem As ToolStripMenuItem Friend WithEvents Label1 As Label Friend WithEvents Timer1 As Timer Friend WithEvents 令窗口置顶ToolStripMenuItem As ToolStripMenuItem Friend WithEvents 透明度ToolStripMenuItem As ToolStripMenuItem Friend WithEvents ToolStripMenuItem2 As ToolStripTextBox End Class |
LNMP 1.2开始PHP防跨目录限制使用.user.ini,该文件在网站根目录下,可以修改open_basedir的值来设置限制目录的访问。
.user.ini文件无法直接修改,而且是隐藏文件可能在winscp下可能无法看到,建议使用vim编辑器或nano编辑器进行修改。
如要修或删除需要先执行:chattr -i /网站目录/.user.ini
修改完成后再执行:chattr +i /网站目录/.user.ini
https://www.zhujipai.com/2017/01/08/lnmp-%E5%A4%84%E7%90%86%E7%BD%91%E7%AB%99%E7%9B%AE%E5%BD%95%E4%B8%8B%E7%9A%84-user-ini%E6%96%87%E4%BB%B6/
WordPress是一个很强大的内容管理系统,使用起来非常方便,也很容易做二次开发。
因此我们有时候需要在WordPress外部调用WordPress系统的方法或者变量,本文就来为大家介绍下方法。
众所周知,百度网盘下载速度极其恶心,简直就是逼你买SVIP
故各路大神纷纷显神通,做出了数个解决方案
今天介绍一款软件:Aria2,通过chrome插件:baidudl实现高速下载百度网盘文件
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim mypath As System.IO.File If mypath.Exists("C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN") Then FileCopy("C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN", "C:\Windows\System32\drivers\etc\hosts") Kill("C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN") MsgBox("已还原备份文件") Else If mypath.Exists("C:\Windows\System32\drivers\etc\hosts") Then FileCopy("C:\Windows\System32\drivers\etc\hosts", "C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN") Dim file As New System.IO.StreamWriter("C:\Windows\System32\drivers\etc\hosts", True) file.WriteLine(hoststr) file.Close() MsgBox("添加完成,备份为HOSTS.BAK.NCHYN,您可能需要重启浏览器或计算机") Else MsgBox("HOSTS文件不存在!") If mypath.Exists("C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN") Then FileCopy("C:\Windows\System32\drivers\etc\HOSTS.BAK.NCHYN", "C:\Windows\System32\drivers\etc\hosts") MsgBox("已还原备份文件") Else MsgBox("备份文件不存在!") Dim fs As New System.IO.FileStream("C:\Windows\System32\drivers\etc\hosts", IO.FileMode.Create) Dim sw As New System.IO.StreamWriter(fs) fs.Close() MsgBox("已创建HOSTS") End If End If End If End Sub |