Heh, ikke rart det ikke funker hvis du kjører koden sann.
Siden net view er ganske trieg må du legge inn litt delay for at det skal funke.
Add en timer fra 'kontroll' kolonnen på venstre side i Visual Basic (den det står 'general' over), så går du over til 'Properties' browseren på andre siden og setter følgene properties:
Enabled = False
Interval = 5000
Interval verdien angir ventetiden i millisekunder (1000ms = 1s) og du kan godt eksperementere litt med tiden hvis du synes det går for seint (eller for fort...).
Deretter kan du bruke denne koden:
Kode
Private Sub Command1_Click() 'Starter når knappen Command1 blir trykket inn
Shell "C:\jaha.bat" 'Starter Bat-fila
timer1.enabled = true 'Aktiverer timeren
End Sub
Private Sub Timer1_Timer() 'Starter når timeren når intervallen sin
Open "c:\windows\temp\netdump.txt" For Input As #1 'opner fil
Do While Not EOF(1)
Text1.Text = Text1.Text & Input(1, #1) 'leser fra fil
Loop
Close #1 'lukker fil
timer1.enabled = false 'skrur av timeren (for å forhindre en evig loop)
End Sub
Denne koden krever at du har følgene komponenter på formen din: En knapp, command1, som starter alt, en timer (den vi adda i stad) og en textbox kalt text1.
Textboxen MÅ ha 'multiline' funksjonen PÅ, dette setter du i 'properties' browseren.
, [sub er ikke definert]
