网络编程

2003-11-12 05:07:38 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VBA语言的网络编程 VBA是一种基于Visual Basic的编程语言，被广泛应用于Microsoft Office应用程序中。它允许用户通过编写宏来自动化任务，进行数据处理，创建自定义的用户界面等。VBA具有语法简单、易于上手的特点，适合于业务人员和数据分析师使用。VBA语言作为一种简易的编程语言，在网络编程领域同样具有其独特的价值。通过对VBA的网络编程掌握，用户能够在日常办公中更为高效地处理网络数据，实现自动化工作流程。尽管VBA在网络编程上存在一些限制，但通过合理的利用与扩展，完全可以满足基本的网络数据交互需求。阅读详情

请问各位大虾:

1. 我如何能得到LAN中的一台主机的网络卡的MAC地址,IP地址,用户名称,机器名称

,当LAN中有一台主机更改了IP地址时,我能探测的到.

2.向"金山词霸"的屏幕取词是如何实现的.

3.我的软件给用户一个使用期限,可以用注册表来限制,但不安全,听说可以用DLL来控制,不知道该如何实现

先谢谢各位大虾

...全文

利用Python暴力破解邻居家WiFi密码如觉得博主文章写的不错或对你有所帮助的话，还望大家多多支持呀！阅读详情

rocketliu8899

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

rocketliu8899 2003-11-13

打赏
举报

谢谢你, 3661512

1.对于问题3,能详细一点吗,最好有一个例子,

2.问题1,我知道WIN2000有自带的命令NBTSTAT,但如果是自己写,该如何写呢?

3661512 2003-11-12

打赏
举报

3.我的软件给用户一个使用期限,可以用注册表来限制,但不安全,听说可以用DLL来控制,不知道该如何实现

DLL和EXE文件之间互相检查对方的完成性,如果不完整,程序就无法运行.

1. 我如何能得到LAN中的一台主机的网络卡的MAC地址,IP地址,用户名称,机器名称

,当LAN中有一台主机更改了IP地址时,我能探测的到.

WIN2000自带的命令行就可以办到了

3661512 2003-11-12

打赏
举报

一个取词的例子
一个richtextbox，两个label
代码如下：

Option Explicit
Private Const EM_CHARFROMPOS& = &HD7
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVa
l hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As
Long
' Return the word the mouse is over.
Public Function RichWordOver(rtf As RichTextBox, X As Single, Y As Single) A
s String
Dim pt As POINTAPI
Dim pos As Integer
Dim start_pos As Integer
Dim end_pos As Integer
Dim ch As String
Dim txt As String
Dim txtlen As Integer
' 把位置坐标转换为像素.
pt.X = X \ Screen.TwipsPerPixelX
pt.Y = Y \ Screen.TwipsPerPixelY
' Get the character number
pos = SendMessage(rtf.hWnd, EM_CHARFROMPOS, 0&, pt)
If pos <= 0 Then Exit Function
'查找单词的开始位置.
txt = rtf.Text
For start_pos = pos To 1 Step -1
ch = Mid$(rtf.Text, start_pos, 1)
' 允许数字,字母,下划线
If Not ( _
(ch >= "0" And ch <= "9") Or _
(ch >= "a" And ch <= "z") Or _
(ch >= "A" And ch <= "Z") Or _
ch = "_" _
) Then Exit For
Next start_pos
start_pos = start_pos + 1
'查找单词的结尾
txtlen = Len(txt)
For end_pos = pos To txtlen
ch = Mid$(txt, end_pos, 1)
' 允许数字,字母,下划线
If Not ( _
(ch >= "0" And ch <= "9") Or _
(ch >= "a" And ch <= "z") Or _
(ch >= "A" And ch <= "Z") Or _
ch = "_" _
) Then Exit For
Next end_pos
end_pos = end_pos - 1
If start_pos <= end_pos Then _
RichWordOver = Mid$(txt, start_pos, end_pos - start_pos + 1)
End Function
Private Sub Form_Load()
rtfTest.Text = "Welcome to use source code provided by Alp Studio" & _
vbCrLf & vbCrLf & "This example program is provided as is with no wa
rranty of any kind" & _
vbCrLf & vbCrLf & "Send the control the EM_CHARFROMPOS message to ma
ke it return the character closest to the mouse position." & _
vbCrLf & vbCrLf & "http://dropwater.163.net"
End Sub
Private Sub rtftest_MouseMove(Button As Integer, Shift As Integer, X As Sing
le, Y As Single)
Dim txt As String
txt = RichWordOver(rtfTest, X, Y)
If lblCurrentWord.Caption <> txt Then _
lblCurrentWord.Caption = txt
End Sub

鼠标屏幕取词技术的原理和实现
http://ttcode.51.net/jishu/delphi/delphi%20(29).htm

网络编程

相关推荐