چه گونه به وسیله برنامه ای با وی بی از اینترنت دیسکانکت شم؟

[mehdikhosravi]

سلام.
میشه یه برنامه با وی بی بگین که به وسیله آن بشه از اینترنت قطع شد؟؟

[just4froum]

بفرمایید :

Dim ConnectionName As String: ConnectionName = "Esme Connection Shoma"
Shell "cmd.exe /c rasdial " & """" & ConnectionName & """" & " /Disconnect",vbHide

[بهروز عباسی]

درود
همیشه سعی کنین از API استفاده کنین

Const RAS_MAXENTRYNAME = 256
Const RAS_MAXDEVICETYPE = 16
Const RAS_MAXDEVICENAME = 128
Const RAS_RASCONNSIZE = 412
Private Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private Sub Form_Load()
Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long
Dim lpcConnections As Long, hRasConn As Long
'Set the structure's size
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
'Enumerate all the available connections
returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)

If returncode = 0 Then
For i = 0 To lpcConnections - 1
hRasConn = lpRasConn(i).hRasConn
'Hang up
returncode = RasHangUp(ByVal hRasConn)
Next i
End If
End Sub

مو فق باشید.

[xxxxx_xxxxx]

البته همیشه سعی کنید قبل از ایجاد تاپیک، جستجو کنید:
درخواست برنامه قطع شدن از اینترنت (http://barnamenevis.org/showthread.php?153572-%D8%AF%D8%B1%D8%AE%D9%88%D8%A7%D8%B3%D8%AA-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%82%D8%B7%D8%B9-%D8%B4%D8%AF%D9%86-%D8%A7%D8%B2-%D8%A7%DB%8C%D9%86%D8%AA%D8%B1%D9%86%D8%AA)


اتصال و قطع اينترنت (http://barnamenevis.org/showthread.php?217919-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%D9%88-%D9%82%D8%B7%D8%B9-%D8%A7%D9%8A%D9%86%D8%AA%D8%B1%D9%86%D8%AA)

@mehdikhosravi
خیلی از پست ها و تاپیک های شما بر خلاف قوانین انجمن هستند. حتماً قوانین رو بخونید.