من مسيري را كه كابر در My computer داره طي ميكنه رو در هر لحظه مي خوام
لطفا بگيد اين مسيرو چطوري به دست بيارم؟
من مسيري را كه كابر در My computer داره طي ميكنه رو در هر لحظه مي خوام
لطفا بگيد اين مسيرو چطوري به دست بيارم؟
آقايون كسي كمكم نميكنه ؟
چون خيلي كارش دارم
سلام
لطفا ذکر کنید که فقط یک پنجره my computer یا اینکه هر چندتا بود؟
البته فکر کنم تا من بخوام جواب بدم دوستان دیگه پیش دستی میکنن (قبل از جواب دادن بگید این همه مدت کجا بودید سوال این بنده خدا رو جواب بدین؟)
هرچه سریعتر بگید که دقیقا چی میخواید من هم سریعتر راهنماییتون میکنم.
با تشکر
سلام.
با findwindow و getwindowtext کپشن پنجره رو بخون.
كاملتر لطفاسلام.
با findwindow و getwindowtext کپشن پنجره رو بخون.
یک 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
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
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)