|
|
| Author |
Thread Statistics | Show CCP posts - 2 post(s) |
MearWolf
   |
Posted - 2010.02.24 12:16:00 -
[1]
How do you go about using this code? I am using Visual Studio 2010 and programming in VB.Net. I have imported the libraries into the project references but I cannot get the code to work.
Please help,
|
MearWolf
|
Posted - 2010.02.24 17:55:00 -
[2]
I'm working on getting this working as we speak.
How does the demo program integrate the connection error check?
could you please do me some demo code to work with either a full or limited api and userID, check if they have connection and then msgbox a list of character names with their character number?
|
MearWolf
|
Posted - 2010.02.25 15:04:00 -
[3]
I just keep getting errors. Which code libraries do I need to import into the actual code, e.g. Imports EveAI.Live. Could you please help me with skeleton code?
|
MearWolf
|
Posted - 2010.02.25 15:29:00 -
[4]
I think this might be the problem
Warning1The referenced assembly "EveAI.Core" could not be resolved because it has a dependency on "System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" which is not in the currently targeted framework ".NETFramework,Version=v4.0,Profile=Client".EVE SecuriCheck
Warning2The referenced assembly "EveAI.Live" could not be resolved because it has a dependency on "System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" which is not in the currently targeted framework ".NETFramework,Version=v4.0,Profile=Client".EVE SecuriCheck
I'm running Windows 7 Ultimate with Visual Studio 2010 if that's any help
|
MearWolf
|
Posted - 2010.02.25 17:24:00 -
[5]
so how would I target the 4.0 full profile?
|
MearWolf
|
Posted - 2010.02.26 11:20:00 -
[6]
I still get this error:
Warning1The referenced assembly "EveAI.ComponentModel" could not be resolved because it has a dependency on "System.Design, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" which is not in the currently targeted framework ".NETFramework,Version=v4.0,Profile=Client".EVE SecuriCheck
Although it runs now, I can't pull any data down.
I'm trying to get a character selection screen.
here's my code:
Public Class Main
Public Class Main
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim userid As Integer = 5176057
Dim apikey As String = "94D2965391B345868F40B134687EE5144D4253180C8E4D07AED0ED8B5C4D9245"
Dim characterid As Integer
Dim api As New EveApi(userid, apikey, characterid)
Dim charsheet As Character.CharacterSheet = api.GetCharacterSheet
MsgBox(charsheet)
End Sub
End Class
|
MearWolf
|
Posted - 2010.02.26 12:11:00 -
[7]
Ignore my last comment, I have it working now
|
MearWolf
|
Posted - 2010.02.26 12:17:00 -
[8]
Edited by: MearWolf on 26/02/2010 12:17:10
I've now got it pulling down data, how would I now get it to just say msgbox the character IDs
|
MearWolf
|
Posted - 2010.03.01 10:40:00 -
[9]
sorry for being such a pest, I've got it all working now, I just need a way to pull down all the character IDs associated with an account
|
MearWolf
|
Posted - 2010.03.02 13:49:00 -
[10]
sorry I don't know how to use that, I'm trying to output the 3 character IDs associated with an account to a new array of size 3
|
|
|
MearWolf
|
Posted - 2010.03.05 12:09:00 -
[11]
Edited by: MearWolf on 05/03/2010 12:11:20
Edited by: MearWolf on 05/03/2010 12:10:49
Ok basically what I'm doing is using Visual Studio 2010 with VB.Net to make a tool for corporations to perform security checks on prospective members. They members will give the recruitment office their API UserID and Limited API key and with my tool you will be able to see information for all the association characters. I have it currently pulling down data just fine. The problem I'm having is finding all the character IDs of characters associated with an account.
Here's a mock up of message boxing all the characters association with an account how I would like to to work, help please.
Dim userid As Integer
InputBox(userid)
Dim apikey As String
InputBox(apikey)
Dim characterid(3) As Integer
Dim k as Integer
[b]'''This is where I would put each CharacterID in the characterid array
For k = 1 to 3
(character ID list from api(k)) = characterid(k)
]Next [/b
Dim i as integer = 1
Dim api(3) As New EveApi(userid, apikey, characterid(i))
Dim charsheet As Character.CharacterSheet = api.GetCharacterSheet
For i = 1 to 3
MsgBox(charsheet.Name)
Next
|
MearWolf
|
Posted - 2010.03.05 12:20:00 -
[12]
 Originally by: Amida Ta
Edited by: Amida Ta on 03/03/2010 09:48:35
Well I'm not particulary good in VB. But shouldn't it just be something like:
For Each entry In api.GetAccountEntries
MsgBox(entry.Name + ": " + entry.CharacterID)
Next
Thanks, I've just managed to get it running with this 
|
MearWolf
|
Posted - 2010.03.05 12:39:00 -
[13]
Here's another one to try
I'm trying to pull up the server status on a StatusStip
Dim servstat As New ServerStatus()
If servstat.Online = True Then
stsstrpOnln.Text = "Online"
Else
stsstrpOnln.Text = "Offline"
End If
stsstrpUsrs.Text = (servstat.PlayersOnline & " players")
Though this code just thinks server is offline and no players online
|
MearWolf
|
Posted - 2010.03.08 14:55:00 -
[14]
Originally by: Amida Ta
You are not calling the api at all here. Just replace
Originally by: MearWolf
Dim servstat As New ServerStatus()
with
Dim servstat As ServerStatus = api.GetServerStatus
and it should work. (of course you need the api object again, but you have used that in the other code samples, too).
sorry silly mistake, thanks
|
MearWolf
|
Posted - 2010.03.15 10:24:00 -
[15]
Originally by: Amida Ta
Edited by: Amida Ta on 03/03/2010 09:48:35
For Each entry In api.GetAccountEntries
MsgBox(entry.Name + ": " + entry.CharacterID)
Next
using this how could I assign each entry to an instance of an array e.g.
Dim i As Integer = 1
For Each entry In api.GetAccountEntries
characterid(i) = entry.CharacterID
i = i + 1
Next
but this doesn't work
|
MearWolf
|
Posted - 2010.03.16 14:27:00 -
[16]
is there any way to pull the account name down using the limited api?
|
MearWolf
|
Posted - 2010.04.19 14:07:00 -
[17]
Hey, is there any way to pull down the account name(like EVEmon does)?
|
MearWolf
|
Posted - 2010.04.23 11:15:00 -
[18]
K I'm having trouble with pulling down alliance data, it works fine on a character who is in an alliance however I've got an if to see if they're in an alliance and if not just display "none". when I try and do this though, I get the following error, oh and I'll pop my code on too.
If corporationsheet2.Alliance.AllianceID <> 0 Then
frmMn.chr2lblAlliance.Text = corporationsheet2.Alliance.Name
frmMn.chr2lblAllianceMembers.Text = corporationsheet2.Alliance.MemberCount
frmMn.chr2lblCorporationCount.Text = corporationsheet2.Alliance.MemberCorporations.Count
Else
frmMn.chr2lblAlliance.Text = "None"
End If
---------------------------------------
System.NullReferenceException was unhandled
Message=Object reference not set to an instance of an object.
Source=EVE SecuriCheck
StackTrace:
at EVE_SecuriCheck.frmMngAccnt.cmdOpnAccnt_Click(Object sender, EventArgs e) in C:\Users\Joe\Dev\Visual Basic\Projects\EVE SecuriCheck\EVE SecuriCheck\frmMngAccnt.vb:line 92
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at EVE_SecuriCheck.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException:
|
MearWolf
|
Posted - 2010.04.25 14:18:00 -
[19]
Originally by: Amida Ta
Edited by: Amida Ta on 23/04/2010 13:21:32
The fix is very simple. Change
Originally by: MearWolf
If corporationsheet2.Alliance.AllianceID <> 0 Then
into
Quote:
If corporationsheet2.Alliance = NULL Then
I tried something similar using Quote:
If corporationsheet.Alliance <> Nothiing Then
but that didn't work however your bit of code has given me this: Quote:
If IsDBNull(corporationsheet2.Alliance) = True Then
which I believe must be the VB.Net equivalent
|
MearWolf
|
Posted - 2010.04.25 15:39:00 -
[20]
Edited by: MearWolf on 25/04/2010 15:39:52
Edited by: MearWolf on 25/04/2010 15:39:23
Sorry to pester but is there any way to pull down character portraits as currently I can only display them if the EVE client has already downloaded them.
This is how I'm accessing them at the moment
Quote:
ImageLocation = ("C:\Documents and Settings\" & System.Environment.UserName & "\Local Settings\Application Data\CCP\EVE\c_program_files_ccp_eve_tranquility\cache\Pictures\Portraits\" & characterid & "_504.png")
|
|
|
MearWolf
|
Posted - 2010.04.27 13:26:00 -
[21]
Are you sure that wouldn't just msgbox each character name?
Originally by: Nig C
Hello MearWolf!
First of all, use an Objekt-Browser like that one in Visual Studio 2008 and browse the EveAI.Core and EveAI.Live, then you will see how big Amida's Library is and what you can do with or visit the EveAI Wiki on EVE-Development Network.
Originally by: MearWolf
Hey, is there any way to pull down the account name(like EVEmon does)?
EveAI.Live.EveApi.GetAccountEntries() As System.Collections.Generic.List(Of EveAI.Live.Account.AccountEntry)
Dim myApi as new EveAI.Live.EveApi
myApi.Authentication.UserID = xxxxxxxx
myApi.Authentication.ApiKey = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Dim myAccountEntries As System.Collections.Generic.List(Of EveAI.Live.Account.AccountEntry)
myAccountEntries = myApi.GetAccountEntries()
For Each element As EveAI.Live.Account.AccountEntry In myAccountEntries
MsgBox(element.Name)
Next
- NigC
|
MearWolf
Caldari
Cygnus Excavations Inc.
|
Posted - 2010.04.29 10:41:00 -
[22]
Edited by: MearWolf on 29/04/2010 10:42:07
Edited by: MearWolf on 29/04/2010 10:41:17
Originally by: Krathos Morpheus
How do I use api.GetCharacterAccountBalance? Given an api that specifies the characterID, how do I retrieve the balance from that character? It looks like it contains a collection of items accesible only by index.
Imports EveAI.Live
Dim userid As Integer = Val(InputBox("Input User ID", "User ID"))
Dim apikey As String = InputBox("Input API Key", "API Key")
Dim characterid as Integer = Val(InputBox("Input Character ID", "Character ID"))
Dim api As New EveApi(userid, apikey, characterid)
Dim charactersheet As Character.CharacterSheet = api.GetCharacterSheet()
MsgBox(charactersheet.Balance)
--------------------------------------------------------------------------------
|
|
|
| |
|