Hi everyone im new to this fourm and have a question

Hello, I found this replacement shell off planet source code. I had windows xp installed but moved to windows 7 and sents I did that Im geting alolt of errors, I posted a link if you can help me I would appriciate the help. thanks so much and Im glade to be here.:wave:

http://www.megafileupload.com/en/fil...ition-rar.html

Is this somehow related to VB6 programming?

Oh ok sorry about that yes it visual basic 6.0

Find the person that wrote the shell. Also, look up GINA and Windows together...

You need to tell us what the problem is that you are having and show us the code where the problem occurs. Most people will not go download a file for various reasons so just including a link will rarely be of much help to you.

I saw on the other forum where you posted a section of code and the word False was not spelled correctly causing the error if there are other issues then tell us what they are and show the code where they occur.

Hi sorry about not posting the code this is what the error comes up.

http://s10.postimage.org/4miky83ed/newerror_1.jpg

http://s15.postimage.org/zbqfwl2iv/error2.jpg

http://s11.postimage.org/jtblmchmn/error3.jpg

and here is my code

Code:

---

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim l As Boolean
Dim c As Long

Dim mL As Long

Private Sub Form_Load()

Dim i As Integer
Dim m As Boolean
Dim t As Integer
Dim tick As Long, lo As Long
Dim ttick As Long

Me.Show
DoEvents

ttick = GetTickCount

AddLine "EShell beta 2, loading, please wait"
AddLine "Current version is " & App.Major & "." & App.Minor & "." & App.Revision
AddLine "Many icons used in this program(s) are from the metrox icon set by Greg Fleming (aka Hell Dragon) of darkproject.com uppdated by AndyProgramming"
AddLine ""
AddLine "Loading Module Comm's Socket..."

wsckModule.Protocol = sckUDPProtocol
wsckModule.Bind 15
wsckModule.RemoteHost = "127.0.0.1"

AddLine ""
AddLine "Loading Modules:"
AddLine "Loading Core..."
AddLine "Reading Modules Config File..."
LoadModuleConfig
AddLine "Loading " & modLoadModule.mCount & " modules from module.cfg"

For i = 0 To modLoadModule.mCount - 1

    tick = GetTickCount

    AddLine "Loading " & modLoadModule.mName(i) & "..."
    c = i
    m = LoadModule(i)
    DoEvents
   
    Do
   
        If l Then l = False: Exit Do
        If tick + 1000 <= GetTickCount Then GoTo fail
        DoEvents
        DoEvents
        DoEvents
       
    Loop
   
    If m Then
   
        wsckModule.RemotePort = FindPort(modLoadModule.mName(i))
        DoEvents
        wsckModule.SendData "ROOT," & App.path
        DoEvents
        Sleep 25
        DoEvents
        AddLine "Done..."
        t = t + 1
       
    Else
   
fail:
        AddLine "Failed loading module " & modLoadModule.mName(i) & "!..."
        modLoadModule.failLoad(i) = True

    End If

    Sleep 25

Next i

AddLine ""
AddLine "Sucessfully loaded " & t & " of " & modLoadModule.mCount & " modules"

If t <> modLoadModule.mCount Then frmFailModule.Show

AddLine ""
AddLine "Loaded EShell in " & (GetTickCount - ttick) & "ms"

mL = t

End Sub

Public Function AddLine(txt As String)

txtConsole.Text = txtConsole.Text & txt & vbCrLf
txtConsole.SelStart = Len(txtConsole.Text)

End Function

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

Dim i As Long

For i = 0 To modLoadModule.mCount - 1

    wsckModule.RemoteHost = "127.0.0.1"
    wsckModule.RemotePort = 1200 + i
    DoEvents
    wsckModule.SendData "KILL,"
    DoEvents

Next i
Sleep 10
DoEvents
End

End Sub

Private Sub Image2_Click()
wsckModule.RemotePort = "1203"
wsckModule.RemoteHost = "127.0.0.1"
wsckModule.SendData "ROOT," & App.path
End Sub

Private Sub Label30_Click()
frmConsole.Visible = False
End Sub

Private Sub wsckModule_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim data As String

wsckModule.GetData data

If Left(data, 5) = "CORE," Then

    data = Right(data, Len(data) - 5)
   
    If data = "LOADED" Then wsckModule.RemotePort = 16: DoEvents: l = True: wsckModule.SendData "Port," & 1200 + c: AddLine ("PORT: " & 1200 + c)
    If Left(data, 8) = "LOADESL," Then LoadESL (Right(data, Len(data) - 8))
    If Left(data, 8) = "MAKEESL," Then frmCreateShortcut.Show: frmCreateShortcut.SaveTo = Right(data, Len(data) - 8)
    If Left(data, 9) = "SHUTDOWN," Then frmShutdown.Show
   
Else

    Dim n As String
    Dim i As Long
   
    n = Left(data, InStr(1, data, ",") - 1)
    data = Right(data, Len(data) - InStr(1, data, ","))

    i = FindPort(n)
    If i <> 0 Then GoTo foundport

    Exit Sub

foundport:

    wsckModule.RemotePort = i
    wsckModule.RemoteHost = "127.0.0.1"
    DoEvents
    wsckModule.SendData data

End If

End Sub

Public Sub reloadModule(i As Integer)

Dim tick As Long
Dim m As Boolean

tick = GetTickCount

AddLine "Reloading " & modLoadModule.mName(i) & "..."
c = i
m = LoadModule(i)
DoEvents

Do

    If l Then l = False: Exit Do
    If tick + 1000 <= GetTickCount Then GoTo fail
    DoEvents
    DoEvents
    DoEvents
   
Loop

If m Then

    wsckModule.RemotePort = FindPort(modLoadModule.mName(i))
    DoEvents
    wsckModule.SendData "ROOT," & App.path
    AddLine "Done..."
    mL = mL + 1
   
Else

fail:
    AddLine "Failed loading module " & modLoadModule.mName(i) & "!..."
    failLoad(i) = True

End If

End Sub

---

and it happends with in the frmConsole. I hop that helps, Please let me know if you need for code to look at.
Thanks agine :wave:

Those images are 2 small to see, show us the code where the error occurs, highlight the line and tell us what is happening. Linking images posted on other sites is not going to help much especially when they are so small that the text can't be read.