VB.NET Sorular - Kod istekleri

jojomax31 · 6 Şub 2011

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

F6 ya basınca gizlenmiyor olmuyor f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım Cottonmouth

PinqUmut · 6 Şub 2011

taba ne

jojomax31 · 6 Şub 2011

gİZLE dİYİNCE NETWORK HATASI VERİYO NETWORK DE BİŞİ YOK O ÇALIŞMIYOR

Cottonmouth · 6 Şub 2011

PinqUmut' Alıntı:
taba ne

Tab tuşu işte

jojomax31 · 6 Şub 2011

esc nin iki altında buluna güzel bir tuş

PinqUmut' Alıntı:
taba ne

Cottonmouth · 6 Şub 2011

jojomax31' Alıntı:
F6 ya basınca gizlenmiyor olmuyor f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım Cottonmouth

F6 veya F5 ile ilgili hiç bişey söylemedim ki ben anlamadım ne yaptığını

PinqUmut · 6 Şub 2011

hmmm Oda güzel

Cottonmouth · 6 Şub 2011

PinqUmut' Alıntı:
taba ne

8 karakter boşluk bırakıyo. Biri sağa diğeri sola ok işaretleri var üstünde

jojomax31 · 6 Şub 2011

Kardeş hata veriyo sunworlda gizle dedimmi ne gizliyo ne gösteriyo
gİZLE dİYİNCE NETWORK HATASI VERİYO NETWORK DE BİŞİ YOK O ÇALIŞMIYOR
f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım Cottonmouth

PinqUmut · 6 Şub 2011

Cottonmouth' Alıntı:
F6 veya F5 ile ilgili hiç bişey söylemedim ki ben anlamadım ne yaptığını

eskıden sunworldde f6 basınca kendısı gızlıyodu oyunu f6 tekrar basınca gösterıyodu ondan dedım ama kalkmıs

jojomax31 · 6 Şub 2011

yok bn senin dedini yaptım olmadı bekliyom senin bişey demeni ariyetten bi de onu gösteririmisin f5 durup başlatmayı

Cottonmouth · 6 Şub 2011

jojomax31' Alıntı:
Kardeş hata veriyo sunworlda gizle dedimmi ne gizliyo ne gösteriyo
gİZLE dİYİNCE NETWORK HATASI VERİYO NETWORK DE BİŞİ YOK O ÇALIŞMIYOR
f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım Cottonmouth

Anlamıyorum ne dediğini malesef. " f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım " ne demek ?

----------

Şimdi pc de değilim visual studio yok.Ama bu konuda 4.sayfada var gizleme hakkında bilgi ordan bakabilirsin. Ufak hatalar olmuş olabilir visual'da denemedğim için

jojomax31 · 6 Şub 2011

Kod:

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 KapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub GizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GizleToolStripMenuItem.Click
        Me.Visible = False
        GizleToolStripMenuItem.Visible = False
        GöterToolStripMenuItem.Visible = True
    End Sub

    Private Sub GöterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GöterToolStripMenuItem.Click
        Me.Visible = True
        GizleToolStripMenuItem.Visible = True
        GöterToolStripMenuItem.Visible = False
    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 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
        Button1.Visible = False
        Label4.Text = "başlatıldı"
        Label3.Text = ""
        Button2.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button2.Visible = False
        Label4.Text = ""
        Label3.Text = "Durduruldu"
        Button1.Visible = True

    End Sub

    Private Sub ToolStripDropDownButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton2.Click
        Me.Hide()
    End Sub

    Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        p = Process.GetProcessesByName("SRO_Client.exe")
    End Sub
End Class

böle şuan

PinqUmut · 6 Şub 2011

Cottonmouth' Alıntı:
Anlamıyorum ne dediğini malesef. " f5 basınca çalışım f5 basınca durdurmak için ne yapmalıyım " ne demek ?

Tercüme edem

Diyo ki : programım F5 e basınca calıssın sonra F5 basınca Dursun hmmm xD

jojomax31 · 6 Şub 2011

gizle olmuyo hata veriyor diyorum

f5 basınca botu çalıştırıp f5 basınca durdurmak diyorum

Cottonmouth · 6 Şub 2011

jojomax31' Alıntı:

Kod:

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 KapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub GizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GizleToolStripMenuItem.Click
        Me.Visible = False
        GizleToolStripMenuItem.Visible = False
        GöterToolStripMenuItem.Visible = True
    End Sub

    Private Sub GöterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GöterToolStripMenuItem.Click
        Me.Visible = True
        GizleToolStripMenuItem.Visible = True
        GöterToolStripMenuItem.Visible = False
    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 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
        Button1.Visible = False
        Label4.Text = "başlatıldı"
        Label3.Text = ""
        Button2.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button2.Visible = False
        Label4.Text = ""
        Label3.Text = "Durduruldu"
        Button1.Visible = True

    End Sub

    Private Sub ToolStripDropDownButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton2.Click
        Me.Hide()
    End Sub

    Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        p = Process.GetProcessesByName("SRO_Client.exe")
    End Sub
End Class

böle şuan

en başta Imports System.Diagnostics da olmalı. Yine hata veriyorsa sayfa 4 e bak dediğim gibi. Minibooktayım vs. yok .

DUrdurma başlatma içinde :

Dim calisiyor as boolean = false

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F5 Then
if calisiyor = false then
timer1.enabled = true 'burda başlat için gereken kodları yaz
calisiyor = true
else if calisiyor = true then
timer1.enabled = false ' burda durdur için gerken kodları yaz
calisiyor = false
End If
End Sub

PinqUmut · 6 Şub 2011

Bak Gizle/Göster Son hali böyle olsun

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.T  oString)
    End Sub
End Class

Kendıne Göre ayarla listbox'ı fln ben kaçtım işim var

olmassa hazır proje atarım

----------

Imports System.Diagnostics
Imports System.Runtime.InteropServices

En tepeye yaz bunu

jojomax31 · 6 Şub 2011

tamam bakıyom 1 dk

Cottonmouth · 6 Şub 2011

PinqUmut' Alıntı:

Bak Gizle/Göster Son hali böyle olsun

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.T  oString)
    End Sub
End Class

Kendıne Göre ayarla listbox'ı fln ben kaçtım işim var

olmassa hazır proje atarım

----------

Imports System.Diagnostics
Imports System.Runtime.InteropServices

En tepeye yaz bunu

Sayfa 4 deki bu zaten

jojomax31 · 6 Şub 2011

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
p = Process.GetProcessesByName(ListBox1.SelectedItem.T oString) kırmızı yazı hata veriyo ne yazıcam onun yerine