Penulis Topik: Mendapatkan Direktori Aktif Untuk Windows 7  (Dibaca 13266 kali)

Offline MAbdanMulia

  • Pro100
  • ****
  • Tulisan: 104
  • Reputation: 505
  • Jenis kelamin: Pria
    • Lihat Profil
Mendapatkan Direktori Aktif Untuk Windows 7
« pada: Agustus 22, 2012, 09:08:04 PM »
Assalamualaikum Wr. Wb.

Hy gan, salam super ^_^
Wew, buat agan M.Ridzky, Saya izin gan, judulnya hampir mirip :D
 
Konsep
FindWindow ==> FindWindowEx..sampai yang terakhir class tempat ==> SendMessage[WM_GETTEXT]
FindWindow = dapatkan class explorernya
FindWindowEx   = dapatkan childclass
SendMessage[WM_GETTEXT] = dapatkan tulisannya
 
Cara mendapatkan
Pakai Windowse atau Spy++, cara pakai cek di google :3
 
Terima kasih buat programmer
M.Ridzky, Ryan Bekabe, Mas Agus, dan member" smadaver
 
Kalau di Win Seven letak" classnya
CabinetWClass ==> WorkerW ==> ReBarWindow32 ==> Address Band Root ==> msctls_progress32 ==> Breadcrumb Parent ==> ToolbarWindow32
NB : FindWindow cuman buat CabinetWClass dan dimulai dari WorkerW sampai ToolbarWindow32 pakai FindWindowEx[ChildClass]
 
Source Code di Delphi :
1. Buat Timer dengan Enabled = True dan Interval = 1000
2. Buat 1 buat EditBox
3. Double click timer kemudian tulis code ini:
Kode: [Pilih]
var wnd, wnd2: HWND;
Buffer : array[0..255] of Char;
begin
wnd := FindWindow('CabinetWClass', nil);
if wnd <> 0 then  begin
    wnd2 := FindWindowEx(wnd, 0, 'WorkerW', nil);
      if wnd2 <> 0 then
      begin
        wnd2 := FindWindowEx(wnd2, 0, 'ReBarWindow32', nil);
          if wnd2 <> 0 then
          begin
          wnd2 := FindWindowEx(wnd2, 0, 'Address Band Root', nil);
            if wnd2 <> 0 then
            begin
            wnd2 := FindWindowEx(wnd2, 0, 'msctls_progress32', nil);
              if wnd2 <> 0 then
              begin
                wnd2 := FindWindowEx(wnd2, 0, 'Breadcrumb Parent', nil);
                if wnd2 <> 0 then
                begin
                  wnd2 := FindWindowEx(wnd2, 0, 'ToolbarWindow32', nil);
                  SendMessage(wnd2, WM_GETTEXT, 255, integer(@Buffer));
                  Edit1.Text := Buffer; 'tempatnya
                end;
              end;
            end;
          end;
      end;
  end;

Cmiiw :3
« Edit Terakhir: Agustus 22, 2012, 09:17:21 PM oleh abdanmulia »

Offline MAbdanMulia

  • Pro100
  • ****
  • Tulisan: 104
  • Reputation: 505
  • Jenis kelamin: Pria
    • Lihat Profil
Re: Mendapatkan Direktori Aktif Untuk Windows 7
« Jawab #1 pada: Agustus 22, 2012, 09:24:37 PM »
Kalau buat Windows XP

Kalau di Windows XP letak" classnya
ExploreWClass ==> WorkerW ==> RebarWindow32 ==> ComboBoxEx32 ==> ComboBox ==> Edit
NB : FindWindow cuman buat ExploreWClass dan dimulai dari WorkerW sampai Edit pakai FindWindowEx[ChildClass]

Source Code di Delphi :
1. Buat Timer dengan Enabled = True dan Interval = 1000
2. Buat 1 buat EditBox
3. Double click timer kemudian tulis code ini:
Kode: [Pilih]
var wnd, wnd2: HWND;
Buffer : array[0..255] of Char;
begin
wnd := FindWindow('ExploreWClass', nil);
if wnd <> 0 then  begin
    wnd2 := FindWindowEx(wnd, 0, 'WorkerW', nil);
      if wnd2 <> 0 then
      begin
        wnd2 := FindWindowEx(wnd2, 0, 'ReBarWindow32', nil);
          if wnd2 <> 0 then
          begin
          wnd2 := FindWindowEx(wnd2, 0, 'ComboBoxEx32', nil);
            if wnd2 <> 0 then
            begin
            wnd2 := FindWindowEx(wnd2, 0, 'ComboBox', nil);
              if wnd2 <> 0 then
              begin
                wnd2 := FindWindowEx(wnd2, 0, 'Edit', nil);
                if wnd2 <> 0 then
                begin
                  SendMessage(wnd2, WM_GETTEXT, 255, integer(@Buffer));
                  Edit1.Text := Buffer; 'tempatnya
                end;
              end;
            end;
          end;
      end;
  end;

NB:
Kemungkinan begitu gan, karena yang Saya pakai pada saat menulis ini pakai Windows Seven :3
O y, kalau pakai Hook IAT Saya kurang tahu  :-\ , mungkin yang lainnya tahu :D

Cmiiw :3