Amilo Posted June 23, 2013 Share Posted June 23, 2013 (edited) Sorun hal oldu teşekkürler @asmazh , @mesale0077 , @reyiz Kodlarımız ; Server ; #NoTrayIcon #include <Date.au3> #include <Console.au3> $date = @MDAY & "/" & @MON & "/" & @YEAR $time = @HOUR & ":" & @MIN & ":" & @SEC main() Func main() cout(@LF & $date & " " &$time & " = Başlatılıyor"& "",12) WinSetTitle("[Class:ConsoleWindowClass]", "", "Console Version : 1.1.0.9") cout(@LF & $date & " " &$time & " = Server Online Version : 1.1.0.9"& "",14) EndFunc Local $g_IP = "127.0.0.1" TCPStartup() Local $MainSocket = TCPListen($g_IP, 65432, 100) If $MainSocket = -1 Then Exit While 1 Local $ConnectedSocket = TCPAccept($MainSocket) If $ConnectedSocket >= 0 Then Cout(@LF&'Bir Kullanıcı Bağlantı Sağladı '&@MDAY&"/"&@MON&"/"&@YEAR&" "&@HOUR&":"&@MIN&":"&@SEC&@LF,10 ) EndIf WEnd While 1 = 1 Sleep(1000) WEnd While 1 Sleep(555) WEnd Client ; Local $g_IP = "127.0.0.1") TCPStartup() Local $socket = TCPConnect($g_IP, 65432) If $socket = -1 Then Exit Edited June 25, 2013 by Amilo Quote Link to comment Share on other sites More sharing options...
asmazh Posted June 23, 2013 Share Posted June 23, 2013 Daha önce hiç böyle bir şey yapmamıştım. Niye konsola yazdırmak istiyorsun ki? Koda Form Designer'de istediğin gibi bir konsol tasarlayıp kullanıcı bağlandığında Edit'e yazdırabilirsin. Bu daha kolay ve dediğim gibi kullanışlı olur. Kolay gelsin. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 24, 2013 Share Posted June 24, 2013 (edited) http://www.autoitscript.com/forum/topic/126569-consoleau3-udf/ #NoTrayIcon #Region #AutoIt3Wrapper_outfile=consoletest.exe #AutoIt3Wrapper_Compression=0 #AutoIt3Wrapper_Change2CUI=1 #AutoIt3Wrapper_UseX64=n #EndRegion #include <Console.au3> for $aa=1 to 20 Cout('merhaba dünyalı '&@LF ) sleep(500) next While 1 = 1 Sleep(1000) WEnd Edited June 24, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
Amilo Posted June 25, 2013 Author Share Posted June 25, 2013 #NoTrayIcon #include <Console.au3> Local $g_IP = "127.0.0.1" TCPStartup() Local $MainSocket = TCPListen($g_IP, 65432, 100) If $MainSocket = -1 Then Exit While 1 Local $ConnectedSocket = TCPAccept($MainSocket) If $ConnectedSocket >= 0 Then Cout('merhaba dünyalı '&@LF ) EndIf WEnd While 1 Sleep(50) Wend Bu şekil bir şey yaptım ama beceremedim sanırım Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 25, 2013 Share Posted June 25, 2013 http://www.autoit.de/index.php?page=Thread&threadID=30088 konu alakalı değil ama aradığın bu gibi şey galiba Quote Link to comment Share on other sites More sharing options...
Amilo Posted June 25, 2013 Author Share Posted June 25, 2013 (edited) Teşekkürler sorun halloldu Edited June 25, 2013 by Amilo Quote Link to comment Share on other sites More sharing options...
reyiz Posted June 25, 2013 Share Posted June 25, 2013 ConsoleWrite() ile basit bir şekilde konsola yazı yazdırabilirsiniz. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 25, 2013 Share Posted June 25, 2013 (edited) bari çözümü yazsaydın arkadaşlarda bilgilenseydi olmazmıydı hep böyle yapıyorsun sorunun çözümünü yazın arkadaşlarda bilgilensin bence Edited June 26, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.