Vraagje

[MoonLight]

ik gebruik deze script

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Shell("C:\WINDOWS\system32\net.exe stop client32", AppWinStyle.Hide)
End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
Shell("c:\windows\system32\net.exe start client32", AppWinStyle.Hide)
End Sub

Public Sub mnubestand_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnubestand.Popup
mnubestand_Click(eventSender, eventArgs)
End Sub
Public Sub mnubestand_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnubestand.Click
Dim Index As Short = mnubestand.GetIndex(eventSender)
End
End Sub

Public Sub mnuhelp_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuhelp.Popup
mnuhelp_Click(eventSender, eventArgs)
End Sub
Public Sub mnuhelp_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuhelp.Click
Dim Index As Short = mnuhelp.GetIndex(eventSender)
MsgBox("Copyright by Marco Huiberts", MsgBoxStyle.Information, "About")
End Sub


Alleen hij pakt hem gewoon niet. ik bedoel als netsuport aanstaat.
da gebeurt er niks, als ik dan me bat tool gebruik werkt het wel ?¿ waar licht het aan ?¿

 

[CoD_NL]

Anders gewoon het .bat bestand uitvoeren

 

[MoonLight]

hmm. was niet echt andwoord op mijn vraag

maar ik heb het andwoord al

 

[CoD_NL]

hmm. was niet echt andwoord op mijn vraag

Ik bedoelde dat je via je programma het .bat bestand moest runnen. Hoe heb je het nu opgelost ? Shellexecute api ?