VB6.0 几个问题,高手进!!解答赠送150分!!

来源：百度知道 编辑：UC知道 时间：2024/07/01 01:50:47
1.这么判断一个exe文件是我要的那个.
名字有可能会变,也有可能会更新(不知道这样MD5会不会变)
版本信息中的 产品名称应该是唯一的
用VB这么获取这个值,或MD5值

2.我有2台电脑,内网IP假设192.168.1.2和192.168.1.3
主机是192.168.1.2 我在2台电脑上分别打开Form1和Form2
这么才可以让form1的传递一个字符串到192.168.1.3的Form2的Textbox控件中并触发Form2的command1_click事件!

回答请详细一些,我是新手可能不是很明白,如有源码最好
如果嫌分少,我可以加.大概400分左右!主要是答案要好!!!!
90°弯腰~!
不只是文件名变化
程序会不断更新

更新后的文件信息是可以获得的 但要使用API 函数
VerQueryValue GetFileVersionInfo GetFileVersionInfoSize
这三个 如果你是新手 可能弄明白不太现实啊

如果只是文件名变化 MD5 不变 我做过一个计算MD5值的东东 你要可以给你源码
数据传递
用winsock控件
主机192.168.1.2 在 form1
Private Sub Form_Load()
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "192.168.1.2"
Winsock1.RemotePort = 1234
Winsock1.SendData "opencmd1"
Winsock1.Close
End Sub
在客户机 192.168.1.3 form2 的 Winsock1_DataArrival 事件里调用 command1_click
Private Sub Form_Load()
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 1234
Winsock1.Bind
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData recdata, vbString
If recdata = "opencmd1" Then Call command1_click
End Sub

第一个：
dim content(