daily pastebin goal
47%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 44 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top