Nchyn'sBlog

Linux一键安装Aria2 + YAAW实现离线下载

aria2是一个轻量级的多协议和多源命令行下载工具。它支持HTTP / HTTPS，FTP，SFTP， BitTorrent和Metalink。aria2可以通过内置的 JSON-RPC和XML-RPC接口进行操作。

YAAW则是一个管理aria2的WEB接口，两者结合轻松实现离线下载，在文章《CentOS安装aria2 + yaaw实现离线下载》分享过手动配置方法，为了简化流程，写了一个一键脚本，方便部署。

功能与特点

支持多种不同Linux系统
一键安装Aria2 + Caddy + YAAW
使用FileFileManager作为文件管理器
离线下载 + 视频在线播放

安装

直接复制下面的命令，一行一个，根据提示完成操作。


<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用户

yum -y install wget unzip

#如果是Debian or Ubuntu用户

apt-get install -y wget unzip

#下面的命令通用，直接复制

wget https://github.com/helloxz/aria2/archive/master.zip

unzip master.zip && cd 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多线程下载工具，复制下载地址后注意需要填写用户名、密码，否则无法下载。

常见问题

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，为了方便排查，请提供以下信息。

使用的操作系统
报错信息或截图
/data/aria2/aria2.log里面的日志内容

友情提示

国外大部分VPS商家禁止版权、BT等内容，离线下载请合理使用，若违反商家TOS导致服务器被关闭的，不承担任何责任。

勿下载版权内容（如视频、音乐等）
勿长时间将带宽跑满
不要下载BT等内容

总结

如果你买了一打VPS还在吃灰，不妨试试这个脚本来搭建离线下载。推荐国外的VPS安装，国内小水管意义不大，脚本处于初期测试阶段，若有问题请留言反馈，后期会支持更多系统。（PS:原创文章，转载请注明）

帮助文档：https://wiki.xiaoz.me/docs/lacy/
脚本源码：https://github.com/helloxz/aria2
其它原创脚本：
CentOS 7一键安装Seafile搭建私有云存储
 CentOS一键安装Resilio Sync脚本

Tags:aria2, yaaw, 离线下载

呱呱走火入魔-逆向游戏代码-终结玄学迷信

看到高票回答里面对物品的使用上的很多猜测，很多都不是很准确。

为了理解你们的呱究竟在干什么，花了五个晚上逆向游戏程序逻辑，提取各种数据。

这里相当于动用了 上帝视角 来解答这些问题。继续阅读呱呱走火入魔-逆向游戏代码-终结玄学迷信

【没什么卵用的小工具】获取本机名称及所有IP

如题目所言，没什么卵用

这里运用到了关于右键菜单、无标题栏窗体移动、正则表达式的使用
SRGBNS`Y9`26B@DC{~Z6[]Y.png

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

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)

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

<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

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

_C(XGM@Z]OFU3OSV7(TP5FR.png

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外部调用WordPress系统的方法或者变量，本文就来为大家介绍下方法。

“WordPress”的图片搜索结果继续阅读外部调用WordPress函数及变量

如何使用Aria2高速下载百度云文件

众所周知，百度网盘下载速度极其恶心，简直就是逼你买SVIP

故各路大神纷纷显神通，做出了数个解决方案

今天介绍一款软件：Aria2，通过chrome插件：baidudl实现高速下载百度网盘文件

继续阅读如何使用Aria2高速下载百度云文件

VB.NET修改HOST主要源码

   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

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 Sub

Pixiv受DNS污染，中国大陆无法访问，附临时解决办法

Pixiv(P站)被墙，疑似DNS投毒攻击。 pic.twitter.com/OYykpfzEEH

— 陈少举 (@chenshaoju) September 18, 2017

临时解决方案（点我下载）

支持我

自己搭建服务器，把微信与支付宝的收款码安全地合二为一！

自己搭建服务器，把微信与支付宝的收款码安全地合二为一！

继续阅读自己搭建服务器，把微信与支付宝的收款码安全地合二为一！

Nchyn'sBlog

Linux一键安装Aria2 + YAAW实现离线下载

功能与特点

安装

开始使用

添加下载任务

管理文件

取回本地

相关命令

常见问题

友情提示

总结

呱呱走火入魔-逆向游戏代码-终结玄学迷信

【没什么卵用的小工具】获取本机名称及所有IP

下载地址

处理.user.ini

外部调用WordPress函数及变量

如何使用Aria2高速下载百度云文件

VB.NET修改HOST主要源码

Pixiv受DNS污染，中国大陆无法访问，附临时解决办法

自己搭建服务器，把微信与支付宝的收款码安全地合二为一！

【科普】每个国家人民短寿的首要因素 Vox google机翻