Gå til innhold

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


Anbefalte innlegg

Skrevet (endret)

Noen som vet hvordan eg kan lage et program som gjør at når eg trykker på .exe filen, åpnes en nettside med en anngitt URL addresse.

 

 

eks.

 

eg trykker på diskusjon.exe, så åpnet diskusjon.no...

 

Helst ville eg gjort slik at flere nettsider blei åpnet i samme slengen. hvordan gjøres dette?

 

EDIT: sikkert mega dårlig emnetittel, men greide ikkje formulere det bedre :)

Endret av vegis
Videoannonse
Annonse
Skrevet

OS: win XP 32 bit Pro service pack 2

 

ønsker en .exe fil ol. eg kan starte slik at flere internet sider åpner seg i standar nettleser.

 

eks.

når eg trykker på minfil.exe startes alle nettsidene som eg har i "listen" i programmet mitt :)

Skrevet

Ja, det finnes nok enklere måter. Ved å bruke enten FF eller Opera kan du bare lagre en "session" med nettsider som alltid starter når du åpner nettleseren...

Skrevet (endret)

Last ned python fra http://python.org/

 

Også lagrer du dette i en fil og kaller den f.eks diskusjon.py

 

import webbrowser

websider = ["www.hw.no", "www.vg.no", "www.gitarnorge.no"]

for side in websider:
   webbrowser.open(side)

 

Da skal alle sidene du legger i lista åpnes i standard nettleser når du klikker på fila.

Endret av FraXinuS
  • 2 uker senere...
Skrevet (endret)

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

Endret av backup
  • 8 måneder senere...
Skrevet
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]

 

 

sitter her å søker å finner denne tråden, noe alla det jeg var ute etter, er det mulig å få dette scriptet til og lukke sidene den åpner f.eks etter 5 sek ?

Skrevet

"ehh....

 

hvordan skal du klare å endre det?

er ikke akkurat bare å åpne i notepad og endre den... "

 

Jo... Du kan legge til litt brukervennlighet hvor du f.eks åpner

1.txt

2.txt

3.txt

å åpner web-browseren med den infoen fra filene...

Skrevet
sitter her å søker å finner denne tråden, noe alla det jeg var ute etter, er det mulig å få dette scriptet til og lukke sidene den åpner f.eks etter 5 sek ?

8357109[/snapback]

Det er mulig det, ja. Jeg har tatt meg den frihet til å oppdatere skriptet til å støtte dette:

Klikk for å se/fjerne innholdet nedenfor
Set Links = CreateObject("Scripting.Dictionary")

 

' * Legg inn dine lenker her *

Links.Add "http://www.vg.no", Nothing

Links.Add "http://www.aftenposten.no", Nothing

Links.Add "http://www.hardware.no", Nothing

 

' * Tid til terminering i ms *

Wait = 5000

 

' * Konfigurasjon *

BrowserWidth = 1194

BrowserHeight = 955

DeltaX = 50: DeltaY = 50

 

k = 0: m = 0

 

' Åpner alle nettsider

For Each Key In Links.Keys

 

    Set Links(Key) = CreateObject("InternetExplorer.Application")

   

    k = k + DeltaX

    m = m + DeltaY

   

    With Links(Key)

        .Top = k

        .Left = m

        .Width = BrowserWidth

        .Height = BrowserHeight

        .Navigate Key

        .Visible = True

    End With

   

Next

 

If Wait > 0 Then

 

    ' Venter i den angitte tiden

    WScript.Sleep Wait

   

    ' Avslutter alle sider

    For Each IE In Links.Items

        IE.Quit

    Next

 

End If

 

WScript.Quit

Lagre overenstående kode som Links.vbs og kjør den.

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...