level 5
scfan
楼主
Dim MainFile As StringDim AlterFile As StringDim TempStr As ByteDim strUser As StringDim strName As StringDim strKey As StringDim OffsetStep As IntegerDim Record As IntegerPrivate Sub Command1_Click()Dim TempByte As ByteDim UserData(20) As ByteOffsetStep = 40MainFile = App.Path & "\" & App.EXEName & ".exe"AlterFile = App.Path & "\" & App.EXEName & "1.exe"Open MainFile For Binary Access Read As #1Open AlterFile For Binary Access Write As #2For i = 1 To LOF(1) Get
#1, i, TempByte Put #
2, i, TempByteNext iClose #1For i = 1 To Len(Text1.Text) UserData(i) = Asc(Mid(Text1.Text, i, 1))Next iIf Len(Text1.Text) < 20 Then For i = Len(Text1.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iOffsetStep = 60For i = 1 To Len(Text2.Text) UserData(i) = Asc(Mid(Text2.Text, i, 1))Next iIf Len(Text2.Text) < 20 Then For i = Len(Text2.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iOffsetStep = 80For i = 1 To Len(Text3.Text) UserData(i) = Asc(Mid(Text3.Text, i, 1))Next iIf Len(Text3.Text) < 20 Then For i = Len(Text3.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iClose #2Dim strBat As StringstrBat = "del " & App.EXEName & ".exe" & vbCrLf & "ren " & App.EXEName & "1.exe" & " " & App.EXEName & ".exe" & vbCrLf & App.EXEName & ".exe"Open App.Path & "\runok.bat" For Output As #1Print
#1, strBatClose #
1Unload MeShell App.Path & "\runok.bat", vbHideEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()MainFile = App.Path & "\" & App.EXEName & ".exe"AlterFile = App.Path & "\" & App.EXEName & "1.exe"On Error GoTo 10Kill App.Path & "\runok.bat"10:Open MainFile For Binary Access Read As #1OffsetStep = 40For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrUser = strUser & Chr(TempStr)Next iOffsetStep = 60For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrName = strName & Chr(TempStr)Next iOffsetStep = 80For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrKey = strKey & Chr(TempStr)Next iClose #1lblUser.Caption = strUserlblName.Caption = strNamelblKey.Caption = strKeyEnd Sub
2006年05月01日 12点05分
1
#1, i, TempByte Put #
2, i, TempByteNext iClose #1For i = 1 To Len(Text1.Text) UserData(i) = Asc(Mid(Text1.Text, i, 1))Next iIf Len(Text1.Text) < 20 Then For i = Len(Text1.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iOffsetStep = 60For i = 1 To Len(Text2.Text) UserData(i) = Asc(Mid(Text2.Text, i, 1))Next iIf Len(Text2.Text) < 20 Then For i = Len(Text2.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iOffsetStep = 80For i = 1 To Len(Text3.Text) UserData(i) = Asc(Mid(Text3.Text, i, 1))Next iIf Len(Text3.Text) < 20 Then For i = Len(Text3.Text) + 1 To 20 UserData(i) = Asc(" ") Next iEnd IfFor i = 1 To 20 OffsetStep = OffsetStep - 1 Record = LOF(2) - OffsetStep Put #2, Record, UserData(i)Next iClose #2Dim strBat As StringstrBat = "del " & App.EXEName & ".exe" & vbCrLf & "ren " & App.EXEName & "1.exe" & " " & App.EXEName & ".exe" & vbCrLf & App.EXEName & ".exe"Open App.Path & "\runok.bat" For Output As #1Print
#1, strBatClose #
1Unload MeShell App.Path & "\runok.bat", vbHideEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()MainFile = App.Path & "\" & App.EXEName & ".exe"AlterFile = App.Path & "\" & App.EXEName & "1.exe"On Error GoTo 10Kill App.Path & "\runok.bat"10:Open MainFile For Binary Access Read As #1OffsetStep = 40For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrUser = strUser & Chr(TempStr)Next iOffsetStep = 60For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrName = strName & Chr(TempStr)Next iOffsetStep = 80For i = 1 To 20OffsetStep = OffsetStep - 1Record = LOF(1) - OffsetStepGet #1, Record, TempStrstrKey = strKey & Chr(TempStr)Next iClose #1lblUser.Caption = strUserlblName.Caption = strNamelblKey.Caption = strKeyEnd Sub
