كيف ربط صفحة ويب معينة في برنامج

أؤجو التوضيح أخي الكريم,

اخي انا بدي اعمل برنامج على الفجوال بيسك

في البرنامج فورم الرئيسي بدي احط فيه WebBrowser لعرض موقع ويب

انا بدي احط شرط في البرنامج وهوا اذا كان جهاز الكمبيوتر متصل في الانترنت يعرض الموقع

اما اذا الجهاز غير متصل في الانترنت اوريد ان يجلب صفحة مخزنة في الجهاز بدل موقع الويب

ان شاء الله يكون التوضيع واضح واذا مش واضح ارجو القول وشكرا

أنصحك أخي الكريم باستعمال طريقة أخرى لانها الَأضمن في كل الحالات

بدل من التأكد من حالة الاتصال تأكد من استجابة الموقع أولا يعني تأكد من وجوده

يمكنك مراجعة الموضوع هنا سيفيدك في هذا الجانب

بالتوفيق ان شاء الله

اخي شكرا على الرد

ولكن انا متاكد من انو الموقع موجود وشغال

انا بدي

اذا كان جهاز الكمبيوتر شابك على الانترنت يدخل على الموقع

اما اذا ما كان شابك على الانترنت يطلع صفحة ويب مخزنة في الجهاز

يأخي لما تكون الأنترنت غير موجودة فلن يجد الموقع نفس الشئ

انا معك يا اخي في هاي الشغله بس لما ما يكون الانترنت موجود يجيبلي صوره من الجهاز بدل الموقع هل يمكن

السلام عليكم

ضع الكود التالي في الموديول

'أ‌أ­ أ£أ¦أڈأ­أ¦أ،
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias _
"RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, _
lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias _
"RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type


  'أ‌أ­ أ‡أ،أ‌أ¦أ‘أ£

Public Function IsConnected() As Boolean

Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95

TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize

RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)

If RetVal <> 0 Then
MsgBox "ERROR"
Exit Function
End If

Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)

If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If

End Function

وضع الكود التالي في الفورم

Private Sub Command1_Click()
If IsConnected() = True Then
MsgBox ("متصل")
WebBrowser1.Navigate "www.nkairi.com"

Else
MsgBox ("غير متصل")
WebBrowser1.Navigate "D:\Pro\NK.html"

End If
End Sub

تحتاج زر كموند و أداة ويب براويز

اشكرا اخي ولكن بعطيني غير متصل وانا متصل في الانترنت نفس المشكله

اقتباس

اشكرا اخي ولكن بعطيني غير متصل وانا متصل في الانترنت نفس المشكله

غريب لسه مجرب الكود و يعمل بشكل صحيح

راجع هذا البرنامج فقد يفيدك

مراقبة الاتصال بالانترنيت

نفس المشكله اخي بعطيني غير متصل وانا متصل في adsl 24 ساعة مش عارف شو المشكله

بسم الله

بص انا عملتلك الكود ده ليك مخصوص و لكل الناس الحلوه فى المنتدى

اخوكم شادى محمد (ابو فرح) فى الخدمه دوماً

Shady_Project.rar

اشكرك اخي لعمل هذا المثال بس بطلعلي عند فتح المثال او تطبيقة انو الاداه مش موجوده وانا ضفت الاداه يالي مع المثال على المثال بس بطلعلي خطاء

127.0.0.0

السلام عليكم

حسن أخي أعتقد أنني فهمت ما تريد

ببساطة تريد البرنامج ينظر هل الجهاز متصل ويرى

إذاكنت متصلا يفتح الصفحة وأن لم تكن موجودة يجعل الويندوز يهتم بالامر ويأتي بصحته المعهودة والتي أظن أنها من SHELL32.DLL

وإن لم يكن متصلا يفتح صفحة كتبتها إنت مخصوص

وأنت أدرى بما تريد ولكنني بصرت بما لم يبصروا "أعتقد أنني فهمت "

يمكنك استعمال Winsock وتضع شرطك بدل الmsgbox للاخ الكريم شادي محمد هنـــــــــــــــــــــــــا

أما إذا أدرت التكملة مع دوال الapi استعمل InternetGetConnectedStateEx وهي تعيد true أو false

وأنت تعامل على هذا القانون في شرطك

ومثالها في المرفق التاني في نفس الصفحة

اشكرك اخ

micheal R jordan

على كلامك الجميل

وانا تحت الأمر

اخوك شادى محمد ( ابو فرح )

الف شكر اخوني على تعونكم الجميل والوافي وتم نجاح البرنامج

السلام عليكم

لا عليكم يا إخوان

الله في عون العبد مادام العبد في عون أخبه

سلام