Please be merciful. Don't delete it. Please give an example of VB operating the registry. - China DOS Union Forum

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?

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.

Floor1　zerostudy	Posted 2006-11-03 04:54
中级用户　Posts 98　Credits 266
I want to ask here if there are examples of operating the registry... just modifying, creating, and deleting these are enough..

Floor2　不得不爱	Posted 2006-11-03 05:11
超级版主　Posts 2,044　Credits 5,310　From 四川南充
The REG DELETE command can be used to delete registry key values or subkey values.

Floor3　zerostudy	Posted 2006-11-03 05:23
中级用户　Posts 98　Credits 266
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..........

Floor4　zerostudy	Posted 2006-11-03 05:25
中级用户　Posts 98　Credits 266
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"

Floor5　electronixtar	Posted 2006-11-03 06:19
铂金会员　Posts 2,672　Credits 7,493
Hey, why are there always people posting non-DOS related things in the union now?

Floor6　lxmxn	Posted 2006-11-03 06:30
版主　Posts 4,938　Credits 11,386
This section is for discussing scripting techniques. Scripts naturally include VBS, so it's okay to post here, right? =_=

Floor7　electronixtar	Posted 2006-11-03 07:21
铂金会员　Posts 2,672　Credits 7,493
Didn't find that the building owner was talking about VB?

Floor8　fastslz	Posted 2006-11-03 07:40
铂金会员　Posts 2,315　Credits 5,493　From 上海
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

Floor9　htysm	Posted 2007-02-17 09:05
高级用户　Posts 415　Credits 866
Is there also a connection between DOS and VB?

Floor10　anqing	Posted 2007-02-17 10:58
高级用户　Posts 413　Credits 859
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!

Floor11　binghuochanmian	Posted 2007-03-29 00:08
初级用户　Posts 23　Credits 55　From 广东
Oh, although the forum is called DOS Union, that's right, but this is the batch processing room, and of course VBS is included.

Floor12　zh159	Posted 2007-03-29 05:06
金牌会员　Posts 1,467　Credits 3,687
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?

Floor13　flyinspace	Posted 2007-03-29 05:21
银牌会员　Posts 517　Credits 1,206
It seems that you need to add a trigger event.