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