Hvordan gør jeg det at kunne sende en besked til en anden maskine på mit LAN?
Et eks. på en besked der kunne sendes til en anden maskine (på dette er det kun mig som kan se det)...
Sub Tid()
Application.OnTime TimeValue("24:00:00"), "Tidsstart"
End Sub
Sub Tidsstart()
MsgBox "Klokken er mange - gå dog i seng"
End Sub
Hej Der ude!
Hvis at jeg har forstået det rigtigt vil du lave et makro i excel.
Men så skal du bruge en user form.
Men for at dette virker skal du lige foretælle den at du skal bruge en winsock!
Så klik på tools og højreklik og vægl "Additional Tools"
Nu skal nu finde og markere "Microsoft Winsock Control, Version 6.0"
Lav så en winsock på formen
Når det er lavet skal du på formen's code skrive:
Modtager
---
Private Sub UserForm_Activate()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 1000
Winsock1.LocalPort = 1000
Winsock1.Bind
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DATA As String
Winsock1.GetData DATA
If DATA = "Det er sent nu" Then
MsgBox DATA
End If
End Sub
På senderen skal du bruge
---
Private Sub UserForm_Activate()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 1000
Winsock1.LocalPort = 1000
Winsock1.Bind
Dim ip As String
Dim DATA As String
ip = "192.168.1.4"
Me.Winsock1.RemoteHost = ip
DATA = "Det er sent nu"
Me.Winsock1.SendData DATA
End Sub
Mere behøves der nok ikke.
Men hvis du vil vide mere om winsock skal du da bare læse artikleren: Simpel Chat mellem to computere!
Og man skal have WINSCK.OCX eller hvad den nu hedder! Sig bare til hvis du ikke har den!
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?
[Redigeret d. 03/10-04 13:57:18 af Jonas Termannsen]