lage VBscript med fler linjer i Batch

[bmwpower92]

Hei, jeg har ett lite problem som noen her sikkert klarer å hjelpe meg med.

 

jeg tror den beste måten å forklare på er ved å vise dere.

 

Dette er en kommando i en Batch fil:

 

echo MESSAGEBOX = MsgBox("ERROR" + vbcrlf + "PROGRAM IS PROTECTED", 64+0, "ERROR 317") >a.vbs&a.vbs&del a.vbs

 

den utfører ett arbeid som er å lage>kjøre>slette en vbs fil som det står dette i:

MESSAGEBOX = MsgBox("ERROR" + vbcrlf + "PROGRAM IS PROTECTED", 64+0, "ERROR 317")

 

hvordan får jeg en batch fil til å lage 2 kommandoer(linjer) i samme vbs fila?

f.eks få det til å stå dette i vbs fila

 

MESSAGEBOX = MsgBox("popup2" + vbcrlf + "popup nr 2", 64+0, "ERROR 317")

 

om dere ikke skjønner hva jeg mener kan jeg prøve å utdype det mer.

 

vil også spørre med det samme om noen vet om en vbs kommando som skifter til ett åpent vindu med fast tittel?

f.eks "Uten navn - Paint"

kommer til å spørre om dette i Visual basic forumet siden den delen egentlig ikke hører til her.

[aklla]

ganske enkelt å få batch til å skrive til flere linjer.

 

echo MESSAGEBOX = MsgBox("ERROR" + vbcrlf + "PROGRAM IS PROTECTED", 64+0, "ERROR 317") > a.vbs&a.vbs&del a.vbs

 

1 stk > da skriver den over filen.

2 stk > da skriver den i tilegg til filen.

Endret 25. mars 2009 av aklla

[bmwpower92]

skjønte egentlig ikke helt, men er mulig jeg forklarte litt dårlig.

kan skrive ett bedre eksempel.

 

kan noen hjelpe meg få bat til å lage vbs fil med dette innholdet? (4 linjer ^^)

 

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "cmd", 9

WScript.Sleep(500)

WshShell.SendKeys "123"

[aklla]

echo Set WshShell = WScript.CreateObject("WScript.Shell") > tekst.vb

echo WshShell.Run "cmd", 9 >> tekst.vb

echo WScript.Sleep(500) >> tekst.vb

echo WshShell.SendKeys "123" >> tekst.vb

[bmwpower92]

Tusen takk det forsto jeg bedre

[bmwpower92]

har ett nytt problem nå

 

@echo off
cls
echo Set WshShell = WScript.CreateObject("WScript.Shell") > stor.vbs
echo WshShell.Run "cmd", 9 >> stor.vbs
echo WScript.Sleep(500) >> stor.vbs
echo wshshell.Sendkeys "%{ENTER}" >> stor.vbs&stor.vbs
cls
exit

denne SKAL åpne ett nytt CMD vindu og trykke "alt+enter" ("%{ENTER}") og alt+enter kommandoen gjør slik at cmd vinduet blir satt til fullskjerm modus, men det virker som om den hopper over å trykke "alt".

 

mener at alt skal være riktig etter denne siden, men tror jeg gjør noe feil :S

http://www.devguru.com/Technologies/wsh/qu...l_SendKeys.html

[backup]

Alt + Enter funker vel bare for fyren bak tastaturet, men denne kan du jo prøve i vbs:

 

Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.RegWrite "HKEY_CURRENT_USER\Console\FullScreen", 1, "REG_DWORD"  
wshshell.run "cmd.exe",,1  
WshShell.RegWrite "HKEY_CURRENT_USER\Console\FullScreen", 0, "REG_DWORD"

[bmwpower92]

skal teste den, når jeg kommer hjem, skal akkurat til å dra fra noen kompiser