VB6 Knowledge Necessary

Aether's Avatar, Join Date: Feb 2006
Go4Expert Member
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.
Aether's Avatar, Join Date: Feb 2006
Go4Expert Member
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's Avatar, Join Date: Jul 2004
Go4Expert Founder
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's Avatar, Join Date: Jul 2004
Go4Expert Founder
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's Avatar, Join Date: Feb 2006
Go4Expert Member
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's Avatar, Join Date: Feb 2006
Go4Expert Member
Ok. Sorry About Lack Of Clarit, My Friend. <---And The Typos Come Pouring In, Lol.
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
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's Avatar, Join Date: Feb 2006
Go4Expert Member
Thanks Man
__
| |34C 3
|__|
|
----------------Ćthereal Haze---------
Aether's Avatar, Join Date: Feb 2006
Go4Expert Member
ACK!!! that messed up shap ewas supposed to be a P.. Lol.
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Quote:
Originally Posted by Aether
ACK!!! that messed up shap ewas supposed to be a P.. Lol.