21. april 2009 - 17:16Der er
9 kommentarer og 1 løsning
Ændre Internet indstillingerne igennem firefox - er det muligt?
Hey Eksperter.
På den skole hvor jeg går, skal vi ændre proxy hver gang vi vil forbinde til internettet. Jeg bruger som standard firefox som min browser, men Windows Live Messenger forbinder igennem de indstillinger man sætter i Internet Explorer. Det betyder at jeg skal ændre indstilligner i 2 programmer hvergang jeg tager til og fra skole.
Her ligger spørgsmålet så: Er det muligt at ændre Windows Live Messenger, så den bruger indstillingerne fra FF i stedet for indstillingerne i IE?
Det er desværre ikke muligt at få Windows Live til at hente sine proxy indstillinger fra andet end IE, så vidt jeg ved...
Hvis du vil have det, kan jeg dog lave noget endnu smartere til dig ;) Et lille VB Script, som du kan have liggende på dit skrivebord, og når du trykker på det, skifter det frem og tilbage imellem ingen proxy i både FF og IE, til skolens proxy :)
Jeg kører Windows 7 betaen, ved ikke om det virker så. Men ellers har jeg også en anden bærbar, som jeg kører vista (dansk) på, så hvis det er nemmere kunne du bare lave det til den :D
Prøv at kopier følgende ind i notepad, og gem filen som proxy.vbs
Det er markeret med fed, er noget du lige skal tjekke passer helt på din maskine, og du skal muligvis ind og vælge at du kan se skjulte filer :) aqrsf53g.default er forskelligt for hver bruger af FireFox...
#8 Det var sku en lille smutter fra mig af, der er ikke forskel mellem IE7 og IE8, jeg havde dog glemt nogen " rundt om ProxyEnable, da det ikke er en variable men navnet skrevet direkte...derfor, skal det altså se sådan her ud:
firefold = "C:\Documents and Settings\Claus Codam\Application Data\Mozilla\Firefox\Profiles\aqrsf53g.default\prefs.js" fireproxy = "user_pref(" & Chr(34) & "network.proxy.type" & Chr(34) & ", 1);" ieproxy = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(firefold, 1) Set oReg=GetObject("winmgmts:!root/default:StdRegProv")
strText = objFile.ReadAll objFile.Close
Set objFile = objFSO.OpenTextFile(firefold, 2)
If InStr(strtext, fireproxy) = 0 Then objFile.WriteLine strText objFile.WriteLine fireproxy CreateValue = oReg.SetDWORDValue(&H80000001,ieproxy,"ProxyEnable",1) MsgBox("Proxy Enabled") Else strNewText = Replace(strText, fireproxy, "") objFile.WriteLine strNewText CreateValue = oReg.SetDWORDValue(&H80000001,ieproxy,"ProxyEnable",0) MsgBox("Proxy Disabled") End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
