1.vb��ȡԴ������
2.用VB快速下载[网页源代码]
3.VB爱好者有福音,源码源代不用 WinSOCK 照样可以实现 TCP 或 UDP 多客户端通讯!下载
vb��ȡԴ������
'你把下面的码下代码保存为Form1.frm,然后双击打开该文件,源码源代运行后按提示即可看到结果。下载
'呵呵,码下短期主图源码够详细了,源码源代再不会我也没办法了。下载
'====文件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编写各种小程序,码下易如反掌,非常上手。往窗体上拖几个按钮、文本框,写真画册网站源码大全很快就能做个像模像样的小程序,满足内心的成就感。不过,若要编写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编写网络通讯程序,代码简洁,功能强大,实现了多方网络通讯,操作极为方便。下载并探索源代码,你将体验到其高效性和易用性。关于张飞、关羽和刘备的故事,可能揭示了团队管理的复杂性和领导者的重要性,但让我们回归编程的话题,享受编程的乐趣吧!
2024-12-25 23:41
2024-12-25 23:24
2024-12-25 23:10
2024-12-25 22:50
2024-12-25 22:36
2024-12-25 22:26
2024-12-25 22:09
2024-12-25 21:55