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

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

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

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

حدد ما تريده ؟

بالتوفيق

A7med_prof

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

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

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

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

اذا كنت تقصد انه يقوم بفتح لك الـبروسر مثل الانترنت اكسبلورر على موقع معين يمكنك استخدام احدى دوال الـ 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

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

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

شكراً

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

:)

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

A7med_prof

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

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

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

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

هذا هو الكود :

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

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

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

راجع

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