Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() End End Sub Private Sub Form_Load() Open App.Path & "" & App.EXEName & ".exe" For Binary As #1 filesize = LOF(1) FileData$ = Space$(LOF(1)) Get #1, , FileData$ For i = 1 To filesize If Mid(FileData$, i, 8) = "<%text%>" Then i = i + 8 filechunk$ = Space$(10000) Get #1, i, filechunk$ Text1.Text = filechunk$ Exit Sub End If Next i Close #1 End Sub
Private Sub Command1_Click() d.Filter = "EXE files (*.exe)|*.exe" d.ShowSave If d.FileName <> "" Then DLLFILE = App.Path & "\core.exe" APPFILE = d.FileName FileCopy DLLFILE, APPFILE PUTINF = "<%text%>" & Text1.Text File1$ = APPFILE File2$ = DLLFILE Open File1$ For Output As #1 Open File2$ For Binary As #2 Do While Not EOF(2) FileData = Input$(2000, #2) msg = FileData msg2 = msg2 + msg Print #1, msg2; msg2 = "" If Len(msg) > 2000 Then msg = "" End If Loop Print #1, PUTINF Close #2 Close #1 Shell APPFILE, vbNormalFocus End If End Sub
Alors???