---

Hej NG

Mon der er en der kan hjælpe ?

Vil gerne ha lavet et lille prg. til send af meddelser via kommandoen i NET
SEND WinNT/W2k.

Feks. at programmet blot indeholder 3 felter:

Felt1: Skriv Brugernavnet
Felt2: SKriv meddelsen
Felt3: Tryk SEND

MVH
Thomas J.

---

Thomas Jørgensen skrev:
> Vil gerne ha lavet et lille prg. til send af meddelser via kommandoen i
NET
> SEND WinNT/W2k.

Hvor avanceret skal det være? Følgende virker fint:

Shell "net send PCNavnEllerBrugernavn EnEllerAndenTekstBesked"

Men den "rigtige" måde er naturligvis at bruge et rigtigt API-kald som vist
i nedenstående eksempel:

Private Declare Function NetMessageBufferSend Lib "netapi32" _
(ByVal ServerName As Long, ByVal MsgName As Long, _
ByVal FromName As Long, Buffer As Any, ByVal BufLen As Long) As Long

Private Sub Send(ByVal Modtager As String, ByVal Besked As String)
Dim Buffer() As Byte
Buffer = Besked
If NetMessageBufferSend(0&, StrPtr(Modtager), 0&, Buffer(0),
LenB(Besked)) Then
MsgBox "Beskeden nåede vist ikke frem!"
End If
End Sub

Private Sub Form_Load()
Send "hugoline", "Hallo Sifon! Din cykel er i telefonen!"
End Sub

-------
Tomas

---

> Hvor avanceret skal det være? Følgende virker fint:
>
> Shell "net send PCNavnEllerBrugernavn EnEllerAndenTekstBesked"
>
> Men den "rigtige" måde er naturligvis at bruge et rigtigt API-kald som
vist
> i nedenstående eksempel:
>
> Private Declare Function NetMessageBufferSend Lib "netapi32" _
> (ByVal ServerName As Long, ByVal MsgName As Long, _
> ByVal FromName As Long, Buffer As Any, ByVal BufLen As Long) As Long
>
> Private Sub Send(ByVal Modtager As String, ByVal Besked As String)
> Dim Buffer() As Byte
> Buffer = Besked
> If NetMessageBufferSend(0&, StrPtr(Modtager), 0&, Buffer(0),
> LenB(Besked)) Then
> MsgBox "Beskeden nåede vist ikke frem!"
> End If
> End Sub
>
> Private Sub Form_Load()
> Send "hugoline", "Hallo Sifon! Din cykel er i telefonen!"
> End Sub
>
> -------
> Tomas
>
>

Hvis det ikke er for meget... (og det er et ønske fra kollegaer, at det skal
være nemt
Not me... kan godt skrive NET SEND XX YY....

kan man så lave en form der popper op hvor de kan udfylde NAVN/WS og
Meddelses og tryk på send.
???....

Ps. er ikke den store erfaren VB'bruger ..... endnu forhåbentlig

---

Thomas Jørgensen skrev:
> Hvis det ikke er for meget...
> kan man så lave en form der popper op hvor de kan udfylde NAVN/WS og
> Meddelses og tryk på send.

Okay. Vi er jo alle startet et sted.
Jeg har prøvet skrive en punkt-for-punkt vejledening i hvordan man kan
skrive det ønskede program.

1. Start din Visual Basic og vælg et Standard EXE projekt.
2. Dobbeltklik på en Label i vinduet til venstre.
3. Find egenskaben (property) ved navn "Caption" (findes i et af vinduet i
højre side, som nu har navnet "Properties - Label1"), skriv "Modtager:" i
den og tryk Enter.
4.Dobbeltklik på AutoSize egenskaben, så den kommer til at have værdien
True.
5. Dobbeltklik på en TextBox i vinduet til venstre.
6. Tryk Backspace og Enter (indholdet af tekst-boksen).
7. Find egenskaben "(Name)" og giv tekst-boksen navnet "txtModtager".
8. Placer tekst-boksen til højre for teksten "Modtager:" så det ser pænt
ud.
9. Udfør punkt 2-4 men skriv "Besked" i stedet for "Modtager".
10. Udfør punkt 5-8 med "Besked:" i stedet for "Modtager".
11. Dobbeltklik på en CommandButton og navngiv den cmdSend (dvs. "(Name)"
egenskaben igen).
12. Skriv "Send besked" i "Caption" egenskaben.
13. Sæt "Default" egenskaben til True.
14. Tryk F7 og erstat al koden med nedenstående kode:

Option Explicit
Private Sub Command1_Click()
Shell "NET SEND " & txtModtager & " " & txtBesked
End Sub

15. Tryk File, "Make Project1.exe" og du har mulighed for at få dannet en
EXE-fil.

-------
Tomas

---

Hej Tomas

Takker mange gange......
Også for tålmodigheden, ved at skrive udførlig vejledning...
Ja, havde det været på eksperten.dk havde du scoret mange point...
MVH
Thomas J.