مسيري طي شده توسط كاربر

[msaeedd]

من مسيري را كه كابر در My computer داره طي ميكنه رو در هر لحظه مي خوام
لطفا بگيد اين مسيرو چطوري به دست بيارم؟

[msaeedd]

آقايون كسي كمكم نميكنه ؟
چون خيلي كارش دارم

[Smafias]

سلام

لطفا ذکر کنید که فقط یک پنجره my computer یا اینکه هر چندتا بود؟

البته فکر کنم تا من بخوام جواب بدم دوستان دیگه پیش دستی میکنن :دی (قبل از جواب دادن بگید این همه مدت کجا بودید سوال این بنده خدا رو جواب بدین؟)

هرچه سریعتر بگید که دقیقا چی میخواید من هم سریعتر راهنماییتون میکنم.
با تشکر :11:

[Payman_62]

سلام.
با findwindow و getwindowtext کپشن پنجره رو بخون.

[بهرام_62]

سلام.
با findwindow و getwindowtext کپشن پنجره رو بخون.

كاملتر لطفا:31:

[kalekhar]

یک timer با یک Textbox داخل فرمت بزار کد زیر رو کپی کن داخل فرمت.




Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Const WM_GETTEXT = &HD
Dim Address As String

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim Hwnd As Long
Dim i As Integer
Hwnd = FindWindow("CabinetWClass", vbNullString)
If Hwnd <> 0 Then
Hwnd = FindWindowEx(Hwnd, 0, "WorkerW", vbNullString)
Hwnd = FindWindowEx(Hwnd, 0, "ReBarWindow32", vbNullString)
Hwnd = FindWindowEx(Hwnd, 0, "ComboBoxEx32", vbNullString)
Dim r As Long
Dim s As String
s = String(201, Chr(0))
r = SendMessageByString(Hwnd, WM_GETTEXT, 200, s)
If Left(s, r) = "My Computer" Then Exit Sub
Address = Left(s, r)
End If
Text1 = Address
End Sub

[بهرام_62]

ايولا
باريكلا

[ولايت]

با keyloger هم ميشه مسير رو پيدا كرد

[ATLASM]

Dim Address As String
Const WM_GETTEXT = &HD
On Error Resume Next
Dim hWnd As Long
Dim i As Integer
hWnd = FindWindow("CabinetWClass", vbNullString)
If hWnd <> 0 Then
hWnd = FindWindowEx(hWnd, 0, "WorkerW", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "ReBarWindow32", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "ComboBoxEx32", vbNullString)
Dim r As Long
Dim s As String
s = String(201, Chr(0))
r = SendMessageByString(hWnd, WM_GETTEXT, 200, s)
If Left(s, r) = "My Computer" Then Exit Sub
Address = Left(s, r)
End If
Text1.Text = Address
'************************************************* **************
API رو کپی کن تو مادول

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long