Home » Tag » hidden fire

รวมทุกเรื่องเกี่ยวกับ  hidden fire

การเปิดปิดการซ่อนไฟล์และโฟลเดอร์ เป็นสิ่งที่บางครั้งที่ผู้ใช้ จำเป็นต้องทำ ซึ่งการทำอาจไม่ยากเท่าไร แต่การที่จะต้องเข้าไปเปิดการซ่อนไฟล์ แล้วก็ต้องไปปิดอีกที่ มันก็เป็นงานที่ต้องใช้เวลาและขั้นตอน ทิปนี้จะจับเอาการเปิดปิดให้มาอยู่ที่ไฟล์ Script ไฟล์เดียว เพื่อความสะดวก ทำได้โดยมี? VBScript ดังนี้... 1. สร้างไฟล์ Script โดยเปิด Notepad ขึ้นมา แล้วก็อปปี้คำสั่ง? VBScript ข้างล่างนี้ไปปะที่ Notepad Message = "เมื่อทำงานถูกต้อง สคริปต์จะปิดตัวเอง" & vbCR Message = Message & "พร้อมทั้งหน้าต่าง Windows Explorer " & vbCR Message = Message & "การกระทำนี้จะไม่เป็นอันตรายต่อระบบคุณ" & vbCR & vbCR Message = Message & "จะทำต่อหรือไม่?" X = MsgBox(Message, vbYesNo, "Notice") If X = 6 Then On Error Resume Next On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" itemtype = "REG_DWORD" n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 1 then WSHShell.RegWrite p, 2, itemtype End If If n = 2 Then WshShell.RegWrite p, 1, itemtype MyBox = MsgBox("ไฟล์และโฟลเดอร์ที่ซ่อนได้ทำการโชว์แล้ว", 64, "ซ่อนไฟล์และโฟลเดอร์") End If If n = 1 Then WshShell.Regwrite p, 2, itemtype MyBox = MsgBox("ทำการซ่อนไฟล์และโฟลเดอร์เหมื่อนเดิม", 64, "ซ่อนไฟล์และโฟลเดอร์") End If Set WshShell = Nothing On Error GoTo 0 For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next MsgBox "เสร็จเรียบร้อย" & vbcr & vbcr , 4096, "Done" Else MsgBox "ไม่มีการเปลี่ยนแปลงใดๆ กับระบบของคุณ" & vbcr & vbcr, 4096, "ผู้ใช้ขอยกเลิก" End If 2. บันทึกไฟล์นี้เป็นชื่อ Enable_Disable_Hidden.vbs 3. เมื่อใช้งานครั้งแรกเพื่อจะเปิดให้เห็นไฟล์หรือโฟลเดอร์ที่ซ่อนก็ดับเบิลคลิกที่ไฟล์สร้างขึ้นมา จะมีหน้าต่าง Notice เปิดขึ้นมา ให้คลิกปุ่ม Yes

บทความที่เกี่ยวข้อง


© Copyright - Notebookspec.com All Rights