Skylab BOT YAPIMI /C#\

  • Konuyu başlatan Konuyu başlatan vahitserifsaglam1
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 4
  • Görüntüleme Görüntüleme 2K
Tarihe Göre Sırala Reaksiyona göre sırala

vahitserifsaglam1

Level 4
Katılım
18 Tem 2013
Konular
41
Mesajlar
385
Reaksiyon Skoru
48
Altın Konu
0
TM Yaşı
12 Yıl 11 Ay 3 Gün
Başarım Puanı
62
MmoLira
0
DevLira
0
Ticaret - 0%
0   0   0

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Merhaba Sevgili tukmmo.com Üyeleri
yaklaşık 1 yıldır programlamayla uğraşıyorum (okuldan fln tam ilgilenemiyorum)
uzun zamandır aklımda bir proje vardı Skylab bot
neden olmasın dedim ve başlayayım dedim
bot taman "ie" api si ile çalışacak yani veri çekip gönderme işlemi yapacak
yardım edebilecek c# ile ilgilenen arkadaşlarımız varsa beraber yapabiliriz.
Şuanda vs 2012 tekrardan yükleyip başlayacağım bota.

Yardımlarınıza AÇIĞIM

Not:3-4 gün içinde ilk versiyonu yayınlayacağım.
Olacak özellikler;
toplayıcıları geliştirme
sevkiyat yapma
zorlarsam belkide satma

İMKANSIZ DİYE BİR ŞEY YOKTUR
​
 
Son düzenleme:
skylab bot saten var
 
Kod:
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("loginForm_default_input_username").SetAttribute("value", TextBox1.Text) 'Darkorbit'in Username Giriş Yeri
WebBrowser1.Document.GetElementById("loginForm_default_input_password").SetAttribute("value", TextBox2.Text) 'Darkorbit'in Parola Giriş Yeri
WebBrowser1.Document.GetElementById("loginForm_default_loginButton").InvokeMember("click") 'Butona Tıklama
If TextBox3.Text = ("") Then 'Eğer TextBox3(Server Numarası) Boş ise Hata ver ve programı yeniden başlat.
MsgBox("Server Numarası Boş Bırakılamaz")
Application.Restart()
End If
Timer1.Enabled = True 'Timer1 çalıştır
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("darkorbit.com") 'Darkorbit.com aç

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form2.Show() 'Form2'yi aç

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
WebBrowser1.Document.GetElementById("serverSelection_ini_" & TextBox3.Text).InvokeMember("click") 'Server seçer

Timer1.Enabled = False 'Timer1 Kapat
TextBox1.Enabled = False ' TextBox1 Kapat
TextBox2.Enabled = False 'TextBox2 Kapat
Button1.Enabled = False 'Buton1 Kapat
TextBox3.Enabled = False 'Textbox3 Kapat
Button3.Enabled = False 'Buton3 Kapat
End Sub

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
WebBrowser1.Document.GetElementById("lab_btn").InvokeMember("click") 'Skylab Aç
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
WebBrowser1.Navigate(TextBox4.Text & ".darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab&subaction=upgrade&construction=prometiumCollector&reloadToken=294bc3bc10f0478e1d85e3f1bb65eee3") 'TextBox4 deki servere göre prometium toplayıcı geliştir.
End Sub
End Class


 
dursun kardeş bunun nasıl yazılacağını antayırsan çok sevinirim eğer kendin yazabiliyorsan bize gönderirsen çok minnettar kalıcam
 
prematoria' Alıntı:
dursun kardeş bunun nasıl yazılacağını antayırsan çok sevinirim eğer kendin yazabiliyorsan bize gönderirsen çok minnettar kalıcam
Genişletmek için tıkla
Dursun kardeşimizin verdiği kodlar vb.net için dir. Bu dil MİCROSOFT un çıkardığı .Net dillerinin en kolay dilidir.
Eğer araştırısan bu dil ile ilgili bir çok video (1000 lerce) var . Ben zaten bu kodlarım daha önceden hazırdı .
 
Cevap yazmak için giriş yap yada kayıt ol.

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Menü
Giriş Yap
Kayıt Ol