16. august 2006 - 13:13Der er
28 kommentarer og 1 løsning
Script som konfigurer proxy indstillinger i firefox
Hejsa
Jeg ville høre hvordan man kunne lave et vbs script, som skiftede mellem dirkete forbindelse og proxy forbindelse i firefox. Jeg har et til internet explorer, men hvordan er dette muligt med firefox.
Dim oShell Set oShell = CreateObject ("WSCript.shell") Dim path
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("test.txt",1) alllines = f.ReadAll f.Close Set f = fso.OpenTextFile("test.txt",2) f.Write Replace(alllines,"4", "4" + vbcrlf + "4A") f.close Set f = Nothing Set fso = Nothing
Nedenståede kode har jeg i asd.vbs, men den skriver ikke noget til en fil som indeholder: A B C D E
Dim oShell Set oShell = CreateObject ("WSCript.shell") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("test.txt",1) alllines = f.ReadAll f.Close Set f = fso.OpenTextFile("test.txt",2) f.Write Replace(alllines,"4", "4" + vbcrlf + "4A") f.close Set f = Nothing Set fso = Nothing msgbox "Til", vbInformation
Dim oShell Set oShell = CreateObject ("WSCript.shell") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\Documents and Settings\WooX\Application Data\Mozilla\Firefox\Profiles\x84obmvs.default\prejs.js",1) alllines = f.ReadAll f.Close Set f = fso.OpenTextFile("C:\Documents and Settings\WooX\Application Data\Mozilla\Firefox\Profiles\x84obmvs.default\prejs.js",2) f.Write Replace(alllines,'user_pref("network.proxy.ssl_port", 8080);', 'user_pref("network.proxy.ssl_port", 8080);' + vbcrlf + 'user_pref("network.proxy.type", 1);') f.close Set f = Nothing Set fso = Nothing msgbox "Til", vbInformation
Efter hvad jeg kan se virker det, men venter lige til at har været i skole i morgen for at teste. Den kode jeg gav i selve spørgsmålet, kan den så bare smide ind efter den nhye kode også gør den det for både firefox og internet explorer
Denne linje optræder 2 gange: Set f = fso.OpenTextFile("C:\Documents and Settings\WooX\Application Data\Mozilla\Firefox\Profiles\x84obmvs.default\prefs.js",2)
Blot med 1 i stedet for 2, et dette nødvendigt, kan man evt lave så det kun skal skrives et sted også selv henter ud via envariabel med navnet sti?
jeg har lige et spørgsmål mere. Hvordan kan jeg lave så:
user = "WooX" id = "x84obmvs.default" sti = "C:\Documents and Settings\xxxx\Application Data\Mozilla\Firefox\Profiles\xxxx\prefs.js" Set f = fso.OpenTextFile(sti",2)
user = "WooX" id = "x84obmvs.default" sti = "C:\Documents and Settings\" & user & "\Application Data\Mozilla\Firefox\Profiles\" & id & "\prefs.js" Set f = fso.OpenTextFile(sti",2)
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.
