I want to ask here if there are examples of operating the registry... just modifying, creating, and deleting these are enough..
China DOS Union
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » Please be merciful. Don't delete it. Please give an example of VB operating the registry.
View 1,414 Replies 12
Original Poster
Posted 2006-11-03 04:54 · 中国 广东 河源 电信
Floor 2
Posted 2006-11-03 05:11 · 中国 四川 南充 电信
超级版主
★★★★
我爱DOS
Credits 5,310
Posts 2,044
Joined 2005-09-26 12:00
20-year member
UID 42843
Gender Male
From 四川南充
Posts 2,044
Joined 2005-09-26 12:00
20-year member
UID 42843
Gender Male
From 四川南充
Status Offline
The REG DELETE command can be used to delete registry key values or subkey values.
Floor 3
Posted 2006-11-03 05:23 · 中国 广东 河源 电信
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..........
Floor 4
Posted 2006-11-03 05:25 · 中国 广东 河源 电信
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"
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"
Floor 5
Posted 2006-11-03 06:19 · 中国 四川 成都 教育网
Hey, why are there always people posting non-DOS related things in the union now?
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
Floor 6
Posted 2006-11-03 06:30 · 中国 湖北 武汉 电信
版主
★★★★★
Credits 11,386
Posts 4,938
Joined 2006-07-23 17:10
20-year member
UID 59080
Posts 4,938
Joined 2006-07-23 17:10
20-year member
UID 59080
Status Offline
This section is for discussing scripting techniques. Scripts naturally include VBS, so it's okay to post here, right? =_=
Floor 7
Posted 2006-11-03 07:21 · 中国 四川 成都 教育网
Didn't find that the building owner was talking about VB?
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
Floor 8
Posted 2006-11-03 07:40 · 中国 上海 松江区 电信
铂金会员
★★★★
DOS一根葱
Credits 5,493
Posts 2,315
Joined 2006-05-01 10:41
20-year member
UID 54766
Gender Male
From 上海
Posts 2,315
Joined 2006-05-01 10:41
20-year member
UID 54766
Gender Male
From 上海
Status Offline
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
Floor 9
Posted 2007-02-17 09:05 · 中国 安徽 芜湖 电信
Is there also a connection between DOS and VB?
Floor 10
Posted 2007-02-17 10:58 · 中国 吉林 四平 联通
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!
Floor 11
Posted 2007-03-29 00:08 · 中国 广东 广州 天河区 电信
Oh, although the forum is called DOS Union, that's right, but this is the batch processing room, and of course VBS is included.
Floor 12
Posted 2007-03-29 05:06 · 中国 广西 玉林 博白县 电信
金牌会员
★★★★
Credits 3,687
Posts 1,467
Joined 2005-08-08 12:00
20-year member
UID 44210
Posts 1,467
Joined 2005-08-08 12:00
20-year member
UID 44210
Status Offline
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?
Floor 13
Posted 2007-03-29 05:21 · 中国 广东 广州 海珠区 电信
It seems that you need to add a trigger event.
Forum Jump: