Gå til innhold

Enkel Batch. Vindu og delay


Anbefalte innlegg

Hei!

 

Jeg driver og prøver meg fram med batch programmering, og lurer på et par ting.

 

Hvordan åpner man et vindu med egendefinert tekst? Altså et vanlig windows systemvindu, med en valgt tekst.

 

og

 

Hvordan lager man delay i et batch script? f. eks. i stedet for Pause kommandoen.

Lenke til kommentar
Videoannonse
Annonse

MsgBox er grei den, bare det at den maksimalt kan skriver ut 1023 tegn. Har du større tekst enn dette, bør du derfor bruke Popup egenskapen som her vist:

 

Set wshShell =CreateObject("Wscript.Shell")
For i = 1 To 1023
y = y & "."
Next
Y = y & "Ole Dole Doffen"
MsgBox y,,"TestResultat"
wshShell.Popup y,,"TestResultat"

Kjører du dette vbs-script, ser du at MsgBox bare skriver ut dem 1023 første tegn (dvs alle .) i y, mens wshShell.Popup skriver ut hele greia, fordi wshShell.Popup kan skrive ut så lang tekst som helst.

Lenke til kommentar

Skal prøve...

 

'Denne er nødvendig for at popup egenskapen skal virke, men på venstresida kan du godt sette inn et hvilket som helst navn istedet for wshShell som for eksempel marit. Da blir det også lenger nede: marit.popup y,,"TestResultat"

Set wshShell =CreateObject("Wscript.Shell")

'I loopen legger jeg inn i y 1023 prikker .

For i = 1 To 1023
y = y & "."
Next

'Her legger jeg så til dem 1023 prikkene: Ole Dole Doffen slik at y blir lenger enn 1023 tegn

Y = y & "Ole Dole Doffen"

'Skriver ut med MsgBox, men får bare ut dem 1023 første tegn i y

MsgBox y,,"TestResultat"

'Skriver ut alt i y

wshShell.Popup y,,"TestResultat"

 

Håper dette hjelper, men bare kom igjen om du vil ha mer hjelp, men vær da mer konkret med hensyn til hva du vil har gjort, så får vi se ...

Lenke til kommentar

Takk for masse bra svar og forklaring :)

 

Nå lurer jeg på hvordan jeg skriver en .vbs med en .bat fil..

 

Hittil har jeg dette:

 

@Echo off

Color a

echo Set wshShell =CreateObject("Wscript.Shell") > 123.vbs
echo set wshshell.popup y,, "min tekst"


Start C:\Users\%username%\Desktop\123.vbs

 

Men jeg får ikke puttet linje 6 inn i 123.vbs

 

Hva har jeg gjort galt??

 

:)

Endret av Hagr
Lenke til kommentar

slettFiler.vbs

 

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filspesifikasjon1)
fso.DeleteFile(filspesifikasjon2)
fso.DeleteFile(filspesifikasjon3)
etc.

En snarvei til slettFiler.vbs legger du i oppstartmappa og filspesifikasjonene må være dem nøyaktige referansene til filene som skal slettes.

Lenke til kommentar

hmm.. Det står bare at det er en feil. i tegnsettingen..

 

I teksten

 

echo Set wshShell =CreateObject("Wscript.Shell") > 123.vbs
echo set wshshell.popup y,, "min tekst" > 123.vbs

står det at det er en feil i linje 1, tegn 20 og forventet er =

Lenke til kommentar

ok.. da tror jeg at jeg fikk det til :)

 

Men er det noen måte å referere til samme målmappe som orginalfilen på?

 

men det er nok en feil i scriptet.

 

Den sier at det er en feil i linje 2 tegn 20...

 

forventet er =

Endret av Hagr
Lenke til kommentar

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å
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...