Here is the code i have for a form:
Code:
Public Class Form1
Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
Private Const MF_DISABLED = &H2
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Long) As IntPtr
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
Public Sub DisableCloseButton(ByVal hwnd As IntPtr)
Dim hMenu As IntPtr
Dim menuItemCount As Integer
hMenu = GetSystemMenu(hwnd, False)
menuItemCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION)
Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION)
Call DrawMenuBar(hwnd)
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Label3.Text = TrackBar1.Value
Label6.Text = TrackBar1.Value / 1000
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = True Then
Process.Start(Application.StartupPath & "\startupedit.exe")
Timer1.Interval = TrackBar1.Value
My.Settings.speed = TrackBar1.Value
My.Settings.Save()
Else
Timer1.Interval = TrackBar1.Value
My.Settings.speed = TrackBar1.Value
My.Settings.Save()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DisableCloseButton(Me.Handle)
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
"Computer Spammer Startup", Nothing) Is Nothing Then
MsgBox("Normal startup, no startup event found", MsgBoxStyle******rmation, "Normal Startup")
TrackBar1.Value = My.Settings.speed
Else
MsgBox("Startup commands...")
TrackBar1.Value = My.Settings.speed
Button2.Enabled = False
Me.Hide()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
If CheckBox12.Checked = True Then
NotifyIcon1.Visible = True
Else
NotifyIcon1.Visible = False
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If CheckBox4.Checked = True Then
Form2.Show()
ElseIf CheckBox7.Checked = False Then
antivir.Show()
ElseIf CheckBox9.Checked = True Then
Process.Start(Application.StartupPath & "cd.vbs")
End If
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Show()
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
CheckBox10.Checked = True
CheckBox10.Enabled = False
End If
If CheckBox3.Checked = False Then
CheckBox10.Enabled = True
End If
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.A Then
TextBox1.Text = e.KeyCode
End If
End Sub
End Class
now... if i have my hotkey code...
Code:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.A Then
TextBox1.Text = e.KeyCode
End If
End Sub
End Class
nothing happens :/
IDK How to fix this, i already tried GetAsyncKeyState...