Results 1 to 3 of 3

Thread: vBulletin Tool 1.1.0 !

  1. #1

    Thread Starter
    PowerPoster Fox's Avatar
    Join Date
    Jan 2000
    Location
    *afk*
    Posts
    2,088
    Finally out! New included the whole Win32 API (declares, types, consts) see test below. Also I'm working on
    a new GUI and some other things.. will announce that when done

    Original code
    Code:
    'Declares
    public const srccopy = &HCC0020
    
    public declare function gettickcount lib "kernel32" alias "GetTickCount" () as long
    public declare function bitblt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) as long
    
    'Function
    sub timer()
       dim Temp as long
       
       'This code makes no sense
       Temp = gettickcount()
       Temp = sendmessage(wm_activate)
       
       'Another useless code
       if Temp > 10 then: end
       
       'Love this command *g*
       bitblt 0, 0, 100, 200, 0, 0, srccopy
    end sub
    Improved code
    Code:
    'Declares
    Public Const SRCCOPY = &HCC0020
    
    Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
    Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _
    	ByVal hDestDC As Long, ByVal X As Long, _
    	ByVal Y As Long, ByVal nWidth As Long, _
    	ByVal nHeight As Long, ByVal hSrcDC As Long, _
    	ByVal xSrc As Long, ByVal ySrc As Long, _
    	ByVal dwRop As Long) As Long
    
    'Function
    Sub Timer()
    	Dim Temp As Long
    	
    	'This code makes no sense
    	Temp = GetTickCount()
    	Temp = SendMessage(WM_ACTIVATE)
    	
    	'Another useless code
    	If Temp > 10 Then: End
    	
    	'Love this command *g*
    	BitBlt 0, 0, 100, 200, 0, 0, SRCCOPY
    End Sub
    
    'Code improved by vBulletin Tool (Save as...)
    Update your vbTool today!

  2. #2
    Guest
    API highlighting is nice.. but i think it is slowing
    down the app considerably...

    As a contributor .. We are having some competition
    now.. a new VB-World Browser, Active's new tools and
    so on..
    Also consider posting this on the General Questions

    That scroll bar was smart

  3. #3

    Thread Starter
    PowerPoster Fox's Avatar
    Join Date
    Jan 2000
    Location
    *afk*
    Posts
    2,088
    Good idea

    Well I'd say: As long as you can disable the slow
    things it's not really a problem..

    The toolbar btw is a part of my new Star Trek LCARS controls.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width