如果我知道某程序的 ue 的修改字符串(进制),如何使用vb 来写这中 替换 程序(如ue改法)的字符呢?
可否有原代码下载?
帮帮小弟,不胜感谢!!
可否有原代码下载?
帮帮小弟,不胜感谢!!
解决方案 »
- 还是问用户控件的问题
- 高分,vb如何同时从一个数据库两个表中读数数据
- 执行SQL命令时,程序失去响应的问题?求各位帮忙。
- 再VB.NET中添加引用时,为何会被告知“未能添加Console Application的引用?
- 使用DAO数据对象打开本地foxbase数据库
- 如何把一个word文件和EXE文件打包?
- 初学者的问题,我这个程序为什么不循环
- 错误捕获相关问题,高手指教
- 我写了一个小程序,用到了SSTab控件,想做个绿色软件,可到了没有SSTab控件的机器上该如何运行
- vb中为何连TextGrid这样的控件都没有?
- 请问如何在一个记录集中搜索除了一个特定记录外符合条件的记录啊?
- VB中有无移位运算符啊?
...
Dim l As Long
Dim b(1 To 6) As Byte, t(1 To 6) As Byte, i As Long, fFound As Boolean
fFound = False
i = 1
b(1) = Val("&HC7")
b(2) = Val("&H03")
b(3) = Val("&H58")
b(4) = Val("&H0")
b(5) = Val("&H0")
b(6) = Val("&H0")
l = FreeFile
Open sPath + ".tmp" For Binary As #l
MsgBox "修改系统托盘图标。这操作需要一点时间,别等得不耐心了"
Do
Get #l, i, t
i = i + 1
If ArrayCompare(t(), b()) Then
fFound = True
Exit Do
End If
Loop Until EOF(l)
If fFound Then
Put #l, i - 1 + 2, 0
Put #l, i - 1 + 22, 0
DealWithTray = True
Close #l
Else
Err.Raise 1234567
End If
...