...Code: Alles auswählen
Global strInput.s
OpenConsole()
Repeat
Print(">"): strInput = Input(): PrintN("")
If strInput: RunProgram(strInput): EndIf
Until Len(strInput)=0Code: Alles auswählen
; English forum: http://purebasic.myforums.net/viewtopic.php?t=6067&highlight=
; Author: PB
; Date: 05. May 2003
; Get the location of the Windows folder.
windir$=Space(255) : GetWindowsDirectory_(@windir$,255) : If Right(windir$,1)<>"\" : windir$+"\" : EndIf
; Get the right version of the command interpreter for this PC.
cmd$=Space(255) : GetEnvironmentVariable_("comspec",@cmd$,255) ; Returns "command.com" (9x/ME) or "cmd.exe" (NT/2K/XP).
; Now create a text file ("c:\list.txt") using the DIR command on the Windows folder.
ShellExecute_(0,0,cmd$,"/c dir.exe "+Chr(34)+windir$+"*.*"+Chr(34)+" > "+Chr(34)+"C:\List.txt"+Chr(34),windir$,0)
; instead of ShellExecute is also following possible:
; RunProgram(cmd$,"/c dir.exe "+Chr(34)+windir$+"*.*"+Chr(34)+" > "+Chr(34)+"C:\List.txt"+Chr(34),windir$,0) Code: Alles auswählen
If OpenWindow(0,Random(624),Random(568),400,200,#PB_Window_SystemMenu,"Microsoft Word")
If CreateGadgetList(WindowID())
ButtonGadget(1,20,20,100,20,"Send")
ButtonGadget(2,20,80,100,20,"Quit")
ListViewGadget(3,150,20,230,80)
IPAddressGadget(4,20,120,120,20)
StringGadget(5,20,150,360,20,"Message")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
If EventGadgetID()=1
a.s=GetGadgetText(4)
b.s=GetGadgetText(5)
AddGadgetItem(3,-1,"IP Addresse:"+a.s)
AddGadgetItem(3,-1,"Message:"+b.s)
OpenConsole()
ConsoleTitle("Send")
RunProgram("c:\net","send" + a.s +b.s,"",2)
AddGadgetItem(3,-1,"Message wurde versant !")
EndIf
If EventGadgetID()=2
Quit=1
EndIf
If EventGadgetID()=5
EndIf
EndIf
Until Quit=1
EndIf
End
Code: Alles auswählen
If OpenWindow(0,Random(624),Random(568),400,200,#PB_Window_SystemMenu,"Microsoft Word")
If CreateGadgetList(WindowID())
ButtonGadget(1,20,20,100,20,"Send")
ButtonGadget(2,20,80,100,20,"Quit")
ListViewGadget(3,150,20,230,80)
IPAddressGadget(4,20,120,120,20)
StringGadget(5,20,150,360,20,"Message")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
If EventGadgetID()=1
a.s=GetGadgetText(4)
b.s=GetGadgetText(5)
AddGadgetItem(3,-1,"IP Addresse:"+a.s)
AddGadgetItem(3,-1,"Message:"+b.s)
OpenConsole()
ConsoleTitle("Send")
RunProgram("c:\windows\system32\net.exe","send" + a.s +b.s,"",2);Hier wurde was geändert!
AddGadgetItem(3,-1,"Message wurde versand !")
EndIf
If EventGadgetID()=2
Quit=1
EndIf
If EventGadgetID()=5
EndIf
EndIf
Until Quit=1
EndIf
End 
