batbestand in textbox

[Semafoor]

Is het mogelijk om met vb 6 een batbestand op te roepen en deze te "volgen" in een tekstbox?

Ik hoop dat het duidelijk is.. Ben alleen bang van niet.. Het moet er dus ongeveer uitzien als CMD maar het mag geen scherm van CMD weergeven..,

Ik hoop dat er iemand iets mee kan>!|

Stefan

 

[That Guy]

zover ik weet niet... wat je wel zou kunnen doen, is een batbestand openen in je prog, en dan een voor een de regels uitvoeren...

 

[Semafoor]

hoe moet je dat doen?? dan kan ik in iedergeval al een beetje verder met mijn progje..


Al bedanktz!

Stefan

 

[That Guy]

een textbox naar de locatie van je batch-bestand (bijvoorbeeld genaamd text1, met als text "C:\batbestand.bat")
een listbox die het bestand inlaad (bijvoorbeeld list1, die alles inlaad)
dan een loop die 1 voor 1 je regels afloopt en ze dan een voor een shellt.

ik zal nu even een voorbeeldje voor je knutselen.

 

[That Guy]

wel zo handig het erbij te voegen xD

noot: deze code is snel gemaakt en mag wel een beetje gefixed worden. Bovendien, let op, ik sta niet in voor de gevolgen, lol

 

[Semafoor]

Bedankt maar het is niet echt waar ik iets mee kan. Toch bedankt.

Het werkt met mijn bat bestand dat ik wil laden niet eens.. Ik krijg oneindig veel cmd schermpjes..

Bat bestand dat ik gemaakt heb:

@echo off
Title Shutdownscript uitvoeren
echo L001
shutdown -s -m \\L001 -t 25 -c Energiebesparingen
echo L002
shutdown -s -m \\L002 -t 25 -c Energiebesparingen
echo L003
shutdown -s -m \\L003 -t 25 -c Energiebesparingen
echo L004
shutdown -s -m \\L004 -t 25 -c Energiebesparingen
echo L005
shutdown -s -m \\L005 -t 25 -c Energiebesparingen
echo L006
shutdown -s -m \\L006 -t 25 -c Energiebesparingen
echo L007
shutdown -s -m \\L007 -t 25 -c Energiebesparingen
echo L008
shutdown -s -m \\L008 -t 25 -c Energiebesparingen
echo L009
shutdown -s -m \\L009 -t 25 -c Energiebesparingen
echo L010
shutdown -s -m \\L010 -t 25 -c Energiebesparingen
echo L011
shutdown -s -m \\L011 -t 25 -c Energiebesparingen
echo L012
shutdown -s -m \\L012 -t 25 -c Energiebesparingen
cls
echo Script is uitgevoerd!
Pause


Maar dan met 300 pcs (tm \\L300)

Wat doe ik fout of wat gaat er fout..

Kan je ook ipv list1 text3 gebruiken oid.. ?? Ik wil het complete bestand in een keer oproepen.. Iemand?

Groeten Stefan

 

[That Guy]

natuurlijk... maar ik dacht dat je het regel voor regel wilide volgen...

Voeg een text3 toe (zet multiline op "true"), en haal list1 weg.

verander dan deze code:

List1.AddItem (Tmpinptstr)

in deze:

Text3.Text = Text3.Text & vbCrLf & Tmpinptstr

verander dan deze code:

Private Sub Command2_Click()
    Dim iLen As Integer
    iLen = List1.ListCount - 1 'de hoeveelheid dingen in de lijst (aantal regels)
                                ' -1 want het begint bij 0 ;)
        Dim i 
       [COLOR="Red"](......haal alle command2_click code weg......)[/COLOR]
, zodat de volgende er neergezet kan worden

End Sub

in dit:

Private Sub Command2_Click()
      Dim hFile As Long
               hFile = FreeFile
               Open "C:\tempbatchbestand.bat" For Output As #hFile
                  Print #hFile, text3.text
               Close #hFile
            'nu voer je het uit
            Shell "C:\tempbatchbestand.bat", vbNormalFocus
            Kill "C:\tempbatchbestand.bat"
End Sub

dat zou moeten werken...


EDIT: als je niet wilt dat het cmd.exe/com zelf word weergeven, moet je de "vbnormalfocus" veranderen in "vbhide".

 

[Semafoor]

Dank je wel.. Weet jij toevallig ook hoe je moet aangeven dat het bat bestandje uit de programmamap gehaald moet worden?? Als je de map namelijk niet op een door mij aangegeven plaats plaatst krijg je een error 35 als ik het goed heb.

Ik heb al een paar dingen geprobeerd. Maar de werken allemaal niet . %exedir &exedir $0 Dus. In iedergeval bedankt voor dat code van hierbove!!


Stefan

 

[That Guy]

je bedoelt de speciale folders op je computer? Check deze site dan: http://www.thescarms.com/VBasic/specialfolders.aspx

 

[Semafoor]

Ow.. srry heb het al (pas) gevonden.. Gewoon \Data\batbestand.bat ingetyped en dat werkt ook...

Het werkt allemaal.. Ik ben op dit moment de laatste puntjes op de i aan het zetten..
Ik wil je erg bedanken voor het helpen.. Ik wil noch iets proberen om een actie (bat bestand) automatisch te laten starten om een bepaalde tijd.. Ik weet dat dit met een functie van Wind0ws kan maar ik wil het ook proberen i9n een programmatje.. Als dat kan tenminste..

Wanneer het af is zal ik wel een linkje plaatsen naar het eind resultaat..

Als nog heel erg bedankt..

Stefan

 

[That Guy]

Ik wil noch iets proberen om een actie (bat bestand) automatisch te laten starten om een bepaalde tijd..

dat kan je ook zelf scripten (in een programma) uitgaande ervan dat deze wel aanstaat. In windows is er "Geplande taken" wat je kan bereiken via "Start>instellingen>config-scherm>geplande taken"

Anyway, geen dank. Zet je de vraag nog ff op "opgelost" ?

 

[Semafoor]

Zal ik doen.. :thumb:

Weet jij trouwens een manier om dat te plannen?? Als je moet zoeken hoeft het niet hoor ,, Als je het toevallig weet..

Stefan

 

[That Guy]

in een vbexe? zoiets:

*voeg timer1 toe*

Private sub timer1_timer() 'ofzo, uit het hoofd
if Time = "21:00:01" then
msgbox "Volgens de pc is het " & Time & vbcrlf & "En volgens mij is het 21:00:01 xD"
end if
end sub

 

[Semafoor]

Systray

Bedankt! Ik heb iets toe gevoegd aan het programma.. Maar het werkt niet!

Ik heb toe gevoegd dat als je het minimaliseerd dat je dan een icoontje in de systray krijgt. En als je daar dan met rechts of links op klikt dat je het scherm kan restoren.. Alleen kan ej het niet restoren.. Ik heb gekeken of ik iets vreemds zag maar kan dat niet vinden Kan daar iemand misschien even naar kijken?

Groetem Stefan

ps of moet ik dit in een andere toppick voorleggen?

 

[That Guy]

Ik zie dat je de code heb geknipt en geplakt, maar ik kan de fout niet vinden

verwijder je code, en plak deze daar voor in de plaats; ik weet zeker dat deze werkt. De credits gaan naar Michael Barnathan.
source: http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=7469&lngWId=1

(de code zit in de bijlage )

 

[Semafoor]

het zal wel aan iets anders liggen want ook deze doet het niet!
Terwijl ik echt alles kopieer..

kan het aan mijn pc instellingen liggen?

 

[That Guy]

nope... stuur nu eens de code die je hebt? dan kijk ik nog wel even

 

[Semafoor]

Alles dat jij hebt toegevoegd met dat zipje en mijn zip of rar file, maar het is niet meer nodig.. Dit projectje is klaar.. :thumb:

Thanx

 

[That Guy]

np, graag gedaan

 

[Semafoor]

nog een vraagje wanneer je in text box3 een aanpassing maakt wordt die dan mee genomen in het uitvoeren van het bat bestand?? Dus als je een naam veranderd?

Stefan