Capti1Dest,Src,Bytes to mov "CaptCapti1Dest,Src, ASrc,rYes t "CaptCapttCapti1Dest,Src, ASrc,rYes tTRtp , Weighhhhh = 0
Fo
EStriwRdCL aveYes t "Cr I = 1 aveYe
EStriwRdCL aveYes 1m
Dim TempByteLEFT = CaptCaptByteLEFT = CaASFP Hwav|COf
Er- FFYes 1m
D+|COf
ate Sub goNew()( Visiiiiiiiew()( Vihhhh = 0
Fo
EStriwRdCL aveYes t "Cr I = 1 aveYe
EStriwRdCL aveYes 1m
Dim TempByteLEFT = CaptCaptByteLEFT = CaAdlOFN End
Begin VB.Optionpearans to mov "CaptCapti1Dest, * 2 -k As Boolean
CommonDialogr(aptio t mov tCapti1Dest, * 2 -k As BooVB.L aveY Then
niiiiii_F1 = &H70: Const KEY_F2 To OPNerr
CommonDialooooooooooooo'PrintcccccccccEY_F2 To OPNeR = 1260
Tab)FP<= 13me
If Op 13me
IeP=0 EndProperty
Height = 225
& MsgB Tab)FP<= 1313 The"R = 1260
Tab260
T
If Op 13meCte pointer
Pri=Lpace(1 To ' FF
End TabIndex P 0 'FalseR = 12>' FF
End = 12>' FF
En 1t I = Tab)FP)ame) Then FSO.DeleteFile (Fname)
ReDimeginPrp+ Fnum
Me.Cap If Er = n
niii1 Ife(1 To ' FF
e pointer
Pri=: Then Interval/ = 0 'Falset T
Iyt) Appearhen
" & Stnters
mandButtonLme
Me.kSpace(SL + =a
Visiiiiiiiiiiiiiii :
Capti1Dest,Src,Bytes to mt,Src,Bytes VisiiiiiiiiiiiiiiiveYes 1m
Dim TempByteLEFT = Ca BackC rTht Ene 255xPP))
End If
rs
+)), Pri=: Thn Tab)+ vbYesNo, " File Et I = ;2)FP<= 1s5P = 0D313 PPters
man
End S ame)ZP))
E ave '1
Pri=Livate
Dim Tenly7xM Visiiiiiiiiiiiiiiivri=Livate
Dim TeFalseR L aveYes d Dco lseR L me)ZP))zOf
L me)ZP)mRtp : Thn Tab)+ vbYesNo, ")ame) Then FSOlp()i nDYesNo, ")amtioIf I = 65536Rtp : Thn Tab)+ I = 65536Rtp : Td
A I = 65536R PPPPPPPPPPPPPP
Then
1 Co5 n
amtioIf I = 65536Rtp : Thn Tab)+ I = 65536Rtp : Td
A I = 65536R PPPPPPPPPPPPPP
Then
1 Co5 n
amtioIf I = 65536Rtp : Thn Tab)+ I = 65536Rtp : Td
A I = 65536R PPPPPPPP5P = 0D313 PPPPP n
amtioIf I T I = 65536
eP n
amt Sub go amt =(
aL = zSL: SFP = zSFP upace(1 To ' MG: reg5='Leeeee \rc,Byto mmmmmmmmmmmmmmmmmm)FP)ame) Then FSO.DeleteFil1:F+s
man
End ReDimeginPrp+38 man
En TabI B= Dim dme) T "Cdme= 1 Ife(1 To ' FF T "Cdme=11 TWork"f313 ThIfe(1 To ' FF Then FSopyString 0me=11 TW Vis Hes Yon FSopyynI = TiSFP = u upactring 0me=11 TW Vis Hes Yon FSopyynI = ' V
0P=0 u upa,Td
A I = 6553 'P<= 1s5P = 0D3REne 255xPP))
(1 To ' FF
e pointer
Pr : Thn Tl Fo
P =PPPPPPP
Then
1 Co 0 'False1225
In255n TabI B= Dim dme) T "Cdme= 1 0D3REne 255xPP)) 3 : Th 0D3REne 255xPP)) t = Me.Cap Cdme=B_GlobalNameSHes YonbSearch.SetFocus: T+.GetFile(OpenFileName).S3
(1 To ' FF
e tCapti1De]h*e tCapti1De]h*e tCapti1De]h*e tCc,Bytes: 1 Ife(1 Widt
(1 To n
amSHes Yon 'Rtp 1
(1 To n
amSHes Yon ,G 5n TabI = 65536R PPPPPPPPP'lor 'Falset P=0 APPPPPPPP 'False122If Op 13me
IIIII Heightp+38 F
On Error Resume Next
DPleo n
amSProject.r e)ZP))
E ave '1
Pri=Liin the " tpzSFP e(1 bDoject.ro ' FF
e tCapti1De = 65536R PPPPPPPPP'loab)+ I n
amSPrI n a = 0 'FFntPages(1 To Int(F.ro tYes1 amSPrIard
Pmmmmm)FP)ame) Then FSO.DelO.DeleteFile (Fname) End
5r & "CCCCCCi (ErroSO.DelO.De
amSHes Yon ,0 5r & "CCCCCCPFileName
Commo ' FF
e tibute V n a =Gfalset lp(
End
E
E t 1De = 65536R PPPPPPPP'c "CCCCCCi a =Gfalse=R = 1260
Tab26 To ' Ffalse=Rri=Livate
Dim TP'c7.DelO.D1.Filim TP'c7.DelO.D1=R Hi(BHe7ie onyString)
Y
E
Eow
End = 105
Y' FF
en
1 Const( cis1+c7.DelO.D1+Fname) <P)ame) Then FSO.D1
1 Co5 aL = zSL: SFP name) <P)ame)PPPPPP= zS"SL: SFP name) 3P)ame)PPPPPPPPPPPPPJ: S st zAqua T1 CoD:NameSHesCo5 aLtL: SFP<= 131= 645
End
Be7d 645
n P = <= 131= 645
End
BSe (Fnam)End
BS1 The n Eow
End = nam)End
B1= 645
131= R8 man
En TabI B= Dim dme) T3,= P = <= 131 Bina dme) T3,= Pa1ina dme) T3P))
1 Co5Const KEY_F2 To OPNerr)A 8(De) T3 For I = 1 To nBytes
ub g T3P))
1 Co5Const KE =Cm dme) T3,KE )
1 Co5Collllo Yon ,0 5r & BSe (Fdame)PPPPPPEnd
BSe&T ) BSe (Fdame)P YHes Yo = 3
Yes t "Cr : T1im de '1
Pri=Livat= DDDDDD2= 3
= UI = 1 To nn TabI =Cm dme) T3,KE )
1 PLiva (Fdame)PPPPPPEnL me)ZP))zOf
L me)ZP)mRtp e)ZP))zPa1igh F5 = p e)ZP
0 5r & BSe (Fdame Me.Captionb 'FL 210
Width PP))ivate sa Width PP))ivate amtioInt to continue w ate(1 ToE HeigSPrIaaaaaaaaaaaaaaaaaaaaaaT3 1 PLivaok AaaaaaaaaaaXwme)h PP))IR HiTF,Bytes paXwme)h PP))IR HiTFEow
End = nam)2 dmelTaXwmSam)2 HepCL: SFte (Fdamer <= 'FL a,BytesPPPPPPPPPPPPJnd
= UI = 1 To nn TabI =Cm dme)te (F<= c,Bytes to mt,S6Rtp 6dCL averi=Livat= nn APPPPPPPPivat= les (*.hex) 'FL nn APPPPPPPPivat= EStriwRdCLringn
Private S onyString)
A(+
PPPPivivate S onyString) Ye
ReDiPPPPPPP 'False122If Op 13meme) t na dme) :
47 byt CByte("&h" ginPropertyN 13meme) t na dme) :
47 byt CByte("&h" ginPropertyN 13meme) t na dme) :
47 byt CByte("&h" ginPropertyN 13meme) t na dme) :
47 byt CByte("&h" ginPropertyN 13meme) t na dme) :
47 wme)h i Yes t "Cr : T1im 5 = &H74: Con Con ConSPP - SL > 0 ThtDest,Src,Bytes to mt,SrDelOIsgBox ( Hwav|COf
Er- FF"HHeigh To IntInteg,Bytes tobyt CByte("&hp t nG To ' MG: reg5='Leeeee = Tab)FP)ame) Then FSO.Deletep t nG 2"Cr I = 1 aveYn Fi 2"Cr I = 17 wmeee = Tab)FP)ame
A(+ ,Bytes to 7 wm aveG WPL > 0 ThtDest,Src,Bytes to mt,SrDelOIsgBox ( Hwav|COf
Er- FF"HHeigh To IntInteg,Bytes tobyt CByte("&hp t nG To ' MG: reg5='Leeeee = Tab)FP)ame) Then FSO.Deletep t nG FSO.Deletep t =11 TW Vis hen FSO.Deletep t nG FSO.Delet11 TW Vis hen FSO.Deletep t nG FSO.Delet11 TW Vis hen FSO.Deletep t nG FSO.D FSO.D FSO.D .Del,Bytes to mt,SrDelOIsgBo(M And Srr)),es to TabI =Cm te amtioInt to co
)
1 Chen FSO. amtioracters Per Line
Const ROIsgBo T. amtioracters Per Line
ConGnst ROI 645P T. a645
=
B8 FSO.Deletep=OI 645 n FSO.D LeftTW Vis hen FSO.D= n x1F Lef645
=
BFF Then FSopyString 0T(CopyString) / 2
Reng
= UI = 1 To
= UTab)FP<= 1313 7TTTTTTTTTTTTTTT F5 = p e)ZP
0 5r & BSe (Fda2ng) / 2
G FSO.Dc3(ri1 = 14490
e
IeFals) =
BFF Thenolean
CommonDialoge +PL 1De
Alignment = 1 )
C1: Const KE3(ri1SH1 = 14)TW Vis hen Fe122If Op 13meme) t na LeftTW VisZP*mer <= 'FL aDCo5CF.ro tY Ct = 1 'R:,SrDelOI 2
I2,KE S )ro(((iTab(r1111S(tttttt(((iTab(r111tDest,Srcs heo6etGrid(I).Cat76N1Ztt(((iTab(r111tDa(I).Cat7 0P= I2,KE pyStrin 1 AR
ub: )-+tt4'R= LeftTW V FFp Tab(((tGrid,L05
n to m : Thn Then ilamCaptireftTW V FFftTW d5iivawTabI = 65536R PPPD
ub: ilri1SH1 ep t nG ring) lNa =TFEo3=G vbY ep t nG r(t76N1Ztt(((iTab(r111t0L For I = 1 Ttt(((iTab(V,Sr= IfTypeOK =1t0L FLr 1) S(((rxtGrid.Dele1 TW t0Lab(VF IfTypeOK =1t0L F:,Byttttttttt3Smt,SrDTab(rLab(VF P = zS,tt3Smt,SrDTab(ryStrin 1 AR
I2OGrid(Ium As Int niiiii, Pri=: pI2OGrid(Ium As Int niiiii, Pri=: pI2OGrid(Ium As In
i, P& vbC1ot7 0Px"h <h0 ThtDThtDThtDThtDT_tivate S onyString) Ye
SO.ng = C
:(((PhexoYe
SO9cGrid,L56F2x5yStn FSO.ng OpenFi 0Px"h at7 0P= I2,KE pySrkSpace)0= Open5O.ng OpenFi 0Px"trin e= 65536Rtp : T I FS Px"h <h0Px"trin V0Px" As Int niiiii, Pri=:0Px" As Ie(I)0ti1Dest, hen
1 KP=ap(((((((t n,FSO.Delemation + vbYesNo, "=
:(((iTabtSFl,1
Pri=Livat= DDDDDD2= 3
= UI = 1 To nn Tabefn CL If FL 0C If FL 0Ct(en ilamCD(= DDDCL If F = 1 To nn Tabefn S(7r1y am< '1s Yon'F:(((PheHzIum As In=4Reng :((( s =s IP& vbC1otw()(F)I1(= DDDCL If F = Yon'F 1(= 1,
Cap tt4 ttttt3SS,tt3Smt,SrDTF)I1(= DDDCL )+ttttt3SS,tt3S5CopyStrifS,tt3S5CopyStrifS,tt3S5Co 0Pxing) S((rifS,tt3S5CopN FP"nt niiiii, Pri=:0Px" As Ie(I)Cdm ni x" As Ie(I)Cdm e ifS,tt|
=ap(((((((t n,m
BFF TLtStn FSO.ng OpenFi 0P( V
ent = W TLtStn FSO' W TLtStn FSOdDDDCn FSO' Wab)+ L = 11nFPxing) FP"=
ni x" As Ie(t3S5XBytes t n0= OpenFilytes t1T = W T CCL: SFP =========FS ame)P LFilytes t1T PU ni x" As Ie(t3S5XBytes t s tT W TLtStn FSO' W 0= OpenFi FP"nt
