salut
pouvez vous sil vous plais m'aider a changer ce code pour qu'il accompli le travaille que je lui veux
se sont deux application différente:
le creator.exe:
avec son code :
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
et le core.exe :
avec son code :
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
le travaille a faire c'est :
quand j'écrit mon pseudo et mon password dans l'application Security et j'appui sur la bouton crée la sécurité il vas modifier l'application core.exe pour qu'il se trouve mon pseudo et mon password dans les deux champs text1 et text2
le code fourni avec les deux image n'est pas pour cette application je compte sur vous pour m'aider a le modifier
pour plus d'information visiter ce
sujet