VB.NET Sorular - Kod istekleri

jojomax31 · 6 Şub 2011

Bn sunworld için keyhelper yapmak istiyorum mesala 10 checkbox olcak 1.2.3.4.5.6... mesala 5 tanesine tik koydum iki tanede buton olcak başlat durdur başlata bastımda tik koyduklarım çalışcak 1.2.3 tik koydum mesala 1.2.3 basıcak durdur dedimde durucak böle bir şey yapmak istiyorum yardım cı olursanız sevinirim

----------

Proj¤yi biraz yaptımda sür¤kli aynı tuşa basıyor anlamadım bişi

----------

2008 kullanıyom ona göre yardım ederseniz

----------

Yardım edicek kmse yokmu orda

Cottonmouth · 6 Şub 2011

Tam olarak nerde takıldın ? Direk nasıl yaparım demek yerine takıldığın yeri sorarsan , yanlış çalışan kod parçasını falan yazarsan daha rahat yardımcı olabilirz.

jojomax31 · 6 Şub 2011

sendkeys yazıyorum hata veriyor sendkeys yerine ne yazabilirim 2008 kllanıyom

XnCN · 6 Şub 2011

hotkey kullanımı vardı internete yazıp arastır

jojomax31 · 6 Şub 2011

yeterli bir sonuç yok

Cottonmouth · 6 Şub 2011

SendKeys.Send("{TAB}") şeklinde yazmalısın. Bu TAB gönderir mesela.

PinqUmut · 6 Şub 2011

jojomax31' Alıntı:
Bn sunworld için keyhelper yapmak istiyorum mesala 10 checkbox olcak 1.2.3.4.5.6... mesala 5 tanesine tik koydum iki tanede buton olcak başlat durdur başlata bastımda tik koyduklarım çalışcak 1.2.3 tik koydum mesala 1.2.3 basıcak durdur dedimde durucak böle bir şey yapmak istiyorum yardım cı olursanız sevinirim

----------

Proj¤yi biraz yaptımda sür¤kli aynı tuşa basıyor anlamadım bişi

----------

2008 kullanıyom ona göre yardım ederseniz

----------

Yardım edicek kmse yokmu orda

Bende Sunworld (VIP)
takılıyom Şuan Bi minibot calısmam var Sunworld için Vb.net yani vb 2008 de calısıyorum

Sana Yardımcı Olabilirim Sen bi başlada takılırsan sor + forumda cok key helper konusu var oralardan bak bence

----------

jojomax31' Alıntı:
yeterli bir sonuç yok

1 Adet CheckBox , 1 adet Timer ekle Intervalını 1000 yap 1snde bi göndersin

CheckBox Kodu;

Kod:

 If CheckBox1.Checked = True Then
            Timer1.Enabled = True
        Else
            Timer1.Enabled = False

        End If

Timer Kodu ;

Kod:

SendKeys.Send("1")

jojomax31 · 6 Şub 2011

Şimdi bnm Böle Bir Çalışamam var başlat butonuna basınca checkbox da tik koyduklarıma bassın istiyom ama o gidiyo bütün tuşlara basıyor bi yardım edebilirmisin

If CheckBox1.Checked = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
bu yazdıklarını butona yazıyorum her biri ayrı ayr çalıştırınca bütün tuşlara basıyor

End If

ImageShack® - Online Photo and Video Hosting

ImageShack® - Online Photo and Video Hosting

----------

Cottonmouth' Alıntı:
SendKeys.Send("{TAB}") şeklinde yazmalısın. Bu TAB gönderir mesela.

bn onu biliyom bit butonla tıklattıklarım çalışmıyo hepsi çalışıyor

Cottonmouth · 6 Şub 2011

1 timer olsun 2 checkbox mesela
timerın interval 100 yap enabled false yap

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

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox1.Checked = True Then
SendKeys.Send("{3}")
End If

If CheckBox2.Checked = True Then
SendKeys.Send("{4}")

End If
End Sub

aynı şekilde checkboxları çoğaltabilirsin.

jojomax31 · 6 Şub 2011

saol deniyorum

Cottonmouth · 6 Şub 2011

Sonucu belirtirsen senden sonraki arkadaşlar için faydalı olur.

PinqUmut · 6 Şub 2011

ben baska sekılde yapıyorum

Kod:

Butona yazılcak "Başlat"
If checkbox1.checked = true Then
timer1.enabled = true
else
timer1.enabled = false

Cottonmouth · 6 Şub 2011

8 tane timer mı kullanıyorsun :? Hiç akıl kârı değil.

jojomax31 · 6 Şub 2011

11 TANE CHECKBOX 2 BUTON ALIN SİZE BOT XD EMEĞİ GEÇENLERE SAOL

DAHA TAB TOPLA FELAN VARDI GİZLE GÖSTER ONLAR UZUN OLDUNDAN YAZMADIM İKON EKLEME FELAN :d
http://img706.imageshack.us/i/adszvs.png/

hepsini yaptımda sunworldu gizleyip bida nasıl göstercem onada bi yardım edersen süper olur şimdiden saol

Kod:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If CheckBox1.Checked = True Then
            SendKeys.Send("{x}")
        End If
        If CheckBox2.Checked = True Then
            SendKeys.Send("{1}")
        End If
        If CheckBox3.Checked = True Then
            SendKeys.Send("{2}")
        End If
        If CheckBox4.Checked = True Then
            SendKeys.Send("{3}")
        End If
        If CheckBox5.Checked = True Then
            SendKeys.Send("{4}")
        End If
        If CheckBox6.Checked = True Then
            SendKeys.Send("{5}")
        End If
        If CheckBox7.Checked = True Then
            SendKeys.Send("{6}")
        End If
        If CheckBox8.Checked = True Then
            SendKeys.Send("{7}")
        End If
        If CheckBox9.Checked = True Then
            SendKeys.Send("{8}")
        End If
        If CheckBox10.Checked = True Then
            SendKeys.Send("{9}")
        End If
        If CheckBox11.Checked = True Then
            SendKeys.Send("{0}")
        End If
        If CheckBox12.Checked = True Then
            SendKeys.Send("{TAB}")
        End If
        If CheckBox13.Checked = True Then
            SendKeys.Send("{ENTER}")
        End If
        If CheckBox14.Checked = True Then
            SendKeys.Send("{G}")
        End If
    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

Cottonmouth · 6 Şub 2011

Imports System.Diagnostics
Imports System.Runtime.InteropServices

Public Class Form1
Const SW_GIZLE As Integer = 0
Const SW_GOSTER As Integer = 9
Dim hWnd As Integer
Dim p As Process()
<DllImport("User32")> Private Shared Function ShowWindow(ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
End Function

Private Sub Form1_Load()
p = Process.GetProcessesByName("Client adı")
end sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ShowWindow(hWnd, SW_GOSTER)

hWnd = p(0).MainWindowHandle.ToInt32

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ShowWindow(hWnd, SW_GIZLE)
hWnd = p(0).MainWindowHandle.ToInt32

End Sub

End Class

PinqUmut · 6 Şub 2011

F6 basınca sunworld kendılıgınden gizlenıyo ztn

----------

Konu Başlıgını Nasıl Degiştiriyoduk :S MiniBota Ver geldi

onu degıstırcem

----------

tıkladım bi yerlere oldu

jojomax31 · 6 Şub 2011

Kardeş hata veriyo sunworlda gizle dedimmi ne gizliyo ne gösteriyo

Cottonmouth · 6 Şub 2011

Ne hata verdi?

PinqUmut · 6 Şub 2011

jojomax31' Alıntı:
Kardeş hata veriyo sunworlda gizle dedimmi ne gizliyo ne gösteriyo

seninmi bu xD + senınse berserk kodu ver

Cottonmouth · 6 Şub 2011

Taba bastırmış işte

VB.NET Sorular - Kod istekleri

Cottonmouth

Cottonmouth

PinqUmut

Cottonmouth

Cottonmouth

PinqUmut

Cottonmouth

Cottonmouth

PinqUmut

Cottonmouth

PinqUmut

Cottonmouth