在VB中怎么用API进行简单的网络编程(TCP/IP)给个例子最好？

[awen16862]

在VB中怎么用API进行简单的网络编程(TCP/IP)？
给个例子最好

[华芸智森]

Option Explicit
Dim strCommand As String
Dim strWebPage As String

Private Sub Command1_Click()

Winsock1.RemoteHost = "202.103.176.81" '返回或设置远程计算机，控件向它发送数据或从它那里接收数据。既可提供主机名，比如 "FTP://ftp.microsoft.com"，也可提供点格式下的 IP 地址字符串，比如 "100.0.1.1"。
Winsock1.RemotePort = 80 '返回或设置要连接的远程端口号
Winsock1.Connect '返回与远程计算机的连接。


End Sub

Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生。
On Error Resume Next
strWebPage = "http://202.103.176.81/crun/yingzi007/code_1.asp"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 'GET 为FTP命令
strCommand = strCommand + "Accept: */*" + vbCrLf '这句可以不要
strCommand = strCommand + "Accept: text/html" + vbCrLf '这句可以不要
strCommand = strCommand + vbCrLf '记住一定要加上vbCrLf

Debug.Print strCommand

Winsock1.SendData strCommand ''给远程计算机发送数据

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '当新数据到达时产生该事件
On Error Resume Next '在错误处理程序结束后，恢复原有的运行
Dim webData As String
Winsock1.GetData webData, vbString '检取当前的数据块
Text1.Text = Text1.Text + webData
End Sub

[online]

用winsock控件就可以了

api很多的，如果需要，给我发mail:[e-mail]
如：
Private Sub cmdConnect_Click()

soc = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
If soc = INVALID_SOCKET Then
MsgBox "Couldn't Create Socket. Error: " & Err.LastDllError
Else
RemoteAddr.sin_family = AF_INET ' address family, internet: 2
RemoteAddr.sin_port = 5000 'htons(CLng(txtPort.Text)) ' port 7, must convert
RemoteAddr.sin_addr = GetHostByNameAlias(txtServer.Text)

'connect
dwRc = connect(soc, RemoteAddr, sockaddr_size)

If dwRc = SOCKET_ERROR Then
MsgBox "Couldn't connect to remote Socket. Error: " & Err.LastDllError
Else
cmdConnect.Enabled = False
cmdSendRecv.Enabled = True
cmdDisconnect.Enabled = True
End If

End If
End Sub

[lifat]

顶一下，我也想学学！~是用API的！

[online]

你的邮箱我发不出去
????

[Mpws]

用winsock控件就可以了,并且简单，API就相对麻烦一些了，如果真想实现特殊功能，还不如升级学VB.net，它得socket功能更强大，

[awen16862]

Public Declare Function connect Lib "Wsock32.dll" (ByVal s As Long, addr As Sockaddr, ByVal namelen As Long) As Long
Public Declare Function htons Lib "Wsock32.dll" (ByVal hostshort As Long) As Long
Public Declare Function inet_addr Lib "Wsock32.dll" (ByVal cp As String) As Long
Public Declare Function htonl Lib "Wsock32.dll" (ByVal hostlong As Long) As Long
Public Declare Function recv Lib "Wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long) As Long
Public Declare Function send Lib "Wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long) As Long
Public Declare Function Socket Lib "Wsock32.dll" (ByVal af As Long, ByVal s_type As Long, ByVal protecol As Long) As Long
Public Declare Function GetHostByNameAlias Lib "Wsock32.dll" (ByVal cp As String) As Long
Public Type Sockaddr
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero As String * 8
End Type

我的定义对吗 怎么找不到DLL入口呢?

[awen16862]

Public Declare Function connect Lib "Wsock32.dll" (ByVal s As Long, addr As SOCK_ADDR, ByVal namelen As Long) As Long
Public Declare Function htons Lib "Wsock32.dll" (ByVal hostshort As Long) As Long
Public Declare Function inet_addr Lib "Wsock32.dll" (ByVal cp As String) As Long
Public Declare Function htonl Lib "Wsock32.dll" (ByVal hostlong As Long) As Long
Public Declare Function recv Lib "Wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long) As Long
Public Declare Function send Lib "Wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long) As Long
'Public Declare Function socket Lib "ws2_32.dll" Alias "Socket" (ByVal af As Long, ByVal s_type As Long, ByVal protecol As Long) As Long
Public Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, ByVal type_specification As Long, ByVal protocol As Long) As Long
Public Declare Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequired As Integer, wsData As WSA_DATA) As Long

Public Const WSADESCRIPTION_LEN = 256
Public Const WSASYS_STATUS_LEN = 128

'Public Declare Function GetHostByNameAlias Lib "ws2_32.dll" (ByVal cp As String) As Long
Public Type IN_ADDR
S_addr As Long
End Type

Public Type SOCK_ADDR
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero As String * 8
End Type

Public Type WSA_DATA
wVersion As Integer
wHighVersion As Integer
strDescription(WSADESCRIPTION_LEN + 1) As Byte
strSystemStatus(WSASYS_STATUS_LEN + 1) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type



Const AF_INET = 2 ' internetworks: UDP, TCP, etc.
Const SOCK_RAW = 3: Const SOCK_DATAGRAM = 2: Const SOCK_STREAM = 1
Const IPPROTO_IP = 0: Const IPPROTO_TCP = 6: Const IPPROTO_UDP = 17
Const MAX_PACK_LEN = 65535
Const SOCKET_ERROR = -1&
Private mwsaData As WSA_DATA
Private Sub Command1_Click()

Dim RemoteAddr As SOCK_ADDR
Dim dwRc, soc, sockaddr_size As Long
Dim nResult As Long

'初始化对象
nResult = WSAStartup(&H202, mwsaData)
If nResult <> WSANOERROR Then
MsgBox "Error en WSAStartup"
Exit Sub
End If

soc = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
If soc = INVALID_SOCKET Then
MsgBox "Couldn't Create Socket. Error: " & Err.LastDllError
Else
RemoteAddr.sin_family = AF_INET ' address family, internet: 2
RemoteAddr.sin_port = 3331 'htons(CLng(txtPort.Text)) ' port 7, must convert
RemoteAddr.sin_addr = inet_addr("200.200.200.117")

'connect
dwRc = connect(soc, RemoteAddr, sockaddr_size)

If dwRc = SOCKET_ERROR Then
MsgBox "Couldn't connect to remote Socket. Error: " & Err.LastDllError
Else

End If

End If
End Sub
怎么就连接不上呢?

[Jockey]

我自己玩着写了个，聊天信息而已！

其实我深得用API比用winsock控件效率高得多，但winsock控件是Microsoft 封装好的，对于消息和容错等方面是专业级的，不过用API可以更深地去理解SOCKET的运作！

如果用来开发软件建议用winsock吧！毕业VB的专长不是调用低层的API！

[awen16862]

至:Jockey
你能把你的聊天那个源码我看一下吗?
我必需要API来实现通讯,因为我要把他放加在VBA中运行,所以必需.
至:Online
那你发到[e-mail]这个里吧

[intersun]

我们就用的Winsock做得即时消息程序。

[quanquan626]

我也在学，也不是很明白怎么用api
有的话发我哦
wiwian61432163.com
谢谢