API tools faq
paste
Advertisement
Guest User

code (unshortened)

a guest
Feb 1st, 2014
25
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 35.76 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Speech.Recognition
  2. Imports System.Speech.Recognition.SrgsGrammar
  3.  
  4. Public Class Form1
  5.  
  6. Private recognizer As SpeechRecognizer
  7.  
  8. Public Sub New()
  9.  
  10. ' This call is required by the designer.
  11. InitializeComponent()
  12.  
  13. recognizer = New SpeechRecognizer()
  14.  
  15. ' Add any initialization after the InitializeComponent() call.
  16.  
  17. AddHandler recognizer.SpeechDetected, AddressOf recognizer_SpeechDetected
  18.  
  19. AddHandler recognizer.SpeechRecognitionRejected, AddressOf recognizer_SpeechRecognitionRejected
  20.  
  21. AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized
  22.  
  23. Dim grammar As New GrammarBuilder()
  24. grammar.Append(New Choices("queue", "tag", "draft"))
  25. grammar.Append(New Choices("madoka", "kill la kill", "kyoukai no kanata", "dangan ronpa", "sdr2", "persona 4", "art", "persona 3", "fire emblem", "panty and stocking", "favorite", "attack on titan", "scopophobia", "space dandy", "evangelion", "cowboy bebop", "animal crossing", "steven universe", "places", "pokemon", "food", "fashion", "music", "sailor moon", "ouran", "dramatical murder", "ace attorney", "komaeda", "lucina", "mukuro", "naoto", "apollo", "pixels", "lonku", "owain", "kyary", "shinji", " "))
  26. grammar.Append(New Choices("madoka", "kill la kill", "kyoukai no kanata", "dangan ronpa", "sdr2", "persona 4", "art", "persona 3", "fire emblem", "panty and stocking", "favorite", "attack on titan", "scopophobia", "space dandy", "evangelion", "cowboy bebop", "animal crossing", "steven universe", "places", "pokemon", "food", "fashion", "music", "sailor moon", "ouran", "dramatical murder", "ace attorney", "komaeda", "lucina", "mukuro", "naoto", "apollo", "pixels", "lonku", "owain", "kyary", "shinji", " "))
  27. grammar.Append(New Choices("madoka", "kill la kill", "kyoukai no kanata", "dangan ronpa", "sdr2", "persona 4", "art", "persona 3", "fire emblem", "panty and stocking", "favorite", "attack on titan", "scopophobia", "space dandy", "evangelion", "cowboy bebop", "animal crossing", "steven universe", "places", "pokemon", "food", "fashion", "music", "sailor moon", "ouran", "dramatical murder", "ace attorney", "komaeda", "lucina", "mukuro", "naoto", "apollo", "pixels", "lonku", "owain", "kyary", "shinji", " "))
  28. grammar.Append(New Choices("madoka", "kill la kill", "kyoukai no kanata", "dangan ronpa", "sdr2", "persona 4", "art", "persona 3", "fire emblem", "panty and stocking", "favorite", "attack on titan", "scopophobia", "space dandy", "evangelion", "cowboy bebop", "animal crossing", "steven universe", "places", "pokemon", "food", "fashion", "music", "sailor moon", "ouran", "dramatical murder", "ace attorney", "komaeda", "lucina", "mukuro", "naoto", "apollo", "pixels", "lonku", "owain", "kyary", "shinji", "back", " "))
  29.  
  30. recognizer.LoadGrammar(New Grammar(grammar))
  31. End Sub
  32.  
  33. Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
  34.  
  35. Select Case e.Result.Text.ToUpper
  36.  
  37. Case Is = "tag madoka"
  38. AppActivate("chrome.exe")
  39. SendKeys.Send("t")
  40. SendKeys.Send("pmmm")
  41. SendKeys.Send("{TAB}{TAB}")
  42. SendKeys.Send("r")
  43.  
  44. Case Is = "tag madoka music"
  45. SendKeys.Send("t")
  46. SendKeys.Send("pmmm, music")
  47. SendKeys.Send("{TAB}{TAB}")
  48. SendKeys.Send("r")
  49.  
  50. Case Is = "tag kill la kill"
  51. SendKeys.Send("t")
  52. SendKeys.Send("klk")
  53. SendKeys.Send("{TAB}{TAB}")
  54. SendKeys.Send("r")
  55.  
  56. Case Is = "tag kill la kill music"
  57. SendKeys.Send("t")
  58. SendKeys.Send("klk, music")
  59. SendKeys.Send("{TAB}{TAB}")
  60. SendKeys.Send("r")
  61.  
  62. Case Is = "tag kyoukai no kanata"
  63. SendKeys.Send("t")
  64. SendKeys.Send("knk")
  65. SendKeys.Send("{TAB}{TAB}")
  66. SendKeys.Send("r")
  67.  
  68. Case Is = "tag kyoukai no kanata music"
  69. SendKeys.Send("t")
  70. SendKeys.Send("knk, music")
  71. SendKeys.Send("{TAB}{TAB}")
  72. SendKeys.Send("r")
  73.  
  74. Case Is = "tag dangan ronpa"
  75. SendKeys.Send("t")
  76. SendKeys.Send("dr")
  77. SendKeys.Send("{TAB}{TAB}")
  78. SendKeys.Send("r")
  79.  
  80. Case Is = "tag dangan ronpa music"
  81. SendKeys.Send("t")
  82. SendKeys.Send("dr, music")
  83. SendKeys.Send("{TAB}{TAB}")
  84. SendKeys.Send("r")
  85.  
  86. Case Is = "tag dangan ronpa mukuro"
  87. SendKeys.Send("t")
  88. SendKeys.Send("dr, the bae")
  89. SendKeys.Send("{TAB}{TAB}")
  90. SendKeys.Send("r")
  91.  
  92. Case Is = "tag sdr2"
  93. SendKeys.Send("t")
  94. SendKeys.Send("sdr2")
  95. SendKeys.Send("{TAB}{TAB}")
  96. SendKeys.Send("r")
  97.  
  98. Case Is = "tag sdr2 komaeda"
  99. SendKeys.Send("t")
  100. SendKeys.Send("sdr2, the prince")
  101. SendKeys.Send("{TAB}{TAB}")
  102. SendKeys.Send("r")
  103.  
  104. Case Is = "tag persona 4"
  105. SendKeys.Send("t")
  106. SendKeys.Send("p4")
  107. SendKeys.Send("{TAB}{TAB}")
  108. SendKeys.Send("r")
  109.  
  110. Case Is = "tag persona 4 naoto"
  111. SendKeys.Send("t")
  112. SendKeys.Send("p4, darling")
  113. SendKeys.Send("{TAB}{TAB}")
  114. SendKeys.Send("r")
  115.  
  116. Case Is = "tag persona 3"
  117. SendKeys.Send("t")
  118. SendKeys.Send("p3")
  119. SendKeys.Send("{TAB}{TAB}")
  120. SendKeys.Send("r")
  121.  
  122. Case Is = "tag persona 3 music"
  123. SendKeys.Send("t")
  124. SendKeys.Send("p3, music")
  125. SendKeys.Send("{TAB}{TAB}")
  126. SendKeys.Send("r")
  127.  
  128. Case Is = "tag art"
  129. SendKeys.Send("t")
  130. SendKeys.Send("art")
  131. SendKeys.Send("{TAB}{TAB}")
  132. SendKeys.Send("r")
  133.  
  134. Case Is = "tag fire emblem"
  135. SendKeys.Send("t")
  136. SendKeys.Send("fe")
  137. SendKeys.Send("{TAB}{TAB}")
  138. SendKeys.Send("r")
  139.  
  140. Case Is = "tag fire emblem music"
  141. SendKeys.Send("t")
  142. SendKeys.Send("fe, music")
  143. SendKeys.Send("{TAB}{TAB}")
  144. SendKeys.Send("r")
  145.  
  146. Case Is = "tag fire emblem lucina"
  147. SendKeys.Send("t")
  148. SendKeys.Send("fe, daughter")
  149. SendKeys.Send("{TAB}{TAB}")
  150. SendKeys.Send("r")
  151.  
  152. Case Is = "tag fire emblem lonku"
  153. SendKeys.Send("t")
  154. SendKeys.Send("fe, potato prince")
  155. SendKeys.Send("{TAB}{TAB}")
  156. SendKeys.Send("r")
  157.  
  158. Case Is = "tag fire emblem owain"
  159. SendKeys.Send("t")
  160. SendKeys.Send("fe, husbando")
  161. SendKeys.Send("{TAB}{TAB}")
  162. SendKeys.Send("r")
  163.  
  164. Case Is = "tag panty and stocking"
  165. SendKeys.Send("t")
  166. SendKeys.Send("psg")
  167. SendKeys.Send("{TAB}{TAB}")
  168. SendKeys.Send("r")
  169.  
  170. Case Is = "tag panty and stocking music"
  171. SendKeys.Send("t")
  172. SendKeys.Send("psg, music")
  173. SendKeys.Send("{TAB}{TAB}")
  174. SendKeys.Send("r")
  175.  
  176. Case Is = "tag favorite"
  177. SendKeys.Send("t")
  178. SendKeys.Send("fav")
  179. SendKeys.Send("{TAB}{TAB}")
  180. SendKeys.Send("r")
  181.  
  182. Case Is = "tag attack on titan"
  183. SendKeys.Send("t")
  184. SendKeys.Send("snk")
  185. SendKeys.Send("{TAB}{TAB}")
  186. SendKeys.Send("r")
  187.  
  188. Case Is = "tag attack on titan music"
  189. SendKeys.Send("t")
  190. SendKeys.Send("snk, music")
  191. SendKeys.Send("{TAB}{TAB}")
  192. SendKeys.Send("r")
  193.  
  194. Case Is = "tag space dandy"
  195. SendKeys.Send("t")
  196. SendKeys.Send("space dandy")
  197. SendKeys.Send("{TAB}{TAB}")
  198. SendKeys.Send("r")
  199.  
  200. Case Is = "tag space dandy music"
  201. SendKeys.Send("t")
  202. SendKeys.Send("space dandy, music")
  203. SendKeys.Send("{TAB}{TAB}")
  204. SendKeys.Send("r")
  205.  
  206. Case Is = "tag evangelion"
  207. SendKeys.Send("t")
  208. SendKeys.Send("nge")
  209. SendKeys.Send("{TAB}{TAB}")
  210. SendKeys.Send("r")
  211.  
  212. Case Is = "tag evangelion shinji"
  213. SendKeys.Send("t")
  214. SendKeys.Send("nge, selfie")
  215. SendKeys.Send("{TAB}{TAB}")
  216. SendKeys.Send("r")
  217.  
  218. Case Is = "tag evangelion music"
  219. SendKeys.Send("t")
  220. SendKeys.Send("nge, music")
  221. SendKeys.Send("{TAB}{TAB}")
  222. SendKeys.Send("r")
  223.  
  224. Case Is = "tag cowboy bebop"
  225. SendKeys.Send("t")
  226. SendKeys.Send("cowboy bebop")
  227. SendKeys.Send("{TAB}{TAB}")
  228. SendKeys.Send("r")
  229.  
  230. Case Is = "tag cowboy bebop music"
  231. SendKeys.Send("t")
  232. SendKeys.Send("vowboy bebop, music")
  233. SendKeys.Send("{TAB}{TAB}")
  234. SendKeys.Send("r")
  235.  
  236. Case Is = "tag animal crossing"
  237. SendKeys.Send("t")
  238. SendKeys.Send("ac")
  239. SendKeys.Send("{TAB}{TAB}")
  240. SendKeys.Send("r")
  241.  
  242. Case Is = "tag animal crossing music"
  243. SendKeys.Send("t")
  244. SendKeys.Send("ac, music")
  245. SendKeys.Send("{TAB}{TAB}")
  246. SendKeys.Send("r")
  247.  
  248. Case Is = "tag steven universe"
  249. SendKeys.Send("t")
  250. SendKeys.Send("su")
  251. SendKeys.Send("{TAB}{TAB}")
  252. SendKeys.Send("r")
  253.  
  254. Case Is = "tag steven universe music"
  255. SendKeys.Send("t")
  256. SendKeys.Send("su, music")
  257. SendKeys.Send("{TAB}{TAB}")
  258. SendKeys.Send("r")
  259.  
  260. Case Is = "tag places"
  261. SendKeys.Send("t")
  262. SendKeys.Send("places")
  263. SendKeys.Send("{TAB}{TAB}")
  264. SendKeys.Send("r")
  265.  
  266. Case Is = "tag pokemon"
  267. SendKeys.Send("t")
  268. SendKeys.Send("pkmn")
  269. SendKeys.Send("{TAB}{TAB}")
  270. SendKeys.Send("r")
  271.  
  272. Case Is = "tag pokemon music"
  273. SendKeys.Send("t")
  274. SendKeys.Send("pkmn, music")
  275. SendKeys.Send("{TAB}{TAB}")
  276. SendKeys.Send("r")
  277.  
  278. Case Is = "tag food"
  279. SendKeys.Send("t")
  280. SendKeys.Send("food")
  281. SendKeys.Send("{TAB}{TAB}")
  282. SendKeys.Send("r")
  283.  
  284. Case Is = "tag fashion"
  285. SendKeys.Send("t")
  286. SendKeys.Send("fashion")
  287. SendKeys.Send("{TAB}{TAB}")
  288. SendKeys.Send("r")
  289.  
  290. Case Is = "tag music"
  291. SendKeys.Send("t")
  292. SendKeys.Send("music")
  293. SendKeys.Send("{TAB}{TAB}")
  294. SendKeys.Send("r")
  295.  
  296. Case Is = "tag sailor moon"
  297. SendKeys.Send("t")
  298. SendKeys.Send("sm")
  299. SendKeys.Send("{TAB}{TAB}")
  300. SendKeys.Send("r")
  301.  
  302. Case Is = "tag ouran"
  303. SendKeys.Send("t")
  304. SendKeys.Send("ohshc")
  305. SendKeys.Send("{TAB}{TAB}")
  306. SendKeys.Send("r")
  307.  
  308. Case Is = "tag dramatical murder"
  309. SendKeys.Send("t")
  310. SendKeys.Send("dmmd")
  311. SendKeys.Send("{TAB}{TAB}")
  312. SendKeys.Send("r")
  313.  
  314. Case Is = "tag dramatical murder music"
  315. SendKeys.Send("t")
  316. SendKeys.Send("dmmd, music")
  317. SendKeys.Send("{TAB}{TAB}")
  318. SendKeys.Send("r")
  319.  
  320. Case Is = "tag ace attorney"
  321. SendKeys.Send("t")
  322. SendKeys.Send("aa")
  323. SendKeys.Send("{TAB}{TAB}")
  324. SendKeys.Send("r")
  325.  
  326. Case Is = "tag ace attorney"
  327. SendKeys.Send("t")
  328. SendKeys.Send("aa, my son")
  329. SendKeys.Send("{TAB}{TAB}")
  330. SendKeys.Send("r")
  331.  
  332. Case Is = "tag ace attorney music"
  333. SendKeys.Send("t")
  334. SendKeys.Send("aa, music")
  335. SendKeys.Send("{TAB}{TAB}")
  336. SendKeys.Send("r")
  337.  
  338. Case Is = "tag pixels"
  339. SendKeys.Send("t")
  340. SendKeys.Send("pixels")
  341. SendKeys.Send("{TAB}{TAB}")
  342. SendKeys.Send("r")
  343.  
  344. Case Is = "tag kyary"
  345. SendKeys.Send("t")
  346. SendKeys.Send("kyary")
  347. SendKeys.Send("{TAB}{TAB}")
  348. SendKeys.Send("r")
  349.  
  350. Case Is = "tag kyary music"
  351. SendKeys.Send("t")
  352. SendKeys.Send("kyary, music")
  353. SendKeys.Send("{TAB}{TAB}")
  354. SendKeys.Send("r")
  355.  
  356.  
  357. Case Is = "draft madoka"
  358. SendKeys.Send("t")
  359. SendKeys.Send("pmmm")
  360. SendKeys.Send("{TAB}{TAB}")
  361. SendKeys.Send("d")
  362.  
  363. Case Is = "draft madoka music"
  364. SendKeys.Send("t")
  365. SendKeys.Send("pmmm, music")
  366. SendKeys.Send("{TAB}{TAB}")
  367. SendKeys.Send("d")
  368.  
  369. Case Is = "draft kill la kill"
  370. SendKeys.Send("t")
  371. SendKeys.Send("klk")
  372. SendKeys.Send("{TAB}{TAB}")
  373. SendKeys.Send("d")
  374.  
  375. Case Is = "draft kill la kill music"
  376. SendKeys.Send("t")
  377. SendKeys.Send("klk, music")
  378. SendKeys.Send("{TAB}{TAB}")
  379. SendKeys.Send("d")
  380.  
  381. Case Is = "draft kyoukai no kanata"
  382. SendKeys.Send("t")
  383. SendKeys.Send("knk")
  384. SendKeys.Send("{TAB}{TAB}")
  385. SendKeys.Send("d")
  386.  
  387. Case Is = "draft kyoukai no kanata music"
  388. SendKeys.Send("t")
  389. SendKeys.Send("knk, music")
  390. SendKeys.Send("{TAB}{TAB}")
  391. SendKeys.Send("d")
  392.  
  393. Case Is = "draft dangan ronpa"
  394. SendKeys.Send("t")
  395. SendKeys.Send("dr")
  396. SendKeys.Send("{TAB}{TAB}")
  397. SendKeys.Send("d")
  398.  
  399. Case Is = "draft dangan ronpa music"
  400. SendKeys.Send("t")
  401. SendKeys.Send("dr, music")
  402. SendKeys.Send("{TAB}{TAB}")
  403. SendKeys.Send("d")
  404.  
  405. Case Is = "draft dangan ronpa mukuro"
  406. SendKeys.Send("t")
  407. SendKeys.Send("dr, the bae")
  408. SendKeys.Send("{TAB}{TAB}")
  409. SendKeys.Send("d")
  410.  
  411. Case Is = "draft sdr2"
  412. SendKeys.Send("t")
  413. SendKeys.Send("sdr2")
  414. SendKeys.Send("{TAB}{TAB}")
  415. SendKeys.Send("d")
  416.  
  417. Case Is = "draft sdr2 komaeda"
  418. SendKeys.Send("t")
  419. SendKeys.Send("sdr2, the prince")
  420. SendKeys.Send("{TAB}{TAB}")
  421. SendKeys.Send("d")
  422.  
  423. Case Is = "draft persona 4"
  424. SendKeys.Send("t")
  425. SendKeys.Send("p4")
  426. SendKeys.Send("{TAB}{TAB}")
  427. SendKeys.Send("d")
  428.  
  429. Case Is = "draft persona 4 naoto"
  430. SendKeys.Send("t")
  431. SendKeys.Send("p4, darling")
  432. SendKeys.Send("{TAB}{TAB}")
  433. SendKeys.Send("d")
  434.  
  435. Case Is = "draft persona 3"
  436. SendKeys.Send("t")
  437. SendKeys.Send("p3")
  438. SendKeys.Send("{TAB}{TAB}")
  439. SendKeys.Send("d")
  440.  
  441. Case Is = "draft persona 3 music"
  442. SendKeys.Send("t")
  443. SendKeys.Send("p3, music")
  444. SendKeys.Send("{TAB}{TAB}")
  445. SendKeys.Send("d")
  446.  
  447. Case Is = "draft art"
  448. SendKeys.Send("t")
  449. SendKeys.Send("art")
  450. SendKeys.Send("{TAB}{TAB}")
  451. SendKeys.Send("d")
  452.  
  453. Case Is = "draft fire emblem"
  454. SendKeys.Send("t")
  455. SendKeys.Send("fe")
  456. SendKeys.Send("{TAB}{TAB}")
  457. SendKeys.Send("d")
  458.  
  459. Case Is = "draft fire emblem music"
  460. SendKeys.Send("t")
  461. SendKeys.Send("fe, music")
  462. SendKeys.Send("{TAB}{TAB}")
  463. SendKeys.Send("d")
  464.  
  465. Case Is = "draft fire emblem lucina"
  466. SendKeys.Send("t")
  467. SendKeys.Send("fe, daughter")
  468. SendKeys.Send("{TAB}{TAB}")
  469. SendKeys.Send("d")
  470.  
  471. Case Is = "draft fire emblem lonku"
  472. SendKeys.Send("t")
  473. SendKeys.Send("fe, potato prince")
  474. SendKeys.Send("{TAB}{TAB}")
  475. SendKeys.Send("d")
  476.  
  477. Case Is = "draft fire emblem owain"
  478. SendKeys.Send("t")
  479. SendKeys.Send("fe, husbando")
  480. SendKeys.Send("{TAB}{TAB}")
  481. SendKeys.Send("d")
  482.  
  483. Case Is = "draft panty and stocking"
  484. SendKeys.Send("t")
  485. SendKeys.Send("psg")
  486. SendKeys.Send("{TAB}{TAB}")
  487. SendKeys.Send("d")
  488.  
  489. Case Is = "draft panty and stocking music"
  490. SendKeys.Send("t")
  491. SendKeys.Send("psg, music")
  492. SendKeys.Send("{TAB}{TAB}")
  493. SendKeys.Send("d")
  494.  
  495. Case Is = "draft favorite"
  496. SendKeys.Send("t")
  497. SendKeys.Send("fav")
  498. SendKeys.Send("{TAB}{TAB}")
  499. SendKeys.Send("d")
  500.  
  501. Case Is = "draft attack on titan"
  502. SendKeys.Send("t")
  503. SendKeys.Send("snk")
  504. SendKeys.Send("{TAB}{TAB}")
  505. SendKeys.Send("d")
  506.  
  507. Case Is = "draft attack on titan music"
  508. SendKeys.Send("t")
  509. SendKeys.Send("snk, music")
  510. SendKeys.Send("{TAB}{TAB}")
  511. SendKeys.Send("d")
  512.  
  513. Case Is = "draft space dandy"
  514. SendKeys.Send("t")
  515. SendKeys.Send("space dandy")
  516. SendKeys.Send("{TAB}{TAB}")
  517. SendKeys.Send("d")
  518.  
  519. Case Is = "draft space dandy music"
  520. SendKeys.Send("t")
  521. SendKeys.Send("space dandy, music")
  522. SendKeys.Send("{TAB}{TAB}")
  523. SendKeys.Send("d")
  524.  
  525. Case Is = "draft evangelion"
  526. SendKeys.Send("t")
  527. SendKeys.Send("nge")
  528. SendKeys.Send("{TAB}{TAB}")
  529. SendKeys.Send("d")
  530.  
  531. Case Is = "draft evangelion shinji"
  532. SendKeys.Send("t")
  533. SendKeys.Send("nge, selfie")
  534. SendKeys.Send("{TAB}{TAB}")
  535. SendKeys.Send("d")
  536.  
  537. Case Is = "draft evangelion music"
  538. SendKeys.Send("t")
  539. SendKeys.Send("nge, music")
  540. SendKeys.Send("{TAB}{TAB}")
  541. SendKeys.Send("d")
  542.  
  543. Case Is = "draft cowboy bebop"
  544. SendKeys.Send("t")
  545. SendKeys.Send("cowboy bebop")
  546. SendKeys.Send("{TAB}{TAB}")
  547. SendKeys.Send("d")
  548.  
  549. Case Is = "draft cowboy bebop music"
  550. SendKeys.Send("t")
  551. SendKeys.Send("vowboy bebop, music")
  552. SendKeys.Send("{TAB}{TAB}")
  553. SendKeys.Send("d")
  554.  
  555. Case Is = "draft animal crossing"
  556. SendKeys.Send("t")
  557. SendKeys.Send("ac")
  558. SendKeys.Send("{TAB}{TAB}")
  559. SendKeys.Send("d")
  560.  
  561. Case Is = "draft animal crossing music"
  562. SendKeys.Send("t")
  563. SendKeys.Send("ac, music")
  564. SendKeys.Send("{TAB}{TAB}")
  565. SendKeys.Send("d")
  566.  
  567. Case Is = "draft steven universe"
  568. SendKeys.Send("t")
  569. SendKeys.Send("su")
  570. SendKeys.Send("{TAB}{TAB}")
  571. SendKeys.Send("d")
  572.  
  573. Case Is = "draft steven universe music"
  574. SendKeys.Send("t")
  575. SendKeys.Send("su, music")
  576. SendKeys.Send("{TAB}{TAB}")
  577. SendKeys.Send("d")
  578.  
  579. Case Is = "draft places"
  580. SendKeys.Send("t")
  581. SendKeys.Send("places")
  582. SendKeys.Send("{TAB}{TAB}")
  583. SendKeys.Send("d")
  584.  
  585. Case Is = "draft pokemon"
  586. SendKeys.Send("t")
  587. SendKeys.Send("pkmn")
  588. SendKeys.Send("{TAB}{TAB}")
  589. SendKeys.Send("d")
  590.  
  591. Case Is = "draft pokemon music"
  592. SendKeys.Send("t")
  593. SendKeys.Send("pkmn, music")
  594. SendKeys.Send("{TAB}{TAB}")
  595. SendKeys.Send("d")
  596.  
  597. Case Is = "draft food"
  598. SendKeys.Send("t")
  599. SendKeys.Send("food")
  600. SendKeys.Send("{TAB}{TAB}")
  601. SendKeys.Send("d")
  602.  
  603. Case Is = "draft fashion"
  604. SendKeys.Send("t")
  605. SendKeys.Send("fashion")
  606. SendKeys.Send("{TAB}{TAB}")
  607. SendKeys.Send("d")
  608.  
  609. Case Is = "draft music"
  610. SendKeys.Send("t")
  611. SendKeys.Send("music")
  612. SendKeys.Send("{TAB}{TAB}")
  613. SendKeys.Send("d")
  614.  
  615. Case Is = "draft sailor moon"
  616. SendKeys.Send("t")
  617. SendKeys.Send("sm")
  618. SendKeys.Send("{TAB}{TAB}")
  619. SendKeys.Send("d")
  620.  
  621. Case Is = "draft ouran"
  622. SendKeys.Send("t")
  623. SendKeys.Send("ohshc")
  624. SendKeys.Send("{TAB}{TAB}")
  625. SendKeys.Send("d")
  626.  
  627. Case Is = "draft dramatical murder"
  628. SendKeys.Send("t")
  629. SendKeys.Send("dmmd")
  630. SendKeys.Send("{TAB}{TAB}")
  631. SendKeys.Send("d")
  632.  
  633. Case Is = "draft dramatical murder music"
  634. SendKeys.Send("t")
  635. SendKeys.Send("dmmd, music")
  636. SendKeys.Send("{TAB}{TAB}")
  637. SendKeys.Send("d")
  638.  
  639. Case Is = "draft ace attorney"
  640. SendKeys.Send("t")
  641. SendKeys.Send("aa")
  642. SendKeys.Send("{TAB}{TAB}")
  643. SendKeys.Send("d")
  644.  
  645. Case Is = "draft ace attorney"
  646. SendKeys.Send("t")
  647. SendKeys.Send("aa, my son")
  648. SendKeys.Send("{TAB}{TAB}")
  649. SendKeys.Send("d")
  650.  
  651. Case Is = "draft ace attorney music"
  652. SendKeys.Send("t")
  653. SendKeys.Send("aa, music")
  654. SendKeys.Send("{TAB}{TAB}")
  655. SendKeys.Send("d")
  656.  
  657. Case Is = "draft pixels"
  658. SendKeys.Send("t")
  659. SendKeys.Send("pixels")
  660. SendKeys.Send("{TAB}{TAB}")
  661. SendKeys.Send("d")
  662.  
  663. Case Is = "draft kyary"
  664. SendKeys.Send("t")
  665. SendKeys.Send("kyary")
  666. SendKeys.Send("{TAB}{TAB}")
  667. SendKeys.Send("d")
  668.  
  669. Case Is = "draft kyary music"
  670. SendKeys.Send("t")
  671. SendKeys.Send("kyary, music")
  672. SendKeys.Send("{TAB}{TAB}")
  673. SendKeys.Send("d")
  674.  
  675.  
  676. Case Is = "queue madoka"
  677. SendKeys.Send("t")
  678. SendKeys.Send("pmmm")
  679. SendKeys.Send("{TAB}{TAB}")
  680. SendKeys.Send("q")
  681.  
  682. Case Is = "queue madoka music"
  683. SendKeys.Send("t")
  684. SendKeys.Send("pmmm, music")
  685. SendKeys.Send("{TAB}{TAB}")
  686. SendKeys.Send("q")
  687.  
  688. Case Is = "queue kill la kill"
  689. SendKeys.Send("t")
  690. SendKeys.Send("klk")
  691. SendKeys.Send("{TAB}{TAB}")
  692. SendKeys.Send("q")
  693.  
  694. Case Is = "queue kill la kill music"
  695. SendKeys.Send("t")
  696. SendKeys.Send("klk, music")
  697. SendKeys.Send("{TAB}{TAB}")
  698. SendKeys.Send("q")
  699.  
  700. Case Is = "queue kyoukai no kanata"
  701. SendKeys.Send("t")
  702. SendKeys.Send("knk")
  703. SendKeys.Send("{TAB}{TAB}")
  704. SendKeys.Send("q")
  705.  
  706. Case Is = "queue kyoukai no kanata music"
  707. SendKeys.Send("t")
  708. SendKeys.Send("knk, music")
  709. SendKeys.Send("{TAB}{TAB}")
  710. SendKeys.Send("q")
  711.  
  712. Case Is = "queue dangan ronpa"
  713. SendKeys.Send("t")
  714. SendKeys.Send("dr")
  715. SendKeys.Send("{TAB}{TAB}")
  716. SendKeys.Send("q")
  717.  
  718. Case Is = "queue dangan ronpa music"
  719. SendKeys.Send("t")
  720. SendKeys.Send("dr, music")
  721. SendKeys.Send("{TAB}{TAB}")
  722. SendKeys.Send("q")
  723.  
  724. Case Is = "queue dangan ronpa mukuro"
  725. SendKeys.Send("t")
  726. SendKeys.Send("dr, the bae")
  727. SendKeys.Send("{TAB}{TAB}")
  728. SendKeys.Send("q")
  729.  
  730. Case Is = "queue sdr2"
  731. SendKeys.Send("t")
  732. SendKeys.Send("sdr2")
  733. SendKeys.Send("{TAB}{TAB}")
  734. SendKeys.Send("q")
  735.  
  736. Case Is = "queue sdr2 komaeda"
  737. SendKeys.Send("t")
  738. SendKeys.Send("sdr2, the prince")
  739. SendKeys.Send("{TAB}{TAB}")
  740. SendKeys.Send("q")
  741.  
  742. Case Is = "queue persona 4"
  743. SendKeys.Send("t")
  744. SendKeys.Send("p4")
  745. SendKeys.Send("{TAB}{TAB}")
  746. SendKeys.Send("q")
  747.  
  748. Case Is = "queue persona 4 naoto"
  749. SendKeys.Send("t")
  750. SendKeys.Send("p4, darling")
  751. SendKeys.Send("{TAB}{TAB}")
  752. SendKeys.Send("q")
  753.  
  754. Case Is = "queue persona 3"
  755. SendKeys.Send("t")
  756. SendKeys.Send("p3")
  757. SendKeys.Send("{TAB}{TAB}")
  758. SendKeys.Send("q")
  759.  
  760. Case Is = "queue persona 3 music"
  761. SendKeys.Send("t")
  762. SendKeys.Send("p3, music")
  763. SendKeys.Send("{TAB}{TAB}")
  764. SendKeys.Send("q")
  765.  
  766. Case Is = "queue art"
  767. SendKeys.Send("t")
  768. SendKeys.Send("art")
  769. SendKeys.Send("{TAB}{TAB}")
  770. SendKeys.Send("q")
  771.  
  772. Case Is = "queue fire emblem"
  773. SendKeys.Send("t")
  774. SendKeys.Send("fe")
  775. SendKeys.Send("{TAB}{TAB}")
  776. SendKeys.Send("q")
  777.  
  778. Case Is = "queue fire emblem music"
  779. SendKeys.Send("t")
  780. SendKeys.Send("fe, music")
  781. SendKeys.Send("{TAB}{TAB}")
  782. SendKeys.Send("q")
  783.  
  784. Case Is = "queue fire emblem lucina"
  785. SendKeys.Send("t")
  786. SendKeys.Send("fe, daughter")
  787. SendKeys.Send("{TAB}{TAB}")
  788. SendKeys.Send("q")
  789.  
  790. Case Is = "queue fire emblem lonku"
  791. SendKeys.Send("t")
  792. SendKeys.Send("fe, potato prince")
  793. SendKeys.Send("{TAB}{TAB}")
  794. SendKeys.Send("q")
  795.  
  796. Case Is = "queue fire emblem owain"
  797. SendKeys.Send("t")
  798. SendKeys.Send("fe, husbando")
  799. SendKeys.Send("{TAB}{TAB}")
  800. SendKeys.Send("q")
  801.  
  802. Case Is = "queue panty and stocking"
  803. SendKeys.Send("t")
  804. SendKeys.Send("psg")
  805. SendKeys.Send("{TAB}{TAB}")
  806. SendKeys.Send("q")
  807.  
  808. Case Is = "queue panty and stocking music"
  809. SendKeys.Send("t")
  810. SendKeys.Send("psg, music")
  811. SendKeys.Send("{TAB}{TAB}")
  812. SendKeys.Send("q")
  813.  
  814. Case Is = "queue favorite"
  815. SendKeys.Send("t")
  816. SendKeys.Send("fav")
  817. SendKeys.Send("{TAB}{TAB}")
  818. SendKeys.Send("q")
  819.  
  820. Case Is = "queue attack on titan"
  821. SendKeys.Send("t")
  822. SendKeys.Send("snk")
  823. SendKeys.Send("{TAB}{TAB}")
  824. SendKeys.Send("q")
  825.  
  826. Case Is = "queue attack on titan music"
  827. SendKeys.Send("t")
  828. SendKeys.Send("snk, music")
  829. SendKeys.Send("{TAB}{TAB}")
  830. SendKeys.Send("q")
  831.  
  832. Case Is = "queue space dandy"
  833. SendKeys.Send("t")
  834. SendKeys.Send("space dandy")
  835. SendKeys.Send("{TAB}{TAB}")
  836. SendKeys.Send("q")
  837.  
  838. Case Is = "queue space dandy music"
  839. SendKeys.Send("t")
  840. SendKeys.Send("space dandy, music")
  841. SendKeys.Send("{TAB}{TAB}")
  842. SendKeys.Send("q")
  843.  
  844. Case Is = "queue evangelion"
  845. SendKeys.Send("t")
  846. SendKeys.Send("nge")
  847. SendKeys.Send("{TAB}{TAB}")
  848. SendKeys.Send("q")
  849.  
  850. Case Is = "queue evangelion shinji"
  851. SendKeys.Send("t")
  852. SendKeys.Send("nge, selfie")
  853. SendKeys.Send("{TAB}{TAB}")
  854. SendKeys.Send("q")
  855.  
  856. Case Is = "queue evangelion music"
  857. SendKeys.Send("t")
  858. SendKeys.Send("nge, music")
  859. SendKeys.Send("{TAB}{TAB}")
  860. SendKeys.Send("q")
  861.  
  862. Case Is = "queue cowboy bebop"
  863. SendKeys.Send("t")
  864. SendKeys.Send("cowboy bebop")
  865. SendKeys.Send("{TAB}{TAB}")
  866. SendKeys.Send("q")
  867.  
  868. Case Is = "queue cowboy bebop music"
  869. SendKeys.Send("t")
  870. SendKeys.Send("vowboy bebop, music")
  871. SendKeys.Send("{TAB}{TAB}")
  872. SendKeys.Send("q")
  873.  
  874. Case Is = "queue animal crossing"
  875. SendKeys.Send("t")
  876. SendKeys.Send("ac")
  877. SendKeys.Send("{TAB}{TAB}")
  878. SendKeys.Send("q")
  879.  
  880. Case Is = "queue animal crossing music"
  881. SendKeys.Send("t")
  882. SendKeys.Send("ac, music")
  883. SendKeys.Send("{TAB}{TAB}")
  884. SendKeys.Send("q")
  885.  
  886. Case Is = "queue steven universe"
  887. SendKeys.Send("t")
  888. SendKeys.Send("su")
  889. SendKeys.Send("{TAB}{TAB}")
  890. SendKeys.Send("q")
  891.  
  892. Case Is = "queue steven universe music"
  893. SendKeys.Send("t")
  894. SendKeys.Send("su, music")
  895. SendKeys.Send("{TAB}{TAB}")
  896. SendKeys.Send("q")
  897.  
  898. Case Is = "queue places"
  899. SendKeys.Send("t")
  900. SendKeys.Send("places")
  901. SendKeys.Send("{TAB}{TAB}")
  902. SendKeys.Send("q")
  903.  
  904. Case Is = "queue pokemon"
  905. SendKeys.Send("t")
  906. SendKeys.Send("pkmn")
  907. SendKeys.Send("{TAB}{TAB}")
  908. SendKeys.Send("q")
  909.  
  910. Case Is = "queue pokemon music"
  911. SendKeys.Send("t")
  912. SendKeys.Send("pkmn, music")
  913. SendKeys.Send("{TAB}{TAB}")
  914. SendKeys.Send("q")
  915.  
  916. Case Is = "queue food"
  917. SendKeys.Send("t")
  918. SendKeys.Send("food")
  919. SendKeys.Send("{TAB}{TAB}")
  920. SendKeys.Send("q")
  921.  
  922. Case Is = "queue fashion"
  923. SendKeys.Send("t")
  924. SendKeys.Send("fashion")
  925. SendKeys.Send("{TAB}{TAB}")
  926. SendKeys.Send("q")
  927.  
  928. Case Is = "queue music"
  929. SendKeys.Send("t")
  930. SendKeys.Send("music")
  931. SendKeys.Send("{TAB}{TAB}")
  932. SendKeys.Send("q")
  933.  
  934. Case Is = "queue sailor moon"
  935. SendKeys.Send("t")
  936. SendKeys.Send("sm")
  937. SendKeys.Send("{TAB}{TAB}")
  938. SendKeys.Send("q")
  939.  
  940. Case Is = "queue ouran"
  941. SendKeys.Send("t")
  942. SendKeys.Send("ohshc")
  943. SendKeys.Send("{TAB}{TAB}")
  944. SendKeys.Send("q")
  945.  
  946. Case Is = "queue dramatical murder"
  947. SendKeys.Send("t")
  948. SendKeys.Send("dmmd")
  949. SendKeys.Send("{TAB}{TAB}")
  950. SendKeys.Send("q")
  951.  
  952. Case Is = "queue dramatical murder music"
  953. SendKeys.Send("t")
  954. SendKeys.Send("dmmd, music")
  955. SendKeys.Send("{TAB}{TAB}")
  956. SendKeys.Send("q")
  957.  
  958. Case Is = "queue ace attorney"
  959. SendKeys.Send("t")
  960. SendKeys.Send("aa")
  961. SendKeys.Send("{TAB}{TAB}")
  962. SendKeys.Send("q")
  963.  
  964. Case Is = "queue ace attorney"
  965. SendKeys.Send("t")
  966. SendKeys.Send("aa, my son")
  967. SendKeys.Send("{TAB}{TAB}")
  968. SendKeys.Send("q")
  969.  
  970. Case Is = "queue ace attorney music"
  971. SendKeys.Send("t")
  972. SendKeys.Send("aa, music")
  973. SendKeys.Send("{TAB}{TAB}")
  974. SendKeys.Send("q")
  975.  
  976. Case Is = "queue pixels"
  977. SendKeys.Send("t")
  978. SendKeys.Send("pixels")
  979. SendKeys.Send("{TAB}{TAB}")
  980. SendKeys.Send("q")
  981.  
  982. Case Is = "queue kyary"
  983. SendKeys.Send("t")
  984. SendKeys.Send("kyary")
  985. SendKeys.Send("{TAB}{TAB}")
  986. SendKeys.Send("q")
  987.  
  988. Case Is = "queue kyary music"
  989.  
  990. SendKeys.Send("t")
  991. SendKeys.Send("kyary, music")
  992. SendKeys.Send("{TAB}{TAB}")
  993. SendKeys.Send("q")
  994.  
  995. Case Is = "back"
  996. SendKeys.Send("k")
  997.  
  998. End Select
  999. End Sub
  1000. Dim speaking As Boolean
  1001.  
  1002. Private Function CheckIfSpeaking() As Boolean
  1003. If speaking = False Then
  1004. Threading.Thread.Sleep(2000)
  1005. SendKeys.Send("j")
  1006. Return True
  1007. Else
  1008. Return False
  1009. End If
  1010. End Function
  1011. Private Sub recognizer_SpeechDetected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
  1012. speaking = True
  1013. End Sub
  1014.  
  1015. Private Sub recognizer_SpeechRecognitionRejected(ByVal sender As Object, ByVal e As SpeechRecognitionRejectedEventArgs)
  1016. speaking = False
  1017. End Sub
  1018. 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!