Tips'n Tricks - conexiune internet

DECLARE INTEGER InetIsOffline IN url INTEGER dwFlags
IF InetIsOffline(0) = 0
? "Merge netu'... clipoceste becu' verde."
ELSE
? "Bummer"
ENDIF

Declare Short InternetGetConnectedStateEx In wininet.dll;
Integer @ lpdwFlags,;
String @ lpszConnectionName,;
Integer dwNameLen,;
Integer dwReserved

lpdwFlags = 0
lcConnection = Replicate(Chr(0), 250)
IF InternetGetConnectedStateEx (@lpdwFlags,;
@lcConnection, Len(lcConnection), 0) = 1
? "Merge netu'... clipoceste becu' verde"
? "Acu' hai sa vedem care-i situatia:"
? "Stare modem:"
? Iif(Bittest(lpdwFlags,0), "E pe modem", "Nu e pe modem")
? Iif(Bittest(lpdwFlags,3), "Modemu' a dat ton de ocupat", "Modemu' e ok")
? "Stare LAN:"
? Iif(Bittest(lpdwFlags,1),"E pe LAN","Nu e pe LAN")
? Iif(Bittest(lpdwFlags,2),"Iese printr-un proxy","Iese direct pe net")
? Iif(Bittest(lpdwFlags,4),"RAS e instalat","")
? Iif(Bittest(lpdwFlags,5),"Conexiunea e offline","") && File/Work offline in internet explorer
? Iif(Bittest(lpdwFlags,6),"Conexiunea la internet e configurata","")
ELSE
? "Bummer."
ENDIF

Pe WIKI - cum dai ping!

Comentarii

Trimiteți un comentariu

Postări populare de pe acest blog

5Inch HDMI LCD for RPI 800x480

In order for the LCD to work ... my version Go clone from git the following git repository  LCD-show      After this, edit with your favorite text editor from console /boot/config.txt (sudo mcedit /boot/config.txt) my favorite is mc (sudo apt install mc -y) and of course, at the end of the file copy the settings from below make sure to have penirq=22 instead of penirq=25 if the touchscreen does not work   Finally for calibration if necessary do: sudo apt install -y xinput-calibrator and calibrate the screen: DISPLAY=:0.0 xinput_calibrator
Citiți mai multe

DevExpress Theme Changer ...

Original post here !  (backup purpose only) Devexpress theme changer using My.Settings to save it. 1.)Make a new form, name it whatever you would like. 2.)Reference Devexpress.BonusSkins.dll and Devexpress.OfficeSkins.dll 3.)Go to My.Settings and make a new setting with the name "Theme" with the value "Sharp" 4.)Go to your forms Designer. vb  and change the "Inherits" to DevExpress.XtraEditors.XtraForm 5.)Add 1 Button to your form and 1 ListBoxControl. Make the Text of the button "Change Theme", Make your ListBoxControl items these: Code: Caramel Money Twins Lilian The Asphalt World iMaginary Black Blue Coffee Liquid Sky London Liquid Sky Glass Oceans Stardust Xmas 2008 Blue Valentine McSkin Summer 2008 Pumpkin Dark Side Springtime Darkroom Foggy High Contrast Seven Seven Classic Sharp Sharp Plus DevExpress Style Office 2007 Blue Office 2007 Black Office 2007 Silver Office 2007 Green Office 2007 Pink Office 2010 Blue Office 2010 Black Offi
Citiți mai multe

.NET Core Dependency Injection with Func as constructor parameter

This post will be short and sweet, albeit one that caused me a bit of a headache. I recently worked on an ASP.NET Core project and I wanted to take advantage of the built-in Dependency Injection service to inject various services to the controllers. However, one of the services required a parameter in the constructor; to be more exact I was asked to create a unit of work for all the different zones that we have but the connection has to change for each region so this is the solution I came up with: The important magick is here:
Citiți mai multe