Jump to content

mkayer

Üye
 View Profile  See their activity

  • Posts

    49

  • Joined

  • Last visited

 Content Type 

Posts posted by mkayer

    İleri düzey AutoIT örnekleri

    in AutoIT

    Posted

    RegWrite ("HKEY_CURRENT_USER\Control Panel\Desktop" , "Wallpaper" , "REG_SZ" , "C:\cozum\ip\backgroundip.bmp" )
     
    hkcu içine ekleme yapabiliyorum win7 - win8 ve win10 da
     
    RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" , "ipbackground" , "REG_SZ" , "C:\cozum\ip\IpBackground.exe" )
     
    fakat hklm içine ekleme yapamıyorum
    çözümü varmı ustalar...

    İleri düzey AutoIT örnekleri

    in AutoIT

    Posted

     

    @mkayer

     

    Anladığım kadarıyla admin yetkisine sahip olmayan autoit çalışmanın içinden, admin yetkileri ile komut istemini çalıştırmak istiyorsun. Bunun için sana basit bir örnek vereyim. Sen kendine göre düzenlersin.

    Local $Komut = "ver"

If IsAdmin() = 0 Then
    ShellExecute(@ComSpec, '/k ' & $Komut, '', 'runas')
Else
    Run(@ComSpec & ' /k ' & $Komut)
EndIf

    bana bir harf öğretenin kırk yıl kölesi olurum düsturu ile size teşekkürü borç bilirim.

    çalışmalırınızdan çok şey öğrendim. Yani Üstadım dememde bir sakınca yok benim açımdan.Umarım sizde kabul buyurursunuz.

    yapmak istediğim; yazdığım bir çok script active directory user kullanıcı yetkileri ile çalışacak

    adminler şifreli 

    scriptleri çalıştırırken yetkiniz bulunmamaktadır uyarısı alıyorum.

    autoitte yazdığım scriptlerin kendilerini admin yetkisi ile çalıştırmamın daha kolay bir yolu olmalı. 

     

     

     

     

    İleri düzey AutoIT örnekleri

    in AutoIT

    Posted 

    adm()

Func adm()

    Local $sUserName = "administrator"
    Local $sPassword = "12345"
    Local $iPID = RunAs($sUserName, @ComputerName, $sPassword, 0, "cmd.exe", "", @SW_SHOWMAXIMIZED)

EndFunc

WinWait("yönetici C:\WINDOWS\system32\cmd.exe","")
If Not WinActive("yönetici C:\WINDOWS\system32\cmd.exe","") ("yönetici C:\WINDOWS\system32\cmd.exe","")
WinWaitActive("yönetici C:\WINDOWS\system32\cmd.exe","")

    bu şekilde cmd exeyi yönetici olarak çalıştırabiliyorum.

    fakat istediğim 

     RunWait(@ComSpec &  '/c start  cmd.exe')

    ve diğer kodlar

    scriptin içerisinde netsh ile local ip değiştireceğim.

    user yetkileri ile scriptin kendisini administrator yetkileri ile çalıştırabilirmiyim.

    İleri düzey AutoIT örnekleri

    in AutoIT

    Posted · Edited by mkayer

     

    @mkayer

     

    Tabiki gönderebilirsin. Yardım dosyasındaki örneğe değişken ekleyerek örnek verelim. Incelersin.

    Global $Degisken = "[CLASS:Notepad]" ;Değişkenimiz

Run("notepad.exe") ;Notepad programını çalıştıralım.

WinWait($Degisken) ;Winwait ile notepad ekranının gelmesini bekleyelim
ControlSend($Degisken, "", "Edit1", "Günaydın Millet") ;Edit1e yazı göndereli

    burdaki hatam nedir.

    
#include <MsgBoxConstants.au3>

oku()
Func oku()	
     msgbox (64,"Uyarı","Bağlanmak istediğiniz Yazıcının Bağlı olduğu Bilgisayarın Ip Adresini giriniz." & @CRLF & "Ip adresi  192.168.1.21 ... gibi rakamlar arasında noktalar ile girilmelidir..")
EndFunc

ipadresi()

Func ipadresi()
	
 Dim  $YaziciIpAdresi = InputBox("Ip Adresi", "192.168.1.21  gibi." , "" , "" ,"200","150")	
  
  RunWait(@ComSpec & ' /c start \\' & $YaziciIpAdresi)

EndFunc 

sleep(1000)

 oku1()
Func oku1()	
     msgbox (64,"Varsayılan Yazıcı Seç","Bağlanmak istediğiniz Yazıcı üxerine çift tıklayınız." & @CRLF & "Veya sağ tıklayıp bağlanı tıklayınız..")
 EndFunc

WinWait($YaziciIpAdresi & " üzerinde")  ;bağlandığında otomatik spool penceresi açılıyor  
If Not WinActive($YaziciIpAdresi & " üzerinde") Then WinActivate($YaziciIpAdresi & " üzerinde")
WinWaitActive($YaziciIpAdresi & " üzerinde")

WinClose($YaziciIpAdresi & " üzerinde")


RunWait(@ComSpec & ' /c start  control printers') ;devamında varsayılan yazıcıyı seçmesini sağlamalıyım.

    spooler ekranı başlığında 192.168.0.22 üzerinde  lazerjet vs  ve  192.168.0.22 üzerinde  lazerjet vs yenileniyor yazıyor  : başlık değişiyor.

    300 e yakın kullanıcı 500 e yakın yazıcı var. 

    XP Driver Pack (25.000 Driver)

    in Program-Appz

    Posted

    arkadaşlar ben 2007 ağustosta üretilen 4 farklı donanım üzerinde denedim

    tamamını yükledim

    anlıcanız driverlar yeni

    tek problemi cd ye sığmaması

    biraz yontmak lazım

    teknik servise gelen her bilgisayarın da dvd si olmaz

    elbet bi yol buluruz

    XP Driver Pack (25.000 Driver)

    in Program-Appz

×
×
  • Create New...