en ".exe" fil skal kjøre en webside.

[kyrsjo]

Her du et vbs script du kan tilpasse. Lim det inn i notepad, og lagre det som test.vbs. Dobbelklikk ikonet til test.vbs, og tre aviser får du på skjerma i IE. I arrayet ar, sett inn dine egne adresser og legg til eller ta bort eventuelle elementer i ar.

Skal du f.eks. ha 5 elementer, setter du: Dim ar(4), bare to elementer betyr: Dim ar(1) etc.

 

Dim ar(2)
ar(0) = "www.vg.no"
ar(1) = "www.aftenposten.no"
ar(2) = "www.dagbladet.no"
k = 0: m = 0
For i = 0 To ubound(ar) - 1
set ie = createobject("internetexplorer.application")
ie.top = k
k = k + 50
ie.left = m
m = m+50
ie.width = 1194
ie.height = 955
ie.navigate ar(i)
ie.visible = True
next
wscript.quit

6451636[/snapback]

 

Hmm... Hva er fordelen med denne (ørti ikke-særlig-lesbare-linjer med VB (urk.) (og jeg kan språket... (urk)) ), framfor python-biten, som var forståelig ved å lese igjennom en enkelt gang, og antagelig funker med "whatever du har satt som standard nettleser", ikke bare IE...

 

hvis du sier hvilke sider du skal ha kan jeg lage en .exe fil...

6452910[/snapback]

 

Urk.

[j000rn]

Hmm... Hva er fordelen med denne (ørti ikke-særlig-lesbare-linjer med VB (urk.) (og jeg kan språket... (urk)) ), framfor python-biten, som var forståelig ved å lese igjennom en enkelt gang, og antagelig funker med "whatever du har satt som standard nettleser", ikke bare IE...

8838489[/snapback]

 

To fordeler:

1) Slipper å laste ned Python

2) Kan kontrollere IE, ikke bare starte slik som eksempelet ditt i Python.

 

Btw, Python eksempelet ditt kan gjøres like enkelt i VBScript;

set shell=CreateObject("Wscript.Shell") 
websider = "www.hw.no,www.vg.no,www.gitarnorge.no"
for each side in Split(websider,",")
  shell.Run("http://" & side)

[aadnk]

Btw, Python eksempelet ditt kan gjøres like enkelt i VBScript;

Du glemte å avslutte FOR-løkken med Next. I tillegg er det IMO bedre å "deklarere" en Array (går egentlig via ParamArray til en delt funksjon som returner en Variant, men dette er tross alt VBScript) enn å bruke Split():

Set oShell = CreateObject("Wscript.Shell")

 

Websider = Array("www.hw.no", "www.vg.no", "www.gitarnorge.no")

 

For Each Side In Websider

    oShell.Run "http://" & Side

Next