2 Adet CommandButton Ekleyelim

Attack Start

Kod:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Attack Stop

Kod:

If Check1.Value = 1 Then
'Form her zaman üstte
lFlag = HWND_TOPMOST
SetWindowPos Form1.hwnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
'Form normal
lFlag = HWND_NOTOPMOST
SetWindowPos Form1.hwnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub

Bir Adet Timer:

Kod:

Komut.Send ("z")
Komut.Send ("r")

Alıntıya Karşıyım.

Bir Sorun Olursa Söyleyin.

Saoll

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
If Check1.Value = 1 Then
'Form her zaman üstte
lFlag = HWND_TOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
'Form normal
lFlag = HWND_NOTOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub
Private Sub Timer1_Timer()
Komut.Send ("z")
Komut.Send ("r")
End Sub


Çalışmıyor nerde hata var

burdamı var hata : SetWindowPos

Private Sub Timer1_Timer()
Komut.Send ("z")
Komut.Send ("r")
End Sub

bu kısmı timere ekle

ekledim

2 ci kısım çlışmıyor

Private Sub Check1_Click()
If Check1.Value = 1 Then
'Form her zaman üstte
lFlag = HWND_TOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
'Form normal
lFlag = HWND_NOTOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub

kendi kodlamam

peki o zaman hatayı nasıl düzeltece söyle

halen hata oluyor

Private Sub Check1_Click()
If Check1.Value = 1 Then
'Form her zaman üstte
lFlag = HWND_TOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
'Form normal
lFlag = HWND_NOTOPMOST
SetWindowPos Form1.hWnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub

ewt aynı hata bendede var yaf bune

yaw Adam başka yerden almış getirmiş

hata olunca hatayı düzeltemiyor

eed yaf madem bilmiom neden yazıon demi?

kardesim ilk etapda sen dene ondan sonra millete ver bosuna üye yaptirma insanları

Edit...

Bu Kodlari nereye yazcaz

Bu Kodlari nereye yazcaz

tsklrrrrrrrrr