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

Code

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.