CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 7 of 7
  1. #1
    Join Date
    Oct 2012
    Posts
    3

    Red face 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.

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

  2. #2
    Join Date
    Jul 2008
    Location
    WV
    Posts
    5,362

    Re: Hi everyone im new to this fourm and have a question

    Is this somehow related to VB6 programming?
    Always use [code][/code] tags when posting code.

  3. #3
    Join Date
    Oct 2012
    Posts
    3

    Re: Hi everyone im new to this fourm and have a question

    Oh ok sorry about that yes it visual basic 6.0

  4. #4
    Join Date
    Jan 2006
    Location
    Fox Lake, IL
    Posts
    15,007

    Re: Hi everyone im new to this fourm and have a question

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

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

  5. #5
    Join Date
    Jul 2008
    Location
    WV
    Posts
    5,362

    Re: Hi everyone im new to this fourm and have a question

    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.
    Always use [code][/code] tags when posting code.

  6. #6
    Join Date
    Oct 2012
    Posts
    3

    Re: Hi everyone im new to this fourm and have a question

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







    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

  7. #7
    Join Date
    Jul 2008
    Location
    WV
    Posts
    5,362

    Re: Hi everyone im new to this fourm and have a question

    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.
    Always use [code][/code] tags when posting code.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured