Multiplayer-Spiel über VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nein, kein Shooter :D Es ist nur eine Art Strategiespiel (nach Marke Risiko, aber eben deutlich komplexer), das auf einem Brett gespielt wird, aber durch eine (mittlerweile recht umfangreiche und komplexe) "App" ergänzt wird.
Der erste fluffige Vorschlag war auch mal meine Idee. Leider kamen mir da die Tablets dazwischen. Es handelt sich um Dell Venue 11 Pro-Gerät. Prinzipiell finde ich die recht flott (für Tablets), allerdings haben sie alle vier so ihre Probleme mit dem Netzwerk. Auf sie kann zwar jederzeit von einem fünften Rechner zugegriffen werden, doch wenn sie auf einander oder auf einen anderen, fünften Rechner zugreifen sollen, zieren sie sich gerne mal. Das klappt hin und wieder, bei zweien sogar recht sicher, bei den anderen beiden aber oft nicht. Die Freigabe/Netzwerkeinstellungen sind bei allen vier Tablets gleich, sie sind auch von der gleichen Modellart und nutzen alle Windows 10 Pro 64-bit in aktuellster Version. Dennoch reagieren sie leider unterschiedlich.
Von daher bin ich limitiert: Die Tablets können von außen gerufen und verändert werden, aber sie können selbst keine Daten zu einem fünften PC schicken. Was sie können (seltsamerweise), ist das Schicken von Daten an einen NAS. Doch als NAS habe ich nur meine Fritz-Box und die ist leider sehr langsam. Besonders Speicherzugriffe auf die Box (und die müssen ja leider sein, um freigegebene Excelmappen zu aktualisieren) sind quälend langsam und zerlegen mir die Performance komplett.
Daher eben mein Ansatz, die Tablets nur auf "hauseigene" Daten zugreifen zu lassen und einen fünften, außenstehenden PC die Synchronisierung übernehmen zu lassen.
Vielleicht ist dein zweiter Ansatz aber eine Möglichkeit: Wenn man eine CSV-Datei in eine XLSM importiert und dann die CSV von außen (also vom fünften Rechner) speichern lassen will (um die neu hineingeschriebenen Daten für das Tablet erkennbar zu machen), wird dann nur die kleine CSV-Datei gespeichert? Oder die große "Hauptdatei", in die sie importiert wurde? Denn die ist mittlerweile fast 1,5 MB groß (durch Dutzende Userformen, tausende Zeilen Code etc.), was wegen der "Datenmenge" beim Speichern performanceseitig spürbar werden würde.

Hallo,
@Luc: Danke, diese Erklärung war besser als mein Kommentar.
Z.Zt würde ich immer Python oder Powershell (oder netcat) für einen Test mit "Socket" nutzen. Vor recht langer Zeit hatte ich nach den Stichworten "Socket VBA" gesucht und den folgenden Code gefunden. Das erschien mir so komplex, das ich es nicht weiter verfolgt habe.


Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Private Declare Function WSAStartup Lib "wsock32.dll" ( _
ByVal wVersionRequested As Integer, _
lpWSAData As WSAData) As Long
Private Declare Function socket Lib "wsock32.dll" (ByVal af As Long, _
ByVal prototype As Long, ByVal protocol As Long) As Long
Private Declare Function inet_addr Lib "wsock32.dll" ( _
ByVal cp As String) As Long
Private Declare Function htons Lib "wsock32.dll" ( _
ByVal hostshort As Integer) As Integer
Private Declare Function connect Lib "wsock32.dll" (ByVal s As Long, _
name As SOCKADDR, ByVal namelen As Long) As Long
Private Declare Function ioctlsocket Lib "wsock32.dll" (ByVal s As Long, _
ByVal cmd As Long, argp As Long) As Long
Private Declare Function closesocket Lib "wsock32.dll" (ByVal s As Long) As Long
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Private Declare Function gethostbyname Lib "wsock32.dll" ( _
ByVal name As String) As Long
Private Declare Sub MoveMemory Lib "kernel32" _
Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Private Type WSAData
wVersion As Integer
wHighVersion As Integer
szDescription As String * 257
szSystemStatus As String * 129
iMaxSockets As Long
iMaxUdpDg As Long
lpVendorInfo As Long
End Type
Private Type HOSTENT
hname As Long
haliases As Long
haddrtype As Integer
hlength As Integer
haddrlist As Long
End Type
Private Type SOCKADDR
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero As String * 8
End Type
' eine der HOSTENT-haddrtype-Konstanten
Private Const AF_INET = 2 ' Internet Protokoll (UDP/IP oder TCP/IP).
' socket prototype-Konstanten
Private Const SOCK_STREAM = 1 ' 2-wege Stream. Bei AF_INET ist es das
' TCP/IP Protokoll
Private Const SOCK_DGRAM = 2 ' Datagramm Basierende verbindung. Bei AF_INET
' ist es das UDP Protokoll
Dim hSock As Long
' Winsocksitzung starten
Public Sub WinSock_Starten() 'Form_Load()
Dim Retval As Long, WSD As WSAData
Retval = WSAStartup(&H202, WSD)
'0: Ok; Fehlermeldungen; MUSS 1. Befehl sein; MUSS mit WSACleanup beendet werden
'If Retval

Wenn Du dich da einarbeiten möchtest, werde ich dir (mit sehr wenig Zeiteinsatz) helfen.
mfg

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Multiplayer-Spiel über VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread