1.vb��ȡԴ������
2.用VB快速下载[网页源代码]
3.VB爱好者有福音，源码源代不用 WinSOCK 照样可以实现 TCP 或 UDP 多客户端通讯！下载
vb��ȡԴ������
'你把下面的码下代码保存为Form1.frm，然后双击打开该文件，源码源代运行后按提示即可看到结果。下载
'呵呵，码下android 自动点击源码够详细了，源码源代再不会我也没办法了。下载
'====文件Form1.frm====
VERSION 5.
Begin VB.Form Form1
Caption = "Form1"
ClientHeight =
ClientLeft =
ClientTop =
ClientWidth =
LinkTopic = "Form1"
ScaleHeight =
ScaleWidth =
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height =
Left =
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top =
Width =
End
Begin VB.TextBox Text1
Height =
Left =
TabIndex = 1
Text = "我的码下家"
Top =
Width =
End
Begin VB.CommandButton Command1
Caption = "获取HTML源码"
Height =
Left =
TabIndex = 0
Top =
Width =
End
Begin VB.Label Label2
Caption = "注意：获取源码之前必须先用IE打开网址，然后输入窗口标题关键字。源码源代如www..com的下载标题关键字是：我的家"
Height =
Left =
TabIndex = 4
Top =
Width =
End
Begin VB.Label Label1
Caption = "请输入IE窗口标题："
Height =
Left =
TabIndex = 3
Top =
Width =
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Function GetIeHtml(IeTitle As String) As String
Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows
Dim owin
'获取弹出的IE窗口
For Each owin In oShellAppWindows '获取弹出的IE窗口
If LCase(TypeName(owin.Document)) = "htmldocument" And _
InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口
GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码
GoTo Mend '退出
End If
Next
Mend:
Set oShellAppWindows = Nothing
Set oShellApp = Nothing
Set owin = Nothing
End Function
Private Sub Command1_Click()
Dim S As String
S = GetIeHtml(Text1.Text) '表示获得标题含有"我的家"的html代码
Text2.Text = S
End Sub
Private Sub Form_Load()
'Shell "explorer.exe ""/""", vbNormalNoFocus
End Sub
用VB快速下载[网页源代码]
后台下载
声明：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'//调用
然后在代码里直接调用：
Call URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)
如
Call URLDownloadToFile(0, "/", "c:\1.htm", 0, 0)
相当于另存为
声明：
Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long
'//调用
然后在代码里直接调用：
Dim gourl As String
AdUrl = StrConv("网页地址", vbUnicode)
Call DoFileDownload(gourl)
VB爱好者有福音，不用 WinSOCK 照样可以实现 TCP 或 UDP 多客户端通讯！码下
各位VB爱好者，源码源代大家好！下载说起使用VB编写各种小程序，码下易如反掌，非常上手。往窗体上拖几个按钮、文本框，fragment的使用源码很快就能做个像模像样的小程序，满足内心的成就感。不过，若要编写TCP/UDP网络通讯程序，VB可能不太自信。通常的做法是往窗体上拖几个WinSock控件，然后在事件上编写代码。然而，当客户端数量猛增时，新版速来源码就需要增加WinSock控件数量，操作变得繁琐。聪明的小伙伴们找到了使用数组的方法，即控件数组，但仍然受限于控件。这时，VbRichClient框架程序的出现，无需WinSock控件，更方便实现网络通讯。透明水印源码
VbRichClient是一个由VB开发的框架程序，适用于各种功能，包括网络通讯。它比WinSock稳定性更高，代码量少，且不再需要拖放控件。更重要的是，对于未知数量的服务端或客户端，只需增加类似代码，免流团队源码无需麻烦的控件数组。接下来，让我们一起了解TCP/UDP的原理和VbRichClient如何实现网络通讯。
TCP和UDP是常见的网络通讯协议。TCP建立可靠连接，通过三次握手确保数据传输的完整性。客户端和服务端间，数据以点对点方式传输，信号不会丢失。而UDP则不那么严谨，信号广播给网络中所有电脑，只有需要该信号的电脑接收，其余忽略。尽管UDP工作方式不理想，但在无法明确建立点对点连接或需要一对多或多对多通讯时，UDP发挥重要作用。
使用VbRichClient实现TCP通讯方法包括：服务端绑定IP和端口启动侦听，客户端指定服务端IP和端口绑定，然后连接服务端，建立连接后即可发送信息。服务端和客户端均能发送信息，确保通讯顺畅。实现UDP通讯时，各端点绑定本地和远程IP地址及端口，无需建立连接，自由发送消息。
VbRichClient源代码下载链接：pan.baidu.com/s/1bvJTCn... 提取码：...代码注释清晰，调试便捷。使用VbRichClient编写网络通讯程序，代码简洁，功能强大，实现了多方网络通讯，操作极为方便。下载并探索源代码，你将体验到其高效性和易用性。关于张飞、关羽和刘备的故事，可能揭示了团队管理的复杂性和领导者的重要性，但让我们回归编程的话题，享受编程的乐趣吧！
