中国DOS联盟

I want to ask here if there are examples of operating the registry... just modifying, creating, and deleting these are enough..

The REG DELETE command can be used to delete registry key values or subkey values.

But I want to make an interface.. Collect some registry optimizations.. Just drag the VB interface over. I'm also just getting started.. Not very good at using it... Add a button for each optimization item. Click the button for the item to be optimized to trigger the registry operation..........

I just took a look at the VBS... It's easy to write. But I don't know how to make the interface.

Restore the disabled registry\table.
set disreg=wscript.createobject("wscript.shell")
disreg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
Restore the disabled task manager
set distaskmgr=wscript.createobject("wscript.shell")
distaskmgr.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

Hey, why are there always people posting non-DOS related things in the union now?

　　This section is for discussing scripting techniques. Scripts naturally include VBS, so it's okay to post here, right? =_=

Didn't find that the building owner was talking about VB?

call SetTitle

Sub SetTitle()

Dim WSHShell

Dim MsgBox_Message_Text

Dim Title_Text

Dim Input

Title_Text = "修改IE主页为空白VBS脚本"

MsgBox_Message_Text = "小程序由实用导航页提供，功能是：" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "清除IE窗口的标题，并可设置IE主页。" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "取消执行请按。" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "输入主页的URL: 默认为空白页"

Input = InputBox(MsgBox_Message_Text,Title_Text,"about:blank")

If Input <> "" Then

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"

WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"

WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", Input

WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", Input

else

WScript.Quit

End If

End Sub

VBS has a user interface

call SetTitle

Sub SetTitle()

Dim WSHShell

Dim MsgBox_Message_Text

Dim Title_Text

Dim Input

Title_Text = "Modify IE Homepage to Blank VBS Script"

MsgBox_Message_Text = "The applet is provided by Practical Navigation Page. The function is: " + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "Clear the title of the IE window and can set the IE homepage. " + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "Press  to cancel execution. " + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "Enter the URL of the homepage: Default is blank page"

Input = InputBox(MsgBox_Message_Text, Title_Text, "about:blank")

If Input <> "" Then

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"

WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"

WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", Input

WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", Input

Else

WScript.Quit

End If

End Sub

Is there also a connection between DOS and VB?

Originally posted by fastslz at 2006-11-3 07:40:
VBS has a user interface

call SetTitle

Sub SetTitle()

Dim WSHShell

Dim MsgBox_Message_Text

Dim Title_Text

Dim Input

Title_Text = "Modify IE Home Page to Blank VBS Script"

MsgBox_Message_Tex ... 




Learned!

Oh, although the forum is called DOS Union, that's right, but this is the batch processing room, and of course VBS is included.

Originally posted by zerostudy at 2006-11-2 16:23:
But I want to make an interface..Collect some registry optimizations..VB interface just drag it over. I just started, not very good at it... Add a button for each optimization item. Click the button to trigger the operation of the registry for that item..........

1、The user's requirement is a VB interface
2、The user's requirement is that after dragging each optimization item into the VB interface, the interface adds a corresponding item button

Is there such an interface in VBS?

It seems that you need to add a trigger event.