技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 129|回复: 0
收起左侧

【VFB】网络(VFB教程3-5)

[复制链接]

47

主题

67

帖子

590

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
463 个
贡献
1 次
宅之契约
0 份
在线时间
19 小时
注册时间
2017-12-26
发表于 2018-2-26 23:17:21 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分,全部目录点链接。网络,FB没有提供专门的函数,只有自己写。
[Visual Basic] 纯文本查看 复制代码
if IsConnectedToInternet then print "有网" else print "无网"
有个网络库供我们用,只是遗憾没有64位的GET方法获取网页
[Visual Basic] 纯文本查看 复制代码
print  Http_Get( "http://www.yfvb.com")URL:字符串,目标域名或者IP地址+,目标页面的路径
ref:字符串,引用页面
user:字符串,用户名,如不需要则填空
pwd:字符串,密码,如不需要则填空
Post方法获取网页
[Visual Basic] 纯文本查看 复制代码
print Http_Post( "http://www.yfvb.com")
Http_Get 和 Http_Post ,都写在VFB的函数库里,我们是需要简单的调用,很遗憾不支持64位软件。网络是一个大的学科,GET 与 Post 什么不同,请自行百度,自有解释,我只管VFB可以直接读到。
2台电脑网络通信(UDP方式),同样很遗憾不支持64位软件。
[Visual Basic] 纯文本查看 复制代码
例题:
Dim Shared hSockas Any Ptr 
创建
hSock=network_UDP_Create(@xSock_UDP_Proc,6)
销毁
UDP_Destroy(hSock)
发送
network_UDP_Send Sock1,"内容","192.168.1.116",6
 回调
Sub xSock_UDP_Proc(Sock as Integer, nEvent as Integer, lpOverlapped as Any Ptr, Size as Integer, Custom as Integer)
                Sock 创建时返回的那个指针  nEvent 事件  lpOverlapped 数据指针   长度                自定
Print Sock, nEvent , lpOverlapped , Size , Custom
    Select Case nEvent
        Case IOCP_UDP_RECV '数据到达
                Dim RecvPack as ZString Ptr
                Dim RecvIP as ZString Ptr
                Dim RecvPort as UShort
                RecvPack = UDP_Read(lpOverlapped, RecvIP, RecvPort)
                '取到达数据指针与地址 [重叠地址] [IP地址] [端口]
                Print "数据到达" &  Hex(RecvPack),RecvIP,RecvPort
                If RecvPack Then
                    FF_Control_SetText( HWND_FORM1_TEXT4, *RecvPack )
                EndIf
        Case IOCP_UDP_SEND '发送成功
            Print "发送成功"
        Case IOCP_UDP_ESEND '发送失败
            Print "发送失败"
    End Select
End Sub
我们可以直接调用API,操纵每个环节,实现自己想要的。而且支持32 64 软件
[Visual Basic] 纯文本查看 复制代码
#include Once "win/winsock2.bi"   第一步要引用,放在 FF_AppStart 模块里
初始化WinSock
[Visual Basic] 纯文本查看 复制代码
  aa=doInit()
  If aa Then print "初始化 WinSock 失败!!"
分离网址与路径
[Visual Basic] 纯文本查看 复制代码
URL_FenLiYuMinLuJing( "http://www.yfvb.com/soft188.html", hostname, path,port ) '已经在函数库里
hostname="www.yfvb.com"
path="/soft188.html"
port =80
网址转换成数字IP地址
[Visual Basic] 纯文本查看 复制代码
  ip = resolveHost( hostname )
  If ( ip = 0 ) Then print "网址不能转换成IP"
打开Sock
[Visual Basic] 纯文本查看 复制代码
  Dim s As SOCKET = opensocket( AF_INET, SOCK_STREAM, IPPROTO_TCP )
  'af为协议地址族,这里我们使用IPv4,必须为AF_INET
  'type为socket类型,如果使用TCP/IP,type设为SOCK_STREAM,如果使用UDP,则为SOCK_DGRAM
  'protocol在给定的地址族及socket类型有多个入口的情况下用来限定特定的传输,对于TCP其值为IPPROTO_TCP,而UDP则为IPPROTO_UDP
  If  s = 0  Then 无法打开Sock
连接到主机
[Visual Basic] 纯文本查看 复制代码
Dim sa As sockaddr_in
  sa.sin_port        = htons( duiko )
  sa.sin_family      = AF_INET
  sa.sin_addr.S_addr = ip
  If ( connect( s, Cast( PSOCKADDR, @sa ), SizeOf( sa ) ) = SOCKET_ERROR ) Then
      reportError( "连接到主机connect()" )
      closesocket( s ) '关闭socket
      Return 1
  End If
send HTTP 请求
[Visual Basic] 纯文本查看 复制代码
  sendBuffer = "GET /" + path + " HTTP/1.0" + Chr(13,10) + _
               "Host: " + hostname + Chr(13,10) + _
               "Connection: close" + Chr(13,10) + _
               "User-Agent: GetHTTP 0.0" + Chr(13,10) + _
                 Chr(13,10)
  If ( send( s, sendBuffer, Len( sendBuffer ), 0 ) = SOCKET_ERROR ) Then
      print  "HTTP 请求失败"
      closesocket( s )
      Return 1
  End If
接收数据直到连接关闭
[AppleScript] 纯文本查看 复制代码
  Dim by(4097) As Byte
Do
  bytes = recv( s, @by(0), 4096, 0 )
  If( bytes <= 0 ) Then
      Exit Do
  End If
  recvbuffer=String(bytes,0)
  memcpy SAdd(recvbuffer),@by(0),bytes
    tob +=Left(recvbuffer,bytes)
Loop
print tob  '接收完全部数据
最后关闭
[AppleScript] 纯文本查看 复制代码
shutdown( s, 2 ) '关闭socket
closesocket( s ) '关闭socket
WSACleanup '释放
基本步够就这些,更多只能买本书慢慢啃了,因为太多了。

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2018-8-18 23:57 , Processed in 0.075434 second(s), 16 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表