PDA

View Full Version : کمک در تشخیص اتصال کامپیوتر به اینترنت



tootro20
جمعه 20 اردیبهشت 1392, 18:17 عصر
سلام و تشکّر از انجمن خوبتون و همچنین اعضای گرامی سایت.

ببخشید من یک کمکی می خوام تو سورس که این کد یک شرطی باشه که شرط اینه که طرف به اینترنت وصل بود تایمر های بعدی اجرا بشن، تا برنامم دچار مشکل نشه.

و اینکه اگه میشه یک سورس هم قرار بدید که چطور کلیپبورد کپی کنم در text.

و یک Screen Shot بگیرم توسط تایمر.
چطور میشه که replace کرد یک فایل را؟! من از replace استفاده کردم نشد اررور داد!
ممنون میشم که کمک کنید.

تشکّر فراوان.:قلب::خجالت::بوس:

*و هیچ یک از سوالام مربوط به کتاب درسی نیست!

niko2008
چهارشنبه 25 اردیبهشت 1392, 07:10 صبح
از این روش استفاده کن

Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Command1_Click()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "vb.vov.ir"
Else
MsgBox "Connected To the Internet", vbInformation, "vb.vov.ir"
End If
End Sub