VB.NET　を使用した　hostファイル書き込み

2020年5月30日
2020年5月31日
システム構築
3View
0件

システム構築

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

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

最新情報をチェックしよう！

フォローする

VB.NET を使用した hostファイル書き込み

個人鑑定のおすすめとご案内

VB.NET　を使用した　hostファイル書き込み