Program yapmak isteyenler...

Arkadaşlar bu konunun yeri burasımı bilmiyorum ama açacak uygun bir yer bulamadım. Kusura bakmayın.

Sizde silkroad'a bir program yapmak istiyorsunuz? Ama bunun nasıl yapıldığını bilmiyorsunuz.. O zaman aşağıdakileri uygulayın. Bu bir macrodur(oto klavye tuşlarına basmak için, keyhelper vb.)

İlk olarak Visual Basic indiriniz. Ben Visual Basic .NET tercih ederim. Bilgisayarı biraz kasar ama daha kolay. Buradan yükleyebilirsiniz. http://www.microsoft.com/Express/VB/

Programı yükledikten sonra yeni bi proje oluşturun. Formunuza sol taraftaki ToolBox'tan 9 adet check box(isterseniz 10 tane ekleyebilirsiniz ama kodu ona göre değiştirmeniz lazım), 2 adet text box(TextBox1 = Kullanma sıklığı, TextBox2 = Pencere ismi), 2 adet te buton (Button1=başlat, Button2=durdur) ve 1 adet Timer ekleyin. Timer1'in invertal değerini 350 yapın, enabled = false olsun.

Sağ taraftaki Properties penceresinden nesnenin özelliklerini burdan değiştirebilirsiniz. not(Örn: bir butondaki yazıyı değiştirmek için "Name" sini değil "Text" ini değiştiriniz) Nesneye kod eklemek için o nesneye çift tıklayın.
Formunuz bu şekil olsun (Tasarımını istediğiniz gibi yapabilirsiniz):



Aşağıdaki aynen ekleyin..
Kod:
Public Class Form1
Dim sayi As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sayi = 0
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
sayi = sayi + 1

AppActivate(TextBox2.Text)
If CheckBox1.Checked = True Then
If sayi = 1 Then
SendKeys.Send(1)
End If
End If
If CheckBox2.Checked = True Then
If sayi = 2 Then
SendKeys.Send(2)
End If
End If
If CheckBox3.Checked = True Then
If sayi = 3 Then
SendKeys.Send(3)
End If
End If
If CheckBox4.Checked = True Then
If sayi = 4 Then
SendKeys.Send(4)
End If
End If
If CheckBox5.Checked = True Then
If sayi = 5 Then
SendKeys.Send(5)
End If
End If
If CheckBox6.Checked = True Then
If sayi = 6 Then
SendKeys.Send(6)
End If
End If
If CheckBox7.Checked = True Then
If sayi = 7 Then
SendKeys.Send(7)
End If
End If
If CheckBox8.Checked = True Then
If sayi = 8 Then
SendKeys.Send(8)
End If
End If
If CheckBox9.Checked = True Then
If sayi = 9 Then
SendKeys.Send(9)
End If
End If
If sayi = 10 Then
sayi = 0
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Timer1.Interval = TextBox1.Text
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
End Class

Bunları yaptıktan sonra projenizi kaydedin. Sonra Build menüsünden Build Projeİsmi deyin. C:\Documents and Settings\xxxxx\Belgelerim\Visual Studio 2008\Projects\Peojeİsmi\Projeİsmi\bin\Release\Prog ramİsmi.exe programınız buraya kaydedilmiştir..

Daha geniş bilgiyi VB kaynak sitelerinden bulabilirsiniz.
işte programımız http://rapidshare.com/files/237131263/oernek.exe.html

Kolay gelsin