-
April 24th, 2012, 08:01 PM
#1
Hi, i need some help with this error
Hi, i downloaded this program from planet source code.com and i fond what i was looking for, what im assking if anymore can fixs this or show me how please, and if you help me, i will pay some money for it. Or i can make you a program visual basic 2010, just tell me what you would like. thanks for looking at my post.http://www.mediafire.com/?7k4zrq5c6n7a2hh this is the download link. thanks agine everyone
-
April 24th, 2012, 11:16 PM
#2
Re: Hi, i need some help with this error
Send email to the writer of the software. That's the best way to fix a problem with someone else's code.
-
April 24th, 2012, 11:52 PM
#3
Re: Hi, i need some help with this error
The problom im haveing is i tryed to e-mailing and website the program was 2002, all his emails donot work or his website, so what sould i do.
I still need help.
-
April 25th, 2012, 12:54 AM
#4
Re: Hi, i need some help with this error
People do not tend to go to external links to download stuff... Post the file(s) in .zip format here and we can then have a look. Also, explain to us where is the error and when it occurs.
-
April 25th, 2012, 08:38 AM
#5
Re: Hi, i need some help with this error
Hi, the error i get is(Compile error method or data member not found)
And I would upload the file, but i have tryed to do that and it comes up with an error so i cant upload the file thats way i put the link. thanks everyone.
-
April 25th, 2012, 09:48 PM
#6
Re: Hi, i need some help with this error
Please Help me with this I will pay or make you a program on visual basic 2010, im just learning visual basic 6.0. I have made a lot of programs with it but im more familiar with visual basic 2010, I found that they are almost the same, but anyway I need some help with this program. I would up load it here but it says the file is to big. So thanks, Oh I can program using C#2010 or C++ 2010 just tell me what you would like on a program and what language you want me to use. Thanks for looking at my post, Oh, I tried to e-mail, but the owner hasn't
got back to me. Thanks.
-
April 26th, 2012, 10:37 AM
#7
Re: Hi, i need some help with this error
Post the section of code where the error occurs and highlight the line the error occurs on. No need to upload the file(s) just copy the revelant section and paste into a post. Be sure to use code tags to retain formatting for readability.
Always use [code][/code] tags when posting code.
-
April 26th, 2012, 01:25 PM
#8
Re: Hi, i need some help with this error
Code:
'Save Icons Pos.
Main.SaveIconPositions
If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
(the error that shows up when I try to make it to exe is the second sentence line here is the error
(.playstate), and here is the code of the rest that its in
Code:
'Save Icons Pos.
Main.SaveIconPositions
If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
Media_Player.MPlayer(0).Stop
Media_Player.MPlayer(0).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If
If Media_Player.MPlayer(1).PlayState = mpPlaying Or Media_Player.MPlayer(1).PlayState = mpPaused Then
Media_Player.MPlayer(1).Stop
Media_Player.MPlayer(1).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If
Thanks for your help
-
April 26th, 2012, 03:14 PM
#9
Re: Hi, i need some help with this error
What does this mean?
Originally Posted by andrewjrmill825
(the error that shows up when I try to make it to exe is the second sentence line here is the error
(.playstate)
In order for anyone to be able to help you must post the exact error messages. It also looks like you will need to provide a lot more information on the classes involved in this, i.e. what is Media_Player.MPlayer(0)?
The best way to do this is to make a complete, but minimal, program which when compiled demonstrates the error. If this involves classes/functions which are not standard VB ones include the relevant (and minimal) code for these also.
-
April 26th, 2012, 03:42 PM
#10
Re: Hi, i need some help with this error
Ok I made a text file that shows all the work and what error coms up.
I would post it here but it say its to big. I wanted to post my code and I even tried to upload I text file I made but it sys
Your file of 116.0 KB bytes exceeds the forum's limit of 100.0 KB for this filetype.
what sould I do.
-
April 26th, 2012, 03:54 PM
#11
Re: Hi, i need some help with this error
116 KB is a lot of code. Do you really need all that code to demonstrate this error?
-
April 26th, 2012, 03:56 PM
#12
Re: Hi, i need some help with this error
No but I tried this. here is the error
When I make it to a exe the error i get is(Compile error method or data member not found)(.PlayState) that's the error
-
April 26th, 2012, 04:08 PM
#13
Re: Hi, i need some help with this error
OK, so whatever Media_Player.MPlayer(0) is, it doesn't have a PlayState member. But what is Media_Player.MPlayer(0)?
If you provided enough code for us to compile and reproduce this error, we would be able to see this. For example, presumably the source code is not all in the same file. So start with the file which has this error, and start cutting irrelevant bits out. Then post the remainder, along with any other files from the project which include classes/functions referred to from this cut-down file.
The goal should be to get to the minimum amount of code which reproduces the original error.
-
April 26th, 2012, 04:12 PM
#14
Re: Hi, i need some help with this error
Code:
'Save Icons Pos.
Main.SaveIconPositions
If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
Media_Player.MPlayer(0).Stop
Media_Player.MPlayer(0).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If
If Media_Player.MPlayer(1).PlayState = mpPlaying Or Media_Player.MPlayer(1).PlayState = mpPaused Then
Media_Player.MPlayer(1).Stop
Media_Player.MPlayer(1).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If
KCK = True ' Set Kicker Var to unload all forms with no trouble
Dim I ' Declare loop variable.
'Unload all forms
fz:
If NexNetOn = True Then killnet_Click
If VB.Forms.Count = 0 Then GoTo 2224
If VB.Forms.Count = 1 Then GoTo 2224
For I = 0 To VB.Forms.Count - 1
If VB.Forms(I).Caption = Main.Caption Then GoTo eeex
If VB.Forms.Count = 1 Then GoTo 2224
Unload VB.Forms(I)
GoTo fz
eeex:
Next I
-
April 26th, 2012, 04:14 PM
#15
Re: Hi, i need some help with this error
Code:
'Show Login Dialog
Main.WindowState = 1
KCK = False 'Unset Kicker Var
Main.Enabled = False
PasswordScreen.Show
PasswordScreen.SetFocus
PasswordScreen.UserName.Locked = False
'Reset Shell Monitor Vars
WbShlLst = 0
ShLst = 0
ShellMonSect = ""
Exit Sub
End If
If cmd = "#newfolder" Then
NewFolder.NewFolderWizard
Exit Sub
End If
If cmd = "#newicon" Then
NewIcon.NewIconWizard
Exit Sub
End If
If cmd = "#newgame" Then
NewGame.NewGameWizard
Exit Sub
End If
If cmd = "#snake" Then
SnakeMain.Show 'MsgBox "Nexus Special Edition could not find the 'Snake 2000' applet. You may not have access to Nexus games, or there was an error during installation. Please see your Nexus Administrator", 16
Exit Sub
End If
If cmd = "#snake2000" Then
MsgBox "Nexus Special Edition could not find the 'Snake 2000' applet. You may not have access to Nexus games, or there was an error during installation. Please see your Nexus Administrator", 16
Exit Sub
End If
If cmd = "#sms" Then
If polDisSMS = True Then PROBas.AccessDeniedMsg: Exit Sub
SMSDude.Show
Exit Sub
End If
If cmd = "#iconmanager" Then
IconManager.Show
Exit Sub
End If
If cmd = "#programmanager" Then
NexusSpecial.programman.Show
Exit Sub
End If
If cmd = "#nexusloc" Then
If polDisNexusLOC2000 = True Then PROBas.AccessDeniedMsg: Exit Sub
NexusLOC.Show
Exit Sub
End If
If cmd = "#lockenvironment" Then
locker_Click
Exit Sub
End If
If cmd = "#lock" Then
locker_Click
Exit Sub
End If
If cmd = "#themes" Then
If polDisThemeManager = True Then PROBas.AccessDeniedMsg: Exit Sub
ThemeMan.Show
Exit Sub
End If
If cmd = "#minibrowzer" Then
If polDisMB6 = True Then PROBas.AccessDeniedMsg: Exit Sub
Set frmD = New MiniBrowzer
frmD.Show
Exit Sub
End If
If cmd = "#thememanager" Then
If polDisThemeManager = True Then PROBas.AccessDeniedMsg: Exit Sub
ThemeMan.Show
Exit Sub
End If
If cmd = "#loginsettings" Then
If polDisSettings = True Then PROBas.AccessDeniedMsg: Exit Sub
N2000LSettings.Show
Exit Sub
End If
If cmd = "#shellstring" Then
shellman_Click
Exit Sub
End If
If cmd = "#open" Then
shellman_Click
Exit Sub
End If
If cmd = "#run" Then
shellman_Click
Exit Sub
End If
If cmd = "#musicshare" Then
If polDisMUSICShare = True Then PROBas.AccessDeniedMsg: Exit Sub
Call ConnectToNet.MP3Client
Exit Sub
End If
If cmd = "#nexver" Then
NexVer.Show
Exit Sub
End If
If cmd = "#closenexus" Then
Unload Main
Exit Sub
End If
If cmd = "#taskmonitor" Then
If polDistaskMon = True Then PROBas.AccessDeniedMsg: Exit Sub
Tasks.Show
Exit Sub
End If
If cmd = "#chat" Then
chatter_Click
Exit Sub
End If
If cmd = "#fileclient" Then
netfiles_Click
Exit Sub
End If
If cmd = "#tasks" Then
If polDistaskMon = True Then PROBas.AccessDeniedMsg: Exit Sub
Tasks.Show
Exit Sub
End If
If cmd = "#pathfile" Then
If polDisPathfile = True Then PROBas.AccessDeniedMsg: Exit Sub
Sheller PATHFile
Exit Sub
End If
If cmd = "#usermanager" Then
u_manager_Click
Exit Sub
End If
If cmd = "#servadmin" Or cmd = "#serveradmin" Then
servadmin_Click
Exit Sub
End If
If cmd = "#trafficmonitor" Or cmd = "#trafficmonitor" Then
netmonitor_Click
Exit Sub
End If
If cmd = "#nexnetadmin" Or cmd = "#nexnexaccounts" Then
nexnetAdmin_Click
Exit Sub
End If
If cmd = "#icu" Or cmd = "#usermonitor" Then
icu_dude_Click
Exit Sub
End If
If cmd = "#icu4" Then
icu_dude_Click
Exit Sub
End If
If cmd = "#setuptemplate" Or cmd = "#edittemplate" Then
edit_template_Click
Exit Sub
End If
If cmd = "#gamemanager" Or cmd = "#editgamemenu" Then
adgames_Click
Exit Sub
End If
If cmd = "#foldermanager" Or cmd = "#editgamemenu" Then
Main.edfoldermenu_Click
Exit Sub
End If
If cmd = "#rcc" Or cmd = "#remotecontrol" Then
netcontrol_Click
Exit Sub
End If
If cmd = "#ircc" Or cmd = "#remotecontrolconsole" Then
netcontrol_Click
Exit Sub
End If
'Menu Shortcuts
If cmd = "#menu.nexus" Then
PopupMenu mnuNexus, , , , shellman
Exit Sub
End If
If cmd = "#menu.network" Then
If polHideNetworkMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu netmenu, , , , netchat
Exit Sub
End If
If cmd = "#menu.nexustools" Then
If polHideToolsMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu toolmenu, , , , newiconbaby
Exit Sub
End If
If cmd = "#menu.desktop" Then
If polDisDeskMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu DeskMenu, , , , newico
Exit Sub
End If
If cmd = "#menu.programs" Then
If polHideProgramsMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu Programs
Exit Sub
End If
If cmd = "#menu.games" Then
If polHideGamesMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu mnuGame
Exit Sub
End If
If cmd = "#menu.folders" Then
If polHideFolders = True Then PROBas.AccessDeniedMsg: Exit Sub
PopupMenu mnuFavFolders
Exit Sub
End If
MsgBox "The applet shortcut that was requested is unavailable. Try re-wording the command and try again.", 16, "Nexus Special Edition - Applet Shortcuts"
Exit Sub
End If
'Dont use Minibrowzer Varible
Dim DMB As Boolean
p = PROBas.INIGetSetting("subids", "subid6", PATHFile + "Users\" + CurrentUser + ".itc")
If p = "1" Then DMB = True Else DMB = False
'----------------------------------
'See if shell is media that can be put in the media bar
If UCase$(ShellString) Like "*.WMA" = True Then GoTo loadtomediabar
If UCase$(ShellString) Like "*.WAV" = True Then GoTo loadtomediabar
If UCase$(ShellString) Like "*.ASX" = True Then GoTo loadtomediabar
If UCase$(ShellString) Like "*.MP3" = True Then GoTo loadtomediabar
If UCase$(ShellString) Like "*.SND" = True Then GoTo loadtomediabar
GoTo 4444
loadtomediabar:
msga = MsgBox("The file you are opening is a recognised audio media file. Would you like to hear it through the Media Bar?", vbQuestion + vbYesNoCancel)
If msga = vbYes Then
Media_Player.PlaySingle (ShellString)
Exit Sub
Else
If msga = vbCancel Then Exit Sub
End If
4444
Tester.Picture = LoadPicture("")
On Error Resume Next
Tester.Picture = LoadPicture(ShellString)
If Err <> 0 Then GoTo fd
'File is a picture
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
Viewer.ShowPIC ShellString
Exit Sub
fd:
If Right$(ShellString, 1) = "\" Or Left$(UCase$(ShellString), 3) = "WWW" Or Left$(UCase$(ShellString), 5) = "FILE:" Or Left$(UCase$(ShellString), 5) = "HTTP:" Or Left$(UCase$(ShellString), 6) = "HTTPS:" Or UCase$(ShellString) Like "*.HTML" = True Or UCase$(ShellString) Like "*.HTM" = True Or UCase$(ShellString) Like "*.JPG" = True Or UCase$(ShellString) Like "*.GIF" = True Then
If Not InStr(vbNull, UCase$(ShellString), "A:\") = 0 Then
If MsgBox("Please insert the floppy disk that contains the file '" + ShellString + "', and click OK. If you want to discard this request, click 'Cancel'.", vbQuestion + vbOKCancel, "Insert Floppy Disk") = vbOK Then
If DMB = False Then
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 52
MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
52
End If
End If
If polDisMB6 = True Then MsgBox "Your Nexus Administrator has disabled Minibrowzer 6.0. The shell sting will be opened with the standard Windows shell.", 48, "Access Denied": GoTo 22237
Set frmD = New MiniBrowzer
frmD.Show
WbShlLst = WbShlLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, WbShlLst, ServPath + "RC2000\" + CurrentUser + "\Web Shell List.ini"
frmD.brwWebBrowser.Navigate ShellString
Else
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 909
MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
909
End If
End If
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
OpenIt Main, ShellString
End If
Else
Exit Sub
End If
Else
If DMB = False Then
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 335
MsgBox "The file or folder you are opening may be protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
335
End If
End If
If polDisMB6 = True Then MsgBox "Your Nexus Administrator has disabled Minibrowzer 6.0. The shell sting will be opened with the standard Windows shell.", 48, "Access Denied": GoTo 22237
Set frmD = New MiniBrowzer
frmD.Show
WbShlLst = WbShlLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, WbShlLst, ServPath + "RC2000\" + CurrentUser + "\Web Shell List.ini"
On Error Resume Next
frmD.brwWebBrowser.Navigate ShellString
Else
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 2572
MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
2572
End If
End If
22237
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
OpenIt Main, ShellString
End If
End If
Exit Sub
End If
p = Len(ShellString) + 1
Do
p = p - 1
If p = 0 Then MsgBox "Could not change directory! Please re-specify shell string.", 48:: GoTo 72
thedir = Left(ShellString, p - 1)
Loop Until Right(thedir, 1) = "\" Or Len(thedir) = 2
72
On Error GoTo serr
If Not InStr(vbNull, UCase$(ShellString), "A:\") = 0 Then
If MsgBox("Please insert the floppy disk that contains the file '" + ShellString + "', and click OK. Click cancel to cancel", vbOKCancel + vbQuestion, "Insert Floppy Disk") = vbOK Then
ChDir thedir
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 127
MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
127
End If
End If
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
Call shell(ShellString, vbNormalFocus)
Else
Exit Sub
End If
Else
On Error Resume Next
ChDir thedir
Err.Clear
If Not UCase(ShellString) Like "*.EXE" Then GoTo trystart
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 8832
MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
8832
End If
End If
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
Call shell(ShellString, vbNormalFocus)
End If
Exit Sub
serr:
If Err = 5 Or Err = 76 Then GoTo trystart
MsgBox "Could not shell the string specified. (" + Err.Description + ")", 48, "Error Number " & Err
Exit Sub
trystart:
Err.Clear
'On Error Resume Next
ChDir thedir
If CheckFileLOC(ShellString) = True Then
If NoWarn = False Then
If polDisNexusLOC2000 = True Then GoTo 678
MsgBox "The file you are opening may be protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
678
End If
End If
ShLst = ShLst + 1
PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
Call OpenIt(Main, ShellString)
End Sub
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
|