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 |
Imports System.Security.AccessControl Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim winDir As String = Environment.GetEnvironmentVariable("windir") Dim Hosts_File As String = winDir + "\system32\drivers\etc\hosts" Try Dim Writer As New IO.StreamWriter(Hosts_File, True) ' Dim IP_Address As String Writer.WriteLine("***.***.***.*** XXXXXXXX.co.jp") Writer.Close() MsgBox("hostsファイルを更新しました。", MsgBoxStyle.OkOnly, "完了") Catch ex As Exception MessageBox.Show(ex.Message.ToString, "メッセージ") End Try End Sub End Class |