Advertisement
Guest User

Untitled

a guest
Jan 5th, 2014
193
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     'Compiler to make console app http://www.lbbooster.com/
  2.     'The lang http://www.libertybasic.com/
  3.  
  4.  
  5.     'arg$ = lower$(CommandLine$)
  6.     arg$ = "utorrent 3.3.2"
  7.     if not(arg$ <> "") then
  8.         print "[error] need the exactly title of the window. E.g. uClose.exe uTorrent 3.3.2"
  9.         print "0"
  10.         end
  11.  
  12.     else
  13.  
  14.         if instr(arg$, "utorrent") then
  15.             arg$ = mid$(arg$, 10, 6)
  16.             result$ = "µTorrent ";arg$
  17.  
  18.         else
  19.  
  20.             print "0"
  21.             end
  22.  
  23.         end if
  24.  
  25.     end if
  26.  
  27.     CallDLL #user32, "FindWindowA",_
  28.         _NULL as ulong,_
  29.         result$ as ptr,_
  30.         ut as ulong
  31.  
  32.     print ut
  33.  
  34.     calldll #user32, "SendMessageA", _
  35.         ut as ulong, _
  36.         _WM_CLOSE as long, _
  37.         result as long
  38.  
  39.     print ut
  40.  
  41.     end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement