daily pastebin goal
63%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim f1 As Integer = 0
  2.         Dim f2 As Integer = 0
  3.         Dim f3 As Integer = 0
  4.         Dim f4 As Integer = 0
  5.         Dim f5 As Integer = 0
  6.         Dim f6 As Integer = 0
  7.         Dim f7 As Integer = 0
  8.         Dim f8 As Integer = 0
  9.         Dim f9 As Integer = 0
  10.         Dim f10 As Integer = 0
  11.         Dim f11 As Integer = 0
  12.         Dim f12 As Integer = 0
  13.         f1 = GetAsyncKeyState(Keys.F1)
  14.         f2 = GetAsyncKeyState(Keys.F2)
  15.         f3 = GetAsyncKeyState(Keys.F3)
  16.         f4 = GetAsyncKeyState(Keys.F4)
  17.         f5 = GetAsyncKeyState(Keys.F5)
  18.         f6 = GetAsyncKeyState(Keys.F6)
  19.         f7 = GetAsyncKeyState(Keys.F7)
  20.         f8 = GetAsyncKeyState(Keys.F8)
  21.         f9 = GetAsyncKeyState(Keys.F9)
  22.         f10 = GetAsyncKeyState(Keys.F10)
  23.         f11 = GetAsyncKeyState(Keys.F11)
  24.         f12 = GetAsyncKeyState(Keys.F12)
  25.         'hotkey enable
  26.         If ComboBox1.Text = "F1" Then
  27.             If f1 = -32768 Then
  28.                 Timer2.Start()
  29.                 Timer4.Start()
  30.                 Timer5.Start()
  31.                 Timer6.Start()
  32.             End If
RAW Paste Data
Top