[WaZoR.se]

Hej jag unrar om det är någon som kan något script som man kan ändra startsida i IE med, ska funka till Microsoft Visual Basic 2005 Express Edition... Hittade en grej på nätet men de ville inte funka, "CheckRegistryKey" blir bara blått understrycket <_<

Sub Form_Load()
  SetIEStartPage "http://www.hemsida.se"
End Sub

Public Sub SetIEStartPage(ByVal sPage As String) ...
Public Sub SetIEStartPage(ByVal sPage As String)
  Const HKEY_CURRENT_USER = &H80000001
  Dim sKey As String
  
  sKey = "Software\Microsoft\Internet Explorer\Main"
  
  ' om nyckeln inte finns
  If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
    ' skapa nyckeln
    CreateRegistryKey HKEY_CURRENT_USER, sKey
  End If
  
  ' sätter värdet
  SetRegistryValue HKEY_CURRENT_USER, sKey, "Start Page", sPage
  
End Sub

[WaZoR.se]

Har löst det... Kanske inte det enklaste men men.

Dim väg As String = "C:\WINDOWS\system\home.vbs"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objFileSystem, objOutputFile
objFileSystem = CreateObject("Scripting.fileSystemObject")
objOutputFile = objFileSystem.CreateTextFile(väg, True)
objOutputFile.WriteLine("Dim Shell")
objOutputFile.WriteLine("Set Shell = WScript.CreateObject(""WScript.Shell"")")
objOutputFile.WriteLine("Set oIE = CreateObject(""InternetExplorer.Application"")")
objOutputFile.WriteLine("")
objOutputFile.WriteLine("Shell.RegWrite ""HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"", """ & homepage.Text & """")
objOutputFile.WriteLine("")
objOutputFile.WriteLine("oIE.navigate Shell.RegRead(""HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"")")
objOutputFile.WriteLine("oIE.visible=1")
objOutputFile.close()

Dim WSHShell
WSHShell = CreateObject("WScript.shell")
WSHShell.Run(väg)

End Sub