Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Visual Basic ( VB ) (http://www.go4expert.com/forums/visual-basic/)
-   -   VB6 Knowledge Necessary (http://www.go4expert.com/forums/vb6-knowledge-necessary-t600/)

Aether 20Feb2006 12:27

VB6 Knowledge Necessary
 
Ok. I Want To Know:
╣Different Ways to Use Winsock.
╣How To Make An Ip Scanner.
╣How To Make A Form Flash And Then End
╣How To Make A Forms Visibility At About 50 %
Yes, I Am A Little New To V.B.6 Programming, But I Am Learning Fast. :D

Aether 20Feb2006 12:28

Re: VB6 Knowledge Necessary
 
And By the Way:
╣If You have Any Information About These, Send Me An Email At September-Eleven-2001@hotmail.com ╣Or elite.outbreak@yahoo.com

shabbir 20Feb2006 21:11

Re: VB6 Knowledge Necessary
 
Quote:

Originally Posted by Aether
╣Different Ways to Use Winsock.
╣How To Make An Ip Scanner.
╣How To Make A Form Flash And Then End
╣How To Make A Forms Visibility At About 50 %

Probably I have some of them and will definitely put them here.

shabbir 20Feb2006 21:21

Re: VB6 Knowledge Necessary
 
Quote:

╣Different Ways to Use Winsock.
http://cuinl.tripod.com/downloads/winsockdownload.zip
http://cuinl.tripod.com/downloads/NewHagChat.zip
Quote:

╣How To Make An Ip Scanner.
Can you please clarify this a bit more
Quote:

╣How To Make A Form Flash And Then End
Can you please clarify this a bit more
Quote:

╣How To Make A Forms Visibility At About 50 %
It Makes the Form transparent but I guess you can see it make it 50 % visibility
Code: VB

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As _
Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal _
nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As _
Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Public Sub TransparentForm(frm As Form)
    frm.ScaleMode = vbPixels
    Const RGN_DIFF = 4
    Const RGN_OR = 2

    Dim outer_rgn As Long
    Dim inner_rgn As Long
    Dim wid As Single
    Dim hgt As Single
    Dim border_width As Single
    Dim title_height As Single
    Dim ctl_left As Single
    Dim ctl_top As Single
    Dim ctl_right As Single
    Dim ctl_bottom As Single
    Dim control_rgn As Long
    Dim combined_rgn As Long
    Dim ctl As Control

    If frm.WindowState = vbMinimized Then Exit Sub

    ' Create the main form region.
    wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
    hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
    outer_rgn = CreateRectRgn(0, 0, wid, hgt)

    border_width = (wid - frm.ScaleWidth) / 2
    title_height = hgt - border_width - frm.ScaleHeight
    inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, _
        hgt - border_width)

    ' Subtract the inner region from the outer.
    combined_rgn = CreateRectRgn(0, 0, 0, 0)
    CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF

    ' Create the control regions.
    For Each ctl In frm.Controls
        If ctl.Container Is frm Then
            ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) _
                + border_width
            ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) + title_height
            ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) + ctl_left
            ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) + ctl_top
            control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)
            CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
        End If
    Next ctl

    'Restrict the window to the region.
    SetWindowRgn frm.hWnd, combined_rgn, True
End Sub

Code Coutesy vbtown

Aether 21Feb2006 03:13

Re: VB6 Knowledge Necessary
 
Ok. Sorry About Lack Of Clarit, My Friend.
╣IP-Scanner: A Tool Used To Check For Internet Protocol Addresses, To See If They Are Active, Like A Proxy Checker.
╣The Form Flash And End: I Want A Form To Suddenly Flash White And Then Unload, Or End.

Aether 21Feb2006 04:56

Re: VB6 Knowledge Necessary
 
Ok. Sorry About Lack Of Clarit, My Friend. <---And The Typos Come Pouring In, Lol.

shabbir 21Feb2006 07:26

Re: VB6 Knowledge Necessary
 
Quote:

╣IP-Scanner: A Tool Used To Check For Internet Protocol Addresses, To See If They Are Active, Like A Proxy Checker.
You can use the gethostbyname API or gethostbyaddr API to achieve the results.
Code: VB

//gethostbyname API declaration
Declare Function gethostbyname _
    Lib "ws2_32.dll" (ByVal host_name As String) As Long

//HOSTENT Structure elements
Type HOSTENT
    hName     As Long
    hAliases  As Long
    hAddrType As Integer
    hLength   As Integer
    hAddrList As Long
End Type

//gethostbyaddr API declaration
Declare Function gethostbyaddr Lib "ws2_32.dll" (addr As Long, _
                                                 ByVal addr_len As Long, _
                                                 ByVal addr_type As Long) As Long

Quote:

╣The Form Flash And End: I Want A Form To Suddenly Flash White And Then Unload, Or End.
Isnt that just the change in the background color of the form and then calling the End.

Thanks
Shabbir

Aether 21Feb2006 08:14

Re: VB6 Knowledge Necessary
 
Thanks Man
__
| |34C 3
|__|
|
----------------Ęthereal Haze---------

Aether 21Feb2006 08:34

Re: VB6 Knowledge Necessary
 
ACK!!! that messed up shap ewas supposed to be a P.. Lol.

shabbir 21Feb2006 11:12

Re: VB6 Knowledge Necessary
 
Quote:

Originally Posted by Aether
ACK!!! that messed up shap ewas supposed to be a P.. Lol.

:)


All times are GMT +5.5. The time now is 03:18.