Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Dim p() As Process
Private Function IsRunning()
p = Process.GetProcessesByName("Wol**eam.bin")
If p.Count > 0 Then
Return True
Else
Return False
End If
End Sub
herhangi bir timerin koduna:
if isrunning() then
'oyun açıldığında gerçekleşecek eylem
end if
Private Sub AdressChanged(sender As System.Object, e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Using w = WebBrowser1
If Not w.Url.AbsoluteUri.Contains("//kisalt.xyz") Then
'Reklam geçildiğinde yapılacak işlem...
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
'Takibin gerçekleşeceği tanımlayıcı
If(getasynckeystate(Keys.Insert)) Then
'eylem
End If