[EO 2.0/3.0] Serial Number, Redeem Item or etc [Fixed]

[Philosophy]

> Try this [https://www.dropbox.com/s/2jz72mfyq7v3wpw/EA%20%2B%20Serial%20Code.zip](https://www.dropbox.com/s/2jz72mfyq7v3wpw/EA%20%2B%20Serial%20Code.zip)

Nope sorry…

[Lzhct]

tapi cmn di dev suite aja ?

[PVJsquad]

> tapi cmn di dev suite aja ?

di Client juga bisa , tapi cuman buat ngisi serial kode ajja

ga bisa buka Serial Editor

makanya saya rekomendasikan untuk menyatukan antara client dan devsuite

[Lzhct]

kalo di client caranya gimana ?

[PVJsquad]

> kalo di client caranya gimana ?

cara apanya ?

[Lzhct]

Cara membuka untuk memasukan serial di dalam Client ( Bukan DEveloper )

[PVJsquad]

> Cara membuka untuk memasukan serial di dalam Client ( Bukan DEveloper )

satuin dulu antara devsuite dan client , patokannya client jadi kode yang ada di devsuite di pindahin ke client dan juga editor-editornya

kalo masalah mindahin tanya ke tetangga sebelah

saya rekomendasikan untuk pemula mending pakai ajja EO 2.0(EclipseVB) atau EO 3.0 mereka sama kok

[Stein]

I've deleted some foreign gibberish from the topic. Please try to refrain from using any other language besides English in the main sections of the forum. If you must, try to use Google Translate, while not perfect it will at least get the point across more so than whichever language you speak.

[PVJsquad]

sorry about that, I just want to reply to other people's posts

[DarkDino]

Bump, have a error in this line

CopyMemory ByVal VarPtr(Serial(SerialNum)), ByVal VarPtr(**SerialData(0)**), SerialSize

in Serial Data, The subscript is out of range. How to fix this D: ?

–-------------- EDIT I FIX THIS **( Client & Server )**

Public this in ModConstants

```
Public Const SERIAL_LENGTH As Byte = 10 ' Change this value to max length you like in your codes

```
Now, go to modCode in **Public Type SerialRec **change this :

```

Name As String * NAME_LENGTH
```
to:

```

Name As String * SERIAL_LENGTH
```
**Client WORK**

Go to frmSerial and click the txtName


Change the MAX LENGTH to Public Const SERIAL_LENGTH As Byte = **10 **<- to your VALUE in SERIAL_LENGTH


Cya ~

[PVJsquad]

> Bump, have a error in this line
>
> CopyMemory ByVal VarPtr(Serial(SerialNum)), ByVal VarPtr(**SerialData(0)**), SerialSize
>
> in Serial Data, The subscript is out of range. How to fix this D: ?
>
>  
>
> –-------------- EDIT I FIX THIS **( Client & Server )**
>
> Public this in ModConstants
>
> ```
> Public Const SERIAL_LENGTH As Byte = 10 ' Change this value to max length you like in your codes
>
> ```
> Now, go to modCode in **Public Type SerialRec **change this :
>
>  
>
> ```
>
> Name As String * NAME_LENGTH
> ```
> to:
>
> ```
>
> Name As String * SERIAL_LENGTH
> ```
> **Client WORK**
>
>  
>
> Go to frmSerial and click the txtName
>
>  
>
> 
>
>  
>
> Change the MAX LENGTH to Public Const SERIAL_LENGTH As Byte = **10 **<- to your VALUE in SERIAL_LENGTH
>
>  
>
> 
>
>  
>
> Cya ~

Good Job , now i know why the server always out of range so thanks you for fix

[dbzwos]

Error here in the Server

HandleDataSub(CSaveSerial) = GetAddress(AddressOf HandleSaveSerial)

I complet to tutorial from the server only copy and paste all tutorial and error >_<

Run-Time error 9

Subscript out of range

Im using Super MMORPGMaker

[JohnPony]

> Error here in the Server
>
> HandleDataSub(CSaveSerial) = GetAddress(AddressOf HandleSaveSerial)
>
> I complet to tutorial from the server only copy and paste all tutorial and error >_<
>
> Run-Time error 9
>
> Subscript out of range
>
> Im using Super MMORPGMaker

Are you sure that you have 

```
'Serial
CSaveSerial
CRequestSerial
CRequestEditSerial
CSerialGift

```
above 

```
CMSG_COUNT

```
?

[dbzwos]

Yes :) i complete all system but, the same error on the server >_<

[PVJsquad]

> Yes :) i complete all system but, the same error on the server >_<

can you Screen Shot your error ?

[rairai5650]

Wow thanks this will help for making money :D

[farrel24]

Error (Subscript out of range)

in Server>ModHandleData>Sub HandleSaveSerial

CopyMemory ByVal VarPtr(Serial(SerialNum)), ByVal VarPtr(SerialData(0))
, SerialSize

how to fix this?

Thanks

[BeNjO]

> Bump, have a error in this line
>
> CopyMemory ByVal VarPtr(Serial(SerialNum)), ByVal VarPtr(**SerialData(0)**), SerialSize
>
> in Serial Data, The subscript is out of range. How to fix this D: ?
>
>  
>
> –-------------- EDIT I FIX THIS **( Client & Server )**
>
> Public this in ModConstants
>
> ```
> Public Const SERIAL_LENGTH As Byte = 10 ' Change this value to max length you like in your codes
>
> ```
> Now, go to modCode in **Public Type SerialRec **change this :
>
>  
>
> ```
>
> Name As String * NAME_LENGTH
> ```
> to:
>
> ```
>
> Name As String * SERIAL_LENGTH
> ```
> **Client WORK**
>
>  
>
> Go to frmSerial and click the txtName
>
>  
>
> 
>
>  
>
> Change the MAX LENGTH to Public Const SERIAL_LENGTH As Byte = **10 **<- to your VALUE in SERIAL_LENGTH
>
>  
>
> 
>
>  
>
> Cya ~

the above

[h3lp]

I have a little problem at the end of this tutorial i try to compil the client and :


Screenshots 2 :


**Someonone know my error?**

**Resolved by Matt on the shoutbox**

I have replace the code by this :

frmMain.picClaim.visible = true

Thanks one more time Matt

[Justin Knight]

Thank you for this tutorial! We'll be using this feature to give out promotional items at the next convention we go to. Is there any issue with making a form instead of a picturebox? It appears to work fine but I'm still new to vb6 so I can't be sure.

[Officer Johnson]

> Thank you for this tutorial! We'll be using this feature to give out promotional items at the next convention we go to. Is there any issue with making a form instead of a picturebox? It appears to work fine but I'm still new to vb6 so I can't be sure.

No just different code instead of pic whatever.visible it would be form whatever .show

Also you might have to do something like frm whatever.text for the place to enter code on serial box

[PVJsquad]

i will make it simple for show some picturebox or many object in visual basic

**frmMain
.picClaim
.visible
= true**

**Red**
 = the form name (example: Form1, Form2, frmMain, frmMenu, frmEditor_Item, …)

**Orange**
= the object name (example: picClaim, picCover, picSprite, cmbClass, scrlStats, …)

**Yellow**  
= destination for showing object (example: caption, enable, BackColor, …)

**Green **
= True or False

so if you will make some object appear, type like that

```

frmMain.picClaim.visible = true
```
but if you want hide the object do it

```

frmMain.picClaim.visible = false
```
and if you want make toggle show/hide object do that

```

frmMain.picClaim.visible = not frmMain.picClaim.visible
```

[chemical]

Run-time error '9' Subscript is out of range

Client -> modHandleData -> HandleUpdateSerial

in

CopyMemory ByVal VarPtr(Serial(serialNum)), ByVal VarPtr(serialData(0)), serialSize

Do you have solution?

Sorry for my bad english…

[PVJsquad]

> Bump, have a error in this line
>
> CopyMemory ByVal VarPtr(Serial(SerialNum)), ByVal VarPtr(**SerialData(0)**), SerialSize
>
> in Serial Data, The subscript is out of range. How to fix this D: ?
>
>  
>
> –-------------- EDIT I FIX THIS **( Client & Server )**
>
> Public this in ModConstants
>
> ```
> Public Const SERIAL_LENGTH As Byte = 10 ' Change this value to max length you like in your codes
>
> ```
> Now, go to modCode in **Public Type SerialRec **change this :
>
>  
>
> ```
>
> Name As String * NAME_LENGTH
> ```
> to:
>
> ```
>
> Name As String * SERIAL_LENGTH
> ```
> **Client WORK**
>
>  
>
> Go to frmSerial and click the txtName
>
>  
>
> 
>
>  
>
> Change the MAX LENGTH to Public Const SERIAL_LENGTH As Byte = **10 **<- to your VALUE in SERIAL_LENGTH
>
>  
>
> 
>
>  
>
> Cya ~

[TGSlp]

EDIT: Fixxed all :)