- \n
- \n
\u6570\u636e\u6587\u4ef6
\u4e00\u822c\u901a\u8fbe\u4fe1\u7684\u80a1\u7968\u4ee3\u7801\u6587\u4ef6\uff0c\u4f4d\u4e8e\"\u901a\u8fbe\u4fe1\u8f6f\u4ef6\u7684\u5b89\u88c5\u76ee\u5f55\/T0002\/hq_cache\/\"\u4e0b\u3002\u7531 shm.tnf \u6caa\u5e02\u80a1\u7968\u4fe1\u606f\u548c szm.tnf\u6df1\u5e02\u80a1\u7968\u4fe1\u606f \u4e24\u4e2a\u6587\u4ef6\u3002\u5176\u4e2d\u5305\u62ec\u4e86\u5728\u76f8\u5e94\u5e02\u573a\u4e0a\u7684\u6240\u6709\u4ea4\u6613\u4ea7\u54c1\u7684\u4ee3\u7801\u548c\u540d\u79f0\uff08\u80a1\u7968AB\uff0c\u6307\u6570\uff0c\u57fa\u91d1\u7b49\uff09\u3002\u6bcf\u4e2a\u6587\u4ef6\u4e2d\u7684\u4fe1\u606f\u6761\u76ee\u8d85\u8fc72\u4e07\u3002<\/p>\n<\/li>\n - \n
\u6587\u4ef6\u683c\u5f0f
\u6570\u636e\u6587\u4ef6\u662f\u4e8c\u8fdb\u5236\u5b57\u8282\u683c\u5f0f\uff0c\u7531\u6587\u4ef6\u5934\u548c\u6570\u636e\u4f53\u6784\u6210\u3002<\/p>\n<\/li>\n<\/ul>\n-- \u6587\u4ef6\u5934\uff1a\u5305\u542b 50 \u4e2aByte\uff0c\u5176\u4e2d
[ 0:40] -> 40\u4e2aByte\uff0cIPv4\u5730\u5740\uff0c\u8bb0\u5f55\u8f6f\u4ef6\u6700\u540e\u767b\u9646\u7684\u884c\u60c5\u4e3b\u7ad9IP\u5730\u5740\uff0c\u4e0d\u8db3\u7684\u5b57\u8282\u7531\"\\x00\"\u586b\u5145\uff0c\u4ee5\"\\x01'\"\u7ed3\u675f\uff1b
[40:42] -> 2\u4e2aByte\uff0c\u7aef\u53e3\u53f7\uff1b
[42:46] -> 4\u4e2aByte\uff0c\u65e5\u671f\uff08YYYYMMDD\uff09\uff1b
[46:50] -> 4\u4e2aByte\uff0c\u65f6\u95f4(Hmmss)\uff1b<\/p>\n-- \u6570\u636e\u4f53\uff1a\u6bcf\u4e2a\u80a1\u7968\u4fe1\u606f\u8bb0\u5f55\u5728 314 \u4e2aByte\u7684\u6570\u636e\u5757\u5185\uff0c\u5176\u4e2d
[ 0: 6] -> 6\u4e2aByte\uff0c\u80a1\u7968\u4ee3\u7801\uff1b
[23:41] -> 18\u4e2aByte\uff0c\u80a1\u7968\u540d\u79f0\uff0c\u4e0d\u8db3\u7684\u5b57\u8282\u7531\"\\x00\"\u586b\u5145\uff1b
[276:280] -> 4\u4e2aByte\uff0c\u6628\u6536\u76d8\u4ef7\uff1b
[285:293] -> 4\u4e2aByte\uff0c\u80a1\u7968\u540d\u79f0\u62fc\u97f3\u5b57\u5934<\/p>\n![\"\u901a\u8fbe\u4fe1\u7535\u8111\u7248\u600e\u4e48\u6dfb\u52a0\u81ea\u9009\u80a1\u7968?_\u901a\u8fbe\u4fe1\u81ea\u52a8\u4ea4\u6613\u89e3\u51b3\u65b9\u6848](\"https:\/\/img-blog.csdnimg.cn\/64d41b6afb9246079280dcc94f9c82e3.png\" "\\"\u901a\u8fbe\u4fe1\u7535\u8111\u7248\u600e\u4e48\u6dfb\u52a0\u81ea\u9009\u80a1\u7968?_\u901a\u8fbe\u4fe1\u81ea\u52a8\u4ea4\u6613\u89e3\u51b3\u65b9\u6848")
<\/p>\n\u4e0a\u56fe\u662f\u7a0b\u5e8f\u754c\u9762<\/p>\n
Private Sub Command1_Click()
On Error GoTo zyp
Dim hFile As Long
Dim temp(100) As Byte
Dim dddtemp As SECURITY_ATTRIBUTES
Dim dwRet, count, ngg, leibie As Integer
For ii = 0 To 1
tdx_mc = Text1(ii).Text
hFile = CreateFile(tdx_mc, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, dddtemp, OPEN_EXISTING, 0, 0)
If hFile = -1 Then
MsgBox \"\u6253\u5f00\u6587\u4ef6\u5931\u8d25\"
End If
'\u8f6c\u5230\u6b63\u5f0f\u6587\u4ef6\u4f4d\u7f6e
SetFilePointer hFile, 50, 0, 0
'\u8bfb\u53d6\u4e2a\u6570
ReadFile hFile, temp(0), 2, dwRet, 0
'\u6700\u7ec8\u7684\u7ed3\u6784\u4f53\uff0c\u50a8\u5b58\u6240\u6709\u4fe1\u606f\u7684
'Dim bk As WENJIAN
'wj.nBanKuai = CInt(temp(0)) + CInt(temp(1)) * 256
'count = wj.nBanKuai
'\u5b9a\u4e49\u52a8\u6001\u6570\u7ec4
'ReDim wj.bBanKuai(count) As BANKUAI
'\u5faa\u73af\u8bfb\u53d6\u677f\u5757
List1.Clear
cou = FileLen(tdx_mc) \\ 314
Dim bk As BANKUAI
If InStr(tdx_mc, \"shm\") > 0 Then ibeg = 19000
If InStr(tdx_mc, \"szm\") > 0 Then ibeg = 500
For I = 0 To cou '\u8bfb\u53d6\u677f\u5757\u540d
Dim aa(6) As Byte
ReadFile hFile, aa(0), 7, dwRet, 0
bk.sDm = ByteToStr(aa)
SetFilePointer hFile, 50 + 23 + 314 * (I), 0, 0
ReadFile hFile, temp(0), 18, dwRet, 0
bk.sMc = ByteToStr(temp)
Debug.Print I & vbTab & bk.sDm & vbTab & bk.sMc
SetFilePointer hFile, 50 + 314 * (I + 1), 0, 0
If Left(bk.sDm, 2) = \"30\" Or Left(bk.sDm, 2) = \"00\" Then
List1.AddItem I & vbTab & bk.sDm & vbTab & bk.sMc
End If<\/p>\nNext
CloseHandle hFile
Next ii
'Text1.Text = Text1.Text + \"\u8bfb\u53d6\u5b8c\u6210\"
'\u663e\u793a\u5728\u754c\u9762\u4e0a
zyp:
If Err.Number <> 0 Then MsgBox Err.Description
End Sub
Private Sub Command2_Click()
Me.CommonDialog1.InitDir = \"D:\\tdx\"
Me.CommonDialog1.FileName = \"\"
Me.CommonDialog1.Filter = \"txt (*.tnf)|*.tnf|All Files(*.*)|*.*\"
Me.CommonDialog1.ShowOpen
If CommonDialog1.FileName <> \" \" Then
Text1(0) = Me.CommonDialog1.FileName
End If
End Sub<\/p>\nPrivate Sub Command3_Click()
Me.CommonDialog1.InitDir = \"D:\\tdx\"
Me.CommonDialog1.FileName = \"\"
Me.CommonDialog1.Filter = \"txt (*.tnf)|*.tnf|All Files(*.*)|*.*\"
Me.CommonDialog1.ShowOpen
If CommonDialog1.FileName <> \" \" Then
Text1(1) = Me.CommonDialog1.FileName
End If
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"\u901a\u8fbe\u4fe1\u7535\u8111\u7248\u600e\u4e48\u6dfb\u52a0\u81ea\u9009\u80a1\u7968?_\u901a\u8fbe\u4fe1\u81ea\u52a8\u4ea4\u6613\u89e3\u51b3\u65b9\u6848\u91cf\u5316\u4ea4\u6613,\u80a1\u7968\u4ea4\u6613,shm.tnfszm.tnf_\u80a1\u7968\u4ee3\u7801tnf\u683c\u5f0f","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"_links":{"self":[{"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/posts\/6676"}],"collection":[{"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/comments?post=6676"}],"version-history":[{"count":0,"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/posts\/6676\/revisions"}],"wp:attachment":[{"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/media?parent=6676"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/categories?post=6676"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mushiming.com\/wp-json\/wp\/v2\/tags?post=6676"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}