Jump to content
Sign in to follow this  
Mosquitos

Network chat from burrup

Recommended Posts

I changes the code from burrup a little bit but the script closed immediately.

I don't now what i do wrong.Can someone help please?

#include <GUIConstants.au3>
#include <Process.au3>
Opt("OnExitFunc","_exit")
Opt("GuiOnEventMode",1)

Fileinstall("C:\Send.bmp",@tempdir&"\Send.bmp")

_RunDos("net view" & " > " & @TempDir & "\temp.txt")

$hello = FileOpen(@TempDir & "\temp.txt", 0)

GUICreate("Network Chat", 350, 145)
$computer = GUICtrlCreateList ("",10,25,130,125)
GUISetBkColor(0x000000, $computer)

While 1
   $line = FileReadLine($hello)
   If @error = -1 Then ExitLoop
   If StringInStr($line, "\\") Then
      GUICtrlSetData($computer,StringMid( (StringStripWS($line, 8)), 3))
   EndIf
Wend

FileClose($hello)

GUICtrlCreateLabel ("Select the computer:",  25, 5, 120, 15)
GUICtrlSetColor(-1,0xffff00)
GUICtrlCreateLabel ("Please enter your message:",  180, 5, 130, 15)
GUICtrlSetColor(-1,0xffff00)
$msg1 = GUICtrlCreateInput ("", 150, 25, 190, 80)
$send = GUICtrlCreatePic (@tempdir&"\Send.bmp", 195, 115, 100, 20)
GuiSetState()
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GuiCtrlSetOnEvent($send,"_send")

WinSetTrans($computer, "", 200)
    
Func _send()
       _RunDos("net send " & GUICtrlRead($computer) & " " & GUICtrlRead($msg1))
EndFunc
   
Func _Exit()
    FileDelete(@TempDir & "\temp.txt")
    FileDelete(@TempDir & "\Send.bmp")
    Exit
EndFunc

Sapiente vince, rex, noli vincere ferro!

Share this post


Link to post
Share on other sites

Please don't make me work so hard to try to help you...

Please explain what you're trying to do, what isn't working and what you've tried to do to fix it...

Dale


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

I changed the look with colors and a bmpfile.

Autoit gives no errors but if i run the script he closed immediately.

This is the code from burrup...

#include <Process.au3>#include <GUIConstants.au3>_RunDos("net view /domain" & " > " & @TempDir & "\temp.txt")$hello = FileOpen(@TempDir & "\temp.txt", 0)GUICreate("Network Chat", 300, 135)$computer = GUICtrlCreateList ("", 5,40,121,97)While 1    $line = FileReadLine($hello)    If @error = -1 Then ExitLoop    GUICtrlSetData(-1,$line)WendFileClose($hello)FileDelete(@TempDir & "\temp.txt")GUICtrlCreateLabel ("Select the computer to send your message to.",  5, 5, 150, 30)$msg1 = GUICtrlCreateInput ("", 135,  104, 156, 20)$send = GUICtrlCreateButton ("Send",  135, 75, 50)GuiSetState()While 1    $msg = GUIGetMsg()    if $msg = $send then       _RunDos("net send " & GUICtrlRead($computer) & " " & GUICtrlRead($msg1))    endif    If $msg = $GUI_EVENT_CLOSE Then ExitLoopWend[code=auto:0]


            
                


    Edited  by Mosquitos
    
    

            
        

        
            
                
                    

        
        
            
                
                
                    
                
            
            
            
        
    

                
            
            
                
                    
                    
                    
                
                
                    
                
            
        

        
            

    
        
            

        
            Sapiente vince, rex, noli vincere ferro!
        
    

        
    

    
        
            Share this post
            
            Link to post
            
            
            

            
                Share on other sites
                

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    

            
        
    

    

                    
                
                    
                    
                    






    

    
        
            

DaleHohm
              

    
        
    
             65
    
        
    

        
        
            


    
        
    

        
    
    
        

DaleHohm
               

    
        
    
             65
    
        
    


        
            
                Think of IE as an API...
            
            

            
                


    
        
    

            
            MVPs
            
                
            
            
                

    
        
    
             65
    
        
    

                5,930 posts
                
                

            
        
    
    
        


    

    
        
            
                
                
                
                    
                
                
            
        

        
            Posted 
            
                
                    (edited)
                
                
            
        
    

    


    
        
        
            You didn't include the Idle loop that was in burrup's code.  Yours creates the GUI and simply falls through and exits.

either addWhile 1
    Sleep(100)
Wend

or burrup's code:

While 1
$msg = GUIGetMsg()
if $msg = $send then
_RunDos("net send " & GUICtrlRead($computer) & " " & GUICtrlRead($msg1))
endif
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Dale

Edited by DaleHohm

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

Cool lol. I wrote that script ages ago for school so we could chat over the network and didn't have to open up CMD and type 'net send blah blah' each time. Glad its helping someone, or being put to use :(.


qq

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...