blue_life

Önce çalıştırdığın programın pid bilgisini alır ve döngünün içinde ilgili pida aipt programın çalışıp çalışmadığını kontrol edersin. Örnek vermem gerekirse; [code]Local $PID = Run("notepad.exe") While ProcessExists($PID) <> 0 Sleep(50) ;Diğer işlemler WEnd Exit[/code] Veyahut; [code]Local $PID = Run("notepad.exe") While 1 If ProcessExists($PID) = 0 Then Exit ;Diğer işlemler Sleep(50) WEnd[/code]

@ucahmetuc Evet büyük ihtimal diskin mbr veyahut pbr bölümündeki bir sorun nedeniyle, grub4dos takılma yapıyor. Bu sorunu çözmek için diskteki tüm bölümleri silip, yeniden bölümlendirme yapılması yaşadığın sorunu çözebilir. Neyse bu kadar büyük veri depolaması yaptığın diski bu işlemler için kullanmamanı tavsiye ederim... Tabi bu sadece bir öneri Başarılar dilerim, kolay gelsin...

Tabiki istediğin şekilde ayarlayabilirsin. Istersen ToolTip yerine TrayTip kullan. Saatin orda çıkması daha iyi olur

@MeHMeTBeN ağındaki serverden, komut göndererek clientteki bilgisayarlarda çalışan bazı programları kapatmak istemişti. Benden rica edince basit bir şey karaladım ve sizlerlede paylaşmak istedim. Örnek kodlardaki server programını açınca, + butonu ile client iplerini eklemeniz gerekiyor. Ipler ini dosyasında yedekleniyordu. Serverde çalışacak örnek programın kodları; [codebox]; ========================================================== Global $SOCKET Global $PORT_NUM = 65432 Global $Confil_File = StringTrimRight(@ScriptFullPath, 4) & ".ini" TCPStartup() ; Start The TCP Services OnAutoItExitRegister("_EXIT") _Server_GUI() ;Server ;~ _Client() ;Client ;~ _GUI_SELECT() Exit ; ========================================================== Func _GUI_SELECT() Local $Form1 = GUICreate("BlueLife Test", 161, 33, 192, 124) Local $Button1 = GUICtrlCreateButton("Server", 0, 0, 75, 25) Local $Button2 = GUICtrlCreateButton("Client", 75, 0, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 GUIDelete($Form1) _Server_GUI() Case $Button2 GUIDelete($Form1) _Client() EndSwitch WEnd EndFunc ;==>_GUI_SELECT ; ========================================================== Func _Server_GUI() Local $Client_List[1][3] = [[0, "|"]] ;ip-isim-gctrlid Local $IRS = IniReadSection($Confil_File, "Client_List") If @error = 0 Then For $i = 1 To $IRS[0][0] If StringInStr($Client_List[0][1], "|" & $IRS[$i][0] & "|") <> 0 Then ContinueLoop If _IP_CHECK($IRS[$i][0]) = False Then ContinueLoop $Client_List[0][1] &= $IRS[$i][0] & "|" $Client_List[0][0] += 1 ReDim $Client_List[$Client_List[0][0] + 1][3] $Client_List[$Client_List[0][0]][0] = $IRS[$i][0] $Client_List[$Client_List[0][0]][1] = $IRS[$i][1] Next EndIf Local $BlueTitle = "Server_Test_Blue_Life" Local $Blue_Gui = GUICreate($BlueTitle, 400, 400, -1, -1) GUISetBkColor(0) ;GUISetBkColor(0xFFFFFF) Local $Blue_ListView = GUICtrlCreateListView("", 0, 0, 400, 370) GUICtrlSetResizing(-1, 0x0066) GUICtrlSetStyle($Blue_ListView, 0x0004, BitOR(2048, 0x00000001)) For $i = 1 To $Client_List[0][0] $Client_List[$i][2] = GUICtrlCreateListViewItem($Client_List[$i][1] & @CRLF & $Client_List[$i][0], $Blue_ListView) GUICtrlSetImage($Client_List[$i][2], "explorer.exe", 1) Next Local $SERVER_IE_BTN = GUICtrlCreateButton("Internet Exploreri Kapat", 0, 375, 175, 25) Local $SERVER_CHROME_BTN = GUICtrlCreateButton("Google Chromeyi Kapat", 175, 375, 175, 25) Local $CLIENT_ADD = GUICtrlCreateButton("+", 350, 375, 25, 25) Local $CLIENT_DEL = GUICtrlCreateButton("-", 375, 375, 25, 25) GUISetState(@SW_SHOW, $Blue_Gui) Local $Read_ITEM While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $SERVER_IE_BTN $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then _Client_Send_Message("Pclose=iexplore.exe", $Client_List[$i][0], $PORT_NUM, $Blue_Gui) ExitLoop EndIf Next Case $SERVER_CHROME_BTN $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then _Client_Send_Message("Pclose=Chrome.exe", $Client_List[$i][0], $PORT_NUM, $Blue_Gui) ExitLoop EndIf Next Case $CLIENT_DEL $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then GUICtrlDelete($Read_ITEM) $Client_List[$i][2] = -1 $Client_List[0][1] = StringReplace($Client_List[0][1], "|" & $Client_List[$i][0] & "|", "|") IniDelete($Confil_File, "Client_List", $Client_List[$i][0]) ExitLoop EndIf Next Case $CLIENT_ADD $Read_ITEM = _Add_Client($Blue_Gui) If @error <> 0 Then ContinueCase If StringInStr($Client_List[0][1], "|" & $Read_ITEM[0] & "|") <> 0 Then ContinueCase $Client_List[0][1] &= $Read_ITEM[0] & "|" $Client_List[0][0] += 1 ReDim $Client_List[$Client_List[0][0] + 1][3] $Client_List[$Client_List[0][0]][0] = $Read_ITEM[0] $Client_List[$Client_List[0][0]][1] = $Read_ITEM[1] $Client_List[$Client_List[0][0]][2] = GUICtrlCreateListViewItem($Client_List[$Client_List[0][0]][1] & @CRLF & $Client_List[$Client_List[0][0]][0], $Blue_ListView) GUICtrlSetImage($Client_List[$Client_List[0][0]][2], "explorer.exe", 1) EndSwitch WEnd EndFunc ;==>_Server_GUI Func _Add_Client($hwnd = 0) Local $Return_Array[2] If IsHWnd($hwnd) = 1 Then GUISetState(@SW_DISABLE, $hwnd) Local $ADD_IP_GUI = GUICreate("Bilgisayar Ekle", 400, 50, -1, -1, BitOR(0x80880000, 0x00C00000), 0x00000010, $hwnd) GUICtrlCreateGroup("Ip Adresini Giriniz", 5, 5, 150, 40) Local $IP_INPUT = GUICtrlCreateInput("", 10, 20, 140, 20) GUICtrlCreateGroup("Bilgisayarın İsmini Giriniz", 160, 5, 150, 40) Local $CN_INPUT = GUICtrlCreateInput("", 165, 20, 140, 20) Local $ADD_IP_OK = GUICtrlCreateButton("Ekle", 315, 5, 80, 40) GUISetState(@SW_SHOW, $ADD_IP_GUI) Local $READ_INPUT1, $READ_INPUT2 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $ADD_IP_OK $Return_Array[0] = StringStripWS(GUICtrlRead($IP_INPUT), 3) If _IP_CHECK($Return_Array[0]) = False Then MsgBox(64, "Hata", "İp adresi hatalı!", 0, $ADD_IP_GUI) GUICtrlSetState($IP_INPUT, 256) ContinueCase EndIf $Return_Array[1] = StringStripWS(GUICtrlRead($CN_INPUT), 3) If $Return_Array[1] = "" Then MsgBox(64, "Hata", "Bilgisyarın ismini giriniz.", 0, $ADD_IP_GUI) GUICtrlSetState($CN_INPUT, 256) ContinueCase EndIf IniWrite($Confil_File, "Client_List", $Return_Array[0], $Return_Array[1]) ExitLoop EndSwitch WEnd If IsHWnd($hwnd) = 1 Then GUISetState(@SW_ENABLE, $hwnd) GUISwitch($hwnd) EndIf GUIDelete($ADD_IP_GUI) If $Return_Array[1] = "" Then Return SetError(1, 0, $Return_Array) Return $Return_Array EndFunc ;==>_Add_Client Func _IP_CHECK($IP_CHECK) Local $Value = StringSplit($IP_CHECK, ".") If $Value[0] = 4 And StringIsDigit($Value[1]) And StringIsDigit($Value[2]) And StringIsDigit($Value[3]) And StringIsDigit($Value[4]) Then If $Value[1] >= 1 And $Value[1] <= 255 Then If $Value[2] >= 0 And $Value[2] <= 255 Then If $Value[3] >= 0 And $Value[3] <= 255 Then If $Value[4] >= 0 And $Value[4] <= 255 Then Return True EndIf EndIf EndIf EndIf EndIf Return False EndFunc ;==>_IP_CHECK ; ========================================================== Func _Client_Send_Message($Send_MSG, $IP, $Port, $hwnd = 0) $SOCKET = TCPConnect($IP, $Port) If @error Then MsgBox(0, "Blue_Server", "Client ile bağlantı kurulumadı!" & @CRLF & @CRLF & "ip=:" & $IP & @CRLF & "port:" & $Port, 0, $hwnd) Return SetError(1, 0, 0) EndIf Local $RECV = TCPRecv($SOCKET, 256) If @error Then MsgBox(0, "Blue_Server", "Client ile bağlantı kurulumadı!" & @CRLF & @CRLF & "ip=:" & $IP & @CRLF & "port:" & $Port, 0, $hwnd) Return SetError(1, 0, 0) EndIf TCPSend($SOCKET, StringToBinary($Send_MSG, 4)) TCPCloseSocket($SOCKET) EndFunc ;==>_Client_Send_Message ; ========================================================== Func _Client() Local $C_IP = @IPAddress1 Local $C_SOCKET = TCPListen($C_IP, $PORT_NUM, 4) If @error Then MsgBox(16, "Client bağlantı hatası", "ip=:" & $C_IP & @CRLF & "port:" & $PORT_NUM) Exit EndIf Local $READ_MSG While 1 $READ_MSG = TCPRecv($SOCKET, 256) If @error Then TCPCloseSocket($SOCKET) $SOCKET = -1 While $SOCKET <= 0 Sleep(5) $SOCKET = TCPAccept($C_SOCKET) If $SOCKET > 0 Then ExitLoop WEnd EndIf If $READ_MSG <> "" Then ToolTip($READ_MSG, 0, 0, "BlueTest") ; Bu test olarak eklenmiştir. If StringLeft($READ_MSG, 7) = "Pclose=" Then $READ_MSG = StringStripWS(StringTrimLeft($READ_MSG, 7), 3) While ProcessExists($READ_MSG) ProcessClose($READ_MSG) Sleep(50) WEnd EndIf EndIf Sleep(10) WEnd EndFunc ;==>_Client Func _EXIT() TCPCloseSocket($SOCKET) TCPShutdown() Exit EndFunc ;==>_EXIT[/codebox] Clientte çalışacak örnek programın kodları; [codebox]; ========================================================== Global $SOCKET Global $PORT_NUM = 65432 Global $Confil_File = StringTrimRight(@ScriptFullPath, 4) & ".ini" TCPStartup() ; Start The TCP Services OnAutoItExitRegister("_EXIT") ;~ _Server_GUI() ;Server _Client() ;Client ;~ _GUI_SELECT() Exit ; ========================================================== Func _GUI_SELECT() Local $Form1 = GUICreate("BlueLife Test", 161, 33, 192, 124) Local $Button1 = GUICtrlCreateButton("Server", 0, 0, 75, 25) Local $Button2 = GUICtrlCreateButton("Client", 75, 0, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 GUIDelete($Form1) _Server_GUI() Case $Button2 GUIDelete($Form1) _Client() EndSwitch WEnd EndFunc ;==>_GUI_SELECT ; ========================================================== Func _Server_GUI() Local $Client_List[1][3] = [[0, "|"]] ;ip-isim-gctrlid Local $IRS = IniReadSection($Confil_File, "Client_List") If @error = 0 Then For $i = 1 To $IRS[0][0] If StringInStr($Client_List[0][1], "|" & $IRS[$i][0] & "|") <> 0 Then ContinueLoop If _IP_CHECK($IRS[$i][0]) = False Then ContinueLoop $Client_List[0][1] &= $IRS[$i][0] & "|" $Client_List[0][0] += 1 ReDim $Client_List[$Client_List[0][0] + 1][3] $Client_List[$Client_List[0][0]][0] = $IRS[$i][0] $Client_List[$Client_List[0][0]][1] = $IRS[$i][1] Next EndIf Local $BlueTitle = "Server_Test_Blue_Life" Local $Blue_Gui = GUICreate($BlueTitle, 400, 400, -1, -1) GUISetBkColor(0) ;GUISetBkColor(0xFFFFFF) Local $Blue_ListView = GUICtrlCreateListView("", 0, 0, 400, 370) GUICtrlSetResizing(-1, 0x0066) GUICtrlSetStyle($Blue_ListView, 0x0004, BitOR(2048, 0x00000001)) For $i = 1 To $Client_List[0][0] $Client_List[$i][2] = GUICtrlCreateListViewItem($Client_List[$i][1] & @CRLF & $Client_List[$i][0], $Blue_ListView) GUICtrlSetImage($Client_List[$i][2], "explorer.exe", 1) Next Local $SERVER_IE_BTN = GUICtrlCreateButton("Internet Exploreri Kapat", 0, 375, 175, 25) Local $SERVER_CHROME_BTN = GUICtrlCreateButton("Google Chromeyi Kapat", 175, 375, 175, 25) Local $CLIENT_ADD = GUICtrlCreateButton("+", 350, 375, 25, 25) Local $CLIENT_DEL = GUICtrlCreateButton("-", 375, 375, 25, 25) GUISetState(@SW_SHOW, $Blue_Gui) Local $Read_ITEM While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $SERVER_IE_BTN $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then _Client_Send_Message("Pclose=iexplore.exe", $Client_List[$i][0], $PORT_NUM, $Blue_Gui) ExitLoop EndIf Next Case $SERVER_CHROME_BTN $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then _Client_Send_Message("Pclose=Chrome.exe", $Client_List[$i][0], $PORT_NUM, $Blue_Gui) ExitLoop EndIf Next Case $CLIENT_DEL $Read_ITEM = GUICtrlRead($Blue_ListView) For $i = 1 To $Client_List[0][0] If $Client_List[$i][2] = $Read_ITEM Then GUICtrlDelete($Read_ITEM) $Client_List[$i][2] = -1 $Client_List[0][1] = StringReplace($Client_List[0][1], "|" & $Client_List[$i][0] & "|", "|") IniDelete($Confil_File, "Client_List", $Client_List[$i][0]) ExitLoop EndIf Next Case $CLIENT_ADD $Read_ITEM = _Add_Client($Blue_Gui) If @error <> 0 Then ContinueCase If StringInStr($Client_List[0][1], "|" & $Read_ITEM[0] & "|") <> 0 Then ContinueCase $Client_List[0][1] &= $Read_ITEM[0] & "|" $Client_List[0][0] += 1 ReDim $Client_List[$Client_List[0][0] + 1][3] $Client_List[$Client_List[0][0]][0] = $Read_ITEM[0] $Client_List[$Client_List[0][0]][1] = $Read_ITEM[1] $Client_List[$Client_List[0][0]][2] = GUICtrlCreateListViewItem($Client_List[$Client_List[0][0]][1] & @CRLF & $Client_List[$Client_List[0][0]][0], $Blue_ListView) GUICtrlSetImage($Client_List[$Client_List[0][0]][2], "explorer.exe", 1) EndSwitch WEnd EndFunc ;==>_Server_GUI Func _Add_Client($hwnd = 0) Local $Return_Array[2] If IsHWnd($hwnd) = 1 Then GUISetState(@SW_DISABLE, $hwnd) Local $ADD_IP_GUI = GUICreate("Bilgisayar Ekle", 400, 50, -1, -1, BitOR(0x80880000, 0x00C00000), 0x00000010, $hwnd) GUICtrlCreateGroup("Ip Adresini Giriniz", 5, 5, 150, 40) Local $IP_INPUT = GUICtrlCreateInput("", 10, 20, 140, 20) GUICtrlCreateGroup("Bilgisayarın İsmini Giriniz", 160, 5, 150, 40) Local $CN_INPUT = GUICtrlCreateInput("", 165, 20, 140, 20) Local $ADD_IP_OK = GUICtrlCreateButton("Ekle", 315, 5, 80, 40) GUISetState(@SW_SHOW, $ADD_IP_GUI) Local $READ_INPUT1, $READ_INPUT2 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $ADD_IP_OK $Return_Array[0] = StringStripWS(GUICtrlRead($IP_INPUT), 3) If _IP_CHECK($Return_Array[0]) = False Then MsgBox(64, "Hata", "İp adresi hatalı!", 0, $ADD_IP_GUI) GUICtrlSetState($IP_INPUT, 256) ContinueCase EndIf $Return_Array[1] = StringStripWS(GUICtrlRead($CN_INPUT), 3) If $Return_Array[1] = "" Then MsgBox(64, "Hata", "Bilgisyarın ismini giriniz.", 0, $ADD_IP_GUI) GUICtrlSetState($CN_INPUT, 256) ContinueCase EndIf IniWrite($Confil_File, "Client_List", $Return_Array[0], $Return_Array[1]) ExitLoop EndSwitch WEnd If IsHWnd($hwnd) = 1 Then GUISetState(@SW_ENABLE, $hwnd) GUISwitch($hwnd) EndIf GUIDelete($ADD_IP_GUI) If $Return_Array[1] = "" Then Return SetError(1, 0, $Return_Array) Return $Return_Array EndFunc ;==>_Add_Client Func _IP_CHECK($IP_CHECK) Local $Value = StringSplit($IP_CHECK, ".") If $Value[0] = 4 And StringIsDigit($Value[1]) And StringIsDigit($Value[2]) And StringIsDigit($Value[3]) And StringIsDigit($Value[4]) Then If $Value[1] >= 1 And $Value[1] <= 255 Then If $Value[2] >= 0 And $Value[2] <= 255 Then If $Value[3] >= 0 And $Value[3] <= 255 Then If $Value[4] >= 0 And $Value[4] <= 255 Then Return True EndIf EndIf EndIf EndIf EndIf Return False EndFunc ;==>_IP_CHECK ; ========================================================== Func _Client_Send_Message($Send_MSG, $IP, $Port, $hwnd = 0) $SOCKET = TCPConnect($IP, $Port) If @error Then MsgBox(0, "Blue_Server", "Client ile bağlantı kurulumadı!" & @CRLF & @CRLF & "ip=:" & $IP & @CRLF & "port:" & $Port, 0, $hwnd) Return SetError(1, 0, 0) EndIf Local $RECV = TCPRecv($SOCKET, 256) If @error Then MsgBox(0, "Blue_Server", "Client ile bağlantı kurulumadı!" & @CRLF & @CRLF & "ip=:" & $IP & @CRLF & "port:" & $Port, 0, $hwnd) Return SetError(1, 0, 0) EndIf TCPSend($SOCKET, StringToBinary($Send_MSG, 4)) TCPCloseSocket($SOCKET) EndFunc ;==>_Client_Send_Message ; ========================================================== Func _Client() Local $C_IP = @IPAddress1 Local $C_SOCKET = TCPListen($C_IP, $PORT_NUM, 4) If @error Then MsgBox(16, "Client bağlantı hatası", "ip=:" & $C_IP & @CRLF & "port:" & $PORT_NUM) Exit EndIf Local $READ_MSG While 1 $READ_MSG = TCPRecv($SOCKET, 256) If @error Then TCPCloseSocket($SOCKET) $SOCKET = -1 While $SOCKET <= 0 Sleep(5) $SOCKET = TCPAccept($C_SOCKET) If $SOCKET > 0 Then ExitLoop WEnd EndIf If $READ_MSG <> "" Then ToolTip($READ_MSG, 0, 0, "BlueTest") ; Bu test olarak eklenmiştir. If StringLeft($READ_MSG, 7) = "Pclose=" Then $READ_MSG = StringStripWS(StringTrimLeft($READ_MSG, 7), 3) While ProcessExists($READ_MSG) ProcessClose($READ_MSG) Sleep(50) WEnd EndIf EndIf Sleep(10) WEnd EndFunc ;==>_Client Func _EXIT() TCPCloseSocket($SOCKET) TCPShutdown() Exit EndFunc ;==>_EXIT[/codebox]

@ucahmetuc Qemu emulatöründe mi ilgili sorunu yaşıyorsun? Gerçek bilgisayarda aynı sorun çıkıyor mu? Ayrıca gfxmenu satırlarını silip tekrar denermeisin?

Basit bir örnek verelim. Sen kendine göre ayarlarsın... Kolay gelsin... [codebox]HotKeySet("{F6}", "_F6") While 1 Sleep(100) ;Cpu save WEnd Func _F6() Local $Uygulama = "deneme.exe" ;If ProcessExists($Uygulama) Then While ProcessExists($Uygulama) ProcessClose($Uygulama) Sleep(50) WEnd MsgBox(48, "Uyarı!", "F6 tuşuna bastığınız için oyun kapatılmıştır vs. vs. gibi bir şey") ;EndIf EndFunc ;==>[/codebox]

Beb kodları kısaltıp vereyim, sen diğerlerini eklersin... [codebox] #include <File.au3> #include <Array.au3> $Debug = 1 If $CmdLine[0] = 0 Then MsgBox(16, "", "Uygun parametreyi giriniz!") Exit Else For $i = 1 To $CmdLine[0] Switch $CmdLine[$i] Case "/iecookies" EmptyFolder(@HomeDrive & @HomePath & "\Cookies") Case "/iehistory" EmptyFolder(@HomeDrive & @HomePath & "\Local Settings\History") Case "/iehistory" EmptyFolder(@HomeDrive & "\Temp\Temporary Internet Files") EndSwitch Next ShellExecuteWait("RunDll32.exe", " InetCpl.cpl,ClearMyTracksByProcess 255") EndIf Exit Func EmptyFolder($FolderToDelete) $AllFiles = _FileListToArray($FolderToDelete, "*", 0) If $Debug Then ConsoleWrite("-->" & $FolderToDelete & @CRLF) If IsArray($AllFiles) Then If $Debug Then _ArrayDisplay($AllFiles, $FolderToDelete) EndIf For $i = 1 To $AllFiles[0] $crt = FileGetTime($FolderToDelete & "\" & $AllFiles[$i], 1) If $crt[2] = @MDAY And $crt[0] = @YEAR And $crt[1] = @MON Then If $Debug Then ConsoleWrite($FolderToDelete & "\" & $AllFiles[$i] & " --> Today's File, Skipping!" & @CRLF) EndIf ContinueLoop EndIf $delete = FileDelete($FolderToDelete & "\" & $AllFiles[$i]) If $Debug Then ConsoleWrite($FolderToDelete & "\" & $AllFiles[$i] & " =>" & $delete & @CRLF) EndIf DirRemove($FolderToDelete & "\" & $AllFiles[$i], 1) Next EndIf EndFunc ;==>EmptyFolder[/codebox]

@El-Arabi Commandline derken komut istemi şeklinde bir guimi oluşturmak, veyahut yaptığın programın parametreli bir şekilde çalışmasını mı istiyorsun?

@MstfBlgn 1. Cevap [b]GUISetStyle[/b] ile istediğini yapabilirsin. Yardım dosyasında ilgili örnek mevcut! [codebox]#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Example() Func Example() Local $NewStyle = False, $Style, $Msg GUICreate("Gui Style", 260, 100) $Style = GUICtrlCreateButton("Set Style", 45, 50, 150, 20) GUISetState() While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit Case $Style If Not $NewStyle Then GUISetStyle(BitOR($WS_POPUPWINDOW, $WS_THICKFRAME), BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW)) GUICtrlSetData($Style, 'Undo Style') $NewStyle = True Else GUISetStyle(BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU), 0) GUICtrlSetData($Style, 'Set Style') $NewStyle = False EndIf Case Else EndSwitch WEnd EndFunc ;==>Example[/codebox] 2. Cevap Soruyu tam anlayamadım. Autoit ile oluşturulumuş penceredeki bir butona basılmasını mı engellemek istiyorsun? 3. Cevap Bir örnek verelim, sen kurcala... [codebox]_ShellExecute_Link() Func _ShellExecute_Link($Default_Link = "www.siteadresi.com") Local $Config_ini = StringTrimRight(@ScriptFullPath,4) & ".ini" Local $Link_Read = IniRead($Config_ini,"CikistaAcilacaksite","Sıte","") If $Link_Read = "" Then $Link_Read = $Default_Link IniWrite($Config_ini,"CikistaAcilacaksite","Sıte","www.siteadresi.com") EndIf ShellExecute($Link_Read) EndFunc[/codebox]

Malesef söylediğin olmuyor diye hatırlıyorum. Gif resimi hazırlayıp yapabilirsin... Sen yinede autoit forumlarında biraz araştır...

@MeHMeTBeN Klasör olmadığı için böyle bir sorun çıkıyor olabilir. Dircreate ile klasörü oluşturup tekrar dene. [codebox]DirCreate("D:\Oyunlar") _BL_DIR_COPY("\\Masa-49\Turk Empire", "D:\Oyunlar\") Func _BL_DIR_COPY($COPY_FROM, $COPY_TO) Local $BL_SHELL = ObjCreate("shell.application") $BL_SHELL.namespace($COPY_TO).CopyHere($COPY_FROM, 528) EndFunc[/codebox] Bir klasörü yeniden adlandırmak için DirMove komutunu kullanabilirsiniz. [code]DirMove("D:\Masa-49 üzerinde Turk Empire", "D:\Oyunlar",1)[/code]

@MeHMeTBeN Malesef ağım olmadığı için, deneme imkanım yok ama teorik olarak, serverde kullanılacak clientlerin ip adresleri listelenebilir ve bir seçim sağlanır. Clientte ise, $CLIENT_IP değişkenine, $CLIENT_IP = @IPAddress1 şeklinde ayarlamam iş görebilir... Denemek lazım

Misal sen server olan bilgisayarda cliente bağlanacaksan, clientin ipsini girmelisin. Clientin çalıştığı bilgisayarda da haliyle bilgisayarın ipsi kullanılacak. Global $SERVER_IP = "192.168.1.148" ;Bağlanılacak clientin ipsi Global $CLIENT_IP = "192.168.1.148" ;clientin çalıştığı bilgisayarın ipsi Dediğim gibi bu komutlar ile fazla ilgili deyilim

@MeHMeTBeN İlgili reg satırlarını autoit forumundan almıştım. Açıkçası fazla bir fikrim yok

Bu aralar biraz meşgulum ve bu tip komutları fazla kullanmadığım için konuya mesaj yazmadım. Ayrıca şuan ağımda yok. Buna rağmen, wmvaredeki sistemden ip vasıtasıyla kendi bilgisayarımda, kendi bilgisayarımdan wmvaredeki bilgisayara ip vasıtasıyla işlem yaptırabiliyorum. Mantık olarak, server programından client programına mesaj gönderiyoruz ve client programı bu mesaja göre işlem yapıyor. Ben size bir örnek vereyim. Örnekte önce clientin çalışması lazım. Ayrıca mesajlaşmak istediğiniz bilgisayarın iplerini yazarsınız... Biraz kurcalayın, kolay gelsin.... [codebox]; ========================================================== Global $SOCKET Global $PORT_NUM = 65432 Global $SERVER_IP = "192.168.2.2" Global $CLIENT_IP = "192.168.2.2" ; ========================================================== Local $Form1 = GUICreate("BlueLife Test", 161, 33, 192, 124) Local $Button1 = GUICtrlCreateButton("Server", 0, 0, 75, 25) Local $Button2 = GUICtrlCreateButton("Client", 75, 0, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 GUIDelete($Form1) _Server($SERVER_IP, $PORT_NUM) Case $Button2 GUIDelete($Form1) _Client($CLIENT_IP, $PORT_NUM) EndSwitch WEnd ; ========================================================== Func _Server($IP, $Port) TCPStartup() ; Start The TCP Services $SOCKET = TCPConnect($IP, $Port) ;If $SOCKET = -1 Then Exit If @error Then MsgBox(0, "Server", "Unable to Contact Client!") Exit EndIf Local $SERVER_GUI = GUICreate("Server_Test_Blue_Life", 300, 200) GUISetOnEvent(-3, "_EXIT") Local $SERVER_INPUT = GUICtrlCreateInput("iexplore.exe", 0, 0, 253, 20) Local $SERVER_BTN = GUICtrlCreateButton("Gönder", 255, 0, 45, 20) GUICtrlSetBkColor(-1, 0x0000FF) GUICtrlSetColor(-1, 0xFFFFFF) Local $SERVER_EDIT = GUICtrlCreateEdit("", 0, 20, 300, 180) GUISetState(@SW_SHOW, $SERVER_GUI) Local $READ_MSG While 1 Switch GUIGetMsg() Case -3 Exit Case $SERVER_INPUT, $SERVER_BTN $READ_MSG = GUICtrlRead($SERVER_INPUT) TCPSend($SOCKET, StringToBinary($READ_MSG, 4)) GUICtrlSetData($SERVER_EDIT, $READ_MSG & @CRLF, 1) GUICtrlSetData($SERVER_INPUT, "") EndSwitch WEnd EndFunc ;==>_Server ; ========================================================== Func _Client($IP, $Port) TCPStartup() ; Start The TCP Services Local $C_SOCKET = TCPListen($IP, $Port, 4) If @error Then MsgBox(16, "Client bağlantı hatası", "ip=:" & $IP & @CRLF & "port:" & $Port) Exit EndIf While 1 $SOCKET = TCPAccept($C_SOCKET) If $SOCKET > 0 Then ExitLoop Sleep(25) WEnd Opt("GUIOnEventMode", 1) Local $CLIENT_GUI = GUICreate("Client_Test_Blue_Life", 300, 200) GUISetOnEvent(-3, "_EXIT") Local $CLIENT_EDIT = GUICtrlCreateEdit("", 0, 0, 300, 200) GUISetState(@SW_SHOW, $CLIENT_GUI) Local $READ_MSG While 1 $READ_MSG = TCPRecv($SOCKET, 256) If $READ_MSG <> "" Then $READ_MSG = BinaryToString($READ_MSG, 4) GUICtrlSetData($CLIENT_EDIT, $READ_MSG & @CRLF, 1) Switch $READ_MSG Case "iexplore.exe" While ProcessExists("iexplore.exe") ProcessClose("iexplore.exe") Sleep(50) WEnd EndSwitch EndIf Sleep(25) WEnd EndFunc ;==>_Client Func _EXIT() TCPCloseSocket($SOCKET) TCPShutdown() Exit EndFunc ;==>_EXIT[/codebox]

@zeki ural Windows kurulumda mı setup.iso dosyasını göstermeni istiyor? Böyle bir sorun olmaması lazım. Ayarlardan girilen dosya ismi ve konumu kayıt ediliyordu. Kurulumda Target\ISO_ROOT\I386\ISOSETUP.INI dosyasındaki ayarlar ugulanmakatadır. Yani sen ilgili dosyayı açıp düzenledeikten sonra, NT5-MakeISO.CMD dosyasıyla tekrar boot.gz dosyasını oluşturabilirsin...

[codebox]#include <GUIConstantsEx.au3> Global $guim = GUICreate("PC AD DEĞİŞTİR", 311, 591, 192, 125) ;$regadgir = RegWrite("\\" & $inputbox & "\HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName', 'ComputerName', 'REG_SZ','') Global $inputbox = GUICtrlCreateInput(RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName"), 108, 336) GUICtrlSetTip(-1, "BİR İSİM GİRİNİZ") GUICtrlCreateLabel("Bilgisayar adı", 176, 312, 65, 17) Global $degistir = GUICtrlCreateButton("Değiştir", 176, 368, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $degistir _RenameComputer() EndSwitch WEnd Func _RenameComputer() Local $Read_Com_Input = StringStripWS(GUICtrlRead($inputbox), 3) Local $Read_Reg_Input = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName") If $Read_Com_Input = $Read_Reg_Input Then Return 0 If $Read_Com_Input = "" Then GUICtrlSetData($inputbox, $Read_Reg_Input) GUICtrlSetState($inputbox, 256) Return SetError(1, 0, 0) EndIf ;~ RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName", "REG_SZ", $Read_Com_Input) RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $Read_Com_Input) ;~ RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", "REG_SZ", $Read_Com_Input) ;~ RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $Read_Com_Input) ;next line is not really needed, but makes things easier during initial config. It just sets the default domain to the new local machine name. ;~ RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultDomainName", "REG_SZ", $Read_Com_Input) EndFunc ;==>_RenameComputer[/codebox]

[quote name='MAKINCI' date='11 March 2012 - 04:19'] Hocam kusura bakmayın ne yaptıysam x86-x64 tek setupta olmadı,olduysada çalışmadı projeyi mediafree yükledim, nerde hata var bi bakarsanız çok makbule geçer Aeo... http://www.mediafire.com/?x2calltfblkaegh[/quote] [color="#0000FF"][u][b]http://bluelife.zxq.net/Files/Autoit/Garbage/Silent_NurVecizee.zip[/b][/u][/color] Içerikteki kodlar; [codebox]#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Icon.ico #AutoIt3Wrapper_Outfile=NurVecizee.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Res_Compatibility=Vista,Windows7 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("TrayMenuMode", 1) Global $Program = _TempFile() Global $Parametre = "/qn" _Process_Close("Nur Vecize.exe") ;Çalışıyorsa programı kapatalım TrayTip("AllFile Renamer 1.50 yüklenirken lütfen bekleyiniz...", ".::Murat AK::..", 30, 4) If @OSArch = "X86" Then FileInstall("X86_NurVecizee.msi", $Program, 1) MsgBox(64,"Bu satırları silersin!","Sistem 32 bit!") ; Bu satırları silersin... Else ;X64 MsgBox(64,"Bu satırları silersin!","Sistem 64 bit!") ; Bu satırları silersin... FileInstall("X64_NurVecizee.msi", $Program, 1) EndIf ShellExecuteWait($Program, $Parametre) Sleep(1000) FileDelete($Program) TrayTip("AllFile Renamer 1.50 Başarıyla Yüklendi.", ".::Murat AK::..", 30, 4) Sleep(3000) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc ;==>_TempFile Func _Process_Close($PNAME) While ProcessExists($PNAME) <> 0 ProcessClose($PNAME) Sleep(50) WEnd EndFunc[/codebox]

@mehmet006 Win7 kur ekranı geldiğinde, çalıştırdan imdiski açıp, iso dosyasının sanal sürücüye takılıp, takılmadığını kontrol edebilirmisin? Veyahut heralde Q-dir vardı. Q-dir ile bilgisayarıma girip sanal sürücünün olup olmadığına ve sanal sürücü var ise içinde kur dosyalarının olup olmadığına bakabilirmisin?

@herhangi Windows XP ile bunun herangi bir alakası yok. Yeni nesil bilgisayarların hemen hemen hepsi usb sürücüsünden önyüklemeyi desteklemektedir. Tabi usb sürücüsü önyüklenebilir olmalıdır. Ayrıca usb sürücü bazı anakartlarda yerel disklerin bulunduğu kısım gibi farklı bir listede de olabililmektedir. Ben F12 ile ulaştığım önyükleme listesinde, usb flash diskim normal disklerimin bulunduğu listede görünüyor. Ayrıca anakartın biosunda bunun ile alakalı bir ayar olabilir. Yani önyükleneiblir usb cihazlarını aranması belki biostaki bir seçenek ile kapatılmıştır. Karıştırmaklazım...

3. dünya savaşının çıkacağını düşünmüyorum. Çünkü böyle bir savaş çıkarsa bu durum insanoğlunun geleceğini teklikeye atacaktır. Haliyle diğer önceki savaşlara benzemesi düşünelemez. Diyelim x devletler gurub, y devletler gurubuyla savaşmaya başladı. Işi kısayoldan halletmek isteyen x grubu y grubu nükleer saldırı yaptı. Bunun sonucunda y devletler grubu teslim mi olacak. x devletler gurubuna nükleer saldırıda bulunacaktır. Haliyle misillemler bir birini izleyecek ve dünya kirlenerek canlı yaşamını tehlikeye atacaktır. Kısacası böyle bir savaş iki tarafada getirisinden çok götürüsü olacağından böyle bir savaşın çıkma ihtimali bence yok denecek kadar az. Zaten böyle bir savaşta kimse de tarafsız olamaz. Sonuçta nükleer kirlenme tarafsız ülkeleride etkileyecek... Tabi günümüzde de yeraltı kaynakları için savaşlar veriliyor ama bu yeraltı kaynakları da bir gün tükenecektir. Bana göre insanlığın yeni ufku uzaydır. Insanoğlu,uzaya daha kısa ve masrafsız çıkmanın bir yolunu bulursa, inanılmaz gelişmeler olabilir. Sonuç olarak üçüncü dünya savaşının çıkma olasılığı bir hayal...

@herhangi Ilgili iso içindeki sistemi ve çalışma mantığını bilmeden net bir şey söyleyemiyorum. Ilgili iso içindeki sistemin tipi nedir? NT5 (winxp vs.),Nt6 (vista,win7 vs.), linux vs. gibi... Usbden mi çalıştırmak istiyorsun? Isodan çalıştırma yöntemini denedin mi? Kısaca yeterli bilgi olmadan, seni yönlendirebilmem çok zor...

@radyofon Tabiki gerekli deyil. Temp klasöründe programlar tarafından oluşturulan, geçici dosyaların başında ilgili karakter olduğundan bu standarta uyulmak istenmiş! Lakin bazı sorunlar yaşamamak için, dosyanın ismini maksimum 8 karakter yapın... Zaten ilgili fonksiyonda uzunluk 7 + ¨ = 8 karakter olarak belirlenmiş. Fonksiyonda bu değişkenlere tanımlama yapıldığı için, sizin fonkisyonu kullanırken tekrar bir tanımlama yapmanıza gerek yok. Ilgili fonksiyonu direk kullanabilirsiniz ki zaten verilen örnekte direkt kullanılmıştır... [b]Global $Program = _TempFile()[/b]

@MAKINCI Kusura bakma, fileinstall satırlarındaki dosya konumları hatatalıymış. Aşağıdaki örnek için bir önceki mesaj aynen geçerlidir. [quote name='blue_life' date='01 March 2012 - 22:26 ' timestamp='1330633577' post='1163669'] 32 bit olan NurVecizee.msi dosyasının ismini X86_NurVecizee.msi olarak değiştir. 64 bit olan NurVecizee.msi dosyasının ismini X64_NurVecizee.msi olarak değiştir. Iki dosyada script dosyasının yanında olsun ve aşağıdaki kodları dene. Kolay gelsin...[/quote] [codebox]Global $Program = _TempFile() Global $Parametre = "/qn" Opt("TrayMenuMode", 1) TrayTip("..::Filanca::..", "Nur Vecize 3.0 yüklenirken lütfen bekleyiniz...", 30, 4) If @OSArch = "X86" Then FileInstall("X86_NurVecizee.msi", $Program, 1) Else ;X64 FileInstall("X64_NurVecizee.msi", $Program, 1) EndIf ShellExecuteWait($Program, $Parametre) Sleep(1000) FileDelete($Program) TrayTip("..::Filanca::..", "Nur Vecize 3.0 Başarıyla Yüklendi", 30, 4) Sleep(2000) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc ;==>_TempFile[/codebox]

@wildly Kusura bakam. Aşağıdaki konunun ikinci mesajındaki, usb paketinde bulunan grub4dos versiyonu güncelledir. [color="#0000FF"][u]http://www.tnctr.com/index.php?showtopic=100852[/u][/color] Ayrıca güncel grub4dos versiyonlarına ulaşmak için aşağıdaki linki kullanabilirsin... [color="#0000FF"][u]http://code.google.com/p/grub4dos-chenall/downloads/list[/u][/color]