Pokusao sam da uradim ovo sto si rekao.
Datoteku ras32api.dll nisam nasao nigde na sistemu, tako da taj deo izgleda nisam najbolje razumeo :-(.
Pozivanje rasdial.exe sa odgovarajucim switchevima radi ali deluje mnogo DOS-ovski :-) [tj. konzolno]. Ne pomaze ni
Code:
myProc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
uvek izadje crni ekran. Voleo bih da ovo resim malo elegantnije, npr. da sve ide preko standardnih dial-up dijaloga, kao kad se radi rucno, ili da sve bude potpuno nevidljivo.
Ovo sto sam napisao radi ali kod disconnect-a iritira crni ekran:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("c:windows\system32\rasphone.exe")
'Ovo je jaka stvar, moze da se odabere konekcija i samo se ugasi kad se konektuje
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim g As New Process
g.StartInfo.FileName = "c:\windows\system32\rasdial.exe"
g.StartInfo.Arguments = "/disconnect"
g.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
g.Start()
End Sub
Da li bih kod disconnect-a mogao da se "dokopam" one forme koju dobijem kad kliknem na konekciju u notification area?
Pozdrav
"None may challenge the Brotherhood!"
Edwin VanCleef <Defias Kingpin>