مشکل دستور FileCopy و مشکل چک کردن وضعیت اینترنت

[MiladMR]

سلام
من یه برنامه با ویژوال بیسیک نوشتم ولی 2تا مشکل دارم
اول اینکه میخوام وضعیت اتصال به اینترنت رو توش چک کنم ... که اگه دیس کانکت بود ارور بده
و دوم اینکه یه دستور FileCopy نوشتم ولی ارور شماره 70 (permission denied) میده
با FileCopy میخوام فایل MSINET.OCX رو توی system32 windows کپی کنم...
چرا اینجوری میشه .؟.

[alimanam]

با سلام

جواب سوال اول ( البته راه های دیگه ایی هم داره اما این یکی خیلی شسته و رفته تره )

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.Network.IsAvailable Then
MsgBox("Connected !")
Else
MsgBox("Disconnect !")
End If
End Sub

جواب سوال دوم :

به احتمال 101 درصد از سیستم عامل 7 یا زبونم لال ویستا داری استفاده میکنی . سطح دسترسی کاربر ( دراینجا منظورم از کاربر با خودته عزیز ) واسه همچین کاری وجود نداره :اشتباه:

راه حل اول :

روی فایل اجرایی راست کلیک بعد از منوی باز شده Run As Admin رو انتخاب کن . برای اینکه این کار رو هم انجام ندی باید در تنظیمات کنترل پانل تغییراتی بدی :

Control Panel\All Control Panel Items\User Accounts به این مسیر برو و روی گزینه Change User Accounts Control Settings کلیک کن در پنجره ایی که باز میشه سطح دسترسی تنظیم کن ( اگه میخوای به صورت کلی هیچ ایرادی نگیره باید در پایین ترین قسمت تنظیم بشه )

راه دوم :

باید برای فایل اجرایی خودت یه فایل xml تنظیم کنی . توضیحات تکمیلی این روش رو اینجا (http://www.developerfusion.com/code/7987/making-a-net-app-run-on-vista-with-administrator-priviledges/) مطالعه کن .

موفق باشید ./

[MiladMR]

tnx ali:قلب:

[Navid Asadi]

در مورد اینترنت من بارها گفتم که این کد وضعیت اتصال به شبکه رو بررسی میکنه که این شبکه لزوما اینترنت نیست...
من خیلی گشتم راهی نیافتم...
اگه کسی راهی بلده بکمکه!

[alimanam]

خیلی سخت میگیری اما اینم جواب :

Private Function IsConnectionAvailable() As Boolean
Dim url As New System.Uri("http://www.google.com/")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
resp.Close()
req = Nothing
Return True
Catch ex As Exception
req = Nothing
Return False
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If IsConnectionAvailable() Then
MsgBox("Connected !")
Else
MsgBox("Disconnect !")
End If
End Sub

موفق باشید ./

[mohsencom]

خیلی سخت میگیری اما اینم جواب :

Private Function IsConnectionAvailable() As Boolean
Dim url As New System.Uri("http://www.google.com/")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
resp.Close()
req = Nothing
Return True
Catch ex As Exception
req = Nothing
Return False
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If IsConnectionAvailable() Then
MsgBox("Connected !")
Else
MsgBox("Disconnect !")
End If
End Sub

موفق باشید ./

بسیار عالی بود...لطفا اگه میتونید کد دیسکانکت شدن رو هم بذارید....من هرچی تو انجمن گشتم فقط کد مربوط به dialup رو دیدم که در مورد ADSL کاربرد نداشت...و تمامی سوال های مربوط به دیسکانکت شدن ADSL بی جواب بود.ممنون

[Navid Asadi]

عاشق این جور دور زدن ها هستم!
دمت گرم