I try to recover my local ip from network, and tryng this code, why
skip the dialog?:
Public Sub btnenviocentral_Click()
Dim ipaddr As Integer = 2
fauth = New FAuth
If fauth.ShowModal() Or Not fauth.inputcodigo Then ' if nothinhg
was input cancel an try again
Return
Else
Shell "/sbin/ifconfig| grep -w 'inet addr' | grep -v
'127.0.0.1' | cut -d: -f2| awk '{print $1}' " To ipaddr
Print ipaddr
If Comp(fauth.inputcodigo, "1234", gb.IgnoreCase) == 0 Then
Message.Info("ip: '" & ipaddr & "'")
Else
Message.Error("worng passd.")
Return
Endif
Endif
Catch
End
when executed, and imput code are same as "1234", dont print and skip
lines follow
The root account its the only that have access to ifconfig command by
security issues.. so must try using full path...
--
Lenz McKAY Gerardo (PICCORO)
http://qgqlochekone.blogspot.com
------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60135991&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
