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
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
MvG,
Beus
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 !
Clioke16V ( 4 March 2007)
: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 !
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 ( 6 March 2007)
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
Heb op het internet eens een source gezien van Net Send en deze aangepast naar mijn wensen
Dit is de source...
Code:#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
Laatst gewijzigd door Mosquitos; 24 July 2007 om 20:33
Interessant!! Helaas versta ik hier de ballen van. Enige zeer uitgebreide uitleg voor een dommerik als ik??? Thanks!!
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:
Laatst gewijzigd door Mosquitos; 24 July 2007 om 20:33
Kun je dit ook doen met bestanden? die net send ?
Momenteel bekijken 1 gebruikers deze discussie. (0 leden en 1 gasten)
Favorieten/bladwijzers