Myanmar IT Resource Forum
Myanmar IT Resource Forum
Myanmar IT Resource Forum

You are not connected. Please login or register

View previous topic View next topic Go down  Message [Page 1 of 1]

kyawzwathant

kyawzwathant
MITR Reader



MITR Reader
ေအာက္မွာပါတဲ့ဟာ အကုန္လံုးကို Notepad နဲ႔ကူးပါ RegisryTool.vbs ဆိုတဲ့ နာမည္နဲ႔ သိမ္းၿပီး Run ၾကည့္ပါ။
enable registry ကို disable registry ။။ disable registry ကို enable registry လုပ္ေပးႏိုင္ပါတယ္။

[You must be registered and logged in to see this link.]

Code:
Option Explicit
'Declare variables
Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle
Dim jobfunc, itemtype
On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
itemtype = "REG_DWORD"
jobfunc = "Registry Editing Tools are now "
ttl = "Result"
'reads the registry key value.
rr = WSHShell.RegRead (val)
rr2 = WSHShell.RegRead (val2)
toggle=1
If (rr=1 or rr2=1) Then toggle=0
If toggle = 1 Then
WSHShell.RegWrite val, 1, itemtype
WSHShell.RegWrite val2, 1, itemtype
Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)
Else
WSHShell.RegDelete val
WSHShell.RegDelete val2
Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)
End If

Htet Naing

Htet Naing
Moderator



Moderator
[You must be registered and logged in to see this link.] မွာတင္ထားတဲ့ စည္းကမ္းကို လိုက္နာေပးပါ။

ko htet

ko htet
MITR Reader



MITR Reader
တကယ္လားဟင္..
အဲဒါဆို ဟန္က်တာေပါ့.. [You must be registered and logged in to see this image.]
မသြားပီဗ်ိဳ႕........[You must be registered and logged in to see this image.]
THANKS..!!!!!!!!

http://deviljim.multiply.com

kyawzwathant

kyawzwathant
MITR Reader



MITR Reader
ဒါကေနာက္ တစ္နည္း

Code:
Enable Registry Editor
type in Run dialog box >

REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0


Code:
Disable Registry Editor
type in Run dialog box >

REG add HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0

Vius ေၾကာင့္ ျဖစ္တဲ့ Registry Editor ကို လိုသလို enable-disable လုပ္ႏိုင္ပါတယ္။

bosan

bosan
MITR New User



ေအးဗ်ာ မုိက္တယ္ ကုိေက်ာ္ေရ ေက်းဇူးအမ်ားႀကီးတင္ပါတယ္ . . . .
အဲဒါမ်ိဳးေလးေတြမ်ားမ်ားသာတင္ဗ်ာ [You must be registered and logged in to see this image.]

kyawzwathant

kyawzwathant
MITR Reader



MITR Reader
ထက္ႏိုင္ wrote:[You must be registered and logged in to see this link.] မွာတင္ထားတဲ့ စည္းကမ္းကို လိုက္နာေပးပါ။

ဘယ္စည္းကမ္းခ်က္နဲ႔ ၿငိလို႔လဲ ဖိုရမ္ရဲ႕ စည္းကမ္းခ်က္နဲ႔ ၿငိရင္လည္း ဘယ္အခ်က္နဲ႔ၿငိလဲဆိုတာ ေျပာပါ။
ေနာင္ျပင္ရမယ္ဆိုလည္းျပင္မယ္ေလ ဘာအေၾကာင္းျပခ်က္မွ မပါဘဲနဲ႔လည္း သတိေပးခ်က္ႀကီး အေနာက္ကေနလိုက္ေနရင္ မေကာင္းဘူးေနာ္။

ko htet

ko htet
MITR Reader



MITR Reader
ကိုေက်ာ္စြာသန္႕ က Registry ကိုေတာ္ေတာ္ ပိုင္တာဘဲေနာ္ [You must be registered and logged in to see this image.]

http://deviljim.multiply.com

Htet Naing

Htet Naing
Moderator



Moderator
kyawzwathant wrote:
ထက္ႏိုင္ wrote:[You must be registered and logged in to see this link.] မွာတင္ထားတဲ့ စည္းကမ္းကို လိုက္နာေပးပါ။

ဘယ္စည္းကမ္းခ်က္နဲ႔ ၿငိလို႔လဲ ဖိုရမ္ရဲ႕ စည္းကမ္းခ်က္နဲ႔ ၿငိရင္လည္း ဘယ္အခ်က္နဲ႔ၿငိလဲဆိုတာ ေျပာပါ။
ေနာင္ျပင္ရမယ္ဆိုလည္းျပင္မယ္ေလ ဘာအေၾကာင္းျပခ်က္မွ မပါဘဲနဲ႔လည္း သတိေပးခ်က္ႀကီး အေနာက္ကေနလိုက္ေနရင္ မေကာင္းဘူးေနာ္။
post ေတြတင္တဲ့ အခါမွာ Topic Title ရဲ ့ေဘးမွာ "[]" ဆိုၿပီး tag ေတြထည့္ေပးပါဆိုတာပါ။ အကို မသိေသးဘူးနဲ ့တူတယ္။
ဒီပို ့စ္ကိုေတာ့ ထည့္ၿပီးသြားပါၿပီ။

kyawzwathant

kyawzwathant
MITR Reader



MITR Reader
ေဆာ္ရီးေနာ္ ညီေရ
မသိဘူးအဲ့ဒါေတာ့ အမွန္တကယ္မသိဘူး ဖိုရမ္ကို လာဖတ္တာဘဲမ်ားတယ္ တင္ဖို႔ အေၾကာင္းအရာကလည္း မရွိေတာ့ ရွိတဲ့အခ်ိန္ အရင္လိုဘဲ တင္လိုက္မိတာ
တစ္ခုခုမ်ားအမွားပါသြားသလားလို႔ပါ။
စိတ္ထဲမွာ တင္ခ်င္တဲ့ေဇာတစ္ခုဘဲရွိတာ ျမန္ျမန္ေရးျမန္ျမန္တင္ရတာ
ဒီမွာ ေကာ္နက္ရွင္ကမေကာင္းဘူး အမ္ပီတီကေဒါင္းေနတယ္ ဝိုင္မက္စ္က ဝိုင္းသံုးေတာ့
မေကာင္းတဲ့ၾကားကတင္ေပးလိုက္တာ အခုရက္ပိုင္း ကိုက္ေနတဲ့ ဗိုင္းရပ္စ္ေတြကို
သတ္တဲ့အခါမွာ အသံုးဝင္တာေလးေတြပါ။

ko htet

ko htet
MITR Reader



MITR Reader
အဲဒီလို ေျပေျပ လည္လည္ ေလးရွိေတာ့ Forum အတြက္ေကာင္းတာေပါ့ ဗ်ာ..ဟီး [You must be registered and logged in to see this image.]

http://deviljim.multiply.com

bosan

bosan
MITR New User



ကုိေက်ာ္စြာသန္႔
အကူအညီေတာင္းခ်င္လုိ႔ဗ်ာ ကၽြန္ေတာ္လည္း hardware problem ထဲမွာေရးေတာ့ေရးထားတယ္
ကုိေက်ာ္စြာသန္႔ကုိ ကူညီႏုိင္မယ္ထင္လုိ႔ပါ..problem ျဖစ္ေနတာက. . . .

\\server
No network provider accepted the given network path.

အဲဒီလုိ
ျပန္ေနတယ္ဗ်ာ ကြန္နက္ရင္ေတာ့သံုးလုိ႔ရတယ္ . . ဒါေပမယ့္ share print တုိ႔
share file တုိ႔ကုိေခၚမရေတာ့ဘူး
lan driver ကုိလည္း
ျပန္ျဖဳတ္ၿပီးျပန္တင္ပီးသြားပီ. .lan ႀကိဳးကိုလည္းေျပာင္းသံုးပီးသြားပီ.
.အစဥ္မေျပဘူးဗ်ာ . . .ဘယ္လုိလုပ္ရင္
\\server ကုိျပန္ေခၚႏုိင္မလဲ

solakoko

solakoko
Moderator



Moderator

ဂြတ္တယ္ ကိုေက်ာ္ဇြာသန္ ့ေရ.
ေက်းဇူး...ဗ်ိဳ ့


bosan ေရ..
Hardware Problem ေတာ့ ဟုတ္ဘူးထင္တယ္ဗ်
က်ေနာ္ထင္တာေတာ့.. နာမည္မ်ားမွားေနသလားလို ့
Computer IP or Computer name တစ္ခုခုမွားေနသလားလို ့
ေသခ်ာခ်င္ရင္
အရင္ဆံုး Ping လုပ္ၾကည့္ေလ
Stat>Run>cmd>ping server or server IP ေပါ့
reply ရတယ္ဆိုရင္ေတာ့..
Services ေတြ ပိတ္ေနလို ့ျဖစ္မယ္ဗ်

ေနဦးသစ္

ေနဦးသစ္
MITR Reader



MITR Reader
အကိုေရ ညီေလးတခုတင္ေပးလိုက္မယ္ေနာ္ .vbs ဖိုင္ေလးကို
တင္ေပးလိုက္ပါတယ္ ေနာ္ regestry ကို လိုသလို
enable or disable
လုပ္လို့ ရပါတယ္
ေအာက္က ဖိုင္ေလးကို ကုတ္ေတြ ကို .vbs နဲ့ save ပီးေတာ့ သံုးၾကည့္ပါ



Code:
[b]'Enable/Disable Registry Editing tools
'© Mudit Goyal - rev 20/07/08

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

set WSHShell = CreateObject("Shell.Application")
WSHShell.Open "http://xp-solutions.blogspot.com/"

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Registry Editing Tools are now "

'This section tries to read the registry key value. If not present an
'error is generated.  Normal error return should be 0 if value is
'present
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for DisableRegistryTools with value 0
    WSHShell.RegWrite p, 0, itemtype
End If

'If the key is present, or was created, it is toggled
'Confirmations can be disabled by commenting out
'the two MyBox lines below

If n = 0 Then
    n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
    n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
ElseIf n = 2 then
    n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If[/b]

အဲတာေတြ လုပ္ရမွာ မလုပ္ခ်င္ဘူး အဆင္မေၿပဘူး ဆိုရင္ ေအာက္ကဖိူင္ေလးကို ေဒါင္းပီး သံုးလိုက္ပါ

[You must be registered and logged in to see this link.]



Code:
http://www.mediafire.com/?hmzojyyymogznii%20

ျပင္ဆင္ျခင္း(ET)

ET

ET
Moderator



Moderator
ကိုေနဦးသစ္ေရ
Code ေတြနဲ႕ လင့္ေတြကို
ဖိုရမ္မွာစည္းကမ္းခ်က္အတိုင္း တင္ေပးပါ ခင္ဗ်ာ

http://alinkarnya.blogspot.com/

Sponsored content


View previous topic View next topic Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum

 

Forum free | ©phpBB | Free forum support | Report an abuse | Cookies | Forumotion.com