vb.net d3d menü yardım

KHeJ · 7 Eki 2019

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.

Visual Basic:

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 · 7 Eki 2019

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 · 7 Eki 2019

Marvel-S' Alıntı:
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

KralHack21' Alıntı:
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 · 7 Eki 2019

VB.Net:

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 · 8 Eki 2019

tarAFSIZ' Alıntı:

VB.Net:

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 · 8 Eki 2019

KralHack21' Alıntı:
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 · 9 Eki 2019

tarAFSIZ' Alıntı:
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 · 9 Eki 2019

KralHack21' Alıntı:
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 · 9 Eki 2019

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

neresini anlamadın ?

fufuker1 · 12 Eki 2019

KralHack21' Alıntı:
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

Visual Basic:

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 · 12 Eki 2019

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

mowen1 · 6 Şub 2020

KHeJ' Alıntı:
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 · 21 Nis 2020

I tried . it works

Ara

vb.net d3d menü yardım

KHeJ

Marvel-S

No System Safe

KHeJ

tarAFSIZ

KHeJ

tarAFSIZ

KHeJ

Marvel-S

No System Safe

tarAFSIZ

fufuker1

Muhammet Akkus

mowen1

ahmed00hacker

Benzer Konular