vb.net d3d menü yardım

[KHeJ]

herkese merhaba arkadaşlar d3d menum var sıkıntısız çalişio ama şöyle bir şey yapmak istiyorum internette ne kadar araştırdıysam bulamadım umarım burda yardımcı olcak biri vardır.

If GetAsyncKeyState(Keys.Right) = -32767 Then
            If Label1.ForeColor = Color.Aqua Then
                Label2.ForeColor = Color.Green
                Label2.Text = "[ON]"
                'pointerler buraya
                Exit Sub
            End If

--------------------------------------------------------

 If GetAsyncKeyState(Keys.Left) = -32767 Then
            If Label1.ForeColor = Color.Aqua Then
                Label2.ForeColor = Color.Red
                Label2.Text = "[OFF]"
                ' off pointerleri braya 
                Exit Sub
            End If

bu kodlar sayesinde off olan label sağa basınca on olio sola basıncada of olio fakat şöyle bişey yapmak istiyorum bida sağa basınca örneğin ; shift,capslock vb. olsun bida sola basınca da önceki bastıgım şey olsun örneğin ; sağa bastım on oldu bida sağa bastım shift oldu daha sonra sola bastım on oldu bida sola bastım off oldu bunu nasıl yapabilirim yardımcı olabilcek kimse yokmu 2 gündür aramadığm yer kalmadı cidden. Yardımcı olacak arkadaşa teşekkür ederim şimdiden

 

[Marvel-S]

If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.Aqua Then
Label2.ForeColor = Color.Green
Label2.Text = "[ON]"
'pointerler buraya
Elseif label2.text="[ON]" then
label2.text="[LeftShift]"
'pointer
Exit Sub
End If
bu şekil olması lazım telefondan yazdım inşallah eksik yazmamışımdır dene sen.

 

[KHeJ]

If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.Aqua Then
Label2.ForeColor = Color.Green
Label2.Text = "[ON]"
'pointerler buraya
Elseif label2.text="[ON]" then
label2.text="[LeftShift]"
'pointer
Exit Sub
End If
bu şekil olması lazım telefondan yazdım inşallah eksik yazmamışımdır dene sen.

DENİYORUM OLURSA İSTEDİĞİN BİŞEY VARSA SÖYLE HEMEN VEREYİM KARDEŞİM.

Post automatically merged: 7 Eki 2019

DENİYORUM OLURSA İSTEDİĞİN BİŞEY VARSA SÖYLE HEMEN VEREYİM KARDEŞİM.

Yok kardeşim olmadı sağa basınca on olio bida basinca bisey olmuyo

 

[tarAFSIZ]

Dim i As Integer = 0
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        'Aimbot Hotkey ON'
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            i += 1
        ElseIf i = 1 Then
            Label1.ForeColor = Color.Green
            Label1.Text = "[SHIFT]"
        ElseIf i = 2 Then
            Label1.Text = "[CAPSLOCK]"
        ElseIf i = 3 Then
            Label1.Text = "[ALT]"
        End If
        'OFF'
        If GetAsyncKeyState(Keys.Left) = -32767 Then
            i -= 4
            Label1.Text = "[OFF]"
            Label1.ForeColor = Color.Red
        End If
    End Sub

böyle bir şey mi istiyon ?

 

[KHeJ]

Dim i As Integer = 0
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        'Aimbot Hotkey ON'
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            i += 1
        ElseIf i = 1 Then
            Label1.ForeColor = Color.Green
            Label1.Text = "[SHIFT]"
        ElseIf i = 2 Then
            Label1.Text = "[CAPSLOCK]"
        ElseIf i = 3 Then
            Label1.Text = "[ALT]"
        End If
        'OFF'
        If GetAsyncKeyState(Keys.Left) = -32767 Then
            i -= 4
            Label1.Text = "[OFF]"
            Label1.ForeColor = Color.Red
        End If
    End Sub

böyle bir şey mi istiyon ?

dayı aynen böyle bişey fakat bunu yapınca sola tekrar bastıgımda direk of olio mesela capslocktan sonra sola basınca shift olması için ne yazmam lazım bu arada kod için çok teşekkür ederim

 

[tarAFSIZ]

dayı aynen böyle bişey fakat bunu yapınca sola tekrar bastıgımda direk of olio mesela capslocktan sonra sola basınca shift olması için ne yazmam lazım bu arada kod için çok teşekkür ederim

x -= 1 left offa gelince redle swit case ile de yapılabilir hayal gücüne kalmış

 

[KHeJ]

x -= 1 left offa gelince redle swit case ile de yapılabilir hayal gücüne kalmış

babacan daha detaylı anlatamazmısın yapmaya çalışıyorum ama çok değişik şeyler oluyo

 

[Marvel-S]

DENİYORUM OLURSA İSTEDİĞİN BİŞEY VARSA SÖYLE HEMEN VEREYİM KARDEŞİM.

Post automatically merged: 7 Eki 2019

Yok kardeşim olmadı sağa basınca on olio bida basinca bisey olmuyo

özelden yaz atim.

 

[tarAFSIZ]

babacan daha detaylı anlatamazmısın yapmaya çalışıyorum ama çok değişik şeyler oluyo

neresini anlamadın ?

 

[fufuker1]

babacan daha detaylı anlatamazmısın yapmaya çalışıyorum ama çok değişik şeyler oluyo

Buyur kardeşim, case kullanarakta yapabilirsin.
Daha anlaşılır olsun diye böyle yazdım.
Kod bu Matematik gibi, bir sorunun birden fazla çözümyolu vardır

Dim a As Integer = 0
    Sub check()
        If a = 0 Then
            Label2.ForeColor = Color.Red
            Label2.Text = "[OFF]"
        ElseIf a = 1 Then
            Label2.ForeColor = Color.Lime
            Label2.Text = "[LSHIFT]"
        ElseIf a = 2 Then
            Label2.Text = "[RSHIFT]"
        ElseIf a = 3 Then
            Label2.Text = "[CAPSLOCK]"
            'Bu şekilde devam ettirilebilir.
            'fufuker1
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If GetAsyncKeyState(Keys.A) And a < 3 Then
            a += 1
            check()
        ElseIf GetAsyncKeyState(Keys.B) And a > 0 Then
            a -= 1
                check()
            End If

    End Sub

 

[Muhammet Akkus]

bir .net dili ile d3d menü yapman imkansız, sadece ön plana çıkarırsın exe'yi.

 

[mowen1]

dayı aynen böyle bişey fakat bunu yapınca sola tekrar bastıgımda direk of olio mesela capslocktan sonra sola basınca shift olması için ne yazmam lazım bu arada kod için çok teşekkür ederim

kodu bende denedım çalısıyor

 

[ahmed00hacker]

I tried . it works