الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فتح الانترنت عن طريق الفيجول بيسك 6

مغلق
بدأه amaz في 15 أبريل 2007 · 9 رد · 1,241 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

حبيت أسأل اذا في كود معين عن طريق برنامج فيجول بيسك 6

اقدر عن طريقه أفتح الانترنت أو الايميل أو أشيك عالاسهم

والسؤال الاهم هل فيجول بيسك 6 ممكن يرتبط مع الانترنت مثل فيجول نت أو لأ ؟؟؟؟

أرجو المساعدة في أقرب وقت ..

وشكرا :rolleyes:

#2

ما نوع الاتصال بالانترنت يعني ايه معرفة الاسهم و الايميل ؟

يوجدد بروتوكلات عديده من بروتكولات الاتصال ( HTTP - FTTP - SMTP - .... الخ )

منها مايستخدم في خدمات البريد ومنها ما يستخدم في عرض صفحات الويب .... الخ )

حدد ما تريده ؟

بالتوفيق

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#3

أنا قصدي أنه يكون عندي زر command على الفورم

ولما أضغط على command يفتح لي الانترنت بحيث اني أقدر أفتح الايميل الخاص فيني

أو أشيك على حسابي في البنك أو أشيك على الاسهم ؟؟

ماهو الكود الخاص بهذه الفكرة ؟؟

#4

اذا كنت تقصد انه يقوم بفتح لك الـبروسر مثل الانترنت اكسبلورر على موقع معين يمكنك استخدام احدى دوال الـ API وهي ShellExecute .

وذلك عن طريق هذا الكود :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
	"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
	ByVal lpFile As String, ByVal lpParameters As String, _
	ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
x = ShellExecute(Me.hwnd, "Open", "www.msn.com", "", "", 1)
End Sub

بالتوفيق

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#5

الأخ الفاضل ...

راجع: كيف يمكنني عرض HTML Source Code لأي موقع؟

شكراً

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 5 أبريل 2008 في 18:36

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#6

مشكورين على الاكواد

:)

#7

بالتوفيق اخي / amaz

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#8

السلام عليكم هذا كود يتأكد من التصال بالنت

بس اذاكان الاتصال بواسطة سلك

أما اذا كان الاتصال بدون سلك مايطبق الكود

أرجو الاطلاع عالكود واللي يعرف اي معلومة يرد بليييييييييييييييييز

هذا هو الكود :

'هذا الكود يوضع في Moudle
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


	'هذا الكود يوضع في Form
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 ("الجهاز متصل بالانترنت")
	Else
		MsgBox ("الجهاز غير متصل بالانترنت")
	End If
End Sub
#9

راجع : كود لمعرفة إذا كان الحاسوب متصل بالإنترنت

ويعنى ايه بـ ( بسلك ) و ( بدون سلك ) , تقصد Wireless ؟

هذا الموضوع مغلق.

مواضيع مشابهة