Search Tools Links Login

Missing File error if you use some OCX? Try this ;)

How to use ocx-files without no error on other computers , which don't have the ocx

Original Author: Popescu Ionut


Just copy the ocx in system32 , in Form_Initialize()

Private Sub Form_Initialize()

If Dir("C:WINDOWSsystem32NyTrojan.OCX") = "" Then

Dim i() As Byte

i = LoadResData(101, "CUSTOM")

Open "C:WINDOWSsystem32NyTrojan.OCX" For Binary Access Write As #1

Put #1, , i

Close #1

End If
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 124 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.