2009年12月27日日曜日

Check & Setting Tool (CST) 0.3.6.2

練習寫TABPAGE所以就分成2頁了XD


設定後(一般)

設定後(服務,有關Windows Search)

設定前(一般)

設定前(服務)

下載點:
http://amgbelldandy.myweb.hinet.net/cst.zip (0.3.6.2)
SHA1:e219ed74e41eeb318363911617e5deb3486aafc8
請小心食用(?

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool"

        TabPage1.Text = "General"
        TabPage2.Text = "Service"

        GroupBox1.Text = "Name"
        GroupBox2.Text = "Name"
        GroupBox3.Text = "Setting"
        GroupBox4.Text = "Setting (Need Reboot)"

        ComboBox4.Items.Add("Disable")
        ComboBox4.Items.Add("Enable")
        ComboBox5.Items.Add("Disable")
        ComboBox5.Items.Add("Enable")
        ComboBox51.Items.Add("Disabled")
        ComboBox51.Items.Add("Auto")
        ComboBox52.Items.Add("Disabled")
        ComboBox52.Items.Add("Auto")
        ComboBox53.Items.Add("Disabled")
        ComboBox53.Items.Add("Auto")
        ComboBox54.Items.Add("Disabled")
        ComboBox54.Items.Add("Auto")
        ComboBox55.Items.Add("Disabled")
        ComboBox55.Items.Add("Auto")
        ComboBox56.Items.Add("Disabled")
        ComboBox56.Items.Add("Auto")

        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button11.Text = "Input"
        Button12.Text = "Input"
        Button13.Text = "Setting"
        Button14.Text = ComboBox4.Text
        Button15.Text = ComboBox5.Text
        Button16.Text = ""
        Button17.Text = ""
        Button51.Text = "No Service"
        Button52.Text = "No Service"
        Button53.Text = "No Service"
        Button54.Text = "No Service"
        Button55.Text = "No Service"
        Button56.Text = "No Service"
        Button101.Text = "Refresh"
        Button102.Text = "Setting All"
        Button103.Text = "Default"

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label51.Text = "No Service"
        Label52.Text = "No Service"
        Label53.Text = "No Service"
        Label54.Text = "No Service"
        Label55.Text = "No Service"
        Label56.Text = "No Service"
        Label101.Text = "(Information)"
        Label102.Text = "(ServiceName)"
        Label103.Text = "(Option)"
        Label104.Text = "(ServiceStartMode)"
        Label105.Text = "(ServiceState)"
        Label106.Text = "(Option)"
        Label150.Text = "Version 0.3.6.2"

        RadioButton1.Text = "On"
        RadioButton2.Text = "Off"

        TextBox51.Text = "No Service"
        TextBox52.Text = "No Service"
        TextBox53.Text = "No Service"
        TextBox54.Text = "No Service"
        TextBox55.Text = "No Service"
        TextBox56.Text = "No Service"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button101.PerformClick()
        Me.Button103.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button101.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)

        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "Default Setting"
        Else
            TextBox3.Text = "User Setting"
        End If

        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If

        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If

        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button61.Visible = False
                        ComboBox51.Visible = False
                    Case servicename(1)
                        Button62.Visible = False
                        ComboBox52.Visible = False
                    Case servicename(2)
                        Button63.Visible = False
                        ComboBox53.Visible = False
                    Case servicename(3)
                        Button64.Visible = False
                        ComboBox54.Visible = False
                    Case servicename(4)
                        Button65.Visible = False
                        ComboBox55.Visible = False
                    Case servicename(5)
                        Button66.Visible = False
                        ComboBox56.Visible = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button51.Text = WinDefend.DisplayName
                        TextBox51.Text = WinDefend.StartMode
                        Button61.Text = ComboBox51.Text
                        Label51.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button52.Text = MpsSvc.DisplayName
                        TextBox52.Text = MpsSvc.StartMode
                        Button62.Text = ComboBox52.Text
                        Label52.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button53.Text = Themes.DisplayName
                        TextBox53.Text = Themes.StartMode
                        Button63.Text = ComboBox53.Text
                        Label53.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button54.Text = AudioSrv.DisplayName
                        TextBox54.Text = AudioSrv.StartMode
                        Button64.Text = ComboBox54.Text
                        Label54.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button55.Text = wscsvc.DisplayName
                        TextBox55.Text = wscsvc.StartMode
                        Button65.Text = ComboBox55.Text
                        Label55.Text = wscsvc.State
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        Button56.Text = WSearch.DisplayName
                        TextBox56.Text = WSearch.StartMode
                        Button66.Text = ComboBox56.Text
                        Label56.Text = WSearch.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If ComboBox4.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If ComboBox5.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox11.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox12.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        If ComboBox51.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
        If ComboBox52.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
        If ComboBox53.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        If ComboBox54.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        If ComboBox55.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button102.Click
        Me.TabControl1.SelectedTab = TabPage1
        Me.Button11.PerformClick()
        Me.Button12.PerformClick()
        Me.Button13.PerformClick()
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.TabControl1.SelectedTab = TabPage2
        Me.Button61.PerformClick()
        Me.Button62.PerformClick()
        Me.Button63.PerformClick()
        Me.Button64.PerformClick()
        Me.Button65.PerformClick()
        Me.Button66.PerformClick()
        Me.TabControl1.SelectedTab = TabPage1
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Button14.Text = ComboBox4.Text
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Button15.Text = ComboBox5.Text
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox51.SelectedIndexChanged
        Button61.Text = ComboBox51.Text
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox52.SelectedIndexChanged
        Button62.Text = ComboBox52.Text
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox53.SelectedIndexChanged
        Button63.Text = ComboBox53.Text
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox54.SelectedIndexChanged
        Button64.Text = ComboBox54.Text
    End Sub

    Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox55.SelectedIndexChanged
        Button65.Text = ComboBox55.Text
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button103.Click
        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox51.SelectedIndex = 0
        ComboBox52.SelectedIndex = 0
        ComboBox53.SelectedIndex = 1
        ComboBox54.SelectedIndex = 1
        ComboBox55.SelectedIndex = 0
        ComboBox56.SelectedIndex = 1
        RadioButton1.Checked = True
    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
        If ComboBox56.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub ComboBox56_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox56.SelectedIndexChanged
        Button66.Text = ComboBox56.Text
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Button13.Enabled = True
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Button13.Enabled = False
    End Sub
End Class

MSN 不用裝防毒程式傳檔設定方法

依照上圖設定 打2個雙引號即可
補充一下
這個方法缺點是會顯示掃毒失敗

2009年12月16日水曜日

Check & Setting Tool Version 0.3.6

根據建議 重寫了設定介面





下載點:
http://amgbelldandy.myweb.hinet.net/WindowsApplication.zip (0.3.6)
SHA1:c30813afe75f909bd09660da8defdbedd4254d92
請小心食用(?


Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool"

        GroupBox1.Text = "General"
        GroupBox2.Text = "Service"
        GroupBox3.Text = "General Setting"
        GroupBox4.Text = "Service Setting (Need Reboot)"

        ComboBox4.Items.Add("Disable")
        ComboBox4.Items.Add("Enable")
        ComboBox4.SelectedIndex = 0
        ComboBox5.Items.Add("Disable")
        ComboBox5.Items.Add("Enable")
        ComboBox5.SelectedIndex = 0
        ComboBox51.Items.Add("Disabled")
        ComboBox51.Items.Add("Auto")
        ComboBox51.SelectedIndex = 0
        ComboBox52.Items.Add("Disabled")
        ComboBox52.Items.Add("Auto")
        ComboBox52.SelectedIndex = 0
        ComboBox53.Items.Add("Disabled")
        ComboBox53.Items.Add("Auto")
        ComboBox53.SelectedIndex = 1
        ComboBox54.Items.Add("Disabled")
        ComboBox54.Items.Add("Auto")
        ComboBox54.SelectedIndex = 1
        ComboBox55.Items.Add("Disabled")
        ComboBox55.Items.Add("Auto")
        ComboBox55.SelectedIndex = 0
        ComboBox56.Items.Add("Disabled")
        ComboBox56.Items.Add("Auto")
        ComboBox56.SelectedIndex = 1

        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button11.Text = "Input"
        Button12.Text = "Input"
        Button13.Text = "Setting"
        Button14.Text = ComboBox4.Text
        Button15.Text = ComboBox5.Text
        Button16.Text = ""
        Button17.Text = ""
        Button23.Text = ""
        Button51.Text = "No Service"
        Button52.Text = "No Service"
        Button53.Text = "No Service"
        Button54.Text = "No Service"
        Button55.Text = "No Service"
        Button56.Text = "No Service"
        Button101.Text = "Refresh"
        Button102.Text = "Setting All"
        Button103.Text = "Default"

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label51.Text = "No Service"
        Label52.Text = "No Service"
        Label53.Text = "No Service"
        Label54.Text = "No Service"
        Label55.Text = "No Service"
        Label56.Text = "No Service"
        Label101.Text = "(Information)"
        Label102.Text = "(ServiceName)"
        Label103.Text = "(Option)"
        Label104.Text = "(ServiceStartMode)"
        Label105.Text = "(ServiceState)"
        Label106.Text = "(Option)"
        Label150.Text = "Version 0.3.6"

        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        TextBox51.Text = "No Service"
        TextBox52.Text = "No Service"
        TextBox53.Text = "No Service"
        TextBox54.Text = "No Service"
        TextBox55.Text = "No Service"
        TextBox56.Text = "No Service"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button101.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button101.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)
        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "Default Setting"
        Else
            TextBox3.Text = "User Setting"
        End If
        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If
        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If
        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button61.Visible = False
                        ComboBox51.Visible = False
                    Case servicename(1)
                        Button62.Visible = False
                        ComboBox52.Visible = False
                    Case servicename(2)
                        Button63.Visible = False
                        ComboBox53.Visible = False
                    Case servicename(3)
                        Button64.Visible = False
                        ComboBox54.Visible = False
                    Case servicename(4)
                        Button65.Visible = False
                        ComboBox55.Visible = False
                    Case servicename(5)
                        Button66.Visible = False
                        ComboBox56.Visible = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button51.Text = WinDefend.DisplayName
                        TextBox51.Text = WinDefend.StartMode
                        Button61.Text = ComboBox51.Text
                        Label51.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button52.Text = MpsSvc.DisplayName
                        TextBox52.Text = MpsSvc.StartMode
                        Button62.Text = ComboBox52.Text
                        Label52.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button53.Text = Themes.DisplayName
                        TextBox53.Text = Themes.StartMode
                        Button63.Text = ComboBox53.Text
                        Label53.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button54.Text = AudioSrv.DisplayName
                        TextBox54.Text = AudioSrv.StartMode
                        Button64.Text = ComboBox54.Text
                        Label54.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button55.Text = wscsvc.DisplayName
                        TextBox55.Text = wscsvc.StartMode
                        Button65.Text = ComboBox55.Text
                        Label55.Text = wscsvc.State
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        Button56.Text = WSearch.DisplayName
                        TextBox56.Text = WSearch.StartMode
                        Button66.Text = ComboBox56.Text
                        Label56.Text = WSearch.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If ComboBox4.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If ComboBox5.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox11.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox12.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        If ComboBox51.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
        If ComboBox52.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
        If ComboBox53.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        If ComboBox54.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        If ComboBox55.SelectedIndex = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button102.Click
        Me.Button11.PerformClick()
        Me.Button12.PerformClick()
        Me.Button13.PerformClick()
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.Button61.PerformClick()
        Me.Button62.PerformClick()
        Me.Button63.PerformClick()
        Me.Button64.PerformClick()
        Me.Button65.PerformClick()
        Me.Button66.PerformClick()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Button14.Text = ComboBox4.Text
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Button15.Text = ComboBox5.Text
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox51.SelectedIndexChanged
        Button61.Text = ComboBox51.Text
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox52.SelectedIndexChanged
        Button62.Text = ComboBox52.Text
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox53.SelectedIndexChanged
        Button63.Text = ComboBox53.Text
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox54.SelectedIndexChanged
        Button64.Text = ComboBox54.Text
    End Sub

    Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox55.SelectedIndexChanged
        Button65.Text = ComboBox55.Text
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button103.Click
        TextBox11.Text = "Belldandy"
        TextBox12.Text = "Syaorin"
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox51.SelectedIndex = 0
        ComboBox52.SelectedIndex = 0
        ComboBox53.SelectedIndex = 1
        ComboBox54.SelectedIndex = 1
        ComboBox55.SelectedIndex = 0
        ComboBox56.SelectedIndex = 1
    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
        If ComboBox56.SelectedIndex = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Else
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button101.PerformClick()
    End Sub

    Private Sub ComboBox56_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox56.SelectedIndexChanged
        Button66.Text = ComboBox56.Text
    End Sub
End Class

2009年12月12日土曜日

Check & Setting Tool 使用說明

執行畫面:(Windows 7和Windows Server 2008 R2)


Windows Server 2008 R2 服務的部份會有3個顯示No Service
因為 WS2008R2 沒有 Security Center 故不能設定此選項
而 Themes 和 Windows Defender 需安裝 Desktop Experience 才能設定

程式功能:
1.設定登錄的使用者和公司
2.設定資料夾選項 更改設定為下面六項(因主要使用為日英版 故使用英文)
Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected
如果這六項設定任一項設定不同上面 檢查後會顯示 Error
3.關閉自動播放
4.關閉UAC
5.顯示目前電腦名稱和工作群組
6.關閉服務(Windows Defender,Windows Firewall,Security Center) PS:WS2008R2無Security Center
7.啟動服務(Themes,Windows Audio) PS:給 WS2008R2 用的 Windows 7 預設已啟動
8.Auto功能 懶人用 按一下就設定上面所有的內容

程式環境:
要有.NET 2.0
基本上只建議 Windows 7 和 WS2008R2 使用
Vista 和 WS2008 應該也可以用(未測試過 目前沒跑這2種的虛擬機器)
XP 和 WS2003 不建議使用(出錯機率蠻高的XD)

其它建議:
因為關了 Windows Defender , Windows Firewall , Security Center 這3個服務
建議自己另外裝防火牆和防毒軟體

常見問題:
如果出現此錯誤的話:

請用Administrator執行(如下圖)

如果出現UAC的警告畫面 請按YES

設定完不滿意的話
就去控制台一個一個改回來
目前不提供懶人回復法XD

下載點:
SHA1:c30813afe75f909bd09660da8defdbedd4254d92
請小心食用(?

2009年12月10日木曜日

Check & Setting Tool 0.3.4

主要是拿來設定 Windows 7 和 Windows Server 2008 R2(Desktop Experience要先裝)
簡化設定的過程
寫得有點爛
能用就好(死

2009/12/11 重寫了一些部份(Button13)

Windows 7 和 Windows Server 2008R2 的圖片:




Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(5) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool 0.3.4"
        GroupBox1.Text = "General"
        GroupBox2.Text = "Service"
        GroupBox3.Text = "General Setting"
        GroupBox4.Text = "Service Setting (Need Reboot)"
        Button1.Text = "RegisteredOwner"
        Button2.Text = "RegisteredOrganization"
        Button3.Text = "Folder Option Settings"
        Button4.Text = "AutoPlay"
        Button5.Text = "User Account Control"
        Button6.Text = "ComputerName"
        Button7.Text = "ComputerWorkgroup"
        Button8.Text = "No Service"
        Button9.Text = "No Service"
        Button10.Text = "No Service"
        Button11.Text = "No Service"
        Button12.Text = "No Service"
        Button13.Text = "Refresh"
        Button14.Text = "Input"
        Button15.Text = "Input"
        Button16.Text = "Setting"
        Button17.Text = "Disable"
        Button18.Text = "Disable"
        Button19.Text = ""
        Button20.Text = ""
        Button21.Text = "No Service"
        Button22.Text = "No Service"
        Button23.Text = "No Service"
        Button24.Text = "No Service"
        Button25.Text = "No Service"
        Button26.Text = "Auto Setting"
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = "(Read ToolTip First)"
        Label4.Text = ""
        Label5.Text = "(Need Reboot)"
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = "(Start Mode)"
        Label9.Text = "(Click)"
        Label10.Text = "(Click)"
        Label11.Text = "No Service"
        Label12.Text = "No Service"
        Label13.Text = "No Service"
        Label14.Text = "No Service"
        Label15.Text = "No Service"
        Label16.Text = "(Read From WMI)"
        Label17.Text = "(Service State)"
        Label18.Text = "(Information)"
        TextBox8.Text = "No Service"
        TextBox9.Text = "No Service"
        TextBox10.Text = "No Service"
        TextBox11.Text = "No Service"
        TextBox12.Text = "No Service"
        TextBox13.Text = "Belldandy"
        TextBox14.Text = "Syaorin"
        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)
        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        TextBox1.Text = regget(0)
        TextBox2.Text = regget(1)
        If regget(2) = 1 And _
           regget(3) = 0 And _
           regget(4) = 1 And _
           regget(5) = 1 And _
           regget(6) = 0 And _
           regget(7) = 0 Then
            TextBox3.Text = "OK"
        Else
            TextBox3.Text = "Error"
        End If
        If regget(8) = 1 Then
            TextBox4.Text = "Disabled"
        Else
            TextBox4.Text = "Enabled"
        End If
        If regget(9) = 0 Then
            TextBox5.Text = "Disabled"
        Else
            TextBox5.Text = "Enabled"
        End If
        For Each objComputer In colSettings
            TextBox6.Text = objComputer.Name
            TextBox7.Text = objComputer.Workgroup
        Next
        For i = 0 To 4 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        Button21.Enabled = False
                    Case servicename(1)
                        Button22.Enabled = False
                    Case servicename(2)
                        Button23.Enabled = False
                    Case servicename(3)
                        Button24.Enabled = False
                    Case servicename(4)
                        Button25.Enabled = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        Button8.Text = WinDefend.DisplayName
                        TextBox8.Text = WinDefend.StartMode
                        Button21.Text = "Disable"
                        Label11.Text = WinDefend.State()
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        Button9.Text = MpsSvc.DisplayName
                        TextBox9.Text = MpsSvc.StartMode
                        Button22.Text = "Disable"
                        Label12.Text = MpsSvc.State()
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        Button10.Text = Themes.DisplayName
                        TextBox10.Text = Themes.StartMode
                        Button23.Text = "Auto"
                        Label13.Text = Themes.State()
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        Button11.Text = AudioSrv.DisplayName
                        TextBox11.Text = AudioSrv.StartMode
                        Button24.Text = "Auto"
                        Label14.Text = AudioSrv.State()
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        Button12.Text = wscsvc.DisplayName
                        TextBox12.Text = wscsvc.StartMode
                        Button25.Text = "Disable"
                        Label15.Text = wscsvc.State
                End Select
            End If
        Next
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        My.Computer.Registry.SetValue _
        (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        My.Computer.Registry.SetValue _
        (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox13.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox14.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        My.Computer.Registry.SetValue _
        (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Me.Button14.PerformClick()
        Me.Button15.PerformClick()
        Me.Button16.PerformClick()
        Me.Button17.PerformClick()
        Me.Button18.PerformClick()
        Me.Button21.PerformClick()
        Me.Button22.PerformClick()
        Me.Button23.PerformClick()
        Me.Button24.PerformClick()
        Me.Button25.PerformClick()
    End Sub
End Class

OLD PICTURE:
0.3.2

0.3.1

2009年12月6日日曜日

VB.NET Check Tool



Public Class Form1
Dim regget(10) As String
Dim strComputer = "."
Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
Dim colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
Dim WinDefend = objWMIService.Get("Win32_Service.Name='WinDefend'")
Dim MpsSvc = objWMIService.Get("Win32_Service.Name='MpsSvc'")
Dim Themes = objWMIService.Get("Win32_Service.Name='Themes'")
Dim AudioSrv = objWMIService.Get("Win32_Service.Name='AudioSrv'")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Text = "Check Tool"
Button1.Text = "RegisteredOwner"
Button2.Text = "RegisteredOrganization"
Button3.Text = "Folder Option Settings"
Button4.Text = "AutoPlay"
Button5.Text = "User Account Control"
Button6.Text = "ComputerName"
Button7.Text = "ComputerWorkgroup"
Button8.Text = WinDefend.DisplayName
Button9.Text = MpsSvc.DisplayName
Button10.Text = Themes.DisplayName
Button11.Text = AudioSrv.DisplayName
Button12.Text = "No Service"
regget(0) = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", Nothing)
regget(1) = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", Nothing)
regget(2) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", Nothing)
regget(3) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", Nothing)
regget(4) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", Nothing)
regget(5) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SeparateProcess", Nothing)
regget(6) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowCompColor", Nothing)
regget(7) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SharingWizardOn", Nothing)
regget(8) = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers", "DisableAutoplay", Nothing)
regget(9) = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", Nothing)
TextBox1.Text = regget(0)
TextBox2.Text = regget(1)
If regget(2) = 1 And regget(3) = 0 And regget(4) = 1 And regget(5) = 1 And regget(6) = 0 And regget(7) = 0 Then
TextBox3.Text = "OK"
Else
TextBox3.Text = "Error"
End If
If regget(8) = 1 Then
TextBox4.Text = "Disabled"
Else
TextBox4.Text = "Enabled"
End If
If regget(9) = 0 Then
TextBox5.Text = "Disabled"
Else
TextBox5.Text = "Enabled"
End If
For Each objComputer In colSettings
TextBox6.Text = objComputer.Name
TextBox7.Text = objComputer.Workgroup
Next
TextBox8.Text = WinDefend.StartMode & Chr(9) & WinDefend.State
TextBox9.Text = MpsSvc.StartMode & Chr(9) & MpsSvc.State
TextBox10.Text = Themes.StartMode & Chr(9) & Themes.State
TextBox11.Text = AudioSrv.StartMode & Chr(9) & AudioSrv.State
If My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\wscsvc", "DisplayName", Nothing) Is Nothing Then
TextBox12.Text = "No Service"
Else
Dim wscsvc = objWMIService.Get("Win32_Service.Name='wscsvc'")
Button12.Text = wscsvc.DisplayName
TextBox12.Text = wscsvc.StartMode & Chr(9) & wscsvc.State
End If
End Sub
End Class

2009年12月1日火曜日

TypedPaths 登錄檔

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TypedPaths]
"url1"="\\\\vmware-host\\Shared Folders"

2009年11月22日日曜日

使用登錄檔關閉 UAC

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

得重開機設定才會有效

Windows System Assessment Tool(WinSAT) Disable

把這個討人厭的東西徹底關閉的方法
改2個地方 讓它不會自動執行&手動也不能跑= =

Task Scheduler:(WinSAT->Disabled)


Local Security Policy:(禁用WinSAT.exe)


這個東西害我當了3次機
因為我的 Windows 7 設定關閉螢幕會當機(可能跟程式有相衝 原因不明)
它跑的時候 把電源計劃改成效能(我平常是用平衡 也設定不關螢幕 而且我習慣手動關)
結果就害我當了3次機 而且 效能和平衡關螢幕的時間還不同(20分;15分)
害我沒想到是被改了電源計劃

不過也可能跟我處理的方式有關
那時我正在忙(打RO XD)
它就排程執行了= =
我直接就用工作管理員把它給關了
也許它跑完會把電源計劃改回來
不過我也不想試了
直接關了它省事
而且 那時候我CPU使用率超過50%
它還堅持要跑
差點被它氣死
有點想用回 Windows Server 系列了
Server 的 OS 比較不會做這種事
應該是用習慣WS2003R2了XD
Windows 7 還用不到2個月(VM上的不算)

限制軟體執行的方法 (PATH)



限制軟體執行的方法
Administrative Tools -> Local Security Policy -> Software Restriction Policies -> Additional Rules -> New Path Rule (Action -> New Software Restriction Policies)
C:\Program Files (x86)\Internet Explorer\iexplore.exe
C:\Program Files (x86)\Windows Media Player\wmplayer.exe
C:\Program Files\Internet Explorer\iexplore.exe
C:\Program Files\Windows Media Player\wmplayer.exe
C:\Windows\System32\WinSAT.exe

使用登錄檔關閉 Autoplay

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers]
"DisableAutoplay"=dword:00000001

2009年11月15日日曜日

VBS Check Tool

Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox "Notice:" &Chr(10) & _
       "" &Chr(10) & _
       "1. Run With Administrator" &Chr(10) & _
       "2. Need Desktop Experience(WS2008R2)" &Chr(10) & _
       "3. Before Use , Please Read Readme" , 0 , "Setting & Check Tool"
Dim regpath(15)
 regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
 regpath(1) = "RegisteredOwner"
 regpath(2) = "RegisteredOrganization"
 regpath(3) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DisableAutoplay"
 regpath(4) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
 regpath(5) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
 regpath(6) = "Hidden"
 regpath(7) = "HideFileExt"
 regpath(8) = "ShowSuperHidden"
 regpath(9) = "SeparateProcess"
 regpath(10) = "ShowCompColor"
 regpath(11) = "SharingWizardOn"
 regpath(12) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IconsOnly"
Dim osselect
Do
osselect = InputBox("1 = Setting Windows 7" &Chr(10) & _
                    "2 = Setting Windows Server 2008 R2" &Chr(10) & _
                    "3 = Check Setting" &Chr(10) & _
                    "4 = Misc Setting" &Chr(10) & _
                    "9 = Readme" , _
                    "Select Feature (0=Exit)" , _
                    "Input A Number For Your Choice")
Loop While IsNumeric(osselect) = Flase
Select Case osselect
Case 0
Case 1
 ' Return = WshShell.run("%COMSPEC% /k sc config wscsvc start= disabled" , 1 , True)
 Return = WshShell.run("sc config wscsvc start= disabled" , 1 , True)
 Call sharesetting
Case 2
 Return = WshShell.run("sc config Themes start= auto" , 1 , True)
 Return = WshShell.run("sc config AudioSrv start= auto" , 1 , True)
 Call sharesetting
Case 3
 Call checksetting
Case 4
 Call miscsetting
Case 9
 Call readme
Case else
 MsgBox "Error Select & Exit" , 0 , "Message"
End select

Sub sharesetting
 Return = WshShell.run("sc config WinDefend start= disabled" , 1 , True)
 Return = WshShell.run("sc config MpsSvc start= disabled" , 1 , True)
 WshShell.RegWrite regpath(0) & regpath(1) , "Belldandy" , "REG_SZ"
 WshShell.RegWrite regpath(0) & regpath(2) , "Syaorin" , "REG_SZ"
 WshShell.RegWrite regpath(3) , 1 , "REG_DWORD"
 WshShell.RegWrite regpath(4) , 0 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(6), 1 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(7), 0 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(8), 1 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(9), 1 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(10), 0 , "REG_DWORD"
 WshShell.RegWrite regpath(5) & regpath(11), 0 , "REG_DWORD"
 MsgBox "Setting Success" , 0 , "Message"
Exit Sub
End Sub

Sub checksetting
Dim co(15)
 co(0) = WshShell.RegRead(regpath(0) & regpath(1))
 co(1) = WshShell.RegRead(regpath(0) & regpath(2))
 co(2) = WshShell.RegRead(regpath(5) & regpath(6))
 co(3) = WshShell.RegRead(regpath(5) & regpath(7))
 co(4) = WshShell.RegRead(regpath(5) & regpath(8))
 co(5) = WshShell.RegRead(regpath(5) & regpath(9))
 co(6) = WshShell.RegRead(regpath(5) & regpath(10))
 co(7) = WshShell.RegRead(regpath(5) & regpath(11))
If co(2) = 1 And co(3) = 0 And co(4) = 1 And co(5) = 1 And co(6) = 0 And co(7) = 0 Then
 co(8) = "Default Setting"
Else
 co(8) = "Unknow Setting"
End If
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
 co(9) = objComputer.Name
 co(10) = objComputer.Workgroup
Next
co(11) = WshShell.RegRead(regpath(3))
If co(11) = 1 Then
 co(12) = "Disabled"
Else
 co(12) = "Enabled"
End If
co(13) = WshShell.RegRead(regpath(4))
If co(13) = 0 Then
 co(14) = "Disabled"
Else
 co(14) = "Enabled"
End If
Set WinDefend = objWMIService.Get("Win32_Service.Name='WinDefend'")
Set MpsSvc = objWMIService.Get("Win32_Service.Name='MpsSvc'")
Dim checkosselect
Do
checkosselect = InputBox("1 = Check Windows 7" &Chr(10) & _
                         "2 = Check Windows Server 2008 R2" , _
                         "Select Feature (0=Exit)" , _
                         "Input A Number For Your Choice")
Loop While IsNumeric(checkosselect) = Flase
Select Case checkosselect
Case 0
Case 1
Set wscsvc = objWMIService.Get("Win32_Service.Name='wscsvc'")
MsgBox "ComputerName = " &co(9) &Chr(10) & _
       "ComputerWorkgroup = " &co(10) &Chr(10) & _
       "RegisteredOwner = " &co(0) &Chr(10) & _
       "RegisteredOrganization = " &co(1) &Chr(10) & _
       "Folder Options Setting = " &co(8) &Chr(10) & _
       "Autoplay = " &co(12) &Chr(10) & _
       "UAC = " &co(14) &Chr(10) & _
       "Security Center : " &wscsvc.State &" , " &wscsvc.StartMode &Chr(10) & _
       "Windows Defender : " &WinDefend.State &" , " &WinDefend.StartMode &Chr(10) & _
       "Windows Firewall : " &MpsSvc.State &" , " &MpsSvc.StartMode  , 0 , "Message"
Case 2
Set Themes = objWMIService.Get("Win32_Service.Name='Themes'")
Set AudioSrv = objWMIService.Get("Win32_Service.Name='AudioSrv'")
MsgBox "ComputerName = " &co(9) &Chr(10) & _
       "ComputerWorkgroup = " &co(10) &Chr(10) & _
       "RegisteredOwner = " &co(0) &Chr(10) & _
       "RegisteredOrganization = " &co(1) &Chr(10) & _
       "Folder Options Setting = " &co(8) &Chr(10) & _
       "Autoplay = " &co(12) &Chr(10) & _
       "UAC = " &co(14) &Chr(10) & _
       "Windows Defender : " &WinDefend.State &" , " &WinDefend.StartMode &Chr(10) & _
       "Windows Firewall : " &MpsSvc.State &" , " &MpsSvc.StartMode &Chr(10) & _
       "Themes : " &Themes.State &" , " &Themes.StartMode &Chr(10) & _
       "Windows Audio : " &AudioSrv.State &" , " &AudioSrv.StartMode , 0 , "Message"
Case else
MsgBox "Error Select & Exit" , 0 , "Message"
End select
Exit Sub
End Sub

Sub miscsetting
Dim response
response = MsgBox("IconsOnly Enable(Yes) or Disable(No)" , 4, "Message")
If response = 6 Then
 WshShell.RegWrite regpath(12) , 1 , "REG_DWORD"
Else
 WshShell.RegWrite regpath(12) , 0 , "REG_DWORD"
End If
Exit Sub
End Sub

Sub readme
MsgBox "Setting Feature:" &Chr(10) & _
       "RegisteredOwner -> Belldandy" &Chr(10) & _
       "RegisteredOrganization -> Syaorin" &Chr(10) & _
       "Folder Option -> Default Setting" &Chr(10) & _
       "AutoPlay -> Disabled" &Chr(10) & _
       "User Account Control -> Disabled" &Chr(10) & _
       "Security Center -> Disabled (Windows 7 Only)" &Chr(10) & _
       "Windows Defender -> Disabled" &Chr(10) & _
       "Windows Firewall -> Disabled" &Chr(10) & _
       "Themes -> Auto (Windows Server 2008 R2 Only)" &Chr(10) & _
       "Windows Audio -> Auto (Windows Server 2008 R2 Only)" &Chr(10) & _
       "" &Chr(10) & _
       "Folder Option(Default Setting):" &Chr(10) & _
       "Control Panel -> Folder Options -> View -> Advanced settings ->" &Chr(10) & _
       "Hidden files and folders -> Show hidden files, folders, and drives" &Chr(10) & _
       "Hide extensions for known file types -> Not selected" &Chr(10) & _
       "Hide protected operating system files (Recommended) -> Not selected" &Chr(10) & _
       "Launch folder windows in a separate process -> Selected" &Chr(10) & _
       "Show encrypted or compressed NTFS files in color -> Not selected" &Chr(10) & _
       "Use Sharing Wizard (Recommended) -> Not selected" , 0 , "Message"
Exit Sub
End Sub

2009年11月11日水曜日

Unicode 補完計畫 安裝修正&更新(BAT&VBS)

2010/12/30 Update

INSTALL.BAT
TAKEOWN /F %WINDIR%\System32\C_950.NLS /A
CACLS %WINDIR%\System32\C_950.NLS /E /G Administrators:F
REN %WINDIR%\System32\C_950.NLS C_950.BAK
COPY C_950.NLS %WINDIR%\System32
INSTALL.VBS(VBS 版需將 C_950.NLS 和 INSTALL.VBS 置於桌面)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim winnlspath , newnlspath , baknlspath
winnlspath = WshShell.ExpandEnvironmentStrings("%WINDIR%")&"\System32\C_950.NLS"
newnlspath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Desktop\C_950.NLS"
baknlspath = WshShell.ExpandEnvironmentStrings("%WINDIR%")&"\System32\C_950.BAK"
If (fso.FileExists(winnlspath)) And (fso.FileExists(newnlspath)) Then
Return = WshShell.run("TAKEOWN /F %WINDIR%\System32\C_950.NLS /A" , 1 , True)
Return = WshShell.run("CACLS %WINDIR%\System32\C_950.NLS /E /G Administrators:F" , 1 , True)
fso.MoveFile winnlspath , baknlspath
If (fso.FileExists(baknlspath)) And (fso.FileExists(newnlspath)) Then
fso.CopyFile newnlspath , winnlspath
End If
Else
MsgBox "Can't Find C_950.NLS & Exit" , 0 , "Message"
WScript.Quit
End If

2009年11月7日土曜日

VBS License File & Product Key Install Tool


Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim osselect , oempath , oemeespath
Dim pn(3)
Dim pk(3)
pn(0) = "Windows Vista (Ultimate)"
pn(1) = "Windows Server 2008 (Enterprise)"
pn(2) = "Windows 7 (Ultimate)"
pn(3) = "Windows Server 2008 R2 (Standard)"
pk(0) = "Product Key"
pk(1) = "Product Key"
pk(2) = "Product Key"
pk(3) = "Product Key"
oempath = "%USERPROFILE%\Desktop\OEM.XRM-MS"
oemeespath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Desktop\OEM.XRM-MS"
MsgBox "UAC(User Account Control) : Never notify" &Chr(10) & _
"OEM.XRM-MS On Desktop" &Chr(10) & _
"BIOS Have SLIC(2.0:Vista&2008 2.1:7&2008 R2)" , 0 , "License File & Product Key Install Tool"
Do
osselect = InputBox("1 = " &pn(0) &Chr(10) & _
"2 = " &pn(1) &Chr(10) & _
"3 = " &pn(2) &Chr(10) & _
"4 = " &pn(3) &Chr(10) , "Select Windows Version (0 = Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = flase
Select Case osselect
Case 0
Case 1
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(0) , 1 , True)
Case 2
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(1) , 1 , True)
Case 3
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(2) , 1 , True)
Case 4
Call sharesetting
Return = WshShell.run("SLMGR.VBS -IPK " &pk(3) , 1 , True)
Case else
MsgBox "Error Input & Exit" , 0 , "Message"
End select

Sub sharesetting
If (fso.FileExists(oemeespath)) Then
Return = WshShell.run("SLMGR.VBS -ILC " &oempath , 1 , True)
Else
MsgBox "Can't Find OEM.XRM-MS On Desktop & Exit" , 0 , "Message"
WScript.Quit
End If
Exit Sub
End Sub

Windows Server 2008 R2 & Windows 7 Settings

Windows Server 2008 R2:
control userpasswords2 (lusrmgr.msc)
Administrative Tools -> Local Security Policy -> Account Policies -> Password Policy -> Maximum password age -> 0
Local Policies -> Security Options -> Interactive logon : Do not require CTRL+ALT+DEL -> Enabled
Server Manager -> Server Summary -> Computer information -> Do not show me this console at logon -> Selected
Security Information -> Configure IE ESC -> Administrators: -> Off
Users: -> Off
Features Summary -> Add Features -> Desktop Experience -> Selected
Wireless LAN Service -> Selected
Control Panel -> System -> Advanced system settings -> Advanced -> Performance Settings -> Visual Effects -> Adjust for best appearance
Advanced -> Processor scheduling -> Programs
Date Execution Prevention -> Turn on DEP for essential Windows programs and services only
gpedit.msc -> Computer Configuration -> Administrative Templates -> System -> Display Shutdown Event Tracker -> Disabled
services.msc -> Themes -> Automatic
Windows Audio -> Automatic
HKEY_LOCAL_MACHINE -> SOFTWARE -> Microsoft -> Windows NT -> CurrentVersion -> RegisteredOwner
RegisteredOrganization

Windows 7:
Control Panel -> AutoPlay -> Use AutoPlay for all mdeia and devices -> Not selected
Notification Area Icons -> Turn system icons on or off -> Action Center -> Off
Power Options -> Balanced(recommended) -> Change plan settings -> Change advanced power settings -> Display -> Turn off display after -> Setting: Nerver(0)
Hard disk -> Turn off hard disk after -> Setting: Nerver(0) [X]WS2008R2[X]
Sleep -> Sleep after -> Setting: Nerver(0) [X]WS2008R2[X]
POWERCFG -H OFF
System -> Advanced system settings -> System Protection -> Configure -> Turn off system protection [X]WS2008R2[X]
Remote -> Allow Remote Assistance connections to this computer -> Not selected [X]WS2008R2[X]
User Accounts -> Change User Account Control settings -> Never notify
Folder Options -> View -> Advanced settings -> Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected
services.msc -> Security Center -> Disabled [X]WS2008R2[X]
Windows Defender -> Disabled
Windows Firewall -> Disabled
taskschd.msc -> Task Scheduler (Local) -> Task Scheduler Library -> Microsoft -> Windows -> Defrag -> ScheduledDefrag -> Disabled
Maintenance -> WinSAT -> Disabled [X]WS2008R2[X]

VBS Service Settings Tool


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim osselect
MsgBox "Disabled :" &Chr(10) & _
"Security Center (Windows 7)" &Chr(10) & _
"Windows Defender" &Chr(10) & _
"Windows Firewall" &Chr(10) & _
"Automatic :" &Chr(10) & _
"Themes (Windows Server 2008 R2)" &Chr(10) & _
"Windows Audio (Windows Server 2008 R2)" , 0 , "Service Setting Tool"
Do
osselect = InputBox("1 = Windows 7" &Chr(10) & _
"2 = Windows Server 2008 R2" , "Select Windows Version (0=Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = Flase
Select Case osselect
Case 0
Case 1
Return = WshShell.run("sc config wscsvc start= disabled" , 1 , True) ' %COMSPEC% /k(/c)
Call sharesetting
Case 2
Return = WshShell.run("sc config Themes start= auto" , 1 , True)
Return = WshShell.run("sc config AudioSrv start= auto" , 1 , True)
Call sharesetting
Case else
MsgBox "Error Select & Exit" , 0 , "Message"
End select

Sub sharesetting
Return = WshShell.run("sc config WinDefend start= disabled" , 1 , True)
Return = WshShell.run("sc config MpsSvc start= disabled" , 1 , True)
Exit Sub
End Sub

VBS RegisteredOwner&Organization Tool


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim RegisteredOwner , RegisteredOrganization
RegisteredOwner = InputBox("Input Registered Owner" , "Message" , "Belldandy")
RegisteredOrganization = InputBox("Input Registered Organization" , "Message" , "Syaorin")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner" , RegisteredOwner , "REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization" , RegisteredOrganization , "REG_SZ"

2009年10月31日土曜日

VMware Workstation 7 HOST&GUEST效能比較

HOST:

GUEST:


簡易心得:
VMware Workstation 7比前一版6.5.3效能增加了不少
而且還可以開啟AERO
HOST和GUEST的分數也沒差很多
可以測更多3D方面的東西了

而且也解決不少BUG
電視卡自動啟動的問題好像解決了

測試環境:
HOST:
AMD 4850e
ASUS M2NPV-VM
ADATA 2G *4
ASUS 4350
COMPRO M355
HITACHI 320G(HOST用)
WD 200G(GUEST用)
GUEST:
設定使用單核,1G記憶體,硬碟25G

HOST OS:WIN 7 X64 ULTIMATE(日文版)
GUEST OS:WIN 7 X64 ULTIMATE(英文版)

2009年10月30日金曜日

Windows 7 Unicode 補完計畫 2.50 簡易安裝法

2010/12/30 Update

1.http://uao.cpatch.org/
下載 Unicode 補完計畫 2.50
網站好像死了 改用這個
http://ftp.isu.edu.tw/pub/CPatch/patchutil/unicodeaton/unicodeaton_250.exe

2.http://www.legroom.net/
下載 Universal Extractor 用來取得 C_950.NLS
也可以改用這個 http://www.7-zip.org/
\unicodeaton_250\Backup\$SYSDIR\c_950-.nls
解開後這檔案就是我們要的 把它更名成 C_950.NLS

3.將 INSTALL.BAT 和 C_950.NLS 放在一起
然後執行 INSTALL.BAT 後重開機即可

INSTALL.BAT
TAKEOWN /F %WINDIR%\System32\C_950.NLS /A
CACLS %WINDIR%\System32\C_950.NLS /E /G Administrators:F
REN %WINDIR%\System32\C_950.NLS C_950.BAK
COPY C_950.NLS %WINDIR%\System32

這邊另外提供 VBS 版
http://heartfullmoon.blogspot.com/2009/11/unicode.html

檔案資訊:
unicodeaton_250.exe
MD5:62e2701a44dab3117b9ccf2ece299ff3
SHA1:956412ad2c74c8636119336f2113161b6c280f56

C_950.NLS
MD5:7f69955ce72ba9f187a686a637b8ffdd
SHA1:e1ebd6fec6722352dfbe4f09b707d3f47b6475f9

2009年10月28日水曜日

Windows 7 設定 Update

Control Panel -> AutoPlay -> Use AutoPlay for all mdeia and devices -> Not selected
Notification Area Icons -> Turn system icons on or off -> Action Center -> Off
System -> Advanced system settings -> System Protection -> Configure -> Turn off system protection
Remote -> Allow Remote Assistance connections to this computer -> Not selected
User Accounts -> Change User Account Control settings -> Never notify
services.msc -> Security Center -> Disabled
Windows Defender -> Disabled
Windows Firewall -> Disabled
; Windows Update -> Disabled (有些軟體安裝會用到這個服務)
Folder Options -> View -> Advanced settings -> Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected

POWERCFG -H OFF
Control Panel -> Power Options -> Balanced(recommended) -> Change plan settings -> Change advanced power settings -> Display -> Turn off display after -> Setting: Nerver(0)
Hard disk -> Turn off hard disk after -> Setting: Nerver(0)
Sleep -> Sleep after -> Setting: Nerver(0)

2009年10月27日火曜日

Windows 7 目前安裝&使用的軟體




圖片上沒版本號碼的在這邊補充:
Avira AntiVir Personal 9.0.0.407
Babylon 8.0.0 (r27) Update:Babylon 8.0.1 (r11)
CCleaner 2.24.1010
PCMan 9.1.5
Rainlendar 2.6 (b82)
The KMPlayer 2.9.4.1435
WinHex 15.4 SR-2
WinRAR 3.90

圖片上沒顯示但是有執行的程式:
Unicode 補完計畫 2.50(使用blog上的安裝法)
foobar2000 0.8.3

其它:
目前剩 Babylon 剛執行時會有個錯誤視窗 不過並不影響使用
其它使用上並沒遇到什麼問題

補充:
Babylon 的問題是禁止它連線所導致
Services -> Disable Babylon Globe -> Selected
就可以解決這問題

2009年10月24日土曜日

Windows 7 新增的快速鍵

Win+1~0:對應工作列上前10個PIN(左->右) 後面的好像不行
WIN+T:不使用滑鼠顯示預覽
Shift+Right-Click:PIN上可以跳出之前右鍵的功能

2009年10月22日木曜日

RO 修改

雙視窗:
Find:0085C07407C605******(*表示改版或更新會變動,這個蠻多組的,要改最下面的那組)
Replace:0085C0EB07C605******
Find:0085C0740E5F5EB801
Replace:0085C0EB0E5F5EB801

視野放寬:
Find:000066430000C843
Replace:0000664300000044
C843->0044

視角&不雅文字限制解除:(只有這裡不是用HEX編輯模式)
indoorrswtable.txt(把3個txt改別的副檔名,不要和txt完全一樣就可以)
manner.txt
viewpointtable.txt


未鑑定裝備顯示:
Find:74787400004E756D326974656D446573635461626C652E747874000000
Replace:747874000049644E756D326974656D446573635461626C652E74787400
Find:4E756D324974656D446973706C61794E616D655461626C652E74787400000000
Replace:49644E756D324974656D446973706C61794E616D655461626C652E7478740000


特效關閉:
Meteor%d.str(隕石)
Find:4D6574656F7225642E737472
Replace:000000000000000000000000
Lord.str(怒雷)
Find:4C6F72642E737472
Replace:0000000000000000
StormGust.str(暴風雪)
Find:53746F726D477573742E737472
Replace:00000000000000000000000000
CrashEarth.str(大地之擊)
Find:437261736845617274682E737472
Replace:0000000000000000000000000000

2009年10月20日火曜日

RO 職業配點

High Wizard : http://uniuni.dfz.jp/skill3/hwz.html?20rKdKfkeKaqafJ1x1fNax
High Priest : http://uniuni.dfz.jp/skill3/hpr.html?20gXdNsXdAhFbqroqnqEHnjScAJy
Professor : http://uniuni.dfz.jp/skill3/pro.html?20qoGNfkeKcskFaCgEkDrA1qFabdx
Soul Linker : (none)

2009年10月18日日曜日

常用管理指令整理

compmgmt.msc
gpedit.msc
secpol.msc
services.msc
taskschd.msc

圖檔連結網頁

http://www.geocities.jp/bellkna/trans-am_hp.jpg

2009年10月15日木曜日

RO 3-2 設定圖





設定圖比較好看 囧

原圖連結:
http://img.ragnarok.co.kr/Guide/img_shadowchaser.jpg
http://img.ragnarok.co.kr/Guide/img_wanderer.jpg
http://img.ragnarok.co.kr/Guide/img_sorcerer.jpg

2009年10月14日水曜日

Windows 7 設定 Update

Control Panel -> AutoPlay -> Use AutoPlay for all mdeia and devices -> Not selected
Notification Area Icons -> Turn system icons on or off -> Action Center -> Off
System -> Advanced system settings -> System Protection -> Configure -> Turn off system protection
Remote -> Allow Remote Assistance connections to this computer -> Not selected
User Accounts -> Change User Account Control settings -> Never notify
services.msc -> Security Center -> Disabled
Windows Defender -> Disabled
Windows Firewall -> Disabled
; Windows Update -> Disabled
Folder Options -> View -> Advanced settings -> Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected

POWERCFG -H OFF
Control Panel -> Power Options -> Balanced(recommended) -> Change plan settings -> Change advanced power settings -> Hard disk -> Turn off hard disk after -> Setting: Nerver(0)
Sleep -> Sleep after -> Setting: Nerver(0)

2009年10月12日月曜日

Windows 7 Folder Options 登錄檔

Folder Options -> View -> Advanced settings ->
Hidden files and folders -> Show hidden files, folders, and drives
Hide extensions for known file types -> Not selected
Hide protected operating system files (Recommended) -> Not selected
Launch folder windows in a separate process -> Selected
Show encrypted or compressed NTFS files in color -> Not selected
Use Sharing Wizard (Recommended) -> Not selected

上面這些變登錄檔就是

檔案開始
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:00000001
"HideFileExt"=dword:00000000
"ShowSuperHidden"=dword:00000001
"SeparateProcess"=dword:00000001
"ShowCompColor"=dword:00000000
"SharingWizardOn"=dword:00000000
檔案結束

這六個設定似乎XP,2003,VISTA,2008,7,2008 R2都可以使用

Windows 7 X64 上 UNICODE 補完計劃 安裝方法

補完計劃 在 Windows 7 X64 上是可以安裝使用的
方法如下
首先 你得先解開安裝程式 取出 C_950.NLS (翻一下PTT EZSOFT版就有軟體可以解)
然後 到 C:\Windows\System32 找到 C_950.NLS 這個檔案
對它按右鍵 選內容
在 Security 那邊 選 Users
接著變更它的存取權限 把它改成完全控制
這時 就可以把它改名 改成 C_950.BAK (留著以後可以改回來)
如果不能改的話 先看下面的補充改所有者


改好後 就把從補完計劃解出的C_950.NLS copy 到這目錄
然後重新開機 就可以使用了

以下是廢言
其實有想過 如果 AppLocale 配合登錄
增加一個語系 該語系使用補完計劃的NLS
這樣可以針對舊程式提供解決方案
應該也不會干擾到沒裝的人
不知道可不可行

補充:
http://www.legroom.net/
可以到這下載Universal Extractor來解出C_950.NLS

另外 如果上面權限不能更改的話
先改檔案的所有者 再改權限

2009年10月8日木曜日

Windows 7 開機硬碟修改

Win 7 不讓我的SATA直接開機 用IDE開機
所以 以下是修改法= =

BCDBOOT C:\WINDOWS /L JA-JP /S C:
這個是把開機程式裝到SATA的C
一般來說是只要改這個
這邊語系(參考下面微軟的說明)要設定和自己Win7相同的
不然你的開機畫面會變長條圖 不是美美的微軟圖(?

BOOTSECT.EXE /NT60 C:
這個是如果舊版的開機程式還在(就是你C碟裝過XP,2003之類 VISTA和Win7不需要)
用Win7(VISTA)的光碟裡的程式
把開機程式換成Win7(VISTA)系列的
要移除Win7(VISTA)的話也是靠這個指令

BCDboot的說明 http://technet.microsoft.com/zh-tw/library/dd744347(WS.10).aspx
Bootsect的說明 http://technet.microsoft.com/zh-tw/library/cc749177(WS.10).aspx