如何在vb 中用api函数代替winsock控件建立网络连接?

原创 2001年07月12日 16:01:00

给出示例代码如下:

sendemail.frm

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   5250
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5865
   LinkTopic       =   "Form1"
   ScaleHeight     =   5250
   ScaleWidth      =   5865
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text5
      Height          =   2055
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   8
      Top             =   2880
      Width           =   4815
   End
   Begin VB.TextBox Text2
      Height          =   375
      Left            =   2040
      TabIndex        =   7
      Top             =   720
      Width           =   2535
   End
   Begin VB.CommandButton Command1
      Caption         =   "send"
      Height          =   375
      Left            =   3600
      TabIndex        =   6
      Top             =   2160
      Width           =   975
   End
   Begin VB.TextBox Text4
      Height          =   375
      Left            =   1440
      TabIndex        =   5
      Text            =   "qaymuic@wocall.com"
      Top             =   2160
      Width           =   2055
   End
   Begin VB.TextBox Text3
      Height          =   735
      Left            =   360
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1320
      Width           =   4215
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   2655
   End
   Begin VB.Label Label3
      Caption         =   "from"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   2160
      Width           =   975
   End
   Begin VB.Label Label2
      Caption         =   "to:"
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   720
      Width           =   1335
   End
   Begin VB.Label Label1
      Caption         =   "smtp server"
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function socket Lib "wsock32.dll" (ByVal af As Long, ByVal s_type As Long, ByVal protocal As Long) As Long
Private Const AF_INET = 2
Private Const SOCK_STREAM = 1
Private Declare Function closesocket Lib "wsock32.dll" (ByVal s As Long) As Long
Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wversion As Long, lpwsadata As wsadata) As Long
Private Type wsadata
wversion As Integer
whighversion As Integer
szdescription(0 To 256) As Byte
szsystemstatus(0 To 128) As Byte
imaxsockets As Integer
imaxudpdg As Integer
lpvendorinfo As Long
End Type
Dim sendok As Boolean
Dim rcptok As Boolean
Private Declare Function WSAAsyncSelect Lib "wsock32.dll" (ByVal s As Long, ByVal hwnd As Long, ByVal wmsg As Long, ByVal levent As Long) As Long
Private Const FD_READ = &H1
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Dim mailok As Boolean
Private Declare Function connect Lib "wsock32.dll" (ByVal s As Long, addr As sockaddr, ByVal namelen As Long) As Long
Private Type sockaddr
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero As String * 8
End Type
Private Declare Function gethostbyname Lib "wsock32.dll" (ByVal host_name As String) As Long
Private Type hostent
h_name As Long
h_aliases As Long
h_addrtype As Integer
h_length As Integer
h_addr_list As Long
End Type
Dim sll As Long
Private Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long) As Integer
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function send Lib "wsock32.dll" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Private Declare Function recv Lib "wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()

Dim rc As Long
Dim xxz As wsadata
Dim sck As sockaddr
mailok = False
rcptok = False
sendok = False
Text5.Text = ""
sll = 0
sck.sin_family = AF_INET
sck.sin_addr = getipaddress(Text1.Text)
sck.sin_port = htons(25)
sck.sin_zero = String(8, 0)
rc = WSAStartup(&H101, xxz)
sll = socket(AF_INET, SOCK_STREAM, 0)
rc = connect(sll, sck, Len(sck))
WSAAsyncSelect sll, Text5.hwnd, &H100, FD_READ

End Sub
Private Function getipaddress(host As String) As Long
Dim he As Long
Dim hedesthost As hostent
Dim addrlist As Long
Dim rc As Long
he = gethostbyname(host)
If he = 0 Then
MsgBox "主机名错误或网络错误!"
rc = 0
Exit Function
End If
CopyMemory hedesthost, ByVal he, Len(hedesthost)
CopyMemory addrlist, ByVal hedesthost.h_addr_list, 4
CopyMemory rc, ByVal addrlist, hedesthost.h_length
getipaddress = rc
End Function

 

Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
Dim datareceived As String
Dim datasend As String
datareceived = String$(255, Chr(0))
rc = recv(sll, datareceived, 255, 0)
If rc <= 0 Then Exit Sub
Text5.Text = Text5.Text & Left(datareceived, rc)
If Left(datareceived, 3) = "220" Then datasend = "helo " & Text4.Text & vbCrLf
If Left(datareceived, 3) = "250" And mailok = False Then
datasend = "mail from:" & Text4.Text & vbCrLf
mailok = True
ElseIf Left(datareceived, 3) = "250" And mailok = True And rcptok = False Then
datasend = "rcpt to:" & Text2.Text & vbCrLf
rcptok = True
ElseIf Left(datareceived, 3) = "250" And rcptok = True And sendok = False Then
datasend = "data" & vbCrLf
sendok = True
ElseIf Left(datareceived, 3) = "250" And sendok = True Then
Text5.Text = Text5.Text & "邮件发送成功!"
closesocket sll
WSACleanup
Exit Sub
End If
If Left(datareceived, 3) = "354" Then datasend = Text3.Text & vbCrLf & "." & vbCrLf
If Left(datareceived, 1) = "5" Then
Text5.Text = Text5.Text & "邮件发送失败!"
closesocket sll
WSACleanup
End If
rc = send(sll, ByVal datasend, Len(datasend), 0)

End Sub

 

 

vb.net中Winsock控件的使用

vb.net中Winsock控件的使用(转载) vb.net中Winsock控件的使用 以前我们在VB6.0中使用Winsock控件用于网络信息交流,现在转入VB.net 常使用Socket来...
  • zwxue
  • zwxue
  • 2014年11月05日 23:34
  • 3947

VB中WinSock控件的属性、方法、事件及应用

一、WinSock简介        Socket(套接字)最初是由加利福尼亚大学Berkeley(伯克利)分校为UNIX操作系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流...
  • u013082684
  • u013082684
  • 2015年07月29日 17:33
  • 4425

VB Winsock 控件TCP与UDP连接实例

利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似,...
  • niepangu
  • niepangu
  • 2014年10月19日 10:19
  • 2532

VB多用户Winsock控件通讯实例

有一位CSDN的朋友不明白如何利用Winsock控件进行多用户之间的网络通讯,于是俺写了一个,希望对有此方面需要的朋友有所帮助!     本代码可以同时支持多个客户端的连接、识别和通讯,主要思路...
  • u010803748
  • u010803748
  • 2016年12月28日 14:13
  • 737

【C++】Winsock套接字编程(TCP/IP协议体系)常用API

鄙人水平浅薄,如有错误,欢迎大神指正 系统环境:Windows10 64位 开发环境:VisualStudio2015 PS:关于本文提供的winsock套接字API,是针对wi...
  • shihoongbo
  • shihoongbo
  • 2016年05月24日 14:21
  • 999

基于VB Winsock 控件的聊天程序

今天充分利用网络资源,实现了局域网内的聊天程序.其实就是VB中的一个小控件-Winsock控件,Winsock使用了TCP协议和UDP协议,让本地计算机连接到远程的计算机上,在连接结束之前实时地进行数...
  • guolimin1992
  • guolimin1992
  • 2013年03月11日 08:41
  • 1544

VB调用API函数

API函数快速入门--怎样在VB中声明和使用API函数--       一、在VB中声明API函数有两种方法:如果我们只在某个窗体中使用API函数,我们可以在窗体代码的 General部分声明它: ...
  • lunkay
  • lunkay
  • 2016年01月13日 20:17
  • 4496

WinSock获得本机Ip地址

每次写网络程序都必须编写代码载入和释放winsock库,为了以后方便使用,我们将封装一个CInitSock类来管理Winsock库...
  • loveRooney
  • loveRooney
  • 2014年04月09日 21:18
  • 2281

VB中使用WMI获取系统硬件和软件有关信息

原帖地址:http://blog.csdn.net/ericbai/article/details/474308 WMI是英文Windows Management Instrum...
  • whatnamecaniuse
  • whatnamecaniuse
  • 2013年11月20日 20:40
  • 2992

Winsock API 函数大全

Winsock API 函数大全 3             本系统(WinKing)提供之 Windows So...
  • MEIYOUDAO_JIUSHIDAO
  • MEIYOUDAO_JIUSHIDAO
  • 2013年01月25日 16:11
  • 456
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何在vb 中用api函数代替winsock控件建立网络连接?
举报原因:
原因补充:

(最多只允许输入30个字)