Geen idee hoe dit heet ^^

[GDay]

Hey

Ik hoop dat iemand me hiermee kan helpen
Ik ben bezig een programma te maken
waarmee je door packets naar een server te sturen extra opties krijgt
De servr is van een spel

De packets zijn gecode in B64
maar hij moet text1.text verzenden dus de inhoud ervan
daarvoor heb ik een module
Namelijk deze

Function B64(str As String)
Dim i As Integer
i = Len(str)
B64 = Chr((i / 64) + 64) + Chr((i Mod 64) + 64)
End Function

Dit is de code van de button die hem verzend

Private Sub Command1_Click()
Dim send As String
send = "AP99" & Chr(1) & "BK" & Text1.Text & Chr(1)
send = "@" & B64(send) & send
SckServer.SendData (send)                       ***
SckServer.SendData ("@@CAP1")
End Sub

Toch geeft hij een fout aan
Namelijk bij send ( die waar de 3 sterretjes achterstaan)
wat doe ik verkeerd ?

 

[CoD_NL]

Zou het niet helpen als je zou melden wat voor error je krijgt ?

 

[GDay]

is de fout ;p

 

[CoD_NL]

Klopt 'SckServer' wel ?

 

[GDay]

100% zeker

er zitten andere functies in die ook packets evrzenden en die werken allemaal.

 

[CoD_NL]

http://www.google.nl/search?hl=nl&q="runtime+error+424"&btnG=Google+zoeken&meta=

 

[HUKED]

Hey

Ik hoop dat iemand me hiermee kan helpen
Ik ben bezig een programma te maken
waarmee je door packets naar een server te sturen extra opties krijgt
De servr is van een spel

De packets zijn gecode in B64
maar hij moet text1.text verzenden dus de inhoud ervan
daarvoor heb ik een module
Namelijk deze

Function B64(str As String)
Dim i As Integer
i = Len(str)
B64 = Chr((i / 64) + 64) + Chr((i Mod 64) + 64)
End Function

Dit is de code van de button die hem verzend

Private Sub Command1_Click()
Dim send As String
send = "AP99" & Chr(1) & "BK" & Text1.Text & Chr(1)
send = "@" & B64(send) & send
SckServer.SendData (send)                       ***
SckServer.SendData ("@@CAP1")
End Sub

Toch geeft hij een fout aan
Namelijk bij send ( die waar de 3 sterretjes achterstaan)
wat doe ik verkeerd ?

Packet edit is illegaal
In maplestory dan lol

 

[GDay]

Tis geen maplestory