Подготовте проект, добавив в него форму и модуль.
На форму поместите:
- Picture Box с именами Рисунок1 и Рисунок2
- Common Dialog с именем CommonDialog1
Добавте в модуль:
----
Public Declare Function StretchBlt Lib "gdi32" _
(ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public retval As Long
----
Добавте в форму:
----
Рисунок2.Cls
Рисунок2.Height = Рисунок1.Height
Рисунок2.Width = Рисунок1.Width
retval = StretchBlt(Рисунок2.hdc, 0, 0, Рисунок2.Width, _
Рисунок2.Height, Рисунок1.hdc, 0, 0, _
Рисунок1.Width, Рисунок1.Height, SRCCOPY)
CommonDialog1.Filter = "Рисунки| *.bmp"
CommonDialog1.ShowSave
SavePicture Рисунок2.Image, CommonDialog1.FileName
----
 | Как разовать соединение |
Для того чтобы разорвать установленное соединение используйте следующий код:
Подговте проект с формой.
На форму поместите:
- Кнопку с именем Command1
Добавте в модуль:
----
Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0&
Public Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type
Public 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
Public Declare Function RasEnumConnections Lib _
"rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _
Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long
Public gstrISPName As String
Public ReturnCode As Long
'Непосредственно код
Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As Long
Dim hRasConn As Long
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
lpcConnections)
If ReturnCode = ERROR_SUCCESS Then
For i = 0 To lpcConnections - 1
If Trim(ByteToString(lpRasConn(i).szEntryName)) _
= Trim(gstrISPName) Then
hRasConn = lpRasConn(i).hRasConn
ReturnCode = RasHangUp(ByVal hRasConn)
End If
Next i
End If
End Sub
Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function
----
Добавте в форму:
----
Private Sub Command1_Click()
Call HangUp
End Sub
----
