تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اي بي الانرنت
#1
السلام عليكم

اريد كود اي بي الانترنت
الرد }}}}
تم الشكر بواسطة:
#2
اخى العزيز

بعد إضافة الاداه microsoft winsock control 6.0 download

اكتب هذا الكود ... ارجو ان يفيدك الكود
PHP كود :
Private Sub cmdLocal_Click()
    
MsgBox Winsock1.LocalIP
End Sub 
الرد }}}}
تم الشكر بواسطة:
#3
إليك المثال المرفق للإيضاح ..

وكل عام وانتم بخير ..


الملفات المرفقة
.rar   IP Address.rar (الحجم : 1.47 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة:
#4
هذا يعطي اي بي الشبكة و ليس اتصال النت
الرد }}}}
تم الشكر بواسطة:
#5
اخى العزيز .. اليك بعض اكواد تخص الاتصال بالانترنت

اليك كود الاتصال وقطع الاتصال ومعرفة حالة الاتصال بالانترنت

PHP كود :
'اضف 3 زر امر
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long


Private Sub Command1_Click()
لكي تعرف هل انت متصل ام لا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE0Then
MsgBox 
"You're Connected!"vbInformation
End 
If

End Sub

Private Sub Command2_Click()
' لكي تتصل تلقائيا بالانترنت
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
MsgBox "You'
re Connected!", vbInformation
End If

End Sub

Private Sub Command3_Click()
'لكي تقطع الاتصال بالانترنت
If InternetAutodialHangup(0) Then
MsgBox "
You're Disconnected!", vbInformation
End If

End Sub 
الرد }}}}
تم الشكر بواسطة:
#6
كود تحديد حالة الاتصال بالانترنت
PHP كود :
'هذا الكود يوضع في 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), lglpcon)
    
    If 
RetVal <> 0 Then
        MsgBox 
"ERROR"
        
Exit Function
    
End If
    
    
Tstatus.dwSize 160
    RetVal 
RasGetConnectStatus(TRasCon(0).hRasConTstatus)
    
    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 
الرد }}}}
تم الشكر بواسطة:
#7
كود فتح وصلة انترنت فى المتصفح الافتراضي

PHP كود :
Private Sub Command1_Click()
'Replace http://www.yahoo.com with the URL you want to launch.
'
You can replace 'vbHide' with following settingsaccording to in which state
'you want to open the browser :
'
vbHide vbMaximizedFocus vbMinimizedFocus ;vbMinimizedNoFocus ;
'vbNormalFocus ; vbNormalNoFocus
RetVal = SHELL("Start.exe http://www.yahoo.com", vbHide)
End Sub 
الرد }}}}
تم الشكر بواسطة: عبدالله الصافي


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم