Tags:
visual-basic
Jeg vil gerne have internet explorers "websider du har tillid til" og "klassificerede websteder" skrevet ud i to list boxe
Til hver listbox skal der være 2 knapper med værdierne
Slet og tilføj (hvor man skal kunne slette eller tilføje værider til Internet Explorer)
Hvordan gør man det??
Alt i alt vil jeg lave et program der går ind og kontrolere om der er lavet nogle ændringer i IE "websider du har tillid til" og "klassificerede websteder" og hvis der er skal de ændres tilbage :-)
2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma
Listen over tilladte sider står i registry i
HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\policies\\Ratings\\PICSRules\\.Default\\0\\PRPolicy\
Der er alle dine data. VB er ikke lige min stærke side (har aldrig prøvet det) så koden kan jeg ikke hjælpe med.
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------
0
Jeg vil gerne have internet explorers "websider du har tillid til" og "klassificerede websteder" skrevet ud i to list boxe
-----------------------------------------------------------------
antager at du arbejder med win forms og i vb.net
så er her et eksembel på hvordan du henter værdier registryen.
så er det bare at definere hvilke nøgler du vil arbejde med
Imports Microsoft.Win32
drop et treewiew på din form og døb det tvwRegistry
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' hent bruger settings
dim companykey as registrykey=registry.CurrentUser.OpenSubKey("SOFTWARE\\\\101reasons")
dim rootnode as new TreeNode(companyKey.name)
for each productName as string in companyKey.getSubKeyNames
dim productNode as new TreeNode("Product: " & productName)
dim productKey as registrykey = companyKey.OpenSubKey(productName)
for each ValueName as string in productKey.getValueNames
dim valueNode as new TreeNode(valueName)
valueNode.Nodes.add(productKey.getValue(valueName)
productNode.Nodes.add(valuenode)
next
rootNode.Nodes.add(productNode)
productKey.Close()
next
tvwRegistry.Nodes.add(rootNode)
companyKey.Close()
End Sub
mvh Jens
[Redigeret d. 06/06-05 22:40:43 af Nauticom]