Berichtjes verzenden

[Beus]

Nee niet echt hier heb je wel nog de uitleg van Microsoft over de "net send" functie:
http://www.microsoft.com/resources/d....mspx?mfr=true

[Emile.H]

mm, Als ik dit op school wil doen met vrienden, tijden informatica, moet ik dan ook de messenger service aan hebben staan ?
(we zitten wel in netwerk)

Groetjes, EMile !

[Emile.H]

:O ik heb het net geprobeerd bij mijn thuis, hier staat 2 pc's in netwerk.
ik doe dus. net send xxx.xxx.xxx.xxx "hallo" en het werkt niet.
MAAR: als ik doe: " net name " dan staat er " De messenger-service is niet gestart. mag het prog. worden gestart? J/N "
en dan doe ik ' J ' en dan zegt ie: Kan de service niet starten omdat deze is uitgeschakeld, of omdat het geen ingeschakelde apparaten met zich heeft verbonden"

Hoe kan ik die service inschakkelen ? dan werkt het ...

Groetjes, EMile !

[PeterN]

Het werkt met messenger service.
Typ in uitvoeren 'services.msc' en ok.
Er komt een window met gestarte services op je pc.
Zoek 'messenger' en dubbel klik. In het window dat dan verschijnt kan je het inschakelen. Probeer het zo eens?

[Emile.H]

merci, het werkt, bij mijn thuis toch
Ik heb het ook al geprobeerd bij informatica. en daar zei het, bij het inschakellen van die messenger service "toegang geweigerd" Maar ik heb het nog niet geprobeerd via 'services.smc' , zo snel mogelijk eens proberen

[Mosquitos]

Heb op het internet eens een source gezien van Net Send en deze aangepast naar mijn wensen

Dit is de source...

#NoTrayIcon
#include <GUIConstants.au3>

AdlibEnable("ReduceMemory", 5000)
Func ReduceMemory($i_PID = -1)
    Local $ai_R = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    Return $ai_R[0]
EndFunc

Dim $un = @UserName
Filedelete(@TempDir & "\b.tmp")
RunWait("net start messenger","",@SW_HIDE)
RunWait(@ComSpec & ' /c net view > ' & @TempDir & '\a.tmp',"", @SW_HIDE)
Sleep(300)
$file = FileOpen(@TempDir & "\a.tmp", 0)
If $file = -1 Then
    MsgBox(0, "Error", "Kan gebruikerslijst niet openen!")
    Set_Exit()
EndIf

FileOpen(@TempDir & "\b.tmp", 1)

While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop  
    $result = StringInStr($line,"\\")
      if $result = 1 Then
      $blankpos = StringInStr($line," ")
      $len = StringLen($line)
      $len = $len - $blankpos
      $line = StringTrimRight($line, $len)
      $line = StringTrimLeft($line,2)
      FileWrite(@TempDir & "\b.tmp", $line & "|")
      EndIf
Wend

FileClose($file)
FileDelete(@TempDir & "\a.tmp")
$file2 = FileReadline(@TempDir & "\b.tmp", 1)
FileInstall("transfer.wav", @TempDir & "\transfer.wav",1)
$Sound_gtm = @TempDir & "\transfer.wav"
FileInstall("blocked.wav", @TempDir & "\blocked.wav",1)
$Sound_gtd = @TempDir & "\blocked.wav"
$Tmesg_win = GuiCreate("Net Send", 325, 277, -1, -1)
GUISetBkColor(0x00008B)
GUISetFont(9, 700, -1, "MS Sans Serif")
$Group1 = GuiCtrlCreateGroup( "Bericht van", 10, 5, 305, 50)
$label = GUICtrlCreateLabel($un, 25, 25, 280, 20)
GUICtrlSetColor($label, 0xFFFFFF)
$Group2 = GuiCtrlCreateGroup("Bericht naar",10, 60, 305, 50)
$combo_1 = GUICtrlCreateCombo("", 120, 77, 180, 20)
GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetData(-1,$file2)
$label_1 = GUICtrlCreateLabel( "Kies een PC", 25, 80, 85, 20)
GUICtrlSetColor($label_1, 0xFFFFFF)
$Group3 = GuiCtrlCreateGroup("Bericht tekst", 10, 115, 305, 120)
$label_2 = GUICtrlCreateLabel("Type uw bericht hieronder", 25, 135, 260, 20)
GUICtrlSetColor($label_2, 0xFFFFFF)
$text = GuiCtrlCreateEdit("", 25, 160, 275, 60, 0x50231104)
$button_1 = GUICtrlCreateButton("Bericht verzenden met Net Send", 10, 245, 305, 22)
GuiSetState(@SW_SHOW)

$msg = 0
While 1
$msg = GuiGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
    Set_Exit()
case $msg = $button_1
    $CPUID = GuictrlRead($combo_1)
    If $CPUID = "" Then
        GUISetState(@SW_HIDE)
        MsgBox(64," Error"," Kies een PC...   ")
        GuiSetState(@SW_SHOW)
        ContinueLoop
    EndIf
    $msg1 = GuictrlRead($text)
    If $msg1 = "" Then
        GUISetState(@SW_HIDE)
        MsgBox(64," Error"," Type een bericht...   ")
        GuiSetState(@SW_SHOW)
        ContinueLoop
    EndIf
    $runvar = RunWait(@comspec & " /c net send " & $un & " zegt: " & $msg1,"",@SW_HIDE)
    SoundPlay ($Sound_gtm,1)
    If $runvar > 0 Then
        SoundPlay ($Sound_gtd,1)
        $func1 = MsgBox(4100, "Net Send is niet gestart!", "Wil je deze service starten?")
        If $func1 = 7 Then ContinueLoop
        If $func1 = 6 Then
        Sleep(200)
        Set_Setup()
        EndIf
    ContinueLoop
    EndIf
    EndSelect
WEnd

Func Set_Setup()
    Run("mmc Services.msc -k netsvcs", @SystemDir)
    WinWaitActive("Services")
    Sleep(300)
    Send("{TAB}")
    Sleep(300)
    Send("Messenger")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    Send("!e")
    Sleep(300)
    Send("A")
    Sleep(300)
    Send("!A")
    Sleep(300)
    Send("!S")
    Sleep(2000)
EndFunc
 
Func Set_Exit()
    AdlibDisable()
    Exit
EndFunc

[Jule]

Interessant!! Helaas versta ik hier de ballen van. Enige zeer uitgebreide uitleg voor een dommerik als ik??? Thanks!!

[Mosquitos]

In bijlage kan je al veel uitleg vinden
Is wel in het engels...
De Site: http://www.autoitscript.com/forum/index.php
En de helpfile:

[Emile.H]

Kun je dit ook doen met bestanden? die net send ?