OCX registeration[Solved]

[kill_bill_gates]

I want to register "MSINET.OCX" and "MSWINSCK.OCX"(not on my computer)...... I've tried the following codes (in a friend's computer) but they all gave the same error, "system error &h8007007e (-2147024770). The specified module could not be fonund." . The codes are:

• Public Function RegisterServer(hWnd As Long, DllServerPath As String, bRegister As Boolean)
      On Error Resume Next
   
      'KPD-Team 2000
      'URL: [url]http://www.allapi.net/[/url]
      'E-Mail: [email][email protected][/email]
      'We're going to call an API-function, without declaring it!
   
      ' Modified by G. Kleijer
      ' [email][email protected][/email]
      ' going to call the DllRegisterServer/DllUnRegisterServer API of the specified library.
      ' there's no need to use the Regsvr32.exe anymore.
   
      ' Make sure the path is correct and that the file exists, otherwise VB will crash.
   
      Dim lb As Long, pa As Long
      lb = LoadLibrary(DllServerPath)
   
      If bRegister Then
          pa = GetProcAddress(lb, "DllRegisterServer")
      Else
          pa = GetProcAddress(lb, "DllUnregisterServer")
      End If
   
      If CallWindowProc(pa, hWnd, ByVal 0&, ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then
          MsgBox IIf(bRegister = True, "Registration", "Unregistration") + " Successful"
     Else
          MsgBox IIf(bRegister = True, "Registration", "Unregistration") + " Unsuccessful"
      End If
      'unmap the library's address
      FreeLibrary lb
  End Function

• Public Sub RegComponent(ByVal ComName As String, ByVal sRegister As String)
      Shell ("Regsvr32 " & ComName & sRegister)
  End Sub

• Dim rc As Double
      rc = Shell("regsvr32 " & App.Path & "\MSINET.ocx", vbNormalFocus)
          rc = Shell("regsvr32 " & App.Path & "\MSWINSCK.ocx", vbNormalFocus)

• Shell (regsvr32 & "c:\windows\MSINET.OCX /s")
  Shell (regsvr32 & "c:\windows\MSWINSCK.OCX /s")

I called those functions.... But they all gave the same error....
Any help will be appreciated....

[kleinma]

the one you have from allapi.net should work (i think I recommended this method to you a week ago or so)

maybe take off the on error resume next and see where its failing.. because I have used that exact function and had it work just fine... so its probably failing based on one of the params you passed in, but you dont know because it doesnt break on errors

[kill_bill_gates]

do i have to have anything(an ocx,dll,etc) for the code from allapi to work?

[baja_yu]

Did you copy the files to the correct location? Because in one code you use c:\windows, and in the other App.Path...

[kill_bill_gates]

in the c:\windows one i did, since i dont kno whether i need to copy them to system32 in order to make regsvr32 work properly..

[kill_bill_gates]

Well cant just somebody give me an example code for this(to register any of the components)?

[kill_bill_gates]

i think i just figured out my mistakes....
Now I'm using the following code after checking if MSINET.OCX and/or MSWINSCK.OCX is present in the "c:\windows\system32\" dir:

If Exists("c:\WINDOWS\system32\MSINET.OCX") = False Then FileCopy App.Path & "\MSINET.OCX", "c:\windows\system32\MSINET.OCX"
If Exists("c:\WINDOWS\system32\MSWINSCK.OCX") = False Then FileCopy App.Path & "\MSWINSCK.OCX", "c:\windows\system32\MSWINSCK.OCX"
'Exists is a stupid buggy piece of function i wrote because i dont know, memorize and remember that one string code to check existence
Shell("c:\windows\system32\regsvr32 MSINET.OCX /s")
Shell("c:\windows\system32\regsvr32 MSWINSCK.OCX /s")

now the first problem was:
I used

Shell("c:\windows\system32\regsvr32 " & app.path & "\MSINET.OCX")

The problem is, the shell function launches regsvr32 and then sends it dos commands... But my app was in "C:\program files\blablabla...." and when regsvr sees the blank between program and files it thinks "C:\Program" is our specified module and "Files\blablabla...." is another command. So now,i copy it to system32 first.....


Another mistake:

Ive chosen Winsock and Inet as components in the program in which i was also trying to register them. But I understood that VB first looks for the module so it gave the error "Specified module could not be found". So now i register it in a different app.

Thanks to everybody for their interest in my problem

[_visual_basic_]

Shell("c:\windows\system32\regsvr32 """ & app.path & "\MSINET.OCX""")

[kill_bill_gates]

it really works . BUT WHY??

[RhinoBull]

it really works . BUT WHY??

Because dll/ocx name mst be enclosed in a quotes (I personally like using Chr(34) instead of multiple quotes in the syntax as it's a lot more explicit and allows you visualize what's issing):

Shell "c:\windows\system32\regsvr32 " & Chr(34) & app.path & "\MSINET.OCX" & Chr(34)

[kill_bill_gates]

Thanks
Good to know

[kleinma]

you know you should really make an installation package for your app to distribute dll and ocx files...

when I used the AllAPI code, it was when i worked at a company doing internal software, and it was a way to update custom dlls i had written that needed to be installed on the client machines