VB vs. cmd.exe .. shell...

VB vs. cmd.exe .. shell... 08.06.2004. u 15:21 · pre 272 meseca #1

Pokusacu problem ovako da predstavim.
VB kod, kojim se izvrsava neka win32 aplikacija izgleda ovako:

Code:

Dim Putanja As String
Dim z As Long
Putanja = "c:\bilosta.exe"

z = Shell(Putanja, 1)

Kako, medjutim, da iz shell-a pokrenem neki dos program?
Npr bilo bi pozeljno sa dodatnim parametrima?
Npr. da startuje cmd.exe i da izvrsi dir /w, a da prozor sa ispisom ostane otvoren i da prompt ceka narednu komandu.

Pokusavao sam dosta varijanti, guglao, ali ne ide.
Vrucina udarila u glavu.

Potpis

Volim da se vozim grackim autobusom.
Gracki autobus jede sitne pare,
gracki autobus zna kad treba stane.

Re: VB vs. cmd.exe .. shell... 09.06.2004. u 17:02 · pre 272 meseca #2

Hm... mozda nisam bio jasan, ili sam bas zahtevan u problemu.
Evo da pojednostavim jos malo.
Potrebno mi je da iz VB startujem cmd.exe, da iz VB izvrsim neku komandu u tom prozoru npr. dir, pa zatim i ver, i da cmd prozor i dalje bude otvoren.

Potpis

Volim da se vozim grackim autobusom.
Gracki autobus jede sitne pare,
gracki autobus zna kad treba stane.

Re: VB vs. cmd.exe .. shell... 09.06.2004. u 17:13 · pre 272 meseca #3

Ono sto tebi treba je SendKeys

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
    Shell "cmd.exe", vbNormalFocus
    Sleep 1000 'wait 1 sec
    SendKeys "{D}{I}{R}", True
    Sleep 1000 'wait 1 sec
    SendKeys "{ENTER}", True
End Sub

Potpis

Blue Man Group

Re: VB vs. cmd.exe .. shell... 09.06.2004. u 17:34 · pre 272 meseca #4

Npr. :

Code:

Shell "cmd.exe /k dir", vbNormalFocus

Potpis

fire, walk with me

Re: VB vs. cmd.exe .. shell... 09.06.2004. u 21:18 · pre 272 meseca #5

Ne treba da piše "exe" može i bez,isto radi.....

Code:
Shell "cmd /k dir", vbNormalFocus

Re: VB vs. cmd.exe .. shell... 09.06.2004. u 23:03 · pre 272 meseca #6

Ok. Prihvatljive su ove varijante... samo kod resenja mladenovicz-a, prozor cmd mora biti fokusiran, inace dolazi do prekida u slanju karaktera pomocu SendKeys.
Hteo sam da pitam na koji nacin pomocu SendKeys mogu da posaljem kombinaciju tastera, npr. da prikaze full screen sa ALT+ENTER?
I druga stvar, koja je razlika ako se otkuca dir i {d}{i}{r}?

Potpis

Volim da se vozim grackim autobusom.
Gracki autobus jede sitne pare,
gracki autobus zna kad treba stane.

Re: VB vs. cmd.exe .. shell... 10.06.2004. u 10:33 · pre 272 meseca #7

1) SendKeys "%{ENTER}", pogledaj SendKeys u MSDNu za vise detalja o kombinaciji tastera
2) Naravno da treba koristiti "Dir" umesto "{D}{I}{R}" :). Kad se salje string treba ga slati unutar "". {} se koriste za F1, F2, .. SPACE, ENTER, ...

Potpis

Blue Man Group

Re: VB vs. cmd.exe .. shell... 22.06.2004. u 14:28 · pre 272 meseca #8

Ja mislim da imam pametnije resenje. Upises sve naredbe u Batch file:

Code:

open "c:\test_bat.bat" for output as #1
cmd$=inputbox("Unesi komandu")
print #1, cmd$
close #1
retval=shell("c:\test_bat.bat",vbNormalFocus)

Meni radi, e sad zavisi sta ti treba...

Forum kao aplikacija na telefonu

Srodne teme