======================== vb===========================
      vb 
   
  :
     Task Manager  Alt Ctrl Del      Alt Tab *  Windows 98*
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long


  -


Dim lngRetVal As Long
Dim blnPrevValue As Boolean
lngRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnPrevValue, 0&)



  -


Dim lngRetVal As Long
Dim blnPrevValue As Boolean
lngRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnPrevValue, 0&)

 \ 

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

        IP      . **     ADSL   **

Const MAX_IP = 5 To make a buffer... i dont think you have more than 5 ip on your pc..

Type IPINFO
dwAddr As Long  IP address
dwIndex As Long  interface index
dwMask As Long  subnet mask
dwBCastAddr As Long  broadcast address
dwReasmSize As Long  assembly size
unused1 As Integer  not currently used
unused2 As Integer ; not currently used
End Type

Type MIB_IPADDRTABLE
dEntrys As Long number of entries in the table
mIPInfo(MAX_IP) As IPINFO array of IP address entries
End Type

Type IP_Array
mBuffer As MIB_IPADDRTABLE
BufferLen As Long
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
Sub main()
Form1.Show
End Sub

converts a Long to a string
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function

Public Sub Start()
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE

Form1.Text1 = ""

On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True

If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
retrieve the data
GetIpAddrTable bBytes(0), Ret, False

Get the first 4 bytes to get the entrys.. ip installed
CopyMemory Listing.dEntrys, bBytes(0), 4
MsgBox "IPs found : " & Listing.dEntrys => Founded ip installed on your PC..
Form1.Text1 = Listing.dEntrys & " IP addresses found on your PC !!" & vbCrLf
Form1.Text1 = Form1.Text1 & "----------------------------------------" & vbCrLf
For Tel = 0 To Listing.dEntrys - 1
Copy whole structure to Listing..
 MsgBox bBytes(tel) & "."
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
Form1.Text1 = Form1.Text1 & "IP address : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
Form1.Text1 = Form1.Text1 & "IP Subnetmask : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf
Form1.Text1 = Form1.Text1 & "BroadCast IP address : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf
Form1.Text1 = Form1.Text1 & "**************************************" & vbCrLf
Next

MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr)
Exit Sub
END1:
MsgBox "ERROR"
End Sub


   

:     :
http://www.microsoft.com/downloads/details.aspx?FamilyId=E64F7F59-3747-454E-87F5-D301E98BCDB9&displaylang=en

:

Option Explicit
Private Declare Function WinHttpSetOption Lib "winhttp.dll" (ByVal hInternet As Long, _
    ByVal dwOption As Long, ByRef lpBuffer As WINHTTP_PROXY_INFO, ByVal dwBufferLength As Long) As Long

Private Declare Function WinHttpQueryOption Lib "winhttp.dll" (ByVal hInternet As Long, _
    ByVal dwOption As Long, ByRef lpBuffer As Any, ByRef dwBufferLength As Long) As Long

Private Declare Function WinHttpOpen Lib "winhttp.dll" (ByVal pwszUserAgent As String, ByVal dwAccessType As Long, _
    ByVal pwszProxyName As String, ByVal pwszProxyBypass As String, ByVal dwFlags As Long) As Long

Private Declare Function WinHttpCloseHandle Lib "winhttp.dll" (ByVal hInternet As Long) As Long

Private Type WINHTTP_PROXY_INFO
    dwAccessType As Long
    lpszProxy As String
    lpszProxyBypass As String
End Type

Private Const WINHTTP_ACCESS_TYPE_NO_PROXY = 1 'Internet accessed through a direct connection.
Private Const WINHTTP_ACCESS_TYPE_DEFAULT_PROXY = 0 ' Applies only when setting proxy information.
Private Const WINHTTP_ACCESS_TYPE_NAMED_PROXY = 3 'Internet accessed using a proxy.
Private Const WINHTTP_NO_PROXY_NAME = 0
Private Const WINHTTP_NO_PROXY_BYPASS = 0
Private Const WINHTTP_OPTION_CONNECT_TIMEOUT = 3
Private Const WINHTTP_OPTION_PROXY = 38
'


Private Sub Main()
Dim proxyInfo As WINHTTP_PROXY_INFO
Dim wsProxy As String
Dim wsLocal As String
Dim wsUserAgent As String
Dim hSession As Long
Dim n As Long

    wsProxy = "proxy_name" + vbNullChar
    wsLocal = "<local>" + vbNullChar
    wsUserAgent = "WINHTTP Sample/1.0"
    
    wsLocal = StrConv(wsLocal, vbUnicode)
    wsProxy = StrConv(wsProxy, vbUnicode)
    wsUserAgent = StrConv(wsUserAgent, vbUnicode)
    
    proxyInfo.dwAccessType = WINHTTP_ACCESS_TYPE_NAMED_PROXY
    proxyInfo.lpszProxy = wsProxy
    proxyInfo.lpszProxyBypass = wsLocal
        
    hSession = WinHttpOpen(wsUserAgent, WINHTTP_ACCESS_TYPE_DEFAULT_PROXY, WINHTTP_NO_PROXY_NAME _
        , WINHTTP_NO_PROXY_BYPASS, 0)
        
    If (hSession <> 0) Then
        n = WinHttpSetOption(hSession, WINHTTP_OPTION_PROXY, _
                      proxyInfo, LenB(proxyInfo))
    
        n = WinHttpCloseHandle(hSession)
    End If
    
End Sub

   !  !

Dim x, y, offset
Picture1.Cls
Static inte
inte = inte + 0.048
offset = inte * (462 / 49#)
Picture1.Scale (-23, 23)-(23, -23)
Picture1.Cls
For x = -13 To 13 Step 1.2
For y = -13 To 11.9 Step 0.9
Picture1.Line (-x * (4.949 / 7#) + y * (4.949 / 7#), -x * (4.949 / 7#) - y * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + y ^ 2) - offset))-(-x * (4.949 / 7#) + (y + 0.9) * (4.949 / 7#), -x * (4.949 / 7#) - (y + 0.9) * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + (y + 0.9) ^ 2) - offset)), vb3DLight
Next y
Next x
For y = -13 To 13 Step 1.2
For x = -13 To 11.9 Step 0.9
Picture1.Line (-x * (4.949 / 7#) + y * (4.949 / 7#), -x * (4.949 / 7#) - y * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + y ^ 2) - offset))-(-(x + 0.9) * (4.949 / 7#) + (y) * (4.949 / 7#), -(x + 0.9) * (4.949 / 7#) - (y) * (4.949 / 7#) + 1.5 * Sin(Sqr((x + 0.9) ^ 2 + y ^ 2) - offset)), vbWhite
Next x
Next y


tnx to d4rk knight for this code!

dhtm