MAKINCI

  Gördüm arkadaşım onu sadece kodlar yeterli, anlatayım olayı iki seçeneğin var böyle programları kurdururken emco yada innoyla tekrar paketleyip öyle kurduracaksın yada autoite tıklatarak kurduracaksın başka türlü ne yaparsan yap sıkıntı çıkar...

  Kullandığın kodları yazda bakalım nerdeymiş hata

  İnternet sayfasını kapatır ProcessClose("firefox.exe") ProcessClose("Maxthon.exe") ProcessClose("chrome.exe") ProcessClose("opera.exe") ProcessClose("iexplore.exe") Msaüstündeki kısayolu siler FileDelete(@DesktopDir & "\Filanca.lnk")

Bu programlar root erişimi ister değil mi?

  [spoiler] #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=Network.ico #AutoIt3Wrapper_outfile=IP_DNS_v1_1.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;-------------------------------------------------------- ;AutoIt Version: v3.3.6.1 ; ;Script Author: Radyofon & BlueLife ;Script Date: 26/02/2012 ;;Script Name: IP&DNS Değiştirici v1.0 ;Script Function: Set IP & DNS address change ;-------------------------------------------------------- ;~ #Include <process.au3> ;~ #include <GuiConstants.au3> ;~ #include <WindowsConstants.au3> ;~ #Include <GuiIPAddress.au3> #include <Array.au3> Global $CONFIG_FILE = StringTrimRight(@ScriptFullPath, 3) & "ini" Global $WMISTART = _WMISTART() Global $ADAPTER_INFO Global $DNS_LIST[16][4] = [[15], _ ;Dnsname | Dns 1 | Dns 2 | CHWND ["Mevcut DNS Ayarı", "", ""], _ ["DNS sunucu adresini otomatik olarak al", "", ""], _ ["TTNet DNS", "195.175.39.39", "195.175.39.40"], _ ["Google DNS", "8.8.8.8", "8.8.4.4"], _ ["Open DNS", "208.67.222.222", "208.67.220.220"], _ ["Comodo Secure DNS", "156.154.70.22", "156.154.71.22"], _ ["ClearCloud DNS", "74.118.212.1", "74.118.212.2"], _ ["DNSadvantage DNS", "156.154.70.1", "156.154.71.1"], _ ["Norton DNS", "198.153.192.1", "198.153.194.1"], _ ["İTÜ DNS", "160.75.2.20", "160.75.100.20"], _ ["Uydunet DNS", "62.248.80.161", "62.248.80.162"], _ ["ScrubIt DNS", "67.138.54.100", "207.225.209.66"], _ ["GTEI-1 DNS", "4.2.2.1", "4.2.2.2"], _ ["GTEI-2 DNS", "4.2.2.3", "4.2.2.4"], _ ["GTEI-2 DNS", "4.2.2.5", "4.2.2.6"]] Global $MAIN_GUI Global $GUI_AdapterCombo, $GUI_dhcp, $GUI_SIP, $GUI_ip, $GUI_subnet, $GUI_gateway Global $GUI_DNS_INPUT[2] Global $Gui_apply, $Gui_exit, $Gui_status, $Gui_flushdns Global $MAINTITLE = "IP ve DNS Görme/Değiştirme v1.1" Opt("GUIOnEventMode", 1) $MAIN_GUI = GUICreate($MAINTITLE, 310, 640) GUISetBkColor(0xFFC125) GUISetOnEvent(-3, "_GUI_EXIT") GUICtrlCreateLabel("Bilgisayar Adını Değiştir :", 20, 33, 115, 20) Global $GUI_COM_NAME_INPUT = GUICtrlCreateInput(@ComputerName, 140, 30, 145, 20) $GUI_AdapterCombo = GUICtrlCreateCombo("", 10, 60, 225, 20, 10485763) GUICtrlSetOnEvent($GUI_AdapterCombo, "_Select_AdapterCombo") GUICtrlCreateButton("Yenile", 240, 60, 50, 20) GUICtrlSetOnEvent(-1, "_Updates_AdapterCombo") ; --------------------- GUICtrlCreateGroup("IP Ayarları", 10, 90, 280, 130) $GUI_dhcp = GUICtrlCreateRadio("Otomatik olarak bir IP adresi al", 20, 110, 220, 20) GUICtrlSetOnEvent($GUI_dhcp, "_Select_Dhcp") $GUI_SIP = GUICtrlCreateRadio("Manuel IP Gir", 20, 130, 230, 20) GUICtrlSetOnEvent($GUI_SIP, "_Select_Dhcp") GUICtrlCreateLabel("IP Adresi", 20, 150, 60, 20) GUICtrlCreateLabel("Alt Ağ Maskesi", 20, 170, 70, 20) GUICtrlCreateLabel("Varsayılan Ağ Geçidi", 20, 190, 100, 20) $GUI_ip = GUICtrlCreateCombo("", 130, 148, 150, 20, 10485763) $GUI_subnet = GUICtrlCreateInput("", 130, 170, 150, 20) $GUI_gateway = GUICtrlCreateInput("", 130, 190, 150, 20) ; --------------------- GUICtrlCreateGroup("DNS Ayarları", 10, 220, 280, 365) Local $Y_POS = 240 For $I = 1 To $DNS_LIST[0][0] $DNS_LIST[$I][3] = GUICtrlCreateRadio($DNS_LIST[$I][0], 20, $Y_POS, 230, 20) GUICtrlSetOnEvent($DNS_LIST[$I][3], "_Dns_Ratio") $Y_POS += 20 Next ; --------------------- GUICtrlCreateLabel("DNS 1", 80, 540, 40, 20) $GUI_DNS_INPUT[0] = GUICtrlCreateInput("", 130, 540, 150, 20) GUICtrlCreateLabel("DNS 2", 80, 560, 40, 20) $GUI_DNS_INPUT[1] = GUICtrlCreateInput("", 130, 560, 150, 20) ; --------------------- $Gui_flushdns = GUICtrlCreateButton("FlushDNS", 10, 590, 80, 20) GUICtrlSetOnEvent(-1, "_FlushDNS") $Gui_apply = GUICtrlCreateButton("Uygula", 110, 590, 80, 20) GUICtrlSetOnEvent(-1, "_Apply") $Gui_exit = GUICtrlCreateButton("Çıkış", 210, 590, 80, 20) GUICtrlSetOnEvent(-1, "_GUI_EXIT") $Gui_status = GUICtrlCreateLabel("Ready", 5, 610, 40, 15) GUICtrlCreateLabel("Coded By: Radyofon and BlueLife", 65, 610, 200, 15, 0x01) GUICtrlSetState(-1, 128) GUICtrlCreateLabel("TNCTR", 65, 625, 200, 15, 0x01) GUICtrlSetState(-1, 128) _Updates_AdapterCombo() GUISetState(@SW_SHOW, $MAIN_GUI) While 1 Sleep(100) ;Cpu Save WEnd Func _Apply() Local $Read_Dhcp = True If BitOR(GUICtrlRead($GUI_dhcp), 1) = 1 Then $Read_Dhcp = True Else $Read_Dhcp = False EndIf Local $Read_IP[1] = [StringStripWS(GUICtrlRead($GUI_ip), <img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' />] Local $Read_Subnet[1] = [StringStripWS(GUICtrlRead($GUI_subnet), <img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' />] Local $Read_Gateway[1] = [StringStripWS(GUICtrlRead($GUI_gateway), <img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' />] If $Read_Dhcp = False Then If _IP_CHECK($Read_IP[0]) = False Then MsgBox(64, "", "Ip adresi hatalı!", 0, $MAIN_GUI) GUICtrlSetState($GUI_ip, 256) Return SetError(1) EndIf If _IP_CHECK($Read_Subnet[0]) = False Then MsgBox(64, "", "Ağ maskesi hatalı!", 0, $MAIN_GUI) GUICtrlSetState($GUI_subnet, 256) Return SetError(1) EndIf If _IP_CHECK($Read_Gateway[0]) = False Then MsgBox(64, "", "Ağ geçidi hatalı!", 0, $MAIN_GUI) GUICtrlSetState($GUI_gateway, 256) Return SetError(1) EndIf EndIf ; ------------------------------------------------- Local $Read_Dns[2] = [StringStripWS(GUICtrlRead($GUI_DNS_INPUT[0]), <img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' />, StringStripWS(GUICtrlRead($GUI_DNS_INPUT[1]), <img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' />] If $Read_Dns[0] <> "" And _IP_CHECK($Read_Dns[0]) = False Then MsgBox(64, "", "Girilen Dns hatalı!", 0, $MAIN_GUI) GUICtrlSetState($GUI_DNS_INPUT[0], 256) Return SetError(1) EndIf If $Read_Dns[1] <> "" And _IP_CHECK($Read_Dns[1]) = False Then MsgBox(64, "", "Girilen Dns hatalı!", 0, $MAIN_GUI) GUICtrlSetState($GUI_DNS_INPUT[1], 256) Return SetError(1) EndIf If $Read_Dns[1] = "" Then ReDim $Read_Dns[1] ; ------------------------------------------------- If IsArray($ADAPTER_INFO) = 0 Then MsgBox(16, "Hata", "Uygun network kartı seçili deyil!", 0, $MAIN_GUI) Return SetError(1, 0, 0) EndIf Local $Value = StringSplit($Read_IP[0], ".") If $Read_Dhcp = False Then IniWrite($CONFIG_FILE,"IP_END_LINE",$Read_Gateway[0],Number($Value[4])) Local $Combo_Read = GUICtrlRead($GUI_AdapterCombo) $ADAPTER_INFO[0][1] = 0 For $I = 1 To $ADAPTER_INFO[0][0] If $Combo_Read = $ADAPTER_INFO[$I][9] Then $ADAPTER_INFO[0][1] = $I ExitLoop EndIf Next ; ------------------------------------------------- Local $Blue_Error = 0 Local $COLITEMS = $WMISTART.ExecQuery('SELECT caption FROM Win32_NetworkAdapterConfiguration WHERE caption="' & $ADAPTER_INFO[$ADAPTER_INFO[0][1]][11] & '"', "WQL", 48) If IsObj($COLITEMS) Then For $OBJITEM In $COLITEMS If $Read_Dhcp = True Then If $OBJITEM.EnableDHCP <> 0 Then $Blue_Error = 2 Else If $OBJITEM.EnableStatic($Read_IP, $Read_Subnet) <> 0 Then $Blue_Error = 3 If $OBJITEM.SetGateways($Read_Gateway) <> 0 Then $Blue_Error = 4 EndIf If $Read_Dns[0] = "" Then If $OBJITEM.SetDNSServerSearchOrder() <> 0 Then $Blue_Error = 5 Else If $OBJITEM.SetDNSServerSearchOrder($Read_Dns) <> 0 Then $Blue_Error = 5 EndIf Next Else $Blue_Error = 2 EndIf Local $Read_Com_Input = StringStripWS(GUICtrlRead($GUI_COM_NAME_INPUT),3) If $Read_Com_Input <> @ComputerName Then _RenameComputer($Read_Com_Input) If $Blue_Error > 0 Then MsgBox(16, "Hata", "Ayarlar uygulanırken sorun oluştu!" & @LF & @LF & "Hata Kodu: " & $Blue_Error, 0, $MAIN_GUI) Else MsgBox(64, "Bilgi", "İşlem Gerçekleşti!...", 0, $MAIN_GUI) EndIf EndFunc ;==>_Apply Func _GUI_EXIT() Exit EndFunc ;==>_GUI_EXIT Func _Updates_AdapterCombo() $ADAPTER_INFO = _Updates_AdapterCombo2() _Select_AdapterCombo() Return $ADAPTER_INFO EndFunc ;==>_Updates_AdapterCombo Func _Updates_AdapterCombo2() GUICtrlSetData($Gui_status, "Working...") GUICtrlSetData($GUI_AdapterCombo, "Bekleyiniz...", "Bekleyiniz...") ;Delete data Local $GET_INFO = _NETWORKADAPTERINFO() If IsArray($GET_INFO) = 0 Then GUICtrlSetData($GUI_AdapterCombo, "") ;Delete data Return SetError(1) EndIf $GET_INFO[0][4] = GUICtrlRead($GUI_AdapterCombo) $GET_INFO[0][1] = 0 For $I = 1 To $GET_INFO[0][0] $GET_INFO[0][2] &= $GET_INFO[$I][9] & "|" If $GET_INFO[0][3] = "" Then $GET_INFO[0][3] = $GET_INFO[$I][9] $GET_INFO[0][1] = $I EndIf If $GET_INFO[0][4] <> "" And $GET_INFO[$I][9] = $GET_INFO[0][4] Then $GET_INFO[0][1] = $I $GET_INFO[0][3] = $GET_INFO[0][4] EndIf $GET_INFO[$I][2] = StringStripWS($GET_INFO[$I][2],<img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' /> $GET_INFO[$I][4] = StringStripWS($GET_INFO[$I][4],<img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' /> $GET_INFO[$I][5] = StringStripWS($GET_INFO[$I][5],<img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' /> $GET_INFO[$I][6] = StringStripWS($GET_INFO[$I][6],<img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' /> $GET_INFO[$I][7] = StringStripWS($GET_INFO[$I][7],<img src='http://www.tnctr.com/public/style_emoticons/<#EMO_DIR#>/dirol.gif' class='bbc_emoticon' alt='8)' /> If _IP_CHECK($GET_INFO[$I][2]) = False Then $GET_INFO[$I][2] = "" If _IP_CHECK($GET_INFO[$I][4]) = False Then $GET_INFO[$I][4] = "" If _IP_CHECK($GET_INFO[$I][5]) = False Then $GET_INFO[$I][5] = "" If _IP_CHECK($GET_INFO[$I][6]) = False Then $GET_INFO[$I][6] = "" If _IP_CHECK($GET_INFO[$I][7]) = False Then $GET_INFO[$I][7] = "255.255.255.0" Next GUICtrlSetData($GUI_AdapterCombo, "") ;Delete data GUICtrlSetData($GUI_AdapterCombo, $GET_INFO[0][2], $GET_INFO[0][3]) ;Updates Combo GUICtrlSetData($Gui_status, "Ready") Return $GET_INFO EndFunc ;==>_Updates_AdapterCombo2 Func _Select_AdapterCombo() If IsArray($ADAPTER_INFO) = 0 Then Return SetError(1, 0, 0) Local $Combo_Read = GUICtrlRead($GUI_AdapterCombo) $ADAPTER_INFO[0][1] = 0 For $I = 1 To $ADAPTER_INFO[0][0] If $Combo_Read = $ADAPTER_INFO[$I][9] Then $ADAPTER_INFO[0][1] = $I ExitLoop EndIf Next If $ADAPTER_INFO[0][1] = 0 Then Return SetError(2, 0, 0) If $ADAPTER_INFO[$ADAPTER_INFO[0][1]][10] = True Then GUICtrlSetState($GUI_dhcp, 1) Else GUICtrlSetState($GUI_SIP, 1) EndIf _Select_Dhcp() ;----------- GUICtrlSetData($GUI_DNS_INPUT[0], $ADAPTER_INFO[$ADAPTER_INFO[0][1]][5]) GUICtrlSetData($GUI_DNS_INPUT[1], $ADAPTER_INFO[$ADAPTER_INFO[0][1]][6]) GUICtrlSetState($DNS_LIST[1][3], 1) For $I = 3 To $DNS_LIST[0][0] If $ADAPTER_INFO[$ADAPTER_INFO[0][1]][5] = $DNS_LIST[$I][1] Then GUICtrlSetState($DNS_LIST[$I][3], 1) ExitLoop EndIf Next EndFunc ;==>_Select_AdapterCombo Func _Select_Dhcp() If IsArray($ADAPTER_INFO) = 0 Or $ADAPTER_INFO[0][1] < 1 Then Return SetError(1, 0, 0) If BitAND(GUICtrlRead($GUI_dhcp), 1) = 1 Then If BitAND(GUICtrlRead($DNS_LIST[2][3]), 1) = 1 Then GUICtrlSetData($GUI_DNS_INPUT[0], "") GUICtrlSetData($GUI_DNS_INPUT[1], "") EndIf GUICtrlSetState($GUI_ip, 128) GUICtrlSetState($GUI_gateway, 128) GUICtrlSetState($GUI_subnet, 128) Else If BitAND(GUICtrlRead($DNS_LIST[2][3]), 1) = 1 Then GUICtrlSetData($GUI_DNS_INPUT[0], $ADAPTER_INFO[$ADAPTER_INFO[0][1]][2]) GUICtrlSetData($GUI_DNS_INPUT[1], "") EndIf GUICtrlSetState($GUI_ip, 64) GUICtrlSetState($GUI_gateway, 64) GUICtrlSetState($GUI_subnet, 64) EndIf GUICtrlSetData($GUI_gateway, $ADAPTER_INFO[$ADAPTER_INFO[0][1]][2]) GUICtrlSetData($GUI_subnet, $ADAPTER_INFO[$ADAPTER_INFO[0][1]][7]) _GUI_IP_COMBO_SETDATA($ADAPTER_INFO[$ADAPTER_INFO[0][1]][2], $ADAPTER_INFO[$ADAPTER_INFO[0][1]][4]) EndFunc ;==>_Select_Dhcp Func _GUI_IP_COMBO_SETDATA($MODEM_IP, $Adapter_Ip) If _IP_CHECK($MODEM_IP) = False Then Return SetError(1) Local $INI_LINE = Number(IniRead($CONFIG_FILE,"IP_END_LINE",$MODEM_IP,"")) Local $IP_COMBO_ARRAY[2] Local $Value = StringSplit($MODEM_IP, ".") $Value[4] = Number($Value[4]) Local $CreateIp For $I = ($Value[4] + 1) To 244 $CreateIp = String($Value[1] & "." & $Value[2] & "." & $Value[3] & "." & $I) If $Adapter_Ip = $CreateIp Then ContinueLoop If $INI_LINE < $I Then $IP_COMBO_ARRAY[0] &= String("|" & $Value[1] & "." & $Value[2] & "." & $Value[3] & "." & $I) Else $IP_COMBO_ARRAY[1] &= String("|" & $Value[1] & "." & $Value[2] & "." & $Value[3] & "." & $I) EndIf Next $IP_COMBO_ARRAY[0] = $Adapter_Ip & $IP_COMBO_ARRAY[0] & $IP_COMBO_ARRAY[1] GUICtrlSetData($GUI_ip, "") GUICtrlSetData($GUI_ip, $IP_COMBO_ARRAY[0],$Adapter_Ip) EndFunc 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 _Dns_Ratio() If IsArray($ADAPTER_INFO) = 0 Or $ADAPTER_INFO[0][1] < 1 Then Return SetError(1, 0, 0) Local $Combo_Read = GUICtrlRead($GUI_AdapterCombo) If BitAND(GUICtrlRead($DNS_LIST[1][3]), 1) = 1 Then GUICtrlSetState($GUI_DNS_INPUT[0], 128) GUICtrlSetState($GUI_DNS_INPUT[1], 128) For $I = 1 To $ADAPTER_INFO[0][0] If $Combo_Read = $ADAPTER_INFO[$I][9] Then GUICtrlSetData($GUI_DNS_INPUT[0], $ADAPTER_INFO[$I][5]) GUICtrlSetData($GUI_DNS_INPUT[1], $ADAPTER_INFO[$I][6]) ExitLoop EndIf Next ElseIf BitAND(GUICtrlRead($DNS_LIST[2][3]), 1) = 1 Then GUICtrlSetState($GUI_DNS_INPUT[0], 128) GUICtrlSetState($GUI_DNS_INPUT[1], 128) If BitAND(GUICtrlRead($GUI_dhcp), 1) = 1 Then GUICtrlSetData($GUI_DNS_INPUT[0], "") Else GUICtrlSetData($GUI_DNS_INPUT[0], $ADAPTER_INFO[$ADAPTER_INFO[0][1]][2]) EndIf GUICtrlSetData($GUI_DNS_INPUT[1], "") Else GUICtrlSetState($GUI_DNS_INPUT[0], 64) GUICtrlSetState($GUI_DNS_INPUT[1], 64) For $I = 3 To $DNS_LIST[0][0] If BitAND(GUICtrlRead($DNS_LIST[$I][3]), 1) = 1 Then GUICtrlSetData($GUI_DNS_INPUT[0], $DNS_LIST[$I][1]) GUICtrlSetData($GUI_DNS_INPUT[1], $DNS_LIST[$I][2]) ExitLoop EndIf Next EndIf EndFunc ;==>_Dns_Ratio Func _WMISTART() Local $OBJWMI = ObjGet("winmgmts:\\localhost\root\CIMV2") If Not IsObj($OBJWMI) Then MsgBox(0, "Error", "Winmgmts is not an Object.") Exit Else Return $OBJWMI EndIf EndFunc ;==>_WMISTART Func _NETWORKADAPTERINFO() Local $NETWORKADAPTERID = 0 Local $NETWORKADAPTERNAME = "" Local $NETWORKADAPTERGATEWAY = "" Local $NETWORKADAPTERHOSTNAME = "" Local $NETWORKADAPTERIPADDRESS = "" Local $NETWORKADAPTERDNS1 = "" Local $NETWORKADAPTERDNS2 = "" Local $NETWORKADAPTERSUBNET = "" Local $NETWORKADAPTERMAC = "" Local $NETWORKADAPTERNETCONNECTIONID = "" Local $NETWORKADAPTERINFO[10][12] $NETWORKADAPTERINFO[0][0] = 0 Local $COLITEMS = $WMISTART.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", 16 + 32) Local $COLITEM2 = $WMISTART.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus >0", "WQL", 16 + 32) If IsObj($COLITEMS) Then For $OBJITEM In $COLITEMS $NETWORKADAPTERNAME = $OBJITEM.Description $NETWORKADAPTERGATEWAY = $OBJITEM.DefaultIPGateway(0) $NETWORKADAPTERHOSTNAME = $OBJITEM.DNSHostName $NETWORKADAPTERIPADDRESS = $OBJITEM.IPAddress(0) $NETWORKADAPTERDNS1 = $OBJITEM.DNSServerSearchOrder(0) $NETWORKADAPTERDNS2 = $OBJITEM.DNSServerSearchOrder(1) $NETWORKADAPTERSUBNET = $OBJITEM.IPSubnet(0) $NETWORKADAPTERMAC = $OBJITEM.MACAddress $NETWORKADAPTERID += 1 If $NETWORKADAPTERID = 10 Then ExitLoop ;BlueLife Edit $NETWORKADAPTERINFO[0][0] = $NETWORKADAPTERID $NETWORKADAPTERINFO[$NETWORKADAPTERID][0] = $NETWORKADAPTERID $NETWORKADAPTERINFO[$NETWORKADAPTERID][1] = $NETWORKADAPTERNAME $NETWORKADAPTERINFO[$NETWORKADAPTERID][2] = $NETWORKADAPTERGATEWAY $NETWORKADAPTERINFO[$NETWORKADAPTERID][3] = $NETWORKADAPTERHOSTNAME $NETWORKADAPTERINFO[$NETWORKADAPTERID][4] = $NETWORKADAPTERIPADDRESS $NETWORKADAPTERINFO[$NETWORKADAPTERID][5] = $NETWORKADAPTERDNS1 $NETWORKADAPTERINFO[$NETWORKADAPTERID][6] = $NETWORKADAPTERDNS2 $NETWORKADAPTERINFO[$NETWORKADAPTERID][7] = $NETWORKADAPTERSUBNET $NETWORKADAPTERINFO[$NETWORKADAPTERID][8] = $NETWORKADAPTERMAC $NETWORKADAPTERINFO[$NETWORKADAPTERID][10] = $OBJITEM.DHCPEnabled ;BlueLife Edit $NETWORKADAPTERINFO[$NETWORKADAPTERID][11] = $OBJITEM.caption;BlueLife Edit Next Else Return $NETWORKADAPTERINFO EndIf If IsObj($COLITEM2) Then $NETWORKADAPTERID = 0 For $OBJITEM2S In $COLITEM2 $NETWORKADAPTERNETCONNECTIONID = $OBJITEM2S.NetConnectionID $NETWORKADAPTERID += 1 $NETWORKADAPTERINFO[$NETWORKADAPTERID][9] = $NETWORKADAPTERNETCONNECTIONID Next Return $NETWORKADAPTERINFO Else Return $NETWORKADAPTERINFO EndIf EndFunc ;==>_NETWORKADAPTERINFO ; ==================== FLUSH DNS ========================= Func _FlushDNS() Local $Flush_Dns[2] = [Run('ipconfig.exe /flushdns', @SystemDir, @SW_HIDE, 2)] While 1 $Flush_Dns[1] &= StdoutRead($Flush_Dns[0]) If @error Then ExitLoop WEnd $Flush_Dns[1] = StringStripWS($Flush_Dns[1], 3) If $Flush_Dns[1] = "" Then MsgBox(16, $MAINTITLE, "The error! - You can contact by Radyofon", 0, $MAIN_GUI) Else $Flush_Dns[1] = StringReplace($Flush_Dns[1], @CR, @LF) Do $Flush_Dns[1] = StringReplace($Flush_Dns[1], @LF & @LF, @LF) Until @extended = 0 MsgBox(64, $MAINTITLE, $Flush_Dns[1], 0, $MAIN_GUI) EndIf EndFunc ;==>_FlushDNS Func _RenameComputer($mname) RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName", "REG_SZ", $mname) RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $mname) RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", "REG_SZ", $mname) RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $mname) RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultDomainName", "REG_SZ", $mname) EndFunc ;==>_RenameComputer  [/spoiler]

  Kaçırma :)

Bıos pili bitmiştir diyecem ama yeni almışsın bilgisayarı...

SPlayer

Bilgisayarına bir uygulama kurmuşsundur, haberin olmadan oda kurulmuştur sistem böyle çalışır derinlemesine bir tarama yap bence...

Bilgisayarında keylogger olabilir...

Tarkan - Kimdi? https://www.youtube.com/watch?v=3_xaMFCTy2s&feature=player_embedded   Tarkan - Sorma Kalbim https://www.youtube.com/watch?v=hxU2H4ck5H0

EMCO MSI Package Builder Enterprise tavsiyemdir ama yukardaki işlemler repack ile her bilgisayarda çalışmayabilir, autoitle yap garanti olsun...

Sana şöyle anlatayım kardeşim o kurduğun programlar ne yazıkki çok eski artık dfx tüm sisteme hakim ve bilgisayardaki diğer seslerde dfx entegre yani şu anlama geliyor dfx kurarsak her ses onla çıkar ama yinede aimp 3 kurulumunu yapınca dfx  plugin dll' sinide ilgili bölüme atarsak entegre olur.   Aimp3 Katılımsız Parametresi; /AUTO="%PROGRAMFILES%\AIMP3\" /SILENT   Dfx entegre olması için dsp_dfx.dll dosyasını C:\Program Files\AIMP3\Plugins yoluna atacaksın   DFx Katılımsız parametresi; /S   Aynı scrip dosyasının içinde ilk önce aimp'i kurdur peşinde dfx bu iş tamamdır, unutmadan dfx'in crak dosyasını ilgili yola kopyalatıp değiştirtmeyi unutma, kolay gelsin...

  Doğrumu anlamışım sen katılımsız setubu kurarken dfxde kurulsun diyorsun tek setupta iki program mı?, eğer böyleyse çok basit anlatabilirim...

Benzer örnek, kendinize göre uyarayabilirsiniz...   :download1:   http://www.mediafire.com/download/v22x44pwjxlj3yc/dock_bar.apz

Bu adam tuvalete gitmeye erinmiş monitörün yanındaki petleri doldurmuş gibi geldi bana :)

http://www.tnctr.com/topic/206239-goersel-masaustu-button/

Hocam biraz bahsedermisiniz bu programdan, nette hiç bilgi yok bu program hakkında resmi sitesi filan varmıdır yoksa sizmi yazdınız?

Yönetici olduğun için nüfuzunu kullanarak benim düşüncelerim doğru diyorsun ve bizi inandırmaya çalışıyorsun birde kendine göre yorum yapıyorsun, ben bunu telefonuma kurdum diyelim içinde birşey olsa beni izlese hoş olurmu, aynı izni alan ama veri çeken bir android uygulaması yazabilirim, burdaki amaç birlikte istişare edip daha güvenli kullanmak olmalı bence...

Ben çok iyi biliyorum kelime anlamını, uzun zamandır takip ediyorum forumu hep bir gariplik var mesajlarında (ams haric), aynen bu mesajında yazdığın gibi yapıcı eleştirilerin yapılabilmesi diye yazabilirdin o mesajı neyse konuyu kirletmeyelim, herkez düşüncelerinde özgürdür herkesin düşüncelerine saygı duyman gerekir...

Kintaro herkez düşüncelerini söyleyemezmi, burası özgür bir forum değilmi? kimsenin kaka dediği yok bence sen mualefet yapıyorsun, insanların oyun oynadığını nerden biliyorsunda genelleme yapıyorsun...

  Z kullanan birisi olarak tavsiye ederim, Sony deyince aklına bence elektronik gelsin güçlü telefon...

      Bende android uygulamasını kurmuştum baktım izinlere içime sinmedi, mobil sürümü kullanıyorum...

  Hepsinden bilgim var çalıştırırız, sağolasın...