看了一點點FreeBasic的內容，實在強大，但是不適合我……

所以下午又用Purebasic來寫東西，木馬是怎麼來的呢？這是一個問題！

把下面的程式碼改改不就成了嗎？

首先是公共的GUI函式

; PureBasic Visual Designer v3.95 build 1485 (PB4Code) ;- Window Constants ; Enumeration #Window_0 EndEnumeration ;- Gadget Constants ; Enumeration #String_0 #Button_0 #Text_0 #Text_1 EndEnumeration Procedure Open_Window_0() If OpenWindow(#Window_0, 434, 258, 300, 90, "伺服器", #PB_Window_SystemMenu | #PB_Window_TitleBar ) If CreateGadgetList(WindowID(#Window_0)) StringGadget(#String_0, 50, 20, 160, 20, "") ButtonGadget(#Button_0, 220, 20, 60, 20, "傳送") TextGadget(#Text_0, 15, 22, 35, 20, "命令:") TextGadget(#Text_1, 15, 62, 270, 20, "提示:") EndIf EndIf EndProcedure

接下來是 伺服器端程式碼：

; PureBasic Visual Designer v3.95 build 1485 (PB4Code) IncludeFile "ServerGUI.pb" Global *Buffer Global Port.i Global ClientID.i Declare MainLoop() Declare ServerThread(*i) If InitNetwork() <> 0 *Buffer = AllocateMemory(1000) Port = 6286 Open_Window_0() MainLooP() Else MessageRequester("警告","網路設定初始化失敗！") EndIf End Procedure MainLoop() Thread = CreateThread(@ServerThread(),1) Repeat Event= WaitWindowEvent() Select Event Case #PB_Event_CloseWindow KillThread(Thread) Quit = 1 Case #PB_Event_Gadget Select EventGadget() Case #Button_0 PokeS(*Buffer,GetGadgetText(String_0)) If Clientid <> 0 SendNetworkData(ClientID,*Buffer,1000) Else SetGadgetText(#text_1,"提示："+"未與任何客戶端取得連線！") EndIf EndSelect EndSelect Until Quit = 1 EndProcedure Procedure ServerThread(*i) If CreateNetworkServer(0,Port) SetGadgetText(#text_1,"提示："+"服務端初始化成功!") Repeat Delay(100) SEvent = NetworkServerEvent() If SEvent ClientId = EventClient() Select SEvent Case #PB_NetworkEvent_Connect SetGadgetText(#text_1,"提示："+"與客戶端"+Str(ClientID)+"取得連線！") Case #PB_NetworkEvent_Disconnect SetGadgetText(#text_1,"提示："+"與客戶端"+Str(ClientID)+"斷開連線！") Case #PB_NetworkEvent_Data ReceiveNetworkData(ClientId,*Buffer,1000) SetGadgetText(#Text_1,"收到資料："+PeekS(*Buffer)) EndSelect EndIf ForEver EndIf EndProcedure

客戶端程式碼：

IncludeFile "ServerGUI.pb" Global *Buffer Global ConnectionId.i Global Port.i Global Quit.i Declare MainLoop() Declare ClientThread(*i) If InitNetwork() <> 0 *Buffer = AllocateMemory(1000) Port = 6286 Open_window_0() SetWindowTitle(0,"客戶端") MainLoop() EndIf Procedure MainLoop() Thread = CreateThread(@ClientThread(),1) Repeat Event = WaitWindowEvent() Select Event Case #PB_Event_CloseWindow KillThread(Thread) Quit = 1 Case #PB_Event_Gadget If EventGadget() = #Button_0 If ConnectionID <> 0 PokeS(*Buffer,GetGadgetText(#String_0)) SendNetworkData(ConnectionID,*Buffer,1000) Else SetGadgetText(#Text_1,"提示："+"未與任何伺服器連線成功！") EndIf EndIf EndSelect Until Quit =1 EndProcedure Procedure ClientThread(*i) Repeat Delay(100) ConnectionID = OpenNetworkConnection("127.0.0.1",Port) If ConnectionID SetGadgetText(#Text_1,"提示："+"連線伺服器成功！") Repeat Delay(100) CEvent = NetworkClientEvent(ConnectionID) Select CEvent Case #PB_NetworkEvent_Data ReceiveNetworkData(ConnectionID,*Buffer,1000) SetGadgetText(#Text_1,"收到資料："+PeekS(*buffer)) EndSelect ForEver Else SetGadgetText(#Text_1,"提示："+"連線伺服器失敗！") EndIf ForEver EndProcedure

自從學習使用了執行緒之後，發現這東西實在有用！