Programalama > VISUAL BASIC


Ort. 0
Puan ver:
formunuza bir adet listbox ekleyiniz


Option Explicit
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Integer) As Integer
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As String) As Integer
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
Private Sub Form_Load()
Show
Dim name
Dim Aktif_pencere_hwnd, uz As Integer, baslik As String
Aktif_pencere_hwnd = GetWindow(Form1.hWnd, 0)

While Aktif_pencere_hwnd <> 0
GetWindowTextLength (Aktif_pencere_hwnd)
baslik = Space(uz + 1)
uz = GetWindowText(Aktif_pencere_hwnd, baslik, uz + 1)
If uz > 0 Then
'If Left$(baslik, 5) = "Solid" Then
List1.AddItem baslik
'End If
End If
Aktif_pencere_hwnd = GetWindow(Aktif_pencere_hwnd, 2)
Wend
End Sub

Private Sub List1_Click()
On Local Error Resume Next
AppActivate List1.Text
SendKeys "% "
SendKeys "{ENTER}"
End Sub


Yorumlar                 Yorum Yaz
brave (0) Sakıncalı Yorum 20 July 16:27
runtime error 6 overtime hatası aldım.
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.