-
October 3rd, 2012, 07:14 PM
#1
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
-
October 3rd, 2012, 07:28 PM
#2
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.
-
October 3rd, 2012, 07:51 PM
#3
Re: Hi everyone im new to this fourm and have a question
Oh ok sorry about that yes it visual basic 6.0
-
October 3rd, 2012, 09:57 PM
#4
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...
-
October 4th, 2012, 08:42 AM
#5
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.
-
October 7th, 2012, 01:58 PM
#6
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
-
October 7th, 2012, 07:39 PM
#7
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|