skrive f.eks systeminfo i cmd med VB 6.0

[Tonickup]

er ny innen dette området og har planer om å begynne og eg lurer på en ting...

ka er koda i VB for å kunne oppne cmd (shell "cmd") og forså å skrive for eksempel ipconfig?

 

var dette vanskelig å skjønne?

[aadnk]

Dersom du kun ønsker å eksekvere kommandoen, og ikke returnere utdata i tillegg, kan du benytte følgende kode:

 

Shell "cmd /K ipconfig"
Shell "cmd /K systeminfo"

 

Men ønsker du å kunne ta hånd om den returnerte utdataen, vil det nok uheldigvis forekomme koder som ligger nokså over nybegynnerstadiet. En metode involverer nemlig blant annet API-kallet CreatePipe for å omadressere utdata til din applikasjon, men muligens er det bedre å bare la CMD ta seg av omadresseringen:

 

Shell "cmd /K ipconfig > C:\Test.tmp"

 

Etter denne kommandoen har kjørt, vil all data ipconfig returnerte ligge i filen Test.tmp på C:-partisjonen, hvilket er en smal sak for oss å laste inn. Legg først inn følgende kode i formen eller i en modul:

 

Public Function LoadData(sFile As String) As String

   Dim Free As Long
   
   ' Finn et ledig filnummer
   Free = FreeFile
   
   ' Åpne filen
   Open sFile For Binary As #Free

       ' Alloker variabel til å holde hele filen
       LoadData = Space(LOF(Free))
       
       ' Last inn data
       Get #Free, , LoadData

   ' Lukk fil
   Close #Free

End Function

 

Dernest kan du eksempelvis gjøre følgende for å lese av innholdet i den nyskapte filen:

 

MsgBox LoadData("C:\Test.tmp")

 

Det kan nok også være en fordel at du sletter filen når du er ferdig med den:

 

Kill "C:\Test.tmp"