/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Net Send...
Fra : Thomas Jørgensen


Dato : 04-05-01 19:50

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.




 
 
Tomas Christiansen (04-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 04-05-01 22:46

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



Thomas Jørgensen (05-05-2001)
Kommentar
Fra : Thomas Jørgensen


Dato : 05-05-01 22:14

> 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



Tomas Christiansen (06-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 06-05-01 22:45

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



Thomas Jørgensen (07-05-2001)
Kommentar
Fra : Thomas Jørgensen


Dato : 07-05-01 20:35

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.




Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408941
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste