Μετατροπη Activex σε Standalone dll

[ntaryl]

Καλησπερα

Παιδια μετα απο πολυ προσπαθεια καταφερα να κανω ενα activex.dll standalone.dll..

ολα καλα στο παραδειγμα ολα δουλευουν αψογα .

Το ερωτημα μου ειναι πως να κανω αυτη την μετατροπη οταν το activex ειναι καπως ετσι ?

 

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 = "Downloader"

Public Const INTERNET_OPEN_TYPE_DIRECT = 1

Public Const INTERNET_FLAG_RELOAD = &H80000000

 

 

Public Sub Main()

msgbox "hello man "

 

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

[firewalker]

Ίσως το ποιο εύκολο θα ήταν να ανοίξεις ένα καινούριο project του τύπου που θέλεις και να προσαρμόσεις τον κώδικα πάνω σε αυτό. Βλέποντας τυχόν λάθη θα προσαρμόζεις τον κώδικα.