Başlangıç > Dökümanlar > VB6’da sonsuz döngüye giren projeyi çözmek

VB6’da sonsuz döngüye giren projeyi çözmek

Timerde Msgbox ile sonsuz döngüye giren bir kod kullandığında, programınız kapatılmaz hale gelebiliyor işlemlerden kapattığınızda ise projenizde yaptığınız değişiklikleri kaybedebiliyorsunuz, bu sorunu çözmek için

Yeni bir proje açın aşağıdaki kodları derleyin ve kapanmayan msgboxun üzerine tıklayın


Private Declare Function GetForegroundWindow Lib "user32" () _
As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long
'
Private Sub Form_Load()
Me.Caption = "TD Software"
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
'
Private Sub Timer1_Timer()
Static pHwdn As Long
Dim spHwdn As Long
Dim pBaslik As String * 255
'
spHwdn = GetForegroundWindow
If spHwdn = pHwdn Then Exit Sub
pHwdn = spHwdn

If lHwnd <> hwnd Then
Caption = Left$(pBaslik, GetWindowText(pHwdn, ByVal pBaslik, 255))
Me.Caption = Caption

If Caption = "Project1" Then 'MSGBOX başlığı buysa

For kapatmak = 0 To 53
SendKeys "%{F4}"  'KAPATMAYA ZORLUYORUZ
Next kapatmak

End If
End If
End Sub

 

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: