VB.NET Sorular - Kod istekleri

Cottonmouth · 6 Şub 2011

T oString yazdım deme lütfen :S

T oStrin olmiyacak Tostring olucak birleşik yani.

jojomax31 · 6 Şub 2011

Saol :d

----------

B ütün görev yöneticisi doluşmuş listeye

SADECE SRO CLİENT OLMUYOMU XD

Cottonmouth · 7 Şub 2011

onuda yazdım sayfa 5'e bak

jojomax31 · 7 Şub 2011

5 . sayfada bulamadım bi baka bilirmisin

Cottonmouth · 7 Ş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

jojomax31 · 7 Şub 2011

Yaptım bak bi olmuşmu die

Bakın olmuşmu bkalım

Link
Keypermax.exe

Virüs Total
VirusTotal - Free Online Virus, Malware and URL Scanner

----------

Buda bazı örnekler işinize yarar inşallah

OkanBeydanol.rar

Virüs total

VirusTotal - Free Online Virus, Malware and URL Scanner

Iwa · 7 Şub 2011

jojomax31' Alıntı:

Yaptım bak bi olmuşmu die
Bakın olmuşmu bkalım
Link
Keypermax.exe

Virüs Total
VirusTotal - Free Online Virus, Malware and URL Scanner

----------

Buda bazı örnekler işinize yarar inşallah

OkanBeydanol.rar

Virüs total

VirusTotal - Free Online Virus, Malware and URL Scanner

Genişletmek için tıkla ...

niye setup yapıyorsun ?

jojomax31 · 7 Şub 2011

setup olunca daha guzel oluyor

PinqUmut · 8 Şub 2011

TextBox' ın içine harf yazmayı engelleme

BurakKalkan · 8 Şub 2011

textbox'un keypress eventinde girilen karakterin ascii kodunu alıp sayı mı değil mi diye kontrol ettirebilirsin. aşağıdaki gibi..

If Asc(e.KeyChar) <> 8 Then
e.Handled = Not IsNumeric(e.KeyChar)
End If

PinqUmut · 8 Şub 2011

ASCII Bunu Ögrenmıstım Arastırıken ascıı bulmayı

jojomax31 · 8 Şub 2011

PinqUmut' Alıntı:
TextBox' ın içine harf yazmayı engelleme

Textbox içine deşik harf yazsanda farketmiyor gene x e basıyo öle ayarlamadım ayarlasaydım zaten niye kapatayım textboxu

----------

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

Buda işe yaramıyor hata veriyor diyeri yaradı onu yaptım

----------

Ben şöle daha güzel birşey yapmak m istiyorum da normal tuşlara basmıcak içten bascak db bot gibi onu nasıl ayarlaya bilirim BİRAZ İPUCU VERİRİSEN

PinqUmut · 8 Şub 2011

jojomax31' Alıntı:
Textbox içine deşik harf yazsanda farketmiyor gene x e basıyo öle ayarlamadım ayarlasaydım zaten niye kapatayım textboxu

----------

Buda işe yaramıyor hata veriyor diyeri yaradı onu yaptım

----------

Ben şöle daha güzel birşey yapmak m istiyorum da normal tuşlara basmıcak içten bascak db bot gibi onu nasıl ayarlaya bilirim BİRAZ İPUCU VERİRİSEN

Benim text içine harf engelleme kodu ıstememle bunun hiç alakası yok

Db bota gelince galiba skıll kodları gerekiyo oda oyundan opcodemı ne onlardan alman lazım

jojomax31 · 8 Şub 2011

opcodeleri nette araştırdım 1 tane bile düzgün bilgi yok

----------

opcode nedir bi bilgisi olan sölerse sevinirim

----------

Kimse Ykmu oRda

BurakKalkan · 8 Şub 2011

bulamazsın tabi. sırdır çünkü bu. devlet sırrı

PinqUmut · 8 Şub 2011

yarın opcode konusunu bıraz karıstırcam vb.net konularına bakarsan opcode bulma dıye bı konu var konuyu acan kişiyle görüştüm bana biraz bilgi verdi ben ugrascam yani yarın o zaman konuruz senle

jojomax31 · 8 Şub 2011

Tamam saol kardeş bekliyorum . araştırıp paylaşırsan sevinirim

Tez cevap atmanı dilerim xd

jojomax31 · 9 Şub 2011

En son eklediğim keyhelpere bnziyor ama db botun kopyasını yaptım ama hiç bi kod yok kodlarda yardım edicek birisi varsa yardım edersiniz sevinirim keyperamxı çalışıyor

Link:Kypermaxand db bot .exe

virüs totol:VirusTotal - Free Online Virus, Malware and URL Scanner

Iwa · 9 Şub 2011

jojomax31' Alıntı:

En son eklediğim keyhelpere bnziyor ama db botun kopyasını yaptım ama hiç bi kod yok kodlarda yardım edicek birisi varsa yardım edersiniz sevinirim keyperamxı çalışıyor

Link:Kypermaxand db bot .exe

virüs totol:VirusTotal - Free Online Virus, Malware and URL Scanner

Genişletmek için tıkla ...

sırf setup diye kurmadım

jojomax31 · 9 Şub 2011

atarım kodları şimdi

BAKARSINIZ

----------

Bu Yaptımklarımın kodları

Kod:

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 pencerelerigoster()
        Dim islem() As Process = Process.GetProcesses()

        ListBox1.Items.Clear()

        For Each x As Process In islem
            If x.ProcessName <> "" Then
                ListBox1.Items.Add(x.ProcessName())
            End If
        Next
        ListBox1.Items.Remove(Me.Text)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pencerelerigoster()


    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

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        p = Process.GetProcessesByName(ListBox1.SelectedItem.ToString)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If CheckBox23.Checked = True Then
            SendKeys.Send("{x}")
        End If
        If CheckBox24.Checked = True Then
            SendKeys.Send("{1}")
        End If
        If CheckBox32.Checked = True Then
            SendKeys.Send("{2}")
        End If
        If CheckBox27.Checked = True Then
            SendKeys.Send("{3}")
        End If
        If CheckBox29.Checked = True Then
            SendKeys.Send("{4}")
        End If
        If CheckBox30.Checked = True Then
            SendKeys.Send("{5}")
        End If
        If CheckBox25.Checked = True Then
            SendKeys.Send("{6}")
        End If
        If CheckBox26.Checked = True Then
            SendKeys.Send("{7}")
        End If
        If CheckBox28.Checked = True Then
            SendKeys.Send("{8}")
        End If
        If CheckBox31.Checked = True Then
            SendKeys.Send("{9}")
        End If
        If CheckBox33.Checked = True Then
            SendKeys.Send("{0}")
        End If
        If CheckBox36.Checked = True Then
            SendKeys.Send("{TAB}")
        End If
        If CheckBox35.Checked = True Then
            SendKeys.Send("{ENTER}")
        End If
        If CheckBox34.Checked = True Then
            SendKeys.Send("{G}")
        End If
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Timer1.Enabled = True
        Button16.Visible = False
        Label9.Text = "Başlatıldı"
        Label55.Text = ""
        Button17.Visible = True
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Timer1.Enabled = False
        Button17.Visible = False
        Label55.Text = "Durduruldu"
        Label9.Text = ""
        Button16.Visible = True
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    End Sub

    Private Sub Göster1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Göster1.Click
        Me.Visible = True
        Gizle1.Visible = True
    End Sub

    Private Sub Gizle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gizle1.Click
        Me.Visible = False
        Göster1.Visible = True
    End Sub

    Private Sub Göster2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Gizle2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub KapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class

----------

PinqUmut' Alıntı:
yarın opcode konusunu bıraz karıstırcam vb.net konularına bakarsan opcode bulma dıye bı konu var konuyu acan kişiyle görüştüm bana biraz bilgi verdi ben ugrascam yani yarın o zaman konuruz senle

Bekliyorum seni