Üye
Hilemde küçük bir sorun var ama aşamıyorum . Hile kodlarımı form_load ekledıgım zaman çalışıyor . Ama Bir button veya timere yazdıgımda failed open wolftü hatası ile karşılaşıyorum . sıfırdan yapim dedim bu da adres dobble olmadı diye bi hata veriyor.
Örnek :Timer1 içerigi : [font='Open Sans', Tahoma, Verdana, Arial, sans-serif]WriteLong("wolftü.bin", label1.Text + &H34E950, "2251829620")[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If GetAsyncKeyState(Keys.Right) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If Label1.ForeColor = Color.Orange Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.ForeColor = Color.White[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.Text = "[ON]"[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Timer1.Start ()[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If GetAsyncKeyState(Keys.Left) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If Label1.ForeColor = Color.Orange Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.ForeColor = Color.Red[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.Text = "[OFF]"[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Timer1.Stop ()[/FONT][/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]
[/FONT]
Örnek :Timer1 içerigi : [font='Open Sans', Tahoma, Verdana, Arial, sans-serif]WriteLong("wolftü.bin", label1.Text + &H34E950, "2251829620")[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If GetAsyncKeyState(Keys.Right) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If Label1.ForeColor = Color.Orange Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.ForeColor = Color.White[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.Text = "[ON]"[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Timer1.Start ()[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If GetAsyncKeyState(Keys.Left) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] If Label1.ForeColor = Color.Orange Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.ForeColor = Color.Red[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label3.Text = "[OFF]"[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Timer1.Stop ()[/FONT][/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] End Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]